File geshi/geshi/fortran.php
Last commit: Fri Nov 23 00:12:00 2007 +0100 dankert Farbige Darstellung von Code-Bl?cken mit Hilfe der Bibliothek GESHI.
1 <?php 2 /************************************************************************************* 3 * fortran.php 4 * ----------- 5 * Author: Cedric Arrabie (cedric.arrabie@univ-pau.fr) 6 * Copyright: (C) 2006 Cetric Arrabie 7 * Release Version: 1.0.7.20 8 * Date Started: 2006/04/22 9 * 10 * Fortran language file for GeSHi. 11 * 12 * CHANGES 13 * ------- 14 * 2006/04/20 (1.0.0) 15 * - First Release 16 * 17 * TODO 18 * ------------------------- 19 * - Get a list of inbuilt functions to add (and explore fortran more 20 * to complete this rather bare language file) 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'=>'Fortran', 44 'COMMENT_SINGLE'=> array(1 =>'!',2=>'Cf2py'), 45 'COMMENT_MULTI'=> array(), 46 'CASE_KEYWORDS'=> GESHI_CAPS_NO_CHANGE, 47 'QUOTEMARKS'=> array("'",'"'), 48 'ESCAPE_CHAR'=>'\\', 49 'KEYWORDS'=> array( 50 1 => array( 51 'allocate','block','call','case','contains','continue','cycle','deallocate', 52 'default','do','else','elseif','elsewhere','end','enddo','endif','endwhere', 53 'entry','exit','function','go','goto','if','interface','module','nullify','only', 54 'operator','procedure','program','recursive','return','select','stop', 55 'subroutine','then','to','where','while', 56 'access','action','advance','blank','blocksize','carriagecontrol', 57 'delim','direct','eor','err','exist','file','flen','fmt','form','formatted', 58 'iostat','name','named','nextrec','nml','number','opened','pad','position', 59 'readwrite','recl','sequential','status','unformatted','unit' 60 ), 61 2 => array( 62 '.AND.','.EQ.','.EQV.','.GE.','.GT.','.LE.','.LT.','.NE.','.NEQV.','.NOT.', 63 '.OR.','.TRUE.','.FALSE.' 64 ), 65 3 => array( 66 'allocatable','character','common','complex','data','dimension','double', 67 'equivalence','external','implicit','in','inout','integer','intent','intrinsic', 68 'kind','logical','namelist','none','optional','out','parameter','pointer', 69 'private','public','real','result','save','sequence','target','type','use' 70 ), 71 4 => array( 72 'abs','achar','acos','adjustl','adjustr','aimag','aint','all','allocated', 73 'anint','any','asin','atan','atan2','bit_size','break','btest','carg', 74 'ceiling','char','cmplx','conjg','cos','cosh','cpu_time','count','cshift', 75 'date_and_time','dble','digits','dim','dot_product','dprod dvchk', 76 'eoshift','epsilon','error','exp','exponent','floor','flush','fraction', 77 'getcl','huge','iachar','iand','ibclr','ibits','ibset','ichar','ieor','index', 78 'int','intrup','invalop','ior','iostat_msg','ishft','ishftc','lbound', 79 'len','len_trim','lge','lgt','lle','llt','log','log10','matmul','max','maxexponent', 80 'maxloc','maxval','merge','min','minexponent','minloc','minval','mod','modulo', 81 'mvbits','nbreak','ndperr','ndpexc','nearest','nint','not','offset','ovefl', 82 'pack','precfill','precision','present','product','prompt','radix', 83 'random_number','random_seed','range','repeat','reshape','rrspacing', 84 'scale','scan','segment','selected_int_kind','selected_real_kind', 85 'set_exponent','shape','sign','sin','sinh','size','spacing','spread','sqrt', 86 'sum system','system_clock','tan','tanh','timer','tiny','transfer','transpose', 87 'trim','ubound','undfl','unpack','val','verify' 88 ), 89 ), 90 'SYMBOLS'=> array( 91 '(',')','{','}','[',']','=','+','-','*','/','!','%','^','&',':' 92 ), 93 'CASE_SENSITIVE'=> array( 94 GESHI_COMMENTS => true, 95 1 => false, 96 2 => false, 97 3 => false, 98 4 => false, 99 ), 100 'STYLES'=> array( 101 'KEYWORDS'=> array( 102 1 =>'color: #b1b100;', 103 2 =>'color: #000000; font-weight: bold;', 104 3 =>'color: #000066;', 105 4 =>'color: #993333;' 106 ), 107 'COMMENTS'=> array( 108 1 =>'color: #808080; font-style: italic;', 109 2 =>'color: #339933;', 110 'MULTI'=>'color: #808080; font-style: italic;' 111 ), 112 'ESCAPE_CHAR'=> array( 113 0 =>'color: #000099; font-weight: bold;' 114 ), 115 'BRACKETS'=> array( 116 0 =>'color: #66cc66;' 117 ), 118 'STRINGS'=> array( 119 0 =>'color: #ff0000;' 120 ), 121 'NUMBERS'=> array( 122 0 =>'color: #cc66cc;' 123 ), 124 'METHODS'=> array( 125 1 =>'color: #202020;', 126 2 =>'color: #202020;' 127 ), 128 'SYMBOLS'=> array( 129 0 =>'color: #66cc66;' 130 ), 131 'REGEXPS'=> array( 132 ), 133 'SCRIPT'=> array( 134 ) 135 ), 136 'URLS'=> array( 137 1 =>'', 138 2 =>'', 139 3 =>'', 140 4 =>'' 141 ), 142 'OOLANG'=> true, 143 'OBJECT_SPLITTERS'=> array( 144 1 =>'.', 145 2 =>'::' 146 ), 147 'REGEXPS'=> array( 148 ), 149 'STRICT_MODE_APPLIES'=> GESHI_NEVER, 150 'SCRIPT_DELIMITERS'=> array( 151 ), 152 'HIGHLIGHT_STRICT_BLOCK'=> array( 153 ) 154 ); 155 156 ?>
Downloadgeshi/geshi/fortran.php
History Fri, 23 Nov 2007 00:12:00 +0100 dankert Farbige Darstellung von Code-Bl?cken mit Hilfe der Bibliothek GESHI.