+ platform specific information

rtl/amiga/system.pas

@@ -31,6 +31,17 @@ unit {$ifdef VER1_0}sysamiga{$else}{$ifdef VER0_99}sysamiga{$ELSE}system{$endif}
 
   interface
 
+{Platform specific information}
+const
+ LineEnding = #10;
+ LFNSupport = true;
+ DirectorySeparator = '/';
+ DriveSeparator = ':';
+ PathSeparator = ';';
+ FileNameCaseSensitive = false;
+
+ sLineBreak: string [1] = LineEnding;
+
     { used for single computations }
     const BIAS4 = $7f-1;
 
@@ -1814,7 +1825,10 @@ end.
 
 {
   $Log$
-  Revision 1.1  2001-03-16 20:01:47  hajny
+  Revision 1.2  2001-06-13 22:22:59  hajny
+    + platform specific information
+
+  Revision 1.1  2001/03/16 20:01:47  hajny
     + system unit name change
 
   Revision 1.1  2000/07/13 06:30:29  michael

rtl/atari/system.pas

@@ -28,6 +28,16 @@ unit {$ifdef VER1_0}sysatari{$else}{$ifdef VER0_99}sysatari{$ELSE}system{$endif}
 
   interface
 
+{Platform specific information}
+const
+ LineEnding = #10;
+ LFNSupport = true;
+ DirectorySeparator = '/';
+ DriveSeparator = ':';
+ PathSeparator = ';';
+ FileNameCaseSensitive = false;
+
+ sLineBreak: string [1] = LineEnding;
     { used for single computations }
     const BIAS4 = $7f-1;
 
@@ -747,7 +757,10 @@ end.
 
 {
   $Log$
-  Revision 1.1  2001-03-16 20:01:47  hajny
+  Revision 1.2  2001-06-13 22:22:59  hajny
+    + platform specific information
+
+  Revision 1.1  2001/03/16 20:01:47  hajny
     + system unit name change
 
   Revision 1.2  2000/07/14 10:30:58  michael

rtl/beos/system.pp

@@ -23,6 +23,15 @@ unit System;
 
 interface
 
+{Platform specific information}
+const
+ LineEnding = #10;
+ LFNSupport = true;
+ DirectorySeparator = '/';
+ DriveSeparator = ':';
+ PathSeparator = ':';
+ FileNameCaseSensitive = true;
+
 { include system-independent routine headers }
 
 {$I systemh.inc}
@@ -513,7 +522,10 @@ begin
 end.
 {
   $Log$
-  Revision 1.1  2001-06-02 19:26:03  peter
+  Revision 1.2  2001-06-13 22:20:10  hajny
+    + platform specific information
+
+  Revision 1.1  2001/06/02 19:26:03  peter
     * BeOS target!
 
 }

rtl/go32v1/system.pp

@@ -15,6 +15,15 @@
 unit system;
 interface
 
+{Platform specific information}
+const
+ LineEnding = #13#10;
+{ LFNSupport is a variable here, defined below!!! }
+ DirectorySeparator = '\';
+ DriveSeparator = ':';
+ PathSeparator = ';';
+ FileNameCaseSensitive = false;
+
 { include system-independent routine headers }
 
 {$I systemh.inc}
@@ -619,7 +628,10 @@ Begin
 End.
 {
   $Log$
-  Revision 1.4  2001-03-21 21:08:20  hajny
+  Revision 1.5  2001-06-13 22:22:59  hajny
+    + platform specific information
+
+  Revision 1.4  2001/03/21 21:08:20  hajny
     * GetDir fixed
 
   Revision 1.3  2001/03/10 09:57:51  hajny

rtl/go32v2/system.pp

@@ -29,6 +29,15 @@ interface
 {$define EXCEPTIONS_IN_SYSTEM}
 {$endif NO_EXCEPTIONS_IN_SYSTEM}
 
+{Platform specific information}
+const
+ LineEnding = #13#10;
+{ LFNSupport is a variable here, defined below!!! }
+ DirectorySeparator = '\';
+ DriveSeparator = ':';
+ PathSeparator = ';';
+{ FileNameCaseSensitive is defined separately below!!! }
+
 { include system-independent routine headers }
 
 {$I systemh.inc}
@@ -46,7 +55,7 @@ const
 
   FileNameCaseSensitive : boolean = false;
 
-  sLineBreak : string[2] = #13#10;
+  sLineBreak : string[2] = LineEnding;
   DefaultTextLineBreakStyle : TTextLineBreakStyle = tlbsCRLF;
 
 { Default memory segments (Tp7 compatibility) }
@@ -69,6 +78,9 @@ var
 {$ifndef RTLLITE}
 { System info }
   LFNSupport : boolean;
+{$ELSE RTLLITE}
+const
+  LFNSupport = false;
 {$endif RTLLITE}
 
 type
@@ -1533,7 +1545,10 @@ Begin
 End.
 {
   $Log$
-  Revision 1.9  2001-06-07 21:16:30  peter
+  Revision 1.10  2001-06-13 22:21:53  hajny
+    + platform specific information
+
+  Revision 1.9  2001/06/07 21:16:30  peter
     * fixed empty arguments
 
   Revision 1.8  2001/06/01 22:23:21  peter

rtl/netware/dos.pp

@@ -25,8 +25,6 @@
 unit dos;
 interface
 
-CONST LFNSupport = FALSE;
-
 Const
   {Bitmasks for CPU Flags}
   fcarry     = $0001;
@@ -860,7 +858,10 @@ end;
 end.
 {
   $Log$
-  Revision 1.3  2001-04-16 18:39:50  florian
+  Revision 1.4  2001-06-13 22:20:11  hajny
+    + platform specific information
+
+  Revision 1.3  2001/04/16 18:39:50  florian
     * updates from Armin commited
 
   Revision 1.2  2001/04/11 14:17:00  florian

rtl/netware/system.pp

@@ -31,6 +31,15 @@ interface
 {$endif i386}
 
 
+{Platform specific information}
+const
+ LineEnding = #13#10;
+ LFNSupport = false; { ??? - that's how it was declared in dos.pp! }
+ DirectorySeparator = '\';
+ DriveSeparator = ':';
+ PathSeparator = ';';
+{ FileNameCaseSensitive is defined separately below!!! }
+
 { include system-independent routine headers }
 
 {$I systemh.inc}
@@ -51,7 +60,7 @@ CONST
 
    FileNameCaseSensitive : boolean = false;
 
-   sLineBreak : STRING [2] = #13#10;
+   sLineBreak : STRING [2] = LineEnding;
    DefaultTextLineBreakStyle : TTextLineBreakStyle = tlbsCRLF;
 
 VAR
@@ -561,7 +570,10 @@ Begin
 End.
 {
   $Log$
-  Revision 1.3  2001-04-16 18:39:50  florian
+  Revision 1.4  2001-06-13 22:20:11  hajny
+    + platform specific information
+
+  Revision 1.3  2001/04/16 18:39:50  florian
     * updates from Armin commited
 
   Revision 1.2  2001/04/11 14:17:00  florian

rtl/os2/dos.pas

@@ -1011,9 +1011,6 @@ function FExpand (const Path: PathStr): PathStr;
 {$DEFINE FPC_FEXPAND_UNC} (* UNC paths are supported *)
 {$DEFINE FPC_FEXPAND_DRIVES} (* Full paths begin with drive specification *)
 
-const
-    LFNSupport = true;
-
 {$I fexpand.inc}
 
 {$UNDEF FPC_FEXPAND_DRIVES}
@@ -1178,7 +1175,10 @@ begin
 end.
 {
   $Log$
-  Revision 1.12  2001-05-21 20:50:19  hajny
+  Revision 1.13  2001-06-13 22:21:53  hajny
+    + platform specific information
+
+  Revision 1.12  2001/05/21 20:50:19  hajny
     * silly mistyping corrected
 
   Revision 1.11  2001/05/20 18:55:48  hajny

rtl/os2/system.pas

@@ -50,6 +50,15 @@ Coding style:
 
 interface
 
+{Platform specific information}
+const
+ LineEnding = #13#10;
+{ LFNSupport is defined separately below!!! }
+ DirectorySeparator = '\';
+ DriveSeparator = ':';
+ PathSeparator = ';';
+{ FileNameCaseSensitive is defined separately below!!! }
+
 {Link the startup code.}
 {$l prt1.oo2}
 
@@ -127,9 +136,10 @@ const   UnusedHandle=$ffff;
         StdOutputHandle=1;
         StdErrorHandle=2;
 
-        FileNameCaseSensitive : boolean = false;
+        LFNSupport: boolean = true;
+        FileNameCaseSensitive: boolean = false;
 
-        sLineBreak : string[2] = #13#10;
+        sLineBreak : string[2] = LineEnding;
 
 var
 { C-compatible arguments and environment }
@@ -1056,7 +1066,10 @@ begin
 end.
 {
   $Log$
-  Revision 1.13  2001-05-20 18:40:32  hajny
+  Revision 1.14  2001-06-13 22:21:53  hajny
+    + platform specific information
+
+  Revision 1.13  2001/05/20 18:40:32  hajny
     * merging Carl's fixes from the fixes branch
 
   Revision 1.12  2001/04/20 19:05:11  hajny

rtl/palmos/system.pp

@@ -22,6 +22,15 @@ unit {$ifdef VER1_0}syspalm{$else}system{$endif};
 
   Interface
 
+{Platform specific information}
+const
+ LineEnding = #10;
+ LFNSupport = false;
+ DirectorySeparator = '/';
+ DriveSeparator = ':';
+ PathSeparator = ';';
+ FileNameCaseSensitive = false;
+
     Type
        { type and constant declartions doesn't hurt }
        LongInt  = $80000000..$7fffffff;
@@ -94,7 +103,10 @@ end.
 
 {
   $Log$
-  Revision 1.2  2001-03-21 21:17:58  hajny
+  Revision 1.3  2001-06-13 22:21:53  hajny
+    + platform specific information
+
+  Revision 1.2  2001/03/21 21:17:58  hajny
     * system unit name change corrections
 
   Revision 1.1  2001/03/16 20:01:48  hajny

rtl/template/system.pp

@@ -21,6 +21,15 @@ unit system;
 
 interface
 
+{Platform specific information}
+const
+ LineEnding = #13#10;
+ LFNSupport = true;
+ DirectorySeparator = '\';
+ DriveSeparator = ':';
+ PathSeparator = ';';
+ FileNameCaseSensitive = false;
+
 { include system-independent routine headers }
 
 {$I systemh.inc}
@@ -276,7 +285,10 @@ Begin
 End.
 {
   $Log$
-  Revision 1.4  2001-03-25 11:06:35  hajny
+  Revision 1.5  2001-06-13 22:21:53  hajny
+    + platform specific information
+
+  Revision 1.4  2001/03/25 11:06:35  hajny
     * GetDir fixed
 
   Revision 1.3  2001/03/16 20:42:44  hajny

rtl/unix/sysunixh.inc

@@ -15,6 +15,15 @@
 
  **********************************************************************}
 
+{Platform specific information}
+const
+ LineEnding = #10;
+ LFNSupport = true;
+ DirectorySeparator = '/';
+ DriveSeparator = ':';
+ PathSeparator = ':';
+ FileNameCaseSensitive = true;
+
 {$ifdef m68k}
 { used for single computations }
 const
@@ -34,7 +43,7 @@ const
 
   FileNameCaseSensitive : boolean = true;
 
-  sLineBreak : string[1] = #10;
+  sLineBreak : string[1] = LineEnding;
   DefaultTextLineBreakStyle : TTextLineBreakStyle = tlbsLF;
 
 var
@@ -44,7 +53,10 @@ var
 
 {
   $Log$
-  Revision 1.7  2001-04-13 23:49:49  peter
+  Revision 1.8  2001-06-13 22:20:11  hajny
+    + platform specific information
+
+  Revision 1.7  2001/04/13 23:49:49  peter
     * fixes for the stricter compiler
 
   Revision 1.6  2001/04/13 22:30:55  peter

rtl/unix/unix.pp

@@ -2185,10 +2185,6 @@ function FExpand (const Path: PathStr): PathStr;
 {$DEFINE FPC_FEXPAND_TILDE} { Tilde is expanded to home }
 {$DEFINE FPC_FEXPAND_GETENVPCHAR} { GetEnv result is a PChar }
 
-const
-  LFNSupport = true;
-  FileNameCaseSensitive = true;
-
 {$I fexpand.inc}
 
 {$UNDEF FPC_FEXPAND_GETENVPCHAR}
@@ -2893,7 +2889,10 @@ End.
 
 {
   $Log$
-  Revision 1.9  2001-06-03 20:19:09  peter
+  Revision 1.10  2001-06-13 22:20:11  hajny
+    + platform specific information
+
+  Revision 1.9  2001/06/03 20:19:09  peter
     * FSStat to StatFS
     * StatFS structure to TStatFS
 

rtl/win32/dos.pp

@@ -693,9 +693,6 @@ function FExpand (const Path: PathStr): PathStr;
 {$DEFINE FPC_FEXPAND_UNC} (* UNC paths are supported *)
 {$DEFINE FPC_FEXPAND_DRIVES} (* Full paths begin with drive specification *)
 
-const
-  LFNSupport = true;
-
 {$I fexpand.inc}
 
 {$UNDEF FPC_FEXPAND_DRIVES}
@@ -1012,7 +1009,10 @@ begin
 end.
 {
   $Log$
-  Revision 1.8  2001-03-16 20:09:58  hajny
+  Revision 1.9  2001-06-13 22:21:53  hajny
+    + platform specific information
+
+  Revision 1.8  2001/03/16 20:09:58  hajny
     * universal FExpand
 
   Revision 1.7  2000/12/18 17:28:58  jonas

rtl/win32/system.pp

@@ -17,6 +17,15 @@
 unit {$ifdef VER1_0}SysWin32{$else}System{$endif};
 interface
 
+{Platform specific information}
+const
+ LineEnding = #13#10;
+ LFNSupport = true;
+ DirectorySeparator = '\';
+ DriveSeparator = ':';
+ PathSeparator = ';';
+{ FileNameCaseSensitive is defined separately below!!! }
+
 {$ifdef SYSTEMDEBUG}
   {$define SYSTEMEXCEPTIONDEBUG}
 {$endif SYSTEMDEBUG}
@@ -57,7 +66,7 @@ const
 
    FileNameCaseSensitive : boolean = true;
 
-   sLineBreak : string[2] = #13#10;
+   sLineBreak : string[2] = LineEnding;
    DefaultTextLineBreakStyle : TTextLineBreakStyle = tlbsCRLF;
 
    { Thread count for DLL }
@@ -1554,7 +1563,10 @@ end.
 
 {
   $Log$
-  Revision 1.12  2001-06-10 17:56:57  hajny
+  Revision 1.13  2001-06-13 22:20:11  hajny
+    + platform specific information
+
+  Revision 1.12  2001/06/10 17:56:57  hajny
     * errno changed to a threadvar if MT enabled
 
   Revision 1.11  2001/06/07 21:16:30  peter