home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 10 Tools / 10-Tools.zip / xc212os2.zip / DEF / platform.def < prev    next >
Text File  |  1995-10-10  |  947b  |  48 lines
  1. (* Copyright (c) 1994,95 xTech Ltd, Russia. All Rights Reserved. *)
  2.  
  3. <*# IF NOT __GEN_386__ & NOT __GEN_X86__ THEN *>
  4.  
  5. <*+M2EXTENSIONS *>
  6.  
  7. DEFINITION MODULE [2] platform; (* Ned 15-Feb-94. *)
  8.  
  9.      VAR
  10.        pl_unix -: BOOLEAN;
  11.        pl_vms  -: BOOLEAN;
  12.        pl_msdos-: BOOLEAN;
  13.        pl_amiga-: BOOLEAN;
  14.        pl_fatfs-: BOOLEAN;
  15.  
  16.        extSep -: CHAR;
  17.        pathSep-: CHAR;
  18.        pathBeg-: CHAR;
  19.        pathEnd-: CHAR;
  20.        drvSep -: CHAR;
  21.        lineSep-: ARRAY [0..7] OF CHAR;
  22.        textSep-: ARRAY [0..7] OF CHAR;
  23.  
  24. <*# ELSE *>
  25.  
  26. DEFINITION MODULE platform; (* Ned 15-Feb-94. *)
  27.  
  28. CONST
  29.   pl_unix  = FALSE;
  30.   pl_vms   = FALSE;
  31.   pl_msdos = TRUE;
  32.   pl_amiga = FALSE;
  33.   pl_fatfs = TRUE;
  34.  
  35.   extSep  = '.';
  36.   pathSep = '\';
  37.   pathBeg = '\';
  38.   pathEnd = '\';
  39.   lineSep = 15C + 12C;
  40.   textSep = 15C + 12C;
  41.   drvSep  = ':';
  42.  
  43. <*# END *>
  44.  
  45. PROCEDURE IsPathDelim(c: CHAR): BOOLEAN;
  46.  
  47. END platform.
  48.