sysunixh.inc 1.6 KB

12345678910111213141516171819202122232425262728293031323334353637383940414243444546474849505152535455565758596061626364656667686970
  1. {
  2. $Id$
  3. This file is part of the Free Pascal Run time library.
  4. Copyright (c) 2001 by the Free Pascal development team
  5. This file contains the OS independent declarations of the system unit
  6. for unix styled systems
  7. See the File COPYING.FPC, included in this distribution,
  8. for details about the copyright.
  9. This program is distributed in the hope that it will be useful,
  10. but WITHOUT ANY WARRANTY; without even the implied warranty of
  11. MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.
  12. **********************************************************************}
  13. {Platform specific information}
  14. const
  15. LineEnding = #10;
  16. LFNSupport = true;
  17. DirectorySeparator = '/';
  18. DriveSeparator = ':';
  19. PathSeparator = ':';
  20. FileNameCaseSensitive = true;
  21. {$ifdef m68k}
  22. { used for single computations }
  23. const
  24. BIAS4 = $7f-1;
  25. {$endif}
  26. {$define newsignal}
  27. {$I systemh.inc}
  28. {$I heaph.inc}
  29. const
  30. UnusedHandle = -1;
  31. StdInputHandle = 0;
  32. StdOutputHandle = 1;
  33. StdErrorHandle = 2;
  34. FileNameCaseSensitive : boolean = true;
  35. sLineBreak : string[1] = LineEnding;
  36. DefaultTextLineBreakStyle : TTextLineBreakStyle = tlbsLF;
  37. var
  38. argc : longint;
  39. argv : ppchar;
  40. envp : ppchar;
  41. {
  42. $Log$
  43. Revision 1.8 2001-06-13 22:20:11 hajny
  44. + platform specific information
  45. Revision 1.7 2001/04/13 23:49:49 peter
  46. * fixes for the stricter compiler
  47. Revision 1.6 2001/04/13 22:30:55 peter
  48. * added filenamecasesensitive var
  49. Revision 1.5 2001/03/22 21:56:27 florian
  50. * typo fixed
  51. Revision 1.4 2001/03/21 23:32:13 florian
  52. + header and log added
  53. }