|
1 <?php |
|
2 /************************************************************************************* |
|
3 * prolog.php |
|
4 * -------- |
|
5 * Author: Benny Baumann (BenBE@geshi.org) |
|
6 * Copyright: (c) 2008 Benny Baumann (http://qbnz.com/highlighter/) |
|
7 * Release Version: 1.0.8.2 |
|
8 * Date Started: 2008/10/02 |
|
9 * |
|
10 * Prolog language file for GeSHi. |
|
11 * |
|
12 * CHANGES |
|
13 * ------- |
|
14 * 2008/10/02 (1.0.8.1) |
|
15 * - First Release |
|
16 * |
|
17 * TODO (updated 2008/10/02) |
|
18 * ------------------------- |
|
19 * |
|
20 ************************************************************************************* |
|
21 * |
|
22 * This file is part of GeSHi. |
|
23 * |
|
24 * GeSHi is free software; you can redistribute it and/or modify |
|
25 * it under the terms of the GNU General Public License as published by |
|
26 * the Free Software Foundation; either version 2 of the License, or |
|
27 * (at your option) any later version. |
|
28 * |
|
29 * GeSHi is distributed in the hope that it will be useful, |
|
30 * but WITHOUT ANY WARRANTY; without even the implied warranty of |
|
31 * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the |
|
32 * GNU General Public License for more details. |
|
33 * |
|
34 * You should have received a copy of the GNU General Public License |
|
35 * along with GeSHi; if not, write to the Free Software |
|
36 * Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA |
|
37 * |
|
38 ************************************************************************************/ |
|
39 |
|
40 $language_data = array ( |
|
41 'LANG_NAME' => 'Prolog', |
|
42 'COMMENT_SINGLE' => array(1 => '%'), |
|
43 'COMMENT_MULTI' => array('/*' => '*/'), |
|
44 'HARDQUOTE' => array("'", "'"), |
|
45 'HARDESCAPE' => array("\'"), |
|
46 'CASE_KEYWORDS' => GESHI_CAPS_NO_CHANGE, |
|
47 'QUOTEMARKS' => array(), |
|
48 'ESCAPE_CHAR' => '', |
|
49 'NUMBERS' => |
|
50 GESHI_NUMBER_INT_BASIC | GESHI_NUMBER_FLT_SCI_ZERO, |
|
51 'KEYWORDS' => array( |
|
52 1 => array( |
|
53 'abolish','abs','arg','asserta','assertz','at_end_of_stream','atan', |
|
54 'atom','atom_chars','atom_codes','atom_concat','atom_length', |
|
55 'atomic','bagof','call','catch','ceiling','char_code', |
|
56 'char_conversion','clause','close','compound','consult','copy_term', |
|
57 'cos','current_char_conversion','current_input','current_op', |
|
58 'current_output','current_predicate','current_prolog_flag', |
|
59 'discontiguous','dynamic','ensure_loaded','exp','fail','findall', |
|
60 'float','float_fractional_part','float_integer_part','floor', |
|
61 'flush_output','functor','get_byte','get_char','get_code','halt', |
|
62 'include','initialization','integer','is','listing','log','mod', |
|
63 'multifile','nl','nonvar','notrace','number','number_chars', |
|
64 'number_codes','once','op','open','peek_byte','peek_char', |
|
65 'peek_code','put_byte','put_char','put_code','read','read_term', |
|
66 'rem','repeat','retract','round','set_input','set_output', |
|
67 'set_prolog_flag','set_stream_position','setof','sign','sin','sqrt', |
|
68 'stream_property','sub_atom','throw','trace','true','truncate', |
|
69 'unify_with_occurs_check','univ','var','write','write_canonical', |
|
70 'write_term','writeq' |
|
71 ) |
|
72 ), |
|
73 'SYMBOLS' => array( |
|
74 0 => array('(', ')', '[', ']', '{', '}',), |
|
75 1 => array('?-', ':-', '=:='), |
|
76 2 => array('\-', '\+', '\*', '\/'), |
|
77 3 => array('-', '+', '*', '/'), |
|
78 4 => array('.', ':', ',', ';'), |
|
79 5 => array('!', '@', '&', '|'), |
|
80 6 => array('<', '>', '=') |
|
81 ), |
|
82 'CASE_SENSITIVE' => array( |
|
83 GESHI_COMMENTS => false, |
|
84 1 => false |
|
85 ), |
|
86 'STYLES' => array( |
|
87 'KEYWORDS' => array( |
|
88 1 => 'color: #990000;' |
|
89 ), |
|
90 'COMMENTS' => array( |
|
91 1 => 'color: #666666; font-style: italic;', |
|
92 'MULTI' => 'color: #666666; font-style: italic;' |
|
93 ), |
|
94 'ESCAPE_CHAR' => array( |
|
95 0 => 'color: #000099; font-weight: bold;', |
|
96 'HARD' => 'color: #000099; font-weight: bold;' |
|
97 ), |
|
98 'BRACKETS' => array( |
|
99 0 => 'color: #009900;' |
|
100 ), |
|
101 'STRINGS' => array( |
|
102 0 => 'color: #0000ff;', |
|
103 'HARD' => 'color: #0000ff;' |
|
104 ), |
|
105 'NUMBERS' => array( |
|
106 0 => 'color: #800080;' |
|
107 ), |
|
108 'METHODS' => array( |
|
109 ), |
|
110 'SYMBOLS' => array( |
|
111 0 => 'color: #339933;', |
|
112 1 => 'color: #339933;', |
|
113 2 => 'color: #339933;', |
|
114 3 => 'color: #339933;', |
|
115 4 => 'color: #339933;', |
|
116 5 => 'color: #339933;', |
|
117 6 => 'color: #339933;' |
|
118 ), |
|
119 'REGEXPS' => array( |
|
120 0 => 'color: #008080;' |
|
121 ), |
|
122 'SCRIPT' => array( |
|
123 ) |
|
124 ), |
|
125 'URLS' => array( |
|
126 1 => 'http://pauillac.inria.fr/~deransar/prolog/bips.html' |
|
127 ), |
|
128 'OOLANG' => false, |
|
129 'OBJECT_SPLITTERS' => array( |
|
130 ), |
|
131 'REGEXPS' => array( |
|
132 //Variables |
|
133 0 => "(?<![A-Z_])(?!(?:PIPE|SEMI)[^a-zA-Z0-9_])[A-Z_][a-zA-Z0-9_]*(?![a-zA-Z0-9_])" |
|
134 ), |
|
135 'STRICT_MODE_APPLIES' => GESHI_NEVER, |
|
136 'SCRIPT_DELIMITERS' => array( |
|
137 ), |
|
138 'HIGHLIGHT_STRICT_BLOCK' => array( |
|
139 ), |
|
140 'TAB_WIDTH' => 4 |
|
141 ); |
|
142 |
|
143 ?> |