--- a/ExternalFunction.st Mon Jan 10 13:26:51 2000 +0100
+++ b/ExternalFunction.st Mon Jan 10 14:37:09 2000 +0100
@@ -438,6 +438,86 @@
self primitiveFailed
!
+callO
+ "call the underlying C function, passing no argument.
+ The return value must be a valid object.
+
+ DANGER alert: This is an unprotected low-level entry.
+ Not for normal application usage.
+ "
+%{
+ OBJFUNC func;
+ OBJ retVal;
+
+ func = (OBJFUNC) __INST(code_);
+ if (func) {
+ retVal = (*func)();
+ RETURN (retVal);
+ }
+%}.
+ self primitiveFailed
+!
+
+callOWith:arg
+ "call the underlying C function, passing a single object argument.
+ The return value must be a valid object.
+
+ DANGER alert: This is an unprotected low-level entry.
+ Not for normal application usage.
+ "
+%{
+ OBJFUNC func;
+ OBJ retVal;
+
+ func = (OBJFUNC) __INST(code_);
+ if (func) {
+ retVal = (*func)(arg);
+ RETURN (retVal);
+ }
+%}.
+ self primitiveFailed
+!
+
+callOWith:arg1 with:arg2
+ "call the underlying C function, passing two args.
+ The return value must be a valid object.
+
+ DANGER alert: This is an unprotected low-level entry.
+ Not for normal application usage.
+ "
+%{
+ OBJFUNC func;
+ OBJ retVal;
+
+ func = (OBJFUNC) __INST(code_);
+ if (func) {
+ retVal = (*func)(arg1, arg2);
+ RETURN (retVal);
+ }
+%}.
+ self primitiveFailed
+!
+
+callOWith:arg1 with:arg2 with:arg3
+ "call the underlying C function, passing three args.
+ The return value must be a valid object.
+
+ DANGER alert: This is an unprotected low-level entry.
+ Not for normal application usage.
+ "
+%{
+ OBJFUNC func;
+ INT retVal;
+
+ func = (OBJFUNC) __INST(code_);
+ if (func) {
+ retVal = (*func)(arg1, arg2, arg3);
+ RETURN (retVal);
+ }
+%}.
+ self primitiveFailed
+!
+
callWith:arg
"call the underlying C function, passing a single argument.
The argument arg is converted to a corresponding C data type,
@@ -709,6 +789,6 @@
!ExternalFunction class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libbasic/ExternalFunction.st,v 1.16 1998-06-18 16:44:22 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libbasic/ExternalFunction.st,v 1.17 2000-01-10 13:37:09 cg Exp $'
! !
ExternalFunction initialize!