+++ /dev/null
-/*
- Copyright (C) 1999-2007 id Software, Inc. and contributors.
- For a list of contributors, see the accompanying CONTRIBUTORS file.
-
- This file is part of GtkRadiant.
-
- GtkRadiant 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.
-
- GtkRadiant 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 GtkRadiant; if not, write to the Free Software
- Foundation, Inc., 51 Franklin St, Fifth Floor, Boston, MA 02110-1301 USA
- */
-
-// scriplib.c
-
-#include "cmdlib.h"
-#include "inout.h"
-#include "scriplib.h"
-
-/*
- =============================================================================
-
- PARSING STUFF
-
- =============================================================================
- */
-
-typedef struct
-{
- char filename[1024];
- char *buffer,*script_p,*end_p;
- int line;
-} script_t;
-
-#define MAX_INCLUDES 8
-script_t scriptstack[MAX_INCLUDES];
-script_t *script;
-int scriptline;
-
-char token[MAXTOKEN];
-qboolean endofscript;
-qboolean tokenready; // only true if UnGetScriptToken was just called
-
-/*
- ==============
- AddScriptToStack
- ==============
- */
-void AddScriptToStack( char *filename ){
- int size;
-
- script++;
- if ( script == &scriptstack[MAX_INCLUDES] ) {
- Error( "script file exceeded MAX_INCLUDES" );
- }
- strcpy( script->filename, ExpandPath( filename ) );
-
- size = LoadFile( script->filename, (void **)&script->buffer );
-
- printf( "entering %s\n", script->filename );
-
- script->line = 1;
-
- script->script_p = script->buffer;
- script->end_p = script->buffer + size;
-}
-
-
-/*
- ==============
- LoadScriptFile
- ==============
- */
-void LoadScriptFile( char *filename ){
- script = scriptstack;
- AddScriptToStack( filename );
-
- endofscript = false;
- tokenready = false;
-}
-
-
-/*
- ==============
- ParseFromMemory
- ==============
- */
-void ParseFromMemory( char *buffer, int size ){
- script = scriptstack;
- script++;
- if ( script == &scriptstack[MAX_INCLUDES] ) {
- Error( "script file exceeded MAX_INCLUDES" );
- }
- strcpy( script->filename, "memory buffer" );
-
- script->buffer = buffer;
- script->line = 1;
- script->script_p = script->buffer;
- script->end_p = script->buffer + size;
-
- endofscript = false;
- tokenready = false;
-}
-
-
-/*
- ==============
- UnGetScriptToken
-
- Signals that the current token was not used, and should be reported
- for the next GetScriptToken. Note that
-
- GetScriptToken (true);
- UnGetScriptToken ();
- GetScriptToken (false);
-
- could cross a line boundary.
- ==============
- */
-void UnGetScriptToken( void ){
- tokenready = true;
-}
-
-
-qboolean EndOfScript( qboolean crossline ){
- if ( !crossline ) {
- Error( "Line %i is incomplete\n",scriptline );
- }
-
- if ( !strcmp( script->filename, "memory buffer" ) ) {
- endofscript = true;
- return false;
- }
-
- free( script->buffer );
- if ( script == scriptstack + 1 ) {
- endofscript = true;
- return false;
- }
- script--;
- scriptline = script->line;
- printf( "returning to %s\n", script->filename );
- return GetScriptToken( crossline );
-}
-
-/*
- ==============
- GetScriptToken
- ==============
- */
-qboolean GetScriptToken( qboolean crossline ){
- char *token_p;
-
- if ( tokenready ) { // is a token allready waiting?
- tokenready = false;
- return true;
- }
-
- if ( script->script_p >= script->end_p ) {
- return EndOfScript( crossline );
- }
-
-//
-// skip space
-//
-skipspace:
- while ( *script->script_p <= 32 )
- {
- if ( script->script_p >= script->end_p ) {
- return EndOfScript( crossline );
- }
- if ( *script->script_p++ == '\n' ) {
- if ( !crossline ) {
- Error( "Line %i is incomplete\n",scriptline );
- }
- scriptline = script->line++;
- }
- }
-
- if ( script->script_p >= script->end_p ) {
- return EndOfScript( crossline );
- }
-
- // ; # // comments
- if ( *script->script_p == ';' || *script->script_p == '#'
- || ( script->script_p[0] == '/' && script->script_p[1] == '/' ) ) {
- if ( !crossline ) {
- Error( "Line %i is incomplete\n",scriptline );
- }
- while ( *script->script_p++ != '\n' )
- if ( script->script_p >= script->end_p ) {
- return EndOfScript( crossline );
- }
- goto skipspace;
- }
-
- // /* */ comments
- if ( script->script_p[0] == '/' && script->script_p[1] == '*' ) {
- if ( !crossline ) {
- Error( "Line %i is incomplete\n",scriptline );
- }
- script->script_p += 2;
- while ( script->script_p[0] != '*' && script->script_p[1] != '/' )
- {
- script->script_p++;
- if ( script->script_p >= script->end_p ) {
- return EndOfScript( crossline );
- }
- }
- script->script_p += 2;
- goto skipspace;
- }
-
-//
-// copy token
-//
- token_p = token;
-
- if ( *script->script_p == '"' ) {
- // quoted token
- script->script_p++;
- while ( *script->script_p != '"' )
- {
- *token_p++ = *script->script_p++;
- if ( script->script_p == script->end_p ) {
- break;
- }
- if ( token_p == &token[MAXTOKEN] ) {
- Error( "Token too large on line %i\n",scriptline );
- }
- }
- script->script_p++;
- }
- else{ // regular token
- while ( *script->script_p > 32 && *script->script_p != ';' )
- {
- *token_p++ = *script->script_p++;
- if ( script->script_p == script->end_p ) {
- break;
- }
- if ( token_p == &token[MAXTOKEN] ) {
- Error( "Token too large on line %i\n",scriptline );
- }
- }
- }
-
- *token_p = 0;
-
- if ( !strcmp( token, "$include" ) ) {
- GetScriptToken( false );
- AddScriptToStack( token );
- return GetScriptToken( crossline );
- }
-
- return true;
-}
-
-
-/*
- ==============
- ScriptTokenAvailable
-
- Returns true if there is another token on the line
- ==============
- */
-qboolean ScriptTokenAvailable( void ){
- char *search_p;
-
- search_p = script->script_p;
-
- if ( search_p >= script->end_p ) {
- return false;
- }
-
- while ( *search_p <= 32 )
- {
- if ( *search_p == '\n' ) {
- return false;
- }
- search_p++;
- if ( search_p == script->end_p ) {
- return false;
- }
-
- }
-
- if ( *search_p == ';' ) {
- return false;
- }
-
- return true;
-}