blob: 4c411e8f769932504bd5bcb96f03f36b1ed91aad (
plain) (
blame)
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
|
// this is for Unix
implementation module CoclSystemDependent
import StdEnv
// import for filesystem
import code from "cDirectory.o" // Unix
import code from "ipc.o"
from filesystem import ensureDirectoryExists
PathSeparator
:== ':'
DirectorySeparator
:== '/'
SystemDependentDevices :: [a]
SystemDependentDevices
= []
SystemDependentInitialIO :: [a]
SystemDependentInitialIO
= []
ensureCleanSystemFilesExists :: !String !*Files -> (!Bool, !*Files)
// returned bool: now there is such a subfolder
ensureCleanSystemFilesExists path env
= ensureDirectoryExists path env
set_compiler_id :: Int -> Int
set_compiler_id compiler_id = compiler_id
|
