Commit 508ecbf4 authored by Mart Lubbers's avatar Mart Lubbers

revert removing cpmPaths os dependant stuff

parent c822c296
Pipeline #21083 passed with stage
in 1 minute and 3 seconds
......@@ -46,6 +46,7 @@ Global
StripByteCode: False
Paths
Path: {Project}*cpm
Path: {Project}*cpm*Posix
Path: {Project}*Pm
Path: {Project}*Unix
Path: {Project}*Util
......
......@@ -42,6 +42,7 @@ Global
ExportedNames:
Paths
Path: {Project}*cpm
Path: {Project}*cpm*Posix
Path: {Project}*BatchBuild
Path: {Application}*lib*ArgEnv
Path: {Application}*lib*Directory
......
......@@ -42,6 +42,7 @@ Global
ExportedNames:
Paths
Path: {Project}\cpm
Path: {Project}\cpm\Windows
Path: {Application}\Libraries\ArgEnv
Path: {Application}\Libraries\Directory
Path: {Application}\Libraries\Generics
......
......@@ -3,4 +3,5 @@ definition module CpmPaths
import PmEnvironment
readIDEEnvs :: !String !String !*World -> *([Target], *World)
writeIDEEnvs :: !String !String ![Target] !*World -> *(Bool, *World)
definition module CpmPaths
import PmEnvironment
readIDEEnvs :: !String !String !*World -> *([Target], *World)
writeIDEEnvs :: !String !String ![Target] !*World -> *(Bool, *World)
implementation module CpmPaths
import StdEnv,Platform,PmEnvironment
append_dir_separator :: !{#Char} -> {#Char}
append_dir_separator s
| size s>0 && s.[size s-1]==DirSeparator
= s
= s+++DirSeparatorString
readIDEEnvs :: !String !String !*World -> *([Target], *World)
readIDEEnvs cleanhome ideenvs world
= openEnvironments cleanhome (append_dir_separator cleanhome+++"Config"+++DirSeparatorString+++ideenvs) world
writeIDEEnvs :: !String !String ![Target] !*World -> *(Bool, *World)
writeIDEEnvs cleanhome ideenvs envs world
= saveEnvironments (append_dir_separator cleanhome+++"Config"+++DirSeparatorString+++ideenvs) envs world
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment