2
/*************************************************************************************
5
* Author: Thomas Linder Puls (puls@pdc.dk)
6
* Copyright: (c) 2008 Thomas Linder Puls (puls@pdc.dk)
7
* Release Version: 1.0.8.8
8
* Date Started: 2008/11/20
10
* Visual Prolog language file for GeSHi.
13
* -------------------------
15
*************************************************************************************
17
* This file is part of GeSHi.
19
* GeSHi is free software; you can redistribute it and/or modify
20
* it under the terms of the GNU General Public License as published by
21
* the Free Software Foundation; either version 2 of the License, or
22
* (at your option) any later version.
24
* GeSHi is distributed in the hope that it will be useful,
25
* but WITHOUT ANY WARRANTY; without even the implied warranty of
26
* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
27
* GNU General Public License for more details.
29
* You should have received a copy of the GNU General Public License
30
* along with GeSHi; if not, write to the Free Software
31
* Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA
33
************************************************************************************/
35
$language_data = array (
36
'LANG_NAME' => 'Visual Prolog',
37
'COMMENT_SINGLE' => array(1 => '%'),
38
'COMMENT_MULTI' => array('/*' => '*/'),
39
'CASE_KEYWORDS' => GESHI_CAPS_NO_CHANGE,
40
'QUOTEMARKS' => array("'", '"'),
41
'HARDQUOTE' => array('@"', '"'),
42
'HARDESCAPE' => array('""'),
43
'ESCAPE_CHAR' => '\\',
46
'clauses','constants','constructors','delegate','domains','facts',
47
'goal','guards','inherits','monitor','namespace','open',
48
'predicates','properties','resolve','supports'
51
'align','and','anyflow','as','bitsize','catch','determ','digits',
52
'div','do','else','elseif','erroneous','externally','failure',
53
'finally','from','language','mod','multi','nondeterm','or',
54
'procedure','quot','rem','single','then','to'
57
'#bininclude','#else','#elseif','#endif','#error','#export',
58
'#externally','#if','#import','#include','#message','#options',
59
'#orrequires','#requires','#then','#warning'
63
'+', '-', '*', '?', '=', '/', '>', '<', '^', '!', ':', '(', ')', '{', '}', '[', ']'
65
'CASE_SENSITIVE' => array(
66
GESHI_COMMENTS => true,
73
1 => 'color: #808000;',
74
2 => 'color: #333399;',
75
3 => 'color: #800080;',
78
1 => 'color: #AA77BD',
79
'MULTI' => 'color: #AA77BD'
81
'ESCAPE_CHAR' => array(
82
0 => 'color: #008080;'
85
0 => 'color: #000000;'
88
0 => 'color: #00B7B7;'
91
0 => 'color: #0000FF;'
96
0 => 'color: #000000;'
101
0 => 'color: #008000;',
102
1 => 'color: #808000;',
103
2 => 'color: #333399;',
112
'OBJECT_SPLITTERS' => array(
117
0 => "(?<![a-zA-Z0-9_])(?!(?:PIPE|SEMI)>)[A-Z_]\w*(?!\w)",
118
1 => "\\b(end\\s+)?(implement|class|interface)\\b",
119
2 => "\\b(end\\s+)?(foreach|if|try)\\b",
121
'STRICT_MODE_APPLIES' => GESHI_NEVER,
122
'SCRIPT_DELIMITERS' => array(
124
'HIGHLIGHT_STRICT_BLOCK' => array(