view release on metacpan or  search on metacpan

lib/Syntax/Highlight/Engine/Kate/REXX.pm  view on Meta::CPAN

#generated: Sun Feb  3 22:02:06 2008, localtime

package Syntax::Highlight::Engine::Kate::REXX;

our $VERSION = '0.16';

use strict;
use warnings;
use base('Syntax::Highlight::Engine::Kate::Template');

sub new {
   my $proto = shift;
   my $class = ref($proto) || $proto;
   my $self = $class->SUPER::new(@_);
   $self->attributes({
      'Alert' => 'Alert',
      'Built In' => 'Normal',
      'Comment' => 'Comment',
      'Function' => 'Function',
      'Instructions' => 'Keyword',
      'Normal Text' => 'Normal',
      'String' => 'String',
      'Symbol' => 'Normal',
   });
   $self->listAdd('builtin',
      'abbrev',
      'abs',
      'address',
      'b2x',
      'bitand',
      'bitor',
      'bitxor',
      'c2d',
      'c2x',
      'center',
      'charin',
      'charout',
      'chars',
      'compare',
      'condition',
      'copies',
      'd2c',
      'd2x',
      'datatype',
      'date',
      'delstr',
      'delword',
      'digits',
      'errortext',
      'form',
      'format',
      'fuzz',
      'insert',
      'lastpos',
      'left',
      'linein',
      'lineout',
      'lines',
      'max',
      'min',
      'overlay',
      'pos',
      'queued',
      'random',
      'reverse',
      'right',
      'sign',
      'sourceline',
      'space',
      'stream',
      'strip',
      'substr',
      'subword',
      'symbol',
      'time',
      'trace',
      'translate',
      'trunc',
      'value',
      'verify',
      'word',
      'wordindex',
      'wordlength',
      'wordpos',
      'words',
      'x2b',
      'x2c',
      'x2d',
      'xrange',
   );
   $self->listAdd('instructions',
      'arg',
      'drop',
      'else',
      'end',
      'exit',
      'forever',
      'if',
      'interpret',
      'iterate',
      'leave',
      'nop',
      'options',
      'otherwise',
      'pull',
      'push',
      'queue',
      'return',
      'say',
      'select',
      'syntax',
      'then',
   );
   $self->contextdata({
      'Commentar 1' => {
         callback => \&parseCommentar1,
         attribute => 'Comment',
      },
      'Normal' => {
         callback => \&parseNormal,
         attribute => 'Normal Text',