<?php /************************************************************************************* * prolog.php * -------- * Author: Benny Baumann (BenBE@geshi.org) * Copyright: (c) 2008 Benny Baumann (http://qbnz.com/highlighter/) * Release Version: 1.0.8.6 * Date Started: 2008/10/02 * * Prolog language file for GeSHi. * * CHANGES * ------- * 2008/10/02 (1.0.8.1) * - First Release * * TODO (updated 2008/10/02) * ------------------------- * ************************************************************************************* * * This file is part of GeSHi. * * GeSHi is free software; you can redistribute it and/or modify * it under the terms of the GNU General Public License as published by * the Free Software Foundation; either version 2 of the License, or * (at your option) any later version. * * GeSHi is distributed in the hope that it will be useful, * but WITHOUT ANY WARRANTY; without even the implied warranty of * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the * GNU General Public License for more details. * * You should have received a copy of the GNU General Public License * along with GeSHi; if not, write to the Free Software * Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA * ************************************************************************************/ $language_data = array ( 'LANG_NAME' => 'Prolog', 'COMMENT_SINGLE' => array(1 => '%'), 'COMMENT_MULTI' => array('/*' => '*/'), 'HARDQUOTE' => array("'", "'"), 'HARDESCAPE' => array("\'"), 'CASE_KEYWORDS' => GESHI_CAPS_NO_CHANGE, 'QUOTEMARKS' => array(), 'ESCAPE_CHAR' => '', 'NUMBERS' => GESHI_NUMBER_INT_BASIC | GESHI_NUMBER_FLT_SCI_ZERO, 'KEYWORDS' => array( 1 => array( 'abolish','abs','arg','asserta','assertz','at_end_of_stream','atan', 'atom','atom_chars','atom_codes','atom_concat','atom_length', 'atomic','bagof','call','catch','ceiling','char_code', 'char_conversion','clause','close','compound','consult','copy_term', 'cos','current_char_conversion','current_input','current_op', 'current_output','current_predicate','current_prolog_flag', 'discontiguous','dynamic','ensure_loaded','exp','fail','findall', 'float','float_fractional_part','float_integer_part','floor', 'flush_output','functor','get_byte','get_char','get_code','halt', 'include','initialization','integer','is','listing','log','mod', 'multifile','nl','nonvar','notrace','number','number_chars', 'number_codes','once','op','open','peek_byte','peek_char', 'peek_code','put_byte','put_char','put_code','read','read_term', 'rem','repeat','retract','round','set_input','set_output', 'set_prolog_flag','set_stream_position','setof','sign','sin','sqrt', 'stream_property','sub_atom','throw','trace','true','truncate', 'unify_with_occurs_check','univ','var','write','write_canonical', 'write_term','writeq' ) ), 'SYMBOLS' => array( 0 => array('(', ')', '[', ']', '{', '}',), 1 => array('?-', ':-', '=:='), 2 => array('\-', '\+', '\*', '\/'), 3 => array('-', '+', '*', '/'), 4 => array('.', ':', ',', ';'), 5 => array('!', '@', '&', '|'), 6 => array('<', '>', '=') ), 'CASE_SENSITIVE' => array( GESHI_COMMENTS => false, 1 => false ), 'STYLES' => array( 'KEYWORDS' => array( 1 => 'color: #990000;' ), 'COMMENTS' => array( 1 => 'color: #666666; font-style: italic;', 'MULTI' => 'color: #666666; font-style: italic;' ), 'ESCAPE_CHAR' => array( 0 => 'color: #000099; font-weight: bold;', 'HARD' => 'color: #000099; font-weight: bold;' ), 'BRACKETS' => array( 0 => 'color: #009900;' ), 'STRINGS' => array( 0 => 'color: #0000ff;', 'HARD' => 'color: #0000ff;' ), 'NUMBERS' => array( 0 => 'color: #800080;' ), 'METHODS' => array( ), 'SYMBOLS' => array( 0 => 'color: #339933;', 1 => 'color: #339933;', 2 => 'color: #339933;', 3 => 'color: #339933;', 4 => 'color: #339933;', 5 => 'color: #339933;', 6 => 'color: #339933;' ), 'REGEXPS' => array( 0 => 'color: #008080;' ), 'SCRIPT' => array( ) ), 'URLS' => array( 1 => 'http://pauillac.inria.fr/~deransar/prolog/bips.html' ), 'OOLANG' => false, 'OBJECT_SPLITTERS' => array( ), 'REGEXPS' => array( //Variables 0 => "(?<![A-Z_])(?!(?:PIPE|SEMI)[^a-zA-Z0-9_])[A-Z_][a-zA-Z0-9_]*(?![a-zA-Z0-9_])" ), 'STRICT_MODE_APPLIES' => GESHI_NEVER, 'SCRIPT_DELIMITERS' => array( ), 'HIGHLIGHT_STRICT_BLOCK' => array( ), 'TAB_WIDTH' => 4 ); ?>