aboutsummaryrefslogtreecommitdiff
path: root/src/interp
diff options
context:
space:
mode:
authordos-reis <gdr@axiomatics.org>2008-09-07 20:13:42 +0000
committerdos-reis <gdr@axiomatics.org>2008-09-07 20:13:42 +0000
commitc0f80aca887462749a7cdc4fcacc579ee59aa850 (patch)
treef0e7543a797c0072415c80f36327f3b52309ec10 /src/interp
parent18b7b4b5d3511211092796bd8d593d5c9debec02 (diff)
downloadopen-axiom-c0f80aca887462749a7cdc4fcacc579ee59aa850.tar.gz
* boot/parser.boot (bpImport): Invert syntax for importing foreign
functions. * boot/strap/parser.clisp: Update. * interp/sys-os.boot: Change to new syntax throughout.
Diffstat (limited to 'src/interp')
-rw-r--r--src/interp/sys-os.boot116
1 files changed, 49 insertions, 67 deletions
diff --git a/src/interp/sys-os.boot b/src/interp/sys-os.boot
index 95342e27..3d3ecc6d 100644
--- a/src/interp/sys-os.boot
+++ b/src/interp/sys-os.boot
@@ -46,105 +46,90 @@ module sys_-os
loadSystemRuntimeCore()
++ change current working directory.
-import changeDirectory for
- oa__chdir: string -> int -- 0: success, -1: failure
-
+import oa__chdir: string -> int for changeDirectory
+ -- 0: success, -1: failure
+
++ remove file or directory tree.
-import removeFile for
- oa__unlink: string -> int -- 0: sucess, -1: failure
+import oa__unlink: string -> int for removeFile
+ -- 0: sucess, -1: failure
++ rename file or directory
-import renameFile for
- oa__rename: (string,string) -> int -- 0: success, -1 failure
+import oa__rename: (string,string) -> int for renameFile
+ -- 0: success, -1 failure
++ create a directory
-import mkdir for
- oa__mkdir: string -> int -- 0: sucess, -1: failure.
+import oa__mkdir: string -> int for mkdir
+ -- 0: sucess, -1: failure.
-import readFromFileHandle for
- oa__filedesc__read: (int,buffer,int) -> int -- -1: failure; otherwise
- -- actual read bytes count
+import oa__filedesc__read: (int,buffer,int) -> int for readFromFileHandle
+ -- -1: failure; otherwise
+ -- actual read bytes count
-import writeToFileHandle for
- oa__filedesc__write: (int,buffer,int) -> int -- -1: failure; otherwise
- -- actual written bytes count
+import oa__filedesc__write: (int,buffer,int) -> int for writeToFileHandle
+ -- -1: failure; otherwise
+ -- actual written bytes count
-import closeFileHandle for
- oa__filedesc__close: int -> int -- -1: failure; otherwise 0.
+import oa__filedesc__close: int -> int for closeFileHandle
+ -- -1: failure; otherwise 0.
-import getEnv for
- oa__getenv: string -> string
+import oa__getenv: string -> string for getEnv
+
--% Local IPC socket support
-import openLocalClientStreamSocket for
- oa__open__local__client__stream__socket: string -> int -- -1: failure
+import oa__open__local__client__stream__socket: string -> int
+ for openLocalClientStreamSocket
+ -- -1: failure
--% INET socket stream support
-import openIP4ClientStreamSocket for
- oa__open__ip4__client__stream__socket: (string,int) -> int
+import oa__open__ip4__client__stream__socket: (string,int) -> int
+ for openIP4ClientStreamSocket
-import readFromStreamSocket for
- oa__socket__read: (int,string,int) -> int
-
-import writeToStreamSocket for
- oa__socket__write: (int,string,int) -> int
+import oa__socket__read: (int,string,int) -> int for readFromStreamSocket
+
+import oa__socket__write: (int,string,int) -> int for writeToStreamSocket
-import closeSocket for
- oa__close__socket: int -> int
+import oa__close__socket: int -> int for closeSocket
--% OpenAxiom subsystem socket support
++ socket interface
-import openServer for
- open__server: string -> int
+import open__server: string -> int for openServer
-import sockGetInt for
- sock__get__int: int -> int
+import sock__get__int: int -> int for sockGetInt
-import sockSendInt for
- sock__send__int: (int,int) -> int
+import sock__send__int: (int,int) -> int for sockSendInt
-import sockGetString for
- sock__get__string: int -> string
+import sock__get__string: int -> string for sockGetString
-import doSendString for
- sock__send__string__len: (int, string, int) -> int
+import sock__send__string__len: (int, string, int) -> int
+ for doSendString
sockSendString(type,str) ==
doSendString(type, str, LENGTH str)
-import sockGetFloat for
- sock__get__float: int -> double
+import sock__get__float: int -> double for sockGetFloat
-import sockSendFloat for
- sock__send__float: (int,double) -> int
+import sock__send__float: (int,double) -> int for sockSendFloat
-import sockSendWakeup for
- sock__send__wakeup: (int,int) -> int
+import sock__send__wakeup: (int,int) -> int for sockSendWakeup
-import serverSwitch for
- server__switch: () -> int
+import server__switch: () -> int for serverSwitch
-import flushStdout for
- flush__stdout: () -> int
+import flush__stdout: () -> int for flushStdout
-import sockSendSignal for
- sock__send__signal: (int,int) -> int
+import sock__send__signal: (int,int) -> int for sockSendSignal
-import printLine for
- print__line: string -> int
+import print__line: string -> int for printLine
--%
-import directoryp for
- directoryp: string -> int
+import directoryp: string -> int for directoryp
+
-import writeablep for
- writeablep: string -> int
+import writeablep: string -> int for writeablep
-import runCommand for
- oa__system: string -> int
+import oa__system: string -> int for runCommand
++ run a program with specified arguments
runProgram(prog,args) ==
@@ -161,14 +146,11 @@ runProgram(prog,args) ==
++ numeric limits
)if %hasFeature KEYWORD::GCL
-import plusInfinity for
- plus__infinity: () -> double
+import plus__infinity: () -> double for plusInfinity
-import minusInfinity for
- minus__infinity: () -> double
+import minus__infinity: () -> double for minusInfinity
-import NaNQ for
- NANQ: () -> double
+import NANQ: () -> double for NaNQ
$plusInfinity := plusInfinity()
$minusInfinity := minusInfinity()
@@ -197,6 +179,6 @@ minusInfinity() ==
++ stdStreamIsTerminal:
++ returns 1 if the standard stream is attached to a terminal;
++ otherwise 0.
-import stdStreamIsTerminal for std__stream__is__terminal: int -> int
+import std__stream__is__terminal: int -> int for stdStreamIsTerminal
--%