Commit e8997147 authored by John van Groningen's avatar John van Groningen

add system dependent module DirectorySeparator containing only the...

add system dependent module DirectorySeparator containing only the DirectorySeparator macro, import this module instead of CoclSystemDependent in module scanner
parent 8bf8847b
......@@ -3,7 +3,7 @@ implementation module scanner
import StdEnv, compare_constructor, general
from utilities import revCharListToString, isSpecialChar
from CoclSystemDependent import DirectorySeparator
import DirectorySeparator
:: SearchPaths =
{ sp_locations :: [(String, String)] // (module, path)
......
// this is for Windows
// this is for MacOS
definition module CoclSystemDependent
//1.3
from StdString import String
from StdFile import Files
//3.1
/*2.0
from StdFile import ::Files
0.2*/
// RWS split
// from deltaIOSystem import DeviceSystem
// from deltaEventIO import InitialIO, IOState
import DirectorySeparator
PathSeparator
:== ','
DirectorySeparator
:== ':'
SystemDependentDevices :: [a]
SystemDependentInitialIO :: [a]
......
// this is for Unix
// this is for MacOS
implementation module CoclSystemDependent
import StdEnv
......@@ -6,14 +6,13 @@ import StdDebug
import ArgEnv
import ipc
from filesystem import ensureDirectoryExists
import DirectorySeparator
import code from "cDirectory_c.o"
import code from "ipc_c.o"
PathSeparator
:== ','
DirectorySeparator
:== ':'
SystemDependentDevices :: [a]
SystemDependentDevices
......
// this is for MacOS
definition module DirectorySeparator
DirectorySeparator
:== ':'
// this is for MacOS
implementation module DirectorySeparator
DirectorySeparator
:== ':'
// this is for the PowerMac
definition module CoclSystemDependent
//1.3
from StdString import String
from StdFile import Files
//3.1
/*2.0
from StdFile import :: Files
0.2*/
import DirectorySeparator
PathSeparator
:== ','
DirectorySeparator
:== ':'
script_handler :: !{#Char} *Files -> (!Int,!*Files);
......
......@@ -8,11 +8,10 @@ import StdEnv
import Clean2AppleEventHandler,compile,docommand,cache_variable
from Clean2AppleEventHandler import get_apple_event_string;
import DirectorySeparator
PathSeparator
:== ','
DirectorySeparator
:== ':'
script_handler :: !{#Char} *Files -> (!Int,!*Files);
script_handler script files
......
// this is for the PowerMac
definition module DirectorySeparator
DirectorySeparator
:== ':'
// this is for the PowerMac
implementation module DirectorySeparator
DirectorySeparator
:== ':'
// this is for Windows
// this is for Unix
definition module CoclSystemDependent
from StdFile import ::Files
// RWS split
// from deltaIOSystem import DeviceSystem
// from deltaEventIO import InitialIO, IOState
import DirectorySeparator
PathSeparator
:== ':'
DirectorySeparator
:== '/'
SystemDependentDevices :: [a]
SystemDependentInitialIO :: [a]
......
......@@ -6,14 +6,13 @@ import StdDebug
import ArgEnv
import ipc
from filesystem import ensureDirectoryExists
import DirectorySeparator
import code from "cDirectory.o"
import code from "ipc_c.o"
PathSeparator
:== ':'
DirectorySeparator
:== '/'
SystemDependentDevices :: [a]
SystemDependentDevices
......
// this is for Unix
definition module DirectorySeparator
DirectorySeparator
:== '/'
// this is for Unix
implementation module DirectorySeparator
DirectorySeparator
:== '/'
......@@ -2,15 +2,10 @@
definition module CoclSystemDependent
from StdFile import ::Files
// RWS split
// from deltaIOSystem import DeviceSystem
// from deltaEventIO import InitialIO, IOState
import DirectorySeparator
PathSeparator
:== ';'
DirectorySeparator
:== '\\'
SystemDependentDevices :: [a]
SystemDependentInitialIO :: [a]
......
......@@ -3,6 +3,7 @@ implementation module CoclSystemDependent
import StdEnv
import ArgEnv
import DirectorySeparator
// import for filesystem
import code from "cDirectory." // Windows
......@@ -10,8 +11,6 @@ from filesystem import ensureDirectoryExists
PathSeparator
:== ';'
DirectorySeparator
:== '\\'
SystemDependentDevices :: [a]
SystemDependentDevices
......
// this is for Windows
definition module DirectorySeparator
DirectorySeparator
:== '\\'
// this is for Windows
implementation module DirectorySeparator
DirectorySeparator
:== '\\'
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