home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 5 Edit / 05-Edit.zip / fte0827.zip / config / m_tcl.fte < prev    next >
Text File  |  1999-05-16  |  2KB  |  69 lines
  1. colorize TCL {
  2.     SyntaxParser = 'SIMPLE';
  3.     
  4.     color {
  5.         { 'Normal',      'Lang_Default' },
  6.         { 'Comment',     'Lang_Comment' },
  7.         { 'String',      'Lang_String' },
  8.         { 'Punctuation', 'Lang_Punctuation' },
  9.         { 'Variable',    'Lang_Variable' },
  10.         { 'Directive',   'Lang_Preprocessor' },
  11.         { 'Special',     'Lang_Control' },
  12.     };
  13.  
  14.     keyword 'Editor_Keywords' {
  15.         'case', 'do', 'done', 'elif', 'else', 'esac', 'fi', 'for',
  16.         'function', 'if', 'in', 'then', 'until', 'while',
  17.     };
  18.  
  19.     h_state 0 { 'Normal' }
  20.     h_trans { 1, '-s', 'a-zA-Z0-9_', 'Normal' }
  21.     h_trans { 5, '<', '$', 'Variable' }
  22.     h_trans { 6, '<', '-', 'Directive' }
  23.     h_trans { 7, '<', '.', 'Special' }
  24.     h_trans { 2, '<', '#', 'Comment' }
  25.     h_trans { 3, '<', '"', 'String' }
  26.     h_trans { 4, '<', '`', 'String' }
  27.     h_trans { 0, 'S', 'a-zA-Z0-9_', 'Punctuation' }
  28.  
  29.     h_state 1 { 'Normal' }
  30.     h_trans { 0, '$', '', 'Normal' }
  31.     h_wtype { 0, 0, 0, '', 'a-zA-Z0-9_' }
  32.  
  33.     h_state 2 { 'Comment' }
  34.     h_trans { 0, '$', '', 'Normal' }
  35.  
  36.     h_state 3 { 'String' }
  37.     h_trans { 0, '>', '"', 'String' }
  38.     h_trans { 3, 'qQ', '\\', 'String' }
  39.  
  40.     h_state 4 { 'String' }
  41.     h_trans { 0, '>', '`', 'String' }
  42.     h_trans { 4, 'qQ', '\\', 'String' }
  43.  
  44.     h_state 5 { 'Variable' }
  45.     h_trans { 0, '$', '', 'Normal' }
  46.     h_trans { 0, '-S',  'a-zA-Z0-9_', 'Normal' }
  47.  
  48.     h_state 6 { 'Directive' }
  49.     h_trans { 0, '$', '', 'Normal' }
  50.     h_trans { 0, '-S',  'a-zA-Z0-9_', 'Normal' }
  51.  
  52.     h_state 7 { 'Special' }
  53.     h_trans { 0, '$', '', 'Normal' }
  54.     h_trans { 0, '-S',  'a-zA-Z0-9_', 'Normal' }
  55. }
  56.  
  57. mode TCL: PLAIN { # *sh
  58.     FileNameRx          = /\.\ctcl$/;
  59.     FirstLineRx         = /^\#\![^ ]*{wish>}/;
  60.     HilitOn             = 1;
  61.     Colorizer           = 'TCL';
  62.     MultiLineHilit      = 1;
  63.     AutoHilitParen      = 1;
  64.     
  65.     SaveFolds           = 2;      # save fold info at end of line
  66.     CommentStart        = ' #';
  67.     CommentEnd          = '';
  68. }
  69.