newtRef NsOr(newtRefArg rcvr, newtRefArg r1, newtRefArg r2)
{
bool result;
result = (NewtRefIsNotNIL(r1) || NewtRefIsNotNIL(r2));
return NewtMakeBoolean(result);
}
newtRef NsEndsWith(newtRefArg rcvr, newtRefArg str, newtRefArg sub)
{
bool result;
if (! NewtRefIsString(str))
return NewtThrow(kNErrNotAString, str);
if (! NewtRefIsString(sub))
return NewtThrow(kNErrNotAString, sub);
result = NewtEndsWith(NewtRefToString(str), NewtRefToString(sub));
return NewtMakeBoolean(result);
}
newtRef NcLessThan(newtRefArg r1, newtRefArg r2)
{
return NewtMakeBoolean(NewtObjectCompare(r1, r2) < 0);
}
newtRef NsHasGlobalFn(newtRefArg rcvr, newtRefArg r)
{
return NewtMakeBoolean(NewtHasGlobalFn(r));
}
newtRef NsIsSubclass(newtRefArg rcvr, newtRefArg sub, newtRefArg supr)
{
return NewtMakeBoolean(NewtIsSubclass(sub, supr));
}
newtRef NcRefEqual(newtRefArg r1, newtRefArg r2)
{
return NewtMakeBoolean(NewtRefEqual(r1, r2));
}
newtRef NcHasPath(newtRefArg r, newtRefArg p)
{
return NewtMakeBoolean(NewtHasPath(r, p));
}
newtRef NcLessOrEqual(newtRefArg r1, newtRefArg r2)
{
return NewtMakeBoolean(NewtObjectCompare(r1, r2) <= 0);
}
newtRef NsIsCharacter(newtRefArg rcvr, newtRefArg r)
{
return NewtMakeBoolean(NewtRefIsCharacter(r));
}
newtRef NsIsString(newtRefArg rcvr, newtRefArg r)
{
return NewtMakeBoolean(NewtRefIsString(r));
}
newtRef NsIsSymbol(newtRefArg rcvr, newtRefArg r)
{
return NewtMakeBoolean(NewtRefIsSymbol(r));
}
newtRef NsIsBinary(newtRefArg rcvr, newtRefArg r)
{
return NewtMakeBoolean(NewtRefIsBinary(r));
}
newtRef NsIsFrame(newtRefArg rcvr, newtRefArg r)
{
return NewtMakeBoolean(NewtRefIsFrame(r));
}
newtRef NsGlobalVarExists(newtRefArg rcvr, newtRefArg r)
{
return NewtMakeBoolean(NewtHasGlobalVar(r));
}
newtRef NcGreaterThan(newtRefArg r1, newtRefArg r2)
{
return NewtMakeBoolean(NewtObjectCompare(r1, r2) > 0);
}
newtRef NcGreaterOrEqual(newtRefArg r1, newtRefArg r2)
{
return NewtMakeBoolean(NewtObjectCompare(r1, r2) >= 0);
}
newtRef NsIsInteger(newtRefArg rcvr, newtRefArg r)
{
return NewtMakeBoolean(NewtRefIsInteger(r));
}
newtRef NsHasSlot(newtRefArg rcvr, newtRefArg frame, newtRefArg slot)
{
return NewtMakeBoolean(NewtHasSlot(frame, slot));
}
newtRef NsIsNumber(newtRefArg rcvr, newtRefArg r)
{
return NewtMakeBoolean(NewtRefIsInteger(r) || NewtRefIsReal(r));
}
newtRef NsHasVar(newtRefArg rcvr, newtRefArg name)
{
return NewtMakeBoolean(NewtHasVar(name));
}
newtRef NsIsImmediate(newtRefArg rcvr, newtRefArg r)
{
return NewtMakeBoolean(NewtRefIsImmediate(r));
}
newtRef NsObjectEqual(newtRefArg rcvr, newtRefArg r1, newtRefArg r2)
{
return NewtMakeBoolean(NewtObjectEqual(r1, r2));
}
newtRef NsIsFunction(newtRefArg rcvr, newtRefArg r)
{
return NewtMakeBoolean(NewtRefIsFunction(r));
}
newtRef NsIsInstance(newtRefArg rcvr, newtRefArg obj, newtRefArg r)
{
return NewtMakeBoolean(NewtIsInstance(obj, r));
}
newtRef NsIsReadonly(newtRefArg rcvr, newtRefArg r)
{
return NewtMakeBoolean(NewtRefIsReadonly(r));
}
