[Summary view] [Print] [Text view]

   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  );