3 * Description: Pascal programming language
4 * Author: Michael Van Canneyt <michael@tfdec1.fys.kuleuven.ac.be>
7 state pascal_comment extends Highlight
15 state pascal_string extends Highlight
23 state pascal extends HighlightEntry
29 call (pascal_comment);
40 (build-re '(and asm array begin case const constructor destructor div
41 do downto else end file for function goto if implementation in inline
42 interface label mod nil not object of or packed procedure program record
43 repeat set shlr string then to type unit until uses var while with xor)
46 /\b([aA]([nN][dD]|[rR][rR][aA][yY]|[sS][mM])|[bB][eE][gG][iI][nN]\
47 |[cC]([aA][sS][eE]|[oO][nN][sS][tT](|[rR][uU][cC][tT][oO][rR]))\
48 |[dD]([eE][sS][tT][rR][uU][cC][tT][oO][rR]|[iI][vV]|[oO](|[wW][nN][tT][oO]))\
49 |[eE]([lL][sS][eE]|[nN][dD])\
50 |[fF]([iI][lL][eE]|[oO][rR]|[uU][nN][cC][tT][iI][oO][nN])\
52 |[iI]([fF]|[mM][pP][lL][eE][mM][eE][nN][tT][aA][tT][iI][oO][nN]\
53 |[nN](|[lL][iI][nN][eE]|[tT][eE][rR][fF][aA][cC][eE]))\
54 |[lL][aA][bB][eE][lL]|[mM][oO][dD]|[nN]([iI][lL]|[oO][tT])\
55 |[oO]([bB][jJ][eE][cC][tT]|[fF]|[rR])\
56 |[pP]([aA][cC][kK][eE][dD]\
57 |[rR][oO]([cC][eE][dD][uU][rR][eE]|[gG][rR][aA][mM]))\
58 |[rR][eE]([cC][oO][rR][dD]|[pP][eE][aA][tT])\
59 |[sS]([eE][tT]|[hH][lL][rR]|[tT][rR][iI][nN][gG])\
60 |[tT]([hH][eE][nN]|[oO]|[yY][pP][eE])\
61 |[uU]([nN]([iI][tT]|[tT][iI][lL])|[sS][eE][sS])|[vV][aA][rR]\
62 |[wW]([hH][iI][lL][eE]|[iI][tT][hH])|[xX][oO][rR])\b/ {