home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 5 Edit / 05-Edit.zip / fte0827.zip / config / m_perl.fte < prev    next >
Text File  |  1999-05-16  |  4KB  |  77 lines
  1.  
  2. # syntax hilit needs to handle <<END
  3.  
  4. colorize PERL {
  5.     SyntaxParser = 'PERL';
  6.     
  7.     color {
  8.         { 'Normal',      'Lang_Default' },
  9.         { 'Comment',     'Lang_Comment' },
  10.         { 'Function',    'Lang_Function' },
  11.         { 'Variable',    'Lang_Variable' },
  12.         { 'Regexp',      'Lang_Regexp' },
  13.         { 'Number',      'Lang_Number' },
  14.         { 'String',      'Lang_String' },
  15.         { 'Punctuation', 'Lang_Punctuation' },
  16.         { 'QuoteDelim',  'Lang_Regexp' },
  17.         { 'RegexpDelim', 'Lang_String' },
  18.     };
  19.  
  20.     keyword 'Editor_Keywords' {
  21.         'q', 'qq', 'qw', 'qx', 'm', 's', 'y', 'tr',
  22.         'if', 'sub', 'return', 'while', 'for', 'elsif', 'foreach', 'else',
  23.         'unless', 'eq', 'not', 'and', 'or', 'ne', 'until', 'abs', 'accept',
  24.         'alarm', 'atan2', 'bind', 'binmode', 'bless', 'caller', 'chdir',
  25.         'chmod', 'chomp', 'chop', 'chown', 'chr', 'chroot', 'close',
  26.         'closedir', 'connect', 'cos', 'crypt', 'dbmclose', 'dbmopen',
  27.         'defined', 'delete', 'die', 'do', 'dump', 'each', 'eof', 'eval',
  28.         'exec', 'exists', 'exit', 'exp', 'fcntl', 'fileno', 'flock', 'fork',
  29.         'formline', 'getc', 'getlogin', 'getpeername', 'getpgrp', 'getppid',
  30.         'getpriority', 'getpwnam', 'getgrname', 'gethostbyname',
  31.         'getnetbyname', 'getprotobyname', 'getpwuid', 'getgrgid',
  32.         'getservbyname', 'gethostbyaddr', 'getnetbyaddr', 'getprotobynumber',
  33.         'getservbyport', 'getpwent', 'getgrent', 'gethostent', 'getnetent',
  34.         'getprotoent', 'getservent', 'setpwent', 'setgrent', 'sethostent',
  35.         'setnetent', 'setprotoent', 'setservent', 'endpwent', 'endgrent',
  36.         'endhostent', 'endnetent', 'endprotoent', 'endservent', 'getsockname',
  37.         'getsockopt', 'glob', 'gmtime', 'goto', 'grep', 'hex', 'import',
  38.         'index', 'int', 'ioctl', 'join', 'keys', 'kill', 'last', 'lc',
  39.         'lcfirst', 'length', 'link', 'listen', 'local', 'localtime', 'log',
  40.         'lstat', 'map', 'mkdir', 'msgctl', 'msgget', 'msgsnd', 'msgrcv', 'my',
  41.         'next', 'no', 'oct', 'open', 'opendir', 'ord', 'pack', 'pipe', 'pop',
  42.         'pos', 'print', 'printf', 'push', 'quotemeta', 'rand', 'read',
  43.         'readdir', 'readlink', 'recv', 'redo', 'ref', 'rename', 'require',
  44.         'reset', 'return', 'reverse', 'rewinddir', 'rindex', 'rmdir', 'scalar',
  45.         'seek', 'seekdir', 'select', 'semctl', 'semget', 'semop', 'send',
  46.         'setpgrp', 'setpriority', 'setsockopt', 'shift', 'shmctl', 'sgmget',
  47.         'shmread', 'shmwrite', 'shutdown', 'sin', 'sleep', 'socket',
  48.         'socketpair', 'sort', 'splice', 'split', 'sprintf', 'sqrt', 'srand',
  49.         'stat', 'study', 'substr', 'symlink', 'syscall', 'sysread', 'system',
  50.         'syswrite', 'tell', 'telldir', 'tie', 'time', 'times', 'truncate',
  51.         'uc', 'ucfirst', 'umask', 'undef', 'unlink', 'unpack', 'untie',
  52.         'unshift', 'use', 'utime', 'values', 'vec', 'wait', 'waitpid',
  53.         'wantarray', 'warn', 'write', 'x', 'continue', 'package', 'bootstrap',
  54.         'getgrnam', 'tan'
  55.     };
  56. }
  57.  
  58. mode PERL: PLAIN { # PERL
  59.     FileNameRx          = /\.\cPL|M$/;
  60.     FirstLineRx         = /^{\#\! *}|{\cEXTPROC[ \t]+perl}[^ ]*perl/;
  61.     HilitOn             = 1;
  62.     Colorizer           = 'PERL';
  63.     AutoIndent          = 1;
  64.     IndentMode          = 'C';
  65.     TabSize             = 8;
  66.     SpaceTabs           = 1;
  67.     MatchCase           = 1;
  68.     MultiLineHilit      = 1;
  69.     AutoHilitParen      = 1;
  70.  
  71.     RoutineRegexp       = /^{sub}|{package}\s+/;
  72.     
  73.     SaveFolds           = 2;      # save fold info at end of line
  74.     CommentStart        = ' #';
  75.     CommentEnd          = '';
  76. }
  77.