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.9.1
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-zA-Z0-9_])(?!(?:PIPE|SEMI|DOT)[^a-zA-Z0-9_])[A-Z_][a-zA-Z0-9_]*(?![a-zA-Z0-9_])(?!\x7C)"
134        ),
135    'STRICT_MODE_APPLIES' => GESHI_NEVER,
136    'SCRIPT_DELIMITERS' => array(
137        ),
138    'HIGHLIGHT_STRICT_BLOCK' => array(
139        ),
140    'TAB_WIDTH' => 4
141);
142