1<?php 2/************************************************************************************* 3 * ocaml.php 4 * ---------- 5 * Author: Flaie (fireflaie@gmail.com) 6 * Copyright: (c) 2005 Flaie, Nigel McNie (http://qbnz.com/highlighter) 7 * Release Version: 1.0.7.15 8 * CVS Revision Version: $Revision: 1.11.2.4 $ 9 * Date Started: 2005/08/27 10 * Last Modified: $Date: 2006/09/23 02:05:47 $ 11 * 12 * OCaml (Objective Caml) language file for GeSHi. 13 * 14 * CHANGES 15 * ------- 16 * 2005/08/27 (1.0.0) 17 * - First Release 18 * 19 * TODO (updated 2005/08/27) 20 * ------------------------- 21 * 22 ************************************************************************************* 23 * 24 * This file is part of GeSHi. 25 * 26 * GeSHi is free software; you can redistribute it and/or modify 27 * it under the terms of the GNU General Public License as published by 28 * the Free Software Foundation; either version 2 of the License, or 29 * (at your option) any later version. 30 * 31 * GeSHi is distributed in the hope that it will be useful, 32 * but WITHOUT ANY WARRANTY; without even the implied warranty of 33 * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the 34 * GNU General Public License for more details. 35 * 36 * You should have received a copy of the GNU General Public License 37 * along with GeSHi; if not, write to the Free Software 38 * Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA 39 * 40 ************************************************************************************/ 41 42$language_data = array ( 43 'LANG_NAME' => 'OCaml', 44 'COMMENT_SINGLE' => array(), 45 'COMMENT_MULTI' => array('(*' => '*)'), 46 'CASE_KEYWORDS' => 0, 47 'QUOTEMARKS' => array('"'), 48 'ESCAPE_CHAR' => "", 49 'KEYWORDS' => array( 50 /* main OCaml keywords */ 51 1 => array( 52 'and', 'As', 'asr', 'begin', 'Class', 'Closed', 'constraint', 'do', 'done', 'downto', 'else', 53 'end', 'exception', 'external', 'failwith', 'false', 'flush', 'for', 'fun', 'function', 'functor', 54 'if', 'in', 'include', 'inherit', 'incr', 'land', 'let', 'load', 'los', 'lsl', 'lsr', 'lxor', 55 'match', 'method', 'mod', 'module', 'mutable', 'new', 'not', 'of', 'open', 'option', 'or', 'parser', 56 'private', 'ref', 'rec', 'raise', 'regexp', 'sig', 'struct', 'stdout', 'stdin', 'stderr', 'then', 57 'to', 'true', 'try', 'type', 'val', 'virtual', 'when', 'while', 'with' 58 ) 59 ), 60 /* highlighting symbols is really important in OCaml */ 61 'SYMBOLS' => array( 62 ';', '!', ':', '.', '=', '%', '^', '*', '-', '/', '+', 63 '>', '<', '(', ')', '[', ']', '&', '|', '#', "'" 64 ), 65 'CASE_SENSITIVE' => array( 66 GESHI_COMMENTS => true, 67 1 => false, 68 ), 69 'STYLES' => array( 70 'KEYWORDS' => array( 71 1 => 'color: #06c; font-weight: bold;' /* nice blue */ 72 ), 73 'COMMENTS' => array( 74 'MULTI' => 'color: #5d478b; font-style: italic;' /* light purple */ 75 ), 76 'ESCAPE_CHAR' => array( 77 ), 78 'BRACKETS' => array( 79 0 => 'color: #6c6;' 80 ), 81 'STRINGS' => array( 82 0 => 'color: #3cb371;' /* nice green */ 83 ), 84 'NUMBERS' => array( 85 0 => 'color: #c6c;' /* pink */ 86 ), 87 'METHODS' => array( 88 1 => 'color: #060;' /* dark green */ 89 ), 90 'REGEXPS' => array( 91 ), 92 'SYMBOLS' => array( 93 0 => 'color: #a52a2a;' /* maroon */ 94 ), 95 'SCRIPT' => array( 96 ) 97 ), 98 'URLS' => array( 99 1 => '', 100 ), 101 'OOLANG' => true, 102 'OBJECT_SPLITTERS' => array( 103 1 => '.' 104 ), 105 'REGEXPS' => array( 106 ), 107 'STRICT_MODE_APPLIES' => GESHI_NEVER, 108 'SCRIPT_DELIMITERS' => array( 109 ), 110 'HIGHLIGHT_STRICT_BLOCK' => array( 111 ) 112); 113 114?> 115