Browse Source

+ some dummy consts for the file io

git-svn-id: branches/z80@45030 -
nickysn 5 years ago
parent
commit
91eeb82e5a
1 changed files with 14 additions and 0 deletions
  1. 14 0
      rtl/zxspectrum/system.pp

+ 14 - 0
rtl/zxspectrum/system.pp

@@ -110,6 +110,20 @@ implementation
 
 {$ifdef FULL_RTL}
 
+const
+  LineEnding = #13#10;
+  { LFNSupport is a variable here, defined below!!! }
+  DirectorySeparator = '\';
+  DriveSeparator = ':';
+  ExtensionSeparator = '.';
+  PathSeparator = ';';
+  AllowDirectorySeparators : set of char = ['\','/'];
+  AllowDriveSeparators : set of char = [':'];
+  { FileNameCaseSensitive and FileNameCasePreserving are defined separately below!!! }
+  maxExitCode = 255;
+  MaxPathLen = 256;
+
+
 {$I system.inc}
 {$I tinyheap.inc}