--- 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!