home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 5 Edit / 05-Edit.zip / fte0827.zip / config / m_siod.fte < prev    next >
Text File  |  1999-05-16  |  6KB  |  182 lines
  1. # From: Keith Humphreys <keith@ViaThe.Net>
  2. #
  3. # FTE is wonderful.
  4. # Several months ago I was looking at SIOD, and I hacked a "fte config" file
  5. # which is 98% accurate. :-)  
  6. # 
  7. # Anyway, as it might be of use, here it is:
  8.  
  9. # ! colors probably need fixing --Mark
  10.  
  11. colorize SIOD {
  12.     SyntaxParser       = 'SIMPLE';
  13.     #   0, 8 - black
  14.     #   1, 9 - blue
  15.     #   2, A - green
  16.     #   3, B - cyan
  17.     #   4, C - red
  18.     #   5, D - magenta
  19.     #   6, E - orange
  20.     #   7, F - white
  21.  
  22.  
  23.     # Hmmm, it appears that exit and quit aren't even recommended!
  24.     keyword 'yellow:bg' { #Scheme's essential procedures:.
  25.         'abs', 'alarm', 'and', 'append', 'apply',
  26.         'ass', 'assoc', 'assq', 'assv',   
  27.         'base64decode', 'base64encode', 'begin',    
  28.         'caaar', 'caadr', 'caar', 'cadar', 'caddr', 'cadr', 'car',
  29.         'cdaar', 'cdadr', 'cdar', 'cddar', 'cdddr', 'cddr', 'cdr',
  30.         'cond', 'cons-array', 'define',
  31.         'eq?', 'equal?', 'eqv?', 'eval', 'exec', 'exit',
  32.         'fclose',  'fopen',
  33.         'if',
  34.         'lambda', 'length', 'let', 'let*', 'letrec', 'list', 'load',
  35.         'max', 'min',
  36.         'member', 'memq', 'memv',
  37.         'nil', 'not', 'null?', 'number?', 'number->string',
  38.         'or',
  39.         'pair?',
  40.         'quit',  'quote',
  41.         'set!', 'set-car!', 'set-cdr!',
  42.         'string->number', 'string-length',  'string?', 'string-append',
  43.          'substring',
  44.         'symbol?',
  45.         'read', 'reverse',
  46.     };
  47.  
  48.     keyword  'brown:bg' { #These are recommended by the standard.
  49.         'acos', 'asin', 'atan', 'cos', 'exp', 'log', 'sin',  'tan',
  50.         'sqrt',
  51.  
  52.     };
  53.  
  54.     #note: varables t, nil have been removed from the standard,
  55.     #      but are here.
  56.     keyword 'white:bg' { #These are siod extras.
  57. '%%%memref', '%%closure', '%%closure-code', '%%closure-env', '%%stack-limit',
  58. '*after-gc*', '*args*', '*catch', '*env*', '*eval-history-ptr*', '*pi*',
  59. '*plists*', '*throw', '*traced*',
  60. 'F_GETLK', 'F_SETLK', 'F_SETLKW',
  61. 'access-problem?',  'allocate-heap', 'apropos',
  62. 'aref', 'array->hexstr', 'aset', 'ash',  'atan2',
  63. 'benchmark-eval', 'benchmark-funcall1', 'benchmark-funcall2',
  64. 'bit-and', 'bit-not', 'bit-or', 'bit-xor', 'butlast', 'bytes-append',
  65. 'chdir', 'chmod', 'chown', 'closedir',  'copy-list',
  66. 'cpu-usage-limits', 'crypt', 'current-resource-usage',
  67. 'datlength', 'datref', 'decode-file-mode', 'delete-file', 'delq',
  68. 'encode-file-mode', 'encode-open-flags', 'endpwent', 'env-lookup', 'eof-val',
  69. 'errobj', 'error', 
  70. 'fast-load', 'fast-print', 'fast-read', 'fast-save', 'fchmod',
  71. 'fflush', 'file-times', 'first', 'fmod', 'fnmatch', 'fork',
  72. 'fread', 'fseek', 'fstat', 'ftell', 'fwrite',
  73. 'gc', 'gc-info', 'gc-status', 'get', 'getc', 'getcwd', 'getenv', 'getgid',
  74. 'getgrgid', 'getpass', 'getpgrp', 'getpid', 'getppid', 'getpwent',
  75. 'getpwnam', 'getpwuid', 'gets', 'getuid', 'gmtime', 'hexstr->bytes',
  76. 'href', 'hset', 'html-encode',
  77. 'intern',
  78. 'kill',
  79. 'larg-default', 'last', 'last-c-error', 'lchown',
  80. 'link', 'lkey-default', 'load-so',
  81. 'localtime', 'lref-default', 'lstat',
  82. 'make-list', 'mapcar',  'md5-final', 'md5-init', 'md5-update',
  83. 'mkdatref', 'mkdir', 'mktime',
  84. 'nconc', 'nice',  'nreverse', 'nth',
  85. 'opendir',  'os-classification',
  86. 'parse-number', 'pclose', 'popen', 'pow',
  87. 'prin1', 'print', 'print-to-string', 'prog1',
  88. 'putc', 'putenv', 'putprop', 'puts',
  89. 'qsort',
  90. 'rand', 'random',
  91. 'read-from-string', 'readdir', 'readline', 'readlink',
  92. 'realtime', 'rename', 'require', 'require-so', 'rest',
  93. 'rld-pathnames', 'rmdir', 'runtime',
  94. 'save-forms', 'sdatref', 'set-eval-history',
  95. 'set-symbol-value!', 'setprop', 'setpwent', 'setuid',
  96. 'siod-lib', 'sleep', 'so-ext', 'srand', 'srandom', 'stat',
  97. 'strbreakup', 'strcat', 'strcmp', 'strcpy', 'strcspn', 'strftime',
  98. 'string-dimension', 'string-downcase',
  99. 'string-lessp', 'string-search', 'string-trim',
  100. 'string-trim-left', 'string-trim-right', 'string-upcase',
  101. 'strptime', 'strspn', 'subset', 'substring-equal?',
  102. 'swrite', 'sxhash', 'symbol-bound?', 'symbol-value', 
  103. 'symbolconc', 'symlink', 'system',
  104. 't', 'the-environment', 'trace', 'trunc', 'typeof',
  105. 'unbreakupstr', 'ungetc', 'unix-ctime', 'unix-time', 'unix-time->strtime',
  106. 'unlink', 'untrace', 'url-decode', 'url-encode', 'utime',
  107. 'verbose',
  108. 'wait', 'while', 'writes', 
  109.     };
  110.  
  111.     color {
  112.         { 'Normal',      'Editor_Default' },
  113.         { 'Number',      'Lang_DecimalNumber' },
  114.         { 'HexNumber',   'Lang_HexNumber' },
  115.         { 'Punctuation', 'Lang_Punctuation' },
  116.         { 'String',      'Lang_String' },
  117.         { 'Symbol',      'Lang_Command' },
  118.         { 'Comment',     'Lang_Comment' },
  119.         { 'Special',     'Lang_Control' },
  120.     };
  121.     
  122.     h_state 0 { 'Normal' }
  123.     h_trans { 1, '-s', 'A-Za-z_%*', 'Normal' }  #Keyword starters.
  124.     h_trans { 2, '<', ';', 'Comment' }
  125.     h_trans { 3, '>', '\'', 'Symbol' }
  126.     h_trans { 4, '>', '0x', 'HexNumber' }
  127.     h_trans { 5, '>s', '0-9', 'Number' }
  128.     h_trans { 6, '>', '"', 'String' }
  129.     h_trans { 0, 's', '()', 'Special' }
  130. #    h_trans { 0, '', ',', 'Punctuation' }
  131.  
  132.     h_state 1 { 'Normal' }
  133.     h_trans { 0, '$', '', 'Normal' }
  134.     h_trans { 2, '<', ';', 'Comment'}
  135.     h_wtype { 0, 0, 0, '', '-a-zA-Z0-9_*%:?!>' }  #Keyword internals
  136.  
  137.     h_state 2 { 'Comment' }
  138.     h_trans { 0, '$', '', 'Comment' }
  139.  
  140.     h_state 3 { 'Symbol' }
  141.     h_trans { 2, '<', ';', 'Comment'}
  142.     h_trans { 0, '>', ' ', 'Normal' }
  143.     h_trans { 0, '$', '', 'Normal' }
  144.     h_trans { 0, '>s', '()', 'Special' }
  145.     
  146.     h_state 4 { 'HexNumber' }
  147.     h_trans { 0, '-S', '0-9A-Fa-f', 'Normal' }
  148.     h_trans { 0, '$', '', 'Normal' }
  149.  
  150.     h_state 5 { 'Number' }
  151.     h_trans { 0, '-S', '0-9', 'Normal' }
  152.     h_trans { 0, '$', '', 'Normal' }
  153.  
  154.     h_state 6 { 'String' }
  155.     h_trans { 0, '<', '"', 'String' }
  156.     h_trans { 6, 'q', '\\', 'String' } # 'q' "igores" next char.
  157.  
  158. }
  159.  
  160. mode SIOD: PLAIN {      # siod Mode
  161.     FileNameRx          = /\.\cscm$/;
  162.     HilitOn             = 1;
  163.     Colorizer           = 'SIOD';
  164.     AutoIndent          = 1;
  165.     IndentMode          = 'PLAIN';
  166.     TabSize             = 2;
  167.     SpaceTabs           = 1;
  168.     MatchCase           = 0;  #scheme is case insensitive.
  169.     Trim                = 1;
  170.     MultiLineHilit      = 1;
  171.     AutoHilitParen      = 1;
  172.  
  173.     SaveFolds           = 2;      # save fold info at end of line
  174.     CommentStart        = ' ;';
  175.     CommentEnd          = '';
  176.  
  177.     WordChars           = '-A-Za-z0-9*%:?!>';  #first noticed in m_plain.fte
  178.  
  179. #    RoutineRegexp       = '(';
  180. }
  181.  
  182.