home *** CD-ROM | disk | FTP | other *** search
/ ST-Computer Leser 2002 January / STC_CD_01_2002.iso / APP / CLIX372.TOS / Clix / Clix_pas.ext < prev    next >
Encoding:
Text File  |  1998-10-30  |  1.2 KB  |  47 lines
  1. #***********************************************************************
  2. # Pscal-2-Sourcen:
  3. EXTENSION ".PAS", ".INC" = {
  4.  
  5.   COMMENT {DarkCyan, Light} = "{", "}";
  6.   REGION {} = '(', ')';
  7.   REGION {} = '[', ']';
  8.   REGION {} = '{', '}';
  9.   REGION {} = '"', '"';
  10.   REGION {} = "'", "'";
  11.  
  12.  
  13.   KEYS {DarkBlue, Light, IgnoreCase} =
  14.         CONST, TYPE, VAR, RECORD, ARRAY, PROCEDURE, BEGIN, END, IF, THEN, ELSE,
  15.         ELSIF, WHILE, WITH, CASE, REPEAT, UNTIL, LOOP, FOR, PROGRAM;
  16.  
  17.   # Weil es wichtig ist und man damit versteckte Rücksprünge besser sieht:
  18.   KEYS {DarkRed, Bold, IgnoreCase} =
  19.      RETURN, EXIT,
  20.      BREAK, CONTINUE,
  21.      "bkpt",
  22.      illegal;
  23.  
  24.   KEYS {DarkGreen, Bold, IgnoreCase} =
  25.      BOOLEAN, SHORTINT, LONGINT, INTEGER, SHORTCARD, LONGCARD, CARDINAL,
  26.      ADDRESS, BYTE, REAL, LONGREAL, SHORTREAL, POINTER, BITSET, LONGSET,
  27.      CHARSET;
  28.  
  29. # und eine grö₧ere Menge Shortcuts
  30. SHORTCUT 'com' = {\
  31. (*-----------------------------------------------------------------------
  32.  *
  33.  * \c
  34.  *
  35.  *-----------------------------------------------------------------------*)
  36. };
  37.  
  38.   SHORTCUT "fo" = "FOR \c := TO DO\nBEGIN\nEND;\n";
  39.  
  40.   SHORTCUT "ie" = {\
  41. IF \c THEN
  42. BEGIN
  43. ELSE
  44. END; (* IF ELSE *)
  45. };
  46.  
  47. }