Merge remote-tracking branch 'ttimo/master'

[xonotic/netradiant.git] / tools / quake2 / extra / qe4 / parse.c

diff --git a/tools/quake2/extra/qe4/parse.c b/tools/quake2/extra/qe4/parse.c
new file mode 100644 (file)
index 0000000..8258a4a
--- /dev/null
+++ b/tools/quake2/extra/qe4/parse.c
@@ -0,0 +1,141 @@
+/*
+===========================================================================
+Copyright (C) 1997-2006 Id Software, Inc.
+
+This file is part of Quake 2 Tools source code.
+
+Quake 2 Tools source code 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.
+
+Quake 2 Tools source code 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 Quake 2 Tools source code; if not, write to the Free Software
+Foundation, Inc., 51 Franklin St, Fifth Floor, Boston, MA  02110-1301  USA
+===========================================================================
+*/
+
+#include "qe3.h"
+
+char   token[MAXTOKEN];
+qboolean       unget;
+char   *script_p;
+int            scriptline;
+
+void   StartTokenParsing (char *data)
+{
+       scriptline = 1;
+       script_p = data;
+       unget = false;
+}
+
+qboolean GetToken (qboolean crossline)
+{
+       char    *token_p;
+
+       if (unget)                         // is a token allready waiting?
+               return true;
+
+//
+// skip space
+//
+skipspace:
+       while (*script_p <= 32)
+       {
+               if (!*script_p)
+               {
+                       if (!crossline)
+                               Error ("Line %i is incomplete",scriptline);
+                       return false;
+               }
+               if (*script_p++ == '\n')
+               {
+                       if (!crossline)
+                               Error ("Line %i is incomplete",scriptline);
+                       scriptline++;
+               }
+       }
+
+       if (script_p[0] == '/' && script_p[1] == '/')   // comment field
+       {
+               if (!crossline)
+                       Error ("Line %i is incomplete\n",scriptline);
+               while (*script_p++ != '\n')
+                       if (!*script_p)
+                       {
+                               if (!crossline)
+                                       Error ("Line %i is incomplete",scriptline);
+                               return false;
+                       }
+               goto skipspace;
+       }
+
+//
+// copy token
+//
+       token_p = token;
+
+       if (*script_p == '"')
+       {
+               script_p++;
+               while ( *script_p != '"' )
+               {
+                       if (!*script_p)
+                               Error ("EOF inside quoted token");
+                       *token_p++ = *script_p++;
+                       if (token_p == &token[MAXTOKEN])
+                               Error ("Token too large on line %i",scriptline);
+               }
+               script_p++;
+       }
+       else while ( *script_p > 32 )
+       {
+               *token_p++ = *script_p++;
+               if (token_p == &token[MAXTOKEN])
+                       Error ("Token too large on line %i",scriptline);
+       }
+
+       *token_p = 0;
+
+       return true;
+}
+
+void UngetToken (void)
+{
+       unget = true;
+}
+
+
+/*
+==============
+TokenAvailable
+
+Returns true if there is another token on the line
+==============
+*/
+qboolean TokenAvailable (void)
+{
+       char    *search_p;
+
+       search_p = script_p;
+
+       while ( *search_p <= 32)
+       {
+               if (*search_p == '\n')
+                       return false;
+               if (*search_p == 0)
+                       return false;
+               search_p++;
+       }
+
+       if (*search_p == ';')
+               return false;
+
+       return true;
+}
+