CpmPaths.icl 419 Bytes
Newer Older
1
2
implementation module CpmPaths

3
import StdEnv,Platform,PmEnvironment
4

5
6
7
8
9
append_dir_separator :: !{#Char} -> {#Char}
append_dir_separator s
	| size s>0 && s.[size s-1]==DirSeparator
		= s
		= s+++DirSeparatorString
10

11
12
13
readIDEEnvs :: !String !String !*World -> *([Target], *World)
readIDEEnvs cleanhome ideenvs world
	= openEnvironments cleanhome (append_dir_separator cleanhome+++"etc"+++DirSeparatorString+++ideenvs) world