123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960 |
- {
- This file is part of the Free Pascal Run time library.
- Copyright (c) 2001 by the Free Pascal development team
- This file contains the OS independent declarations of the system unit
- for unix styled systems
- See the File COPYING.FPC, included in this distribution,
- for details about the copyright.
- This program is distributed in the hope that it will be useful,
- but WITHOUT ANY WARRANTY; without even the implied warranty of
- MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.
- **********************************************************************}
- {$define newsignal}
- {$I systemh.inc}
- {$ifdef cpum68k}
- { used for single computations }
- const
- BIAS4 = $7f-1;
- {$endif cpum68k}
- const
- LineEnding = #10;
- LFNSupport = true;
- DirectorySeparator = '/';
- DriveSeparator = ':';
- PathSeparator = ':';
- { FileNameCaseSensitive is defined below! }
- maxExitCode = 255;
- {$ifdef LINUX}
- MaxPathLen = 4096; // linux has always got to be BIGGER
- {$else}
- MaxPathLen = 1024; // BSDs since 1993, Solaris 10, Darwin
- {$endif}
-
- const
- UnusedHandle = -1;
- StdInputHandle = 0;
- StdOutputHandle = 1;
- StdErrorHandle = 2;
- FileNameCaseSensitive : boolean = true;
- CtrlZMarksEOF: boolean = false; (* #26 not considered as end of file *)
- sLineBreak = LineEnding;
- DefaultTextLineBreakStyle : TTextLineBreakStyle = tlbsLF;
- {$ifndef Solaris}
- {$ifndef Darwin}
- var argc:longint;external name 'operatingsystem_parameter_argc';
- argv:PPchar;external name 'operatingsystem_parameter_argv';
- envp:PPchar;external name 'operatingsystem_parameter_envp';
- {$endif}
- {$endif}
|