Login   Register  
PHP Classes
elePHPant
Icontem

File: examples/tags/syntax/geshi/geshi/qbasic.php

Recommend this page to a friend!
Stumble It! Stumble It! Bookmark in del.icio.us Bookmark in del.icio.us
  Classes of Oliver Lillie  >  PHP Custom Tags  >  examples/tags/syntax/geshi/geshi/qbasic.php  >  Download  
File: examples/tags/syntax/geshi/geshi/qbasic.php
Role: Auxiliary script
Content type: text/plain
Description: Auxiliary script
Class: PHP Custom Tags
Template engine based on tags similar to HTML
Author: By
Last change:
Date: 1 year ago
Size: 5,962 bytes
 

Contents

Class file image Download
<?php
/*************************************************************************************
 * qbasic.php
 * ----------
 * Author: Nigel McNie (nigel@geshi.org)
 * Copyright: (c) 2004 Nigel McNie (http://qbnz.com/highlighter/)
 * Release Version: 1\.0\.8
 * Date Started: 2004/06/20
 *
 * QBasic/QuickBASIC language file for GeSHi.
 *
 * CHANGES
 * -------
 * 2008/05/23 (1.0.7.22)
 *  -  Added description of extra language features (SF#1970248)
 * 2004/11/27 (1.0.3)
 *  -  Added support for multiple object splitters
 * 2004/10/27 (1.0.2)
 *   -  Added support for URLs
 * 2004/08/05 (1.0.1)
 *   -  Added support for symbols
 *   -  Removed unnessecary slashes from some keywords
 * 2004/07/14 (1.0.0)
 *   -  First Release
 *
 * TODO (updated 2004/11/27)
 * -------------------------
 * * Make sure all possible combinations of keywords with
 *   a space in them (EXIT FOR, END SELECT) are added
 *   to the first keyword group
 * * Update colours, especially for the first keyword group
 *
 *************************************************************************************
 *
 *     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' => 'QBasic/QuickBASIC',
    
'COMMENT_SINGLE' => array(=> "'"),
    
'COMMENT_MULTI' => array(),
    
'COMMENT_REGEXP' => array(
        
//Single-Line Comments using REM command
        
=> "/\bREM.*?$/i"
        
),
    
'CASE_KEYWORDS' => GESHI_CAPS_UPPER,
    
'QUOTEMARKS' => array('"'),
    
'ESCAPE_CHAR' => '',
    
'KEYWORDS' => array(
        
=> array(
            
'DO''LOOP''WHILE''WEND''THEN''ELSE''ELSEIF''IF',
            
'FOR''TO''NEXT''STEP''GOTO''GOSUB''CALL''CALLS',
            
'SUB''FUNCTION''RETURN''RESUME''SELECT''CASE''UNTIL'
            
),
        
=> array(
            
'ABS''ABSOLUTE''ACCESS''ALIAS''AND''ANY''APPEND''AS''ASC''ATN',
            
'BASE''BEEP''BINARY''BLOAD''BSAVE''BYVAL',
            
'CDBL''CDECL''CHAIN''CHDIR''CHR$''CINT''CIRCLE''CLEAR',
            
'CLNG''CLOSE''CLS''COM''COMMAND$''COMMON''CONST''COS''CSNG',
            
'CSRLIN''CVD''CVDMBF''CVI''CVL''CVS''CVSMDF''DATA''DATE$',
            
'DECLARE''DEF''FN''SEG''DEFDBL''DEFINT''DEFLNG''DEFSNG''DEFSTR',
            
'DIM''DOUBLE''DRAW''END''ENVIRON''ENVIRON$''EOF''EQV''ERASE',
            
'ERDEV''ERDEV$''ERL''ERR''ERROR''EXIT''EXP''FIELD''FILEATTR',
            
'FILES''FIX''FRE''FREEFILE''GET''HEX$''IMP''INKEY$',
            
'INP''INPUT''INPUT$''INSTR''INT''INTEGER''IOCTL''IOCTL$''IS',
            
'KEY''KILL''LBOUND''LCASE$''LEFT$''LEN''LET''LINE''LIST''LOC',
            
'LOCAL''LOCATE''LOCK''LOF''LOG''LONG''LPOS''LPRINT',
            
'LSET''LTRIM$''MID$''MKD$''MKDIR''MKDMBF$''MKI$''MKL$',
            
'MKS$''MKSMBF$''MOD''NAME''NOT''OCT$''OFF''ON''PEN''PLAY',
            
'OPEN''OPTION''OR''OUT''OUTPUT',
            
'PAINT''PALETTE''PCOPY''PEEK''PMAP''POINT''POKE''POS''PRESET',
            
'PRINT''PSET''PUT''RANDOM''RANDOMIZE''READ''REDIM''RESET',
            
'RESTORE''RIGHT$''RMDIR''RND''RSET''RTRIM$''RUN''SADD''SCREEN',
            
'SEEK''SETMEM''SGN''SHARED''SHELL''SIGNAL''SIN''SINGLE''SLEEP',
            
'SOUND''SPACE$''SPC''SQR''STATIC''STICK''STOP''STR$''STRIG',
            
'STRING''STRING$''SWAP''SYSTEM''TAB''TAN''TIME$''TIMER',
            
'TROFF''TRON''TYPE''UBOUND''UCASE$''UEVENT''UNLOCK''USING''VAL',
            
'VARPTR''VARPTR$''VARSEG''VIEW''WAIT''WIDTH''WINDOW''WRITE''XOR'
            
)
        ),
    
'SYMBOLS' => array(
        
'('')'',''+''-''*''/''=''<''>'
        
),
    
'CASE_SENSITIVE' => array(
        
GESHI_COMMENTS => false,
        
=> false,
        
=> false
        
),
    
'STYLES' => array(
        
'KEYWORDS' => array(
            
=> 'color: #a1a100;',
            
=> 'color: #000066;'
            
),
        
'COMMENTS' => array(
            
=> 'color: #808080;',
            
=> 'color: #808080;'
            
),
        
'BRACKETS' => array(
            
=> 'color: #66cc66;'
            
),
        
'STRINGS' => array(
            
=> 'color: #ff0000;'
            
),
        
'NUMBERS' => array(
            
=> 'color: #cc66cc;'
            
),
        
'METHODS' => array(
            ),
        
'SYMBOLS' => array(
            
=> 'color: #66cc66;'
            
),
        
'ESCAPE_CHAR' => array(
            
=> 'color: #000099;'
            
),
        
'SCRIPT' => array(
            ),
        
'REGEXPS' => array(
            )
        ),
    
'URLS' => array(
        
=> '',
        
=> 'http://www.qbasicnews.com/qboho/qck{FNAMEL}.shtml'
        
),
    
'OOLANG' => false,
    
'OBJECT_SPLITTERS' => array(
        ),
    
'REGEXPS' => array(
        ),
    
'STRICT_MODE_APPLIES' => GESHI_NEVER,
    
'SCRIPT_DELIMITERS' => array(
        ),
    
'HIGHLIGHT_STRICT_BLOCK' => array(
        ),
    
'TAB_WIDTH' => 8
);

?>