aboutsummaryrefslogtreecommitdiff
path: root/main/Windows/CoclSystemDependent.icl
blob: 5ef779f1c971e0de1867c869a3a42e8fec3d972a (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
// this is for Windows
implementation module CoclSystemDependent

import StdEnv

// import for filesystem
import code from "cDirectory.obj",  library "directory_library" // Windows
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