# Copyright (c) 2005 - 2006 Hans Jeuken. All rights reserved.
# This program is free software; you can redistribute it and/or
# modify it under the same terms as Perl itself.

# This file was generated from the 'katexml/rsiidl.xml' file of the syntax highlight
# engine of the kate text editor (http://kate.kde.org

#kate xml version 1.04
#kate version 2.1
#kate author Markus Fraenz (fraenz@linmpi.mpg.de)
#generated: Wed Nov  1 21:17:53 2006, localtime

package Syntax::Highlight::Engine::Kate::RSI_IDL;

use vars qw($VERSION);
$VERSION = '0.02';

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({
		'Char' => 'Char',
		'Command' => 'BaseN',
		'Comment' => 'Comment',
		'Data Type' => 'DataType',
		'Decimal' => 'DecVal',
		'Float' => 'DecVal',
		'Hex' => 'DecVal',
		'IOCommand' => 'DataType',
		'Keyword' => 'Keyword',
		'Normal Text' => 'Normal',
		'Octal' => 'DecVal',
		'String' => 'String',
		'String Char' => 'Char',
		'bracketed' => 'Float',
	});
	$self->listAdd('commands',
		'ABS',
		'ACOS',
		'ADAPT_HIST_EQUAL',
		'ALOG',
		'ALOG10',
		'ARG_PRESENT',
		'ASIN',
		'ASSOC',
		'ATAN',
		'AXIS',
		'BESELI',
		'BESELJ',
		'BESELY',
		'BLAS_AXPY',
		'BREAKPOINT',
		'BROYDEN',
		'BYTEORDER',
		'CALL_EXTERNAL',
		'CALL_FUNCTION',
		'CALL_METHOD',
		'CALL_PROCEDURE',
		'CATCH',
		'CEIL',
		'CHECK_MATH',
		'CHOLDC',
		'CHOLSOL',
		'COLOR_CONVERT',
		'COLOR_QUAN',
		'COMPILE_OPT',
		'COMPUTE_MESH_NORMALS',
		'CONJ',
		'CONSTRAINED_MIN',
		'CONTOUR',
		'CONVERT_COORD',
		'CONVOL',
		'CORRELATE',
		'COS',
		'COSH',
		'CREATE_STRUCT',
		'CURSOR',
		'DEFINE_KEY',
		'DEFSYSV',
		'DELVAR',
		'DEVICE',
		'DFPMIN',
		'DIALOG_MESSAGE',
		'DIALOG_PICKFILE',
		'DIALOG_PRINTERSETUP',
		'DIALOG_PRINTJOB',
		'DILATE',
		'DLM_LOAD',
		'DRAW_ROI',
		'ELMHES',
		'EMPTY',
		'ENABLE_SYSRTN',
		'ERASE',
		'ERODE',
		'ERRORF',
		'EXECUTE',
		'EXIT',
		'EXP',
		'EXPAND_PATH',
		'EXPINT',
		'FINDFILE',
		'FINITE',
		'FLOOR',
		'FORMAT_AXIS_VALUES',
		'FORWARD_FUNCTION',
		'FSTAT',
		'FULSTR',
		'FZ_ROOTS',
		'GAUSSINT',
		'GETENV',
		'GET_KBRD',
		'GRID3',
		'GRID_TPS',
		'HEAP_GC',
		'HELP',
		'HISTOGRAM',
		'HQR',
		'IMAGE_STATISTICS',
		'IMAGINARY',
		'INTERPOLATE',
		'INVERT',
		'ISHFT',
		'ISOCONTOUR',
		'ISOSURFACE',
		'JOURNAL',
		'KEYWORD_SET',
		'LABEL_REGION',
		'LINBCG',
		'LINKIMAGE',
		'LMGR',
		'LNGAMMA',
		'LNP_TEST',
		'LOADCT',
		'LOCALE_GET',
		'LSODE',
		'LUDC',
		'LUMPROVE',
		'LUSOL',
		'MACHAR',
		'MAKE_ARRAY',
		'MAP_PROJ_INFO',
		'MAX',
		'MEDIAN',
		'MESH_CLIP',
		'MESH_DECIMATE',
		'MESH_ISSOLID',
		'MESH_MERGE',
		'MESH_NUMTRIANGLES',
		'MESH_SMOOTH',
		'MESH_SURFACEAREA',
		'MESH_VALIDATE',
		'MESH_VOLUME',
		'MESSAGE',
		'MIN',
		'NEWTON',
		'N_ELEMENTS',
		'N_PARAMS',
		'N_TAGS',
		'OBJ_CLASS',
		'OBJ_DESTROY',
		'OBJ_ISA',
		'OBJ_NEW',
		'OBJ_VALID',
		'ON_ERROR',
		'OPLOT',
		'PARTICLE_TRACE',
		'PLOT',
		'PLOTS',
		'POLYFILL',
		'POLYFILLV',
		'POLYSHADE',
		'POLY_2D',
		'POWELL',
		'PROFILER',
		'PTR_FREE',
		'PTR_NEW',
		'PTR_VALID',
		'QROMB',
		'QROMO',
		'QSIMP',
		'RANDOMN',
		'RANDOMU',
		'REBIN',
		'REFORM',
		'RETALL',
		'RETURN',
		'RIEMANN',
		'RK4',
		'ROBERTS',
		'ROTATE',
		'ROUND',
		'SETENV',
		'SET_PLOT',
		'SET_SHADING',
		'SHADE_SURF',
		'SHADE_VOLUME',
		'SHIFT',
		'SIN',
		'SINH',
		'SIZE',
		'SMOOTH',
		'SOBEL',
		'SORT',
		'SPL_INIT',
		'SPL_INTERP',
		'SPRSAB',
		'SPRSAX',
		'SPRSIN',
		'SQRT',
		'STOP',
		'STRCMP',
		'STRCOMPRESS',
		'STREGEX',
		'STRJOIN',
		'STRLEN',
		'STRLOWCASE',
		'STRMATCH',
		'STRMESSAGE',
		'STRMID',
		'STRPOS',
		'STRPUT',
		'STRTRIM',
		'STRUCT_ASSIGN',
		'STRUCT_HIDE',
		'STRUPCASE',
		'SURFACE',
		'SVDC',
		'SVSOL',
		'SYSTIME',
		'TAG_NAMES',
		'TAN',
		'TANH',
		'TEMPORARY',
		'TETRA_CLIP',
		'TETRA_SURFACE',
		'TETRA_VOLUME',
		'THIN',
		'THREED',
		'TOTAL',
		'TRANSPOSE',
		'TRIANGULATE',
		'TRIGRID',
		'TRIQL',
		'TRIRED',
		'TRISOL',
		'TV',
		'TVCRS',
		'TVLCT',
		'TVRD',
		'TVSCLU',
		'USERSYM',
		'VALUE_LOCATE',
		'VOIGT',
		'VOXEL_PROJ',
		'WAIT',
		'WATERSHED',
		'WDELETE',
		'WHERE',
		'WIDGET_BASE',
		'WIDGET_BUTTON',
		'WIDGET_CONTROL',
		'WIDGET_DRAW',
		'WIDGET_DROPLIST',
		'WIDGET_EVENT',
		'WIDGET_INFO',
		'WIDGET_LABEL',
		'WIDGET_LIST',
		'WIDGET_SLIDER',
		'WIDGET_TABLE',
		'WIDGET_TEXT',
		'WINDOW',
		'WSET',
		'WSHOW',
		'WTN',
		'XYOUTS',
	);
	$self->listAdd('io commands',
		'Close',
		'FLUSH',
		'Free_lun',
		'IOCTL',
		'Open',
		'Openr',
		'Openu',
		'Openw',
		'POINT_LUN',
		'RESTORE',
		'SAVE',
		'assoc',
		'catch',
		'cd',
		'eof',
		'get_lun',
		'print',
		'printf',
		'prints',
		'read',
		'readf',
		'reads',
		'spawn',
		'writu',
	);
	$self->listAdd('reserved words',
		'And',
		'Begin',
		'Case',
		'Common',
		'Do',
		'Else',
		'End',
		'Endcase',
		'Endelse',
		'Endfor',
		'Endif',
		'Endrep',
		'Endwhile',
		'Eq',
		'For',
		'Function',
		'Ge',
		'Goto',
		'Gt',
		'If',
		'Le',
		'Lt',
		'Mod',
		'Ne',
		'Not',
		'Of',
		'On_ioerror',
		'Or',
		'Pro',
		'Repeat',
		'Return',
		'Then',
		'Then',
		'Until',
		'While',
		'Xor',
	);
	$self->listAdd('system variables',
		'c',
		'd',
		'dir',
		'dlm_path',
		'dpi',
		'dtor',
		'edit_input',
		'err',
		'err_string',
		'error',
		'error_state',
		'except',
		'help_path',
		'journal',
		'map',
		'more',
		'mouse',
		'msg_prefix',
		'order',
		'p',
		'path',
		'pi',
		'prompt',
		'quiet',
		'radeg',
		'stime',
		'syserr_string',
		'syserror',
		'values',
		'version',
		'warn',
		'x',
		'y',
		'z',
	);
	$self->listAdd('types',
		'Bytarr',
		'Byte',
		'Bytscl',
		'Dblarr',
		'Dcindgen',
		'Dindgen',
		'Double',
		'Findgen',
		'Fix',
		'Float',
		'Fltarr',
		'Indgen',
		'Intarr',
		'Long',
		'Long64',
		'Objarr',
		'Ptrarr',
		'Replicate',
		'Strarr',
		'String',
		'bindgen',
		'cindgen',
		'complex',
		'complexarr',
		'dcomplex',
		'dcomplexarr',
		'l64indgen',
		'lindgen',
		'lon64arr',
		'lonarr',
		'sindgen',
		'uindgen',
		'uint',
		'uintarr',
		'ul64indgen',
		'ulindgen',
		'ulon64arr',
		'ulonarr',
		'ulong',
	);
	$self->contextdata({
		'Comment' => {
			callback => \&parseComment,
			attribute => 'Comment',
			lineending => '#pop',
		},
		'Normal' => {
			callback => \&parseNormal,
			attribute => 'Normal Text',
		},
		'systemvarcontext' => {
			callback => \&parsesystemvarcontext,
			attribute => 'Char',
			lineending => '#pop',
		},
	});
	$self->deliminators('\\s||\\.|\\(|\\)|:|\\!|\\+|,|-|<|=|>|\\%|\\&|\\*|\\/|;|\\?|\\[|\\]|\\^|\\{|\\||\\}|\\~|\\\\');
	$self->basecontext('Normal');
	$self->keywordscase(1);
	$self->initialize;
	bless ($self, $class);
	return $self;
}

sub language {
	return 'RSI IDL';
}

sub parseComment {
	my ($self, $text) = @_;
	return 0;
};

sub parseNormal {
	my ($self, $text) = @_;
	# type => keyword
	if ($self->testKeyword($text, 'reserved words', 0, 0, undef, 0, '#stay', 'Keyword')) {
		return 1
	}
	# type => keyword
	if ($self->testKeyword($text, 'types', 0, 0, undef, 0, '#stay', 'Data Type')) {
		return 1
	}
	# type => keyword
	if ($self->testKeyword($text, 'commands', 0, 0, undef, 0, '#stay', 'Command')) {
		return 1
	}
	# type => keyword
	if ($self->testKeyword($text, 'io commands', 0, 0, undef, 0, '#stay', 'IOCommand')) {
		return 1
	}
	# type => Float
	if ($self->testFloat($text, 0, undef, 0, '#stay', 'Octal')) {
		return 1
	}
	# type => Int
	if ($self->testInt($text, 0, undef, 0, '#stay', 'Decimal')) {
		return 1
	}
	# type => RangeDetect
	if ($self->testRangeDetect($text, '\'', '\'', 0, 0, undef, 0, '#stay', 'String')) {
		return 1
	}
	# type => RangeDetect
	if ($self->testRangeDetect($text, '"', '"', 0, 0, undef, 0, '#stay', 'String')) {
		return 1
	}
	# type => DetectChar
	if ($self->testDetectChar($text, '(', 0, 0, 0, undef, 0, '#stay', 'Hex')) {
		return 1
	}
	# type => DetectChar
	if ($self->testDetectChar($text, ')', 0, 0, 0, undef, 0, '#stay', 'Hex')) {
		return 1
	}
	# type => DetectChar
	if ($self->testDetectChar($text, '[', 0, 0, 0, undef, 0, '#stay', 'Char')) {
		return 1
	}
	# type => DetectChar
	if ($self->testDetectChar($text, ']', 0, 0, 0, undef, 0, '#stay', 'Char')) {
		return 1
	}
	# type => DetectChar
	if ($self->testDetectChar($text, '{', 0, 0, 0, undef, 0, '#stay', 'Float')) {
		return 1
	}
	# type => DetectChar
	if ($self->testDetectChar($text, '}', 0, 0, 0, undef, 0, '#stay', 'Float')) {
		return 1
	}
	# type => DetectChar
	if ($self->testDetectChar($text, '$', 0, 0, 0, undef, 0, '#stay', 'Char')) {
		return 1
	}
	# type => DetectChar
	if ($self->testDetectChar($text, '@', 0, 0, 0, undef, 0, '#stay', 'Char')) {
		return 1
	}
	# type => DetectChar
	if ($self->testDetectChar($text, ':', 0, 0, 0, undef, 0, '#stay', 'Char')) {
		return 1
	}
	# type => DetectChar
	if ($self->testDetectChar($text, ';', 0, 0, 0, undef, 0, 'Comment', 'Char')) {
		return 1
	}
	# type => DetectChar
	if ($self->testDetectChar($text, '!', 0, 0, 0, undef, 0, 'systemvarcontext', 'Char')) {
		return 1
	}
	return 0;
};

sub parsesystemvarcontext {
	my ($self, $text) = @_;
	# type => DetectChar
	if ($self->testDetectChar($text, '(', 0, 0, 0, undef, 0, '#pop', 'Hex')) {
		return 1
	}
	# type => DetectChar
	if ($self->testDetectChar($text, '.', 0, 0, 0, undef, 0, '#pop', 'Char')) {
		return 1
	}
	# type => DetectChar
	if ($self->testDetectChar($text, ' ', 0, 0, 0, undef, 0, '#pop', 'Hex')) {
		return 1
	}
	# type => keyword
	if ($self->testKeyword($text, 'system variables', 0, 0, undef, 0, '#pop', 'Float')) {
		return 1
	}
	return 0;
};


1;

__END__

=head1 NAME

Syntax::Highlight::Engine::Kate::RSI_IDL - a Plugin for RSI IDL syntax highlighting

=head1 SYNOPSIS

 require Syntax::Highlight::Engine::Kate::RSI_IDL;
 my $sh = new Syntax::Highlight::Engine::Kate::RSI_IDL([
 ]);

=head1 DESCRIPTION

Syntax::Highlight::Engine::Kate::RSI_IDL is a  plugin module that provides syntax highlighting
for RSI IDL to the Syntax::Haghlight::Engine::Kate highlighting engine.

This code is generated from the syntax definition files used
by the Kate project.
It works quite fine, but can use refinement and optimization.

It inherits Syntax::Higlight::Engine::Kate::Template. See also there.

=cut

=head1 AUTHOR

Hans Jeuken (haje <at> toneel <dot> demon <dot> nl)

=cut

=head1 BUGS

Unknown. If you find any, please contact the author

=cut