1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
|
-- Copyright (C) 2007-2008 Gabriel Dos Reis.
-- All rights reserved.
--
-- Redistribution and use in source and binary forms, with or without
-- modification, are permitted provided that the following conditions are
-- met:
--
-- - Redistributions of source code must retain the above copyright
-- notice, this list of conditions and the following disclaimer.
--
-- - Redistributions in binary form must reproduce the above copyright
-- notice, this list of conditions and the following disclaimer in
-- the documentation and/or other materials provided with the
-- distribution.
--
-- - Neither the name of The Numerical Algorithms Group Ltd. nor the
-- names of its contributors may be used to endorse or promote products
-- derived from this software without specific prior written permission.
--
-- THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS "AS
-- IS" AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED
-- TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A
-- PARTICULAR PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT OWNER
-- OR CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL,
-- EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO,
-- PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR
-- PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF
-- LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING
-- NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS
-- SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
--
--
--
-- This file contains interface to functionalities required from the
-- hosting operating systems. More to the point, it is mostly
-- a set of interfaces to native routines provided in the
-- supporting C runtime libopen-axiom-core.
--
import sys_-constants
import cfuns
namespace BOOT
module sys_-os
loadSystemRuntimeCore()
--% File System Support
++ change current working directory.
import oa__chdir: string -> int for changeDirectory
-- 0: success, -1: failure
++ remove file or directory tree.
import oa__unlink: string -> int for removeFile
-- 0: sucess, -1: failure
++ rename file or directory
import oa__rename: (string,string) -> int for renameFile
-- 0: success, -1 failure
++ create a directory
import oa__mkdir: string -> int for mkdir
-- 0: sucess, -1: failure.
++ Test whether a path names a directory.
import directoryp: string -> int for directoryp
++ Test whether a file exists and is accessible for read.
import readablep: string -> int for readablep
-- -1: inexistent.
-- 0: exist but read access denied.
-- 1: exist and read accress granted.
++ Test whether a file exists and is accessible for write.
import writeablep: string -> int for writeablep
-- -1: inexistent.
-- 0: exists but write access denied
-- 1: exists and write access granted
-- 2: inexistent but write access to parent directory granted.
import oa__filedesc__read: (int,writeonly buffer byte,int) -> int
for readFromFileHandle
-- -1: failure; otherwise
-- actual read bytes count
import oa__filedesc__write: (int,readonly buffer byte,int) -> int
for writeToFileHandle
-- -1: failure; otherwise
-- actual written bytes count
import oa__filedesc__close: int -> int for closeFileHandle
-- -1: failure; otherwise 0.
import oa__getenv: string -> string for getEnv
--% Local IPC socket support
import oa__open__local__client__stream__socket: string -> int
for openLocalClientStreamSocket
-- -1: failure
--% INET socket stream support
import oa__open__ip4__client__stream__socket: (string,int) -> int
for openIP4ClientStreamSocket
import oa__socket__read: (int,string,int) -> int for readFromStreamSocket
import oa__socket__write: (int,string,int) -> int for writeToStreamSocket
import oa__close__socket: int -> int for closeSocket
--% OpenAxiom subsystem socket support
++ socket interface
import open__server: string -> int for openServer
import sock__get__int: int -> int for sockGetInt
import sock__send__int: (int,int) -> int for sockSendInt
import sock__get__string: int -> string for sockGetString
import sock__send__string__len: (int, string, int) -> int
for doSendString
sockSendString(type,str) ==
doSendString(type, str, LENGTH str)
import sock__get__float: int -> double for sockGetFloat
import sock__send__float: (int,double) -> int for sockSendFloat
import sock__send__wakeup: (int,int) -> int for sockSendWakeup
import server__switch: () -> int for serverSwitch
import flush__stdout: () -> int for flushStdout
import sock__send__signal: (int,int) -> int for sockSendSignal
import print__line: string -> int for printLine
--%
import oa__system: string -> int for runCommand
++ run a program with specified arguments
runProgram(prog,args) ==
)if %hasFeature KEYWORD::GCL
SYSTEM::SYSTEM CONCAT/[prog,:[:['" ",a] for a in args]]
)elseif %hasFeature KEYWORD::CLISP
EXT::RUN_-PROGRAM(prog,KEYWORD::ARGUMENTS,args)
)elseif %hasFeature KEYWORD::SBCL
SB_-EXT::RUN_-PROGRAM(prog,args)
)else
systemError '"don't how to execute external program with this Lisp"
)endif
++ numeric limits
)if %hasFeature KEYWORD::GCL
import plus__infinity: () -> double for plusInfinity
import minus__infinity: () -> double for minusInfinity
import NANQ: () -> double for NaNQ
$plusInfinity := plusInfinity()
$minusInfinity := minusInfinity()
$NaNValue := NaNQ()
)elseif %hasFeature KEYWORD::SBCL
$plusInfinity == SB_-EXT::DOUBLE_-FLOAT_-POSITIVE_-INFINITY
$minusInfinity == SB_-EXT::DOUBLE_-FLOAT_-NEGATIVE_-INFINITY
)else
-- In general Common Lisp does not provide support for infinities
-- and the like.
$plusInfinity == $DoubleFloatMaximum
$minusInfinity == -$plusInfinity
)endif
)if not %hasFeature KEYWORD::GCL
plusInfinity() ==
$plusInfinity
minusInfinity() ==
$minusInfinity
)endif
++ stdStreamIsTerminal:
++ returns 1 if the standard stream is attached to a terminal;
++ otherwise 0.
import std__stream__is__terminal: int -> int for stdStreamIsTerminal
--%
|
