view dwt/internal/cocoa/NSSpecifierTest.d @ 13:f565d3a95c0a

Ported dwt.internal
author Jacob Carlborg <doob@me.com> <jacob.carlborg@gmail.com>
date Fri, 22 Aug 2008 16:46:34 +0200
parents 8b48be5454ce
children
line wrap: on
line source

/*******************************************************************************
 * Copyright (c) 2007 IBM Corporation and others.
 * All rights reserved. This program and the accompanying materials
 * are made available under the terms of the Eclipse Public License v1.0
 * which accompanies this distribution, and is available at
 * http://www.eclipse.org/legal/epl-v10.html
 *
 * Contributors:
 *     IBM Corporation - initial API and implementation
 *     
 * Port to the D programming language:
 *     Jacob Carlborg <jacob.carlborg@gmail.com>
 *******************************************************************************/
module dwt.internal.cocoa.NSSpecifierTest;

import dwt.internal.cocoa.id;
import dwt.internal.cocoa.NSScriptObjectSpecifier;
import dwt.internal.cocoa.NSScriptWhoseTest;
import dwt.internal.cocoa.OS;
import objc = dwt.internal.objc.runtime;



enum NSTestComparisonOperation
{
    NSEqualToComparison = 0,
    NSLessThanOrEqualToComparison,
    NSLessThanComparison,
    NSGreaterThanOrEqualToComparison,
    NSGreaterThanComparison,
    NSBeginsWithComparison,
    NSEndsWithComparison,
    NSContainsComparison
}

alias NSTestComparisonOperation.NSEqualToComparison NSEqualToComparison;
alias NSTestComparisonOperation.NSLessThanOrEqualToComparison NSLessThanOrEqualToComparison;
alias NSTestComparisonOperation.NSLessThanComparison NSLessThanComparison;
alias NSTestComparisonOperation.NSGreaterThanOrEqualToComparison NSGreaterThanOrEqualToComparison;
alias NSTestComparisonOperation.NSGreaterThanComparison NSGreaterThanComparison;
alias NSTestComparisonOperation.NSBeginsWithComparison NSBeginsWithComparison;
alias NSTestComparisonOperation.NSEndsWithComparison NSEndsWithComparison;
alias NSTestComparisonOperation.NSContainsComparison NSContainsComparison;



public class NSSpecifierTest : NSScriptWhoseTest
{

    public this ()
    {
        super();
    }

    public this (objc.id id)
    {
        super(id);
    }

    public id initWithObjectSpecifier (NSScriptObjectSpecifier obj1, NSTestComparisonOperation compOp, id obj2)
    {
        objc.id result = OS.objc_msgSend(this.id_, OS.sel_initWithObjectSpecifier_1comparisonOperator_1testObject_1, obj1 !is null ? obj1.id_ : null,
                compOp, obj2 !is null ? obj2.id_ : null);
        return result !is null ? new id(result) : null;
    }

}