2017-01-15 22:03:44 +00:00
using CodeImp.DoomBuilder.Config ;
using CodeImp.DoomBuilder.Data ;
using System ;
using System.Collections.Generic ;
using System.Globalization ;
using System.IO ;
using System.Linq ;
using System.Text ;
namespace CodeImp.DoomBuilder.ZDoom
{
public sealed class ZScriptParser : ZDTextParser
{
2017-01-16 01:49:58 +00:00
#region = = = = = = = = = = = = = = = = = = Internal classes
public class ZScriptClassStructure
{
// these are used for the class itself
public string ClassName { get ; internal set ; }
public string ReplacementName { get ; internal set ; }
public string ParentName { get ; internal set ; }
public ZScriptActorStructure Actor { get ; internal set ; }
// these are used for parsing and error reporting
public ZScriptParser Parser { get ; internal set ; }
public Stream Stream { get ; internal set ; }
public long Position { get ; internal set ; }
public BinaryReader DataReader { get ; internal set ; }
public string SourceName { get ; internal set ; }
2017-01-16 05:20:49 +00:00
public DataLocation DataLocation { get ; internal set ; }
2017-01-16 01:49:58 +00:00
// textresourcepath
public string TextResourcePath { get ; internal set ; }
public ZScriptClassStructure ( ZScriptParser parser , string classname , string replacesname , string parentname )
{
Parser = parser ;
Stream = parser . datastream ;
Position = parser . datastream . Position ;
DataReader = parser . datareader ;
SourceName = parser . sourcename ;
2017-01-16 05:20:49 +00:00
DataLocation = parser . datalocation ;
2017-01-16 01:49:58 +00:00
TextResourcePath = parser . textresourcepath ;
ClassName = classname ;
ReplacementName = replacesname ;
ParentName = parentname ;
Actor = null ;
}
internal void RestoreStreamData ( )
{
Parser . datastream = Stream ;
Parser . datastream . Position = Position ;
Parser . datareader = DataReader ;
Parser . sourcename = SourceName ;
2017-01-16 05:20:49 +00:00
Parser . datalocation = DataLocation ;
2017-01-16 01:49:58 +00:00
Parser . prevstreamposition = - 1 ;
}
public bool Process ( )
{
RestoreStreamData ( ) ;
bool isactor = false ;
ZScriptClassStructure _pstruct = this ;
while ( _pstruct ! = null )
{
if ( _pstruct . ClassName . ToLowerInvariant ( ) = = "actor" )
{
isactor = true ;
break ;
}
if ( _pstruct . ParentName ! = null )
{
string _pname = _pstruct . ParentName . ToLowerInvariant ( ) ;
Parser . allclasses . TryGetValue ( _pname , out _pstruct ) ;
}
else _pstruct = null ;
}
string log_inherits = ( ( ParentName ! = null ) ? "inherits " + ParentName : "" ) ;
if ( ReplacementName ! = null ) log_inherits + = ( ( log_inherits . Length > 0 ) ? ", " : "" ) + "replaces " + ReplacementName ;
if ( log_inherits . Length > 0 ) log_inherits = " (" + log_inherits + ")" ;
if ( isactor )
{
Actor = new ZScriptActorStructure ( Parser , null , ClassName , ReplacementName , ParentName ) ;
if ( Parser . HasError )
2017-01-16 05:20:49 +00:00
{
Actor = null ;
2017-01-16 01:49:58 +00:00
return false ;
2017-01-16 05:20:49 +00:00
}
2017-01-16 01:49:58 +00:00
// check actor replacement.
Parser . archivedactors [ Actor . ClassName . ToLowerInvariant ( ) ] = Actor ;
if ( Actor . CheckActorSupported ( ) )
Parser . actors [ Actor . ClassName . ToLowerInvariant ( ) ] = Actor ;
// Replace an actor?
if ( Actor . ReplacesClass ! = null )
{
if ( Parser . GetArchivedActorByName ( Actor . ReplacesClass ) ! = null )
Parser . archivedactors [ Actor . ReplacesClass . ToLowerInvariant ( ) ] = Actor ;
else
Parser . LogWarning ( "Unable to find \"" + Actor . ReplacesClass + "\" class to replace, while parsing \"" + Actor . ClassName + "\"" ) ;
if ( Actor . CheckActorSupported ( ) & & Parser . GetActorByName ( Actor . ReplacesClass ) ! = null )
Parser . actors [ Actor . ReplacesClass . ToLowerInvariant ( ) ] = Actor ;
}
//mxd. Add to current text resource
if ( ! Parser . scriptresources [ TextResourcePath ] . Entries . Contains ( Actor . ClassName ) ) Parser . scriptresources [ TextResourcePath ] . Entries . Add ( Actor . ClassName ) ;
}
//Parser.LogWarning(string.Format("Parsed {0}class {1}{2}", isactor?"actor ":"", ClassName, log_inherits));
return true ;
}
}
#endregion
2017-01-15 22:03:44 +00:00
#region = = = = = = = = = = = = = = = = = = Delegates
public delegate void IncludeDelegate ( ZScriptParser parser , string includefile ) ;
public IncludeDelegate OnInclude ;
#endregion
#region = = = = = = = = = = = = = = = = = = Constants
#endregion
#region = = = = = = = = = = = = = = = = = = Variables
//mxd. Script type
internal override ScriptType ScriptType { get { return ScriptType . ZSCRIPT ; } }
// These are actors we want to keep
private Dictionary < string , ActorStructure > actors ;
// These are all parsed actors, also those from other games
private Dictionary < string , ActorStructure > archivedactors ;
2017-01-16 01:49:58 +00:00
// In ZScript, you can inherit an actor before defining it. So we need to postpone all processing after the classes have been gathered.
private Dictionary < string , ZScriptClassStructure > allclasses ;
private List < ZScriptClassStructure > allclasseslist ;
2017-01-15 22:03:44 +00:00
//mxd. Includes tracking
2017-01-16 00:08:35 +00:00
private HashSet < string > parsedlumps ;
2017-01-15 22:03:44 +00:00
//mxd. Disposing. Is that really needed?..
private bool isdisposed ;
// [ZZ] custom tokenizer class
2017-01-16 05:20:49 +00:00
internal ZScriptTokenizer tokenizer ;
2017-01-15 22:03:44 +00:00
#endregion
#region = = = = = = = = = = = = = = = = = = Properties
/// <summary>
/// All actors that are supported by the current game.
/// </summary>
public IEnumerable < ActorStructure > Actors { get { return actors . Values ; } }
/// <summary>
/// All actors defined in the loaded DECORATE structures. This includes actors not supported in the current game.
/// </summary>
public ICollection < ActorStructure > AllActors { get { return archivedactors . Values ; } }
/// <summary>
/// mxd. All actors that are supported by the current game.
/// </summary>
internal Dictionary < string , ActorStructure > ActorsByClass { get { return actors ; } }
/// <summary>
/// mxd. All actors defined in the loaded DECORATE structures. This includes actors not supported in the current game.
/// </summary>
internal Dictionary < string , ActorStructure > AllActorsByClass { get { return archivedactors ; } }
#endregion
#region = = = = = = = = = = = = = = = = = = Constructor / Disposer
// Constructor
2017-01-17 04:53:20 +00:00
public ZScriptParser ( )
2017-01-15 22:03:44 +00:00
{
2017-01-16 00:08:35 +00:00
ClearActors ( ) ;
2017-01-15 22:03:44 +00:00
}
// Disposer
public void Dispose ( )
{
//mxd. Not already disposed?
if ( ! isdisposed )
{
foreach ( KeyValuePair < string , ActorStructure > a in archivedactors )
a . Value . Dispose ( ) ;
actors = null ;
archivedactors = null ;
isdisposed = true ;
}
}
#endregion
#region = = = = = = = = = = = = = = = = = = Parsing
private bool ParseInclude ( string filename )
{
Stream localstream = datastream ;
string localsourcename = sourcename ;
BinaryReader localreader = datareader ;
DataLocation locallocation = datalocation ; //mxd
string localtextresourcepath = textresourcepath ; //mxd
ZScriptTokenizer localtokenizer = tokenizer ; // [ZZ]
//INFO: ZDoom DECORATE include paths can't be relative ("../actor.txt")
//or absolute ("d:/project/actor.txt")
//or have backward slashes ("info\actor.txt")
//include paths are relative to the first parsed entry, not the current one
//also include paths may or may not be quoted
//mxd. Sanity checks
if ( string . IsNullOrEmpty ( filename ) )
{
ReportError ( "Expected file name to include" ) ;
return false ;
}
//mxd. Check invalid path chars
if ( ! CheckInvalidPathChars ( filename ) ) return false ;
//mxd. Absolute paths are not supported...
if ( Path . IsPathRooted ( filename ) )
{
ReportError ( "Absolute include paths are not supported by ZDoom" ) ;
return false ;
}
//mxd. Relative paths are not supported
if ( filename . StartsWith ( RELATIVE_PATH_MARKER ) | | filename . StartsWith ( CURRENT_FOLDER_PATH_MARKER ) | |
filename . StartsWith ( ALT_RELATIVE_PATH_MARKER ) | | filename . StartsWith ( ALT_CURRENT_FOLDER_PATH_MARKER ) )
{
ReportError ( "Relative include paths are not supported by ZDoom" ) ;
return false ;
}
//mxd. Backward slashes are not supported
if ( filename . Contains ( Path . DirectorySeparatorChar . ToString ( CultureInfo . InvariantCulture ) ) )
{
ReportError ( "Only forward slashes are supported by ZDoom" ) ;
return false ;
}
//mxd. Already parsed?
if ( parsedlumps . Contains ( filename ) )
{
ReportError ( "Already parsed \"" + filename + "\". Check your include directives" ) ;
return false ;
}
//mxd. Add to collection
parsedlumps . Add ( filename ) ;
// Callback to parse this file now
if ( OnInclude ! = null ) OnInclude ( this , filename ) ;
//mxd. Bail out on error
if ( this . HasError ) return false ;
// Set our buffers back to continue parsing
datastream = localstream ;
datareader = localreader ;
sourcename = localsourcename ;
datalocation = locallocation ; //mxd
textresourcepath = localtextresourcepath ; //mxd
tokenizer = localtokenizer ;
return true ;
}
// read in an expression as a token list.
2017-01-16 05:20:49 +00:00
internal List < ZScriptToken > ParseExpression ( bool betweenparen = false )
2017-01-15 22:03:44 +00:00
{
List < ZScriptToken > ol = new List < ZScriptToken > ( ) ;
//
int nestingLevel = 0 ;
//
while ( true )
{
long cpos = datastream . Position ;
ZScriptToken token = tokenizer . ReadToken ( ) ;
if ( token = = null )
{
2017-01-16 05:20:49 +00:00
ReportError ( "Expected a token" ) ;
2017-01-15 22:03:44 +00:00
return null ;
}
if ( ( token . Type = = ZScriptTokenType . Semicolon | |
2017-01-16 05:20:49 +00:00
token . Type = = ZScriptTokenType . Comma ) & & nestingLevel = = 0 & & ! betweenparen )
2017-01-15 22:03:44 +00:00
{
datastream . Position = cpos ;
return ol ;
}
if ( token . Type = = ZScriptTokenType . OpenParen )
{
nestingLevel + + ;
}
else if ( token . Type = = ZScriptTokenType . CloseParen )
{
nestingLevel - - ;
if ( nestingLevel < 0 ) // for example, function call
{
datastream . Position = cpos ;
return ol ;
}
}
ol . Add ( token ) ;
}
}
2017-01-16 08:20:47 +00:00
internal bool SkipBlock ( )
{
List < ZScriptToken > ol = new List < ZScriptToken > ( ) ;
//
int nestingLevel = 0 ;
//
long cpos = datastream . Position ;
ZScriptToken token = tokenizer . ExpectToken ( ZScriptTokenType . OpenCurly ) ;
if ( token = = null | | ! token . IsValid )
{
ReportError ( "Expected {, got " + ( ( Object ) token ? ? "<null>" ) . ToString ( ) ) ;
return false ;
}
// parse everything between { and }
nestingLevel = 1 ;
while ( nestingLevel > 0 )
{
cpos = datastream . Position ;
token = tokenizer . ReadToken ( true ) ;
//LogWarning(token.ToString());
if ( token = = null )
{
ReportError ( "Expected a token" ) ;
return false ;
}
if ( token . Type ! = ZScriptTokenType . Invalid )
continue ;
if ( token . Value = = "{" )
{
nestingLevel + + ;
}
else if ( token . Value = = "}" )
{
nestingLevel - - ;
if ( nestingLevel < 0 )
{
ReportError ( "Closing parenthesis without an opening one" ) ;
return false ;
}
}
ol . Add ( token ) ;
}
// there is POTENTIALLY a semicolon after the class definition. it's not supposed to be there, but it's acceptable (GZDoom.pk3 has this)
ZScriptToken tailtoken = tokenizer . ReadToken ( ) ;
cpos = datastream . Position ;
if ( tailtoken = = null | | tailtoken . Type ! = ZScriptTokenType . Semicolon )
datastream . Position = cpos ;
return true ;
}
2017-01-16 05:20:49 +00:00
internal List < ZScriptToken > ParseBlock ( bool allowsingle )
2017-01-15 22:03:44 +00:00
{
List < ZScriptToken > ol = new List < ZScriptToken > ( ) ;
//
int nestingLevel = 0 ;
//
long cpos = datastream . Position ;
ZScriptToken token = tokenizer . ReadToken ( ) ;
if ( token = = null )
{
ReportError ( "Expected a code block, got <null>" ) ;
return null ;
}
if ( token . Type ! = ZScriptTokenType . OpenCurly )
{
if ( ! allowsingle )
{
2017-01-16 06:10:32 +00:00
ReportError ( "Expected {, got " + token ) ;
2017-01-15 22:03:44 +00:00
return null ;
}
// otherwise this is an expression
datastream . Position = cpos ;
List < ZScriptToken > ol_expression = ParseExpression ( ) ;
token = tokenizer . ReadToken ( ) ;
if ( token = = null | | token . Type ! = ZScriptTokenType . Semicolon )
{
ReportError ( "Expected ;, got " + ( ( Object ) token ? ? "<null>" ) . ToString ( ) ) ;
return null ;
}
ol_expression . Add ( token ) ;
return ol_expression ;
}
// parse everything between { and }
nestingLevel = 1 ;
while ( nestingLevel > 0 )
{
cpos = datastream . Position ;
token = tokenizer . ReadToken ( ) ;
if ( token = = null )
{
2017-01-16 05:20:49 +00:00
ReportError ( "Expected a token" ) ;
2017-01-15 22:03:44 +00:00
return null ;
}
if ( token . Type = = ZScriptTokenType . OpenCurly )
{
nestingLevel + + ;
}
else if ( token . Type = = ZScriptTokenType . CloseCurly )
{
nestingLevel - - ;
if ( nestingLevel < 0 )
{
2017-01-16 05:20:49 +00:00
ReportError ( "Closing parenthesis without an opening one" ) ;
2017-01-15 22:03:44 +00:00
return null ;
}
}
ol . Add ( token ) ;
}
// there is POTENTIALLY a semicolon after the class definition. it's not supposed to be there, but it's acceptable (GZDoom.pk3 has this)
ZScriptToken tailtoken = tokenizer . ReadToken ( ) ;
cpos = datastream . Position ;
if ( tailtoken = = null | | tailtoken . Type ! = ZScriptTokenType . Semicolon )
datastream . Position = cpos ;
else ol . Add ( tailtoken ) ;
return ol ;
}
2017-01-16 05:20:49 +00:00
internal bool ParseConst ( )
{
// const blablabla = <expression>;
tokenizer . SkipWhitespace ( ) ;
ZScriptToken token = tokenizer . ExpectToken ( ZScriptTokenType . Identifier ) ;
if ( token = = null | | ! token . IsValid )
{
ReportError ( "Expected const name, got " + ( ( Object ) token ? ? "<null>" ) . ToString ( ) ) ;
return false ;
}
string constname = token . Value ;
tokenizer . SkipWhitespace ( ) ;
token = tokenizer . ExpectToken ( ZScriptTokenType . OpAssign ) ;
if ( token = = null | | ! token . IsValid )
{
ReportError ( "Expected =, got " + ( ( Object ) token ? ? "<null>" ) . ToString ( ) ) ;
return false ;
}
tokenizer . SkipWhitespace ( ) ;
if ( ParseExpression ( ) = = null ) return false ; // anything until a semicolon or a comma, + anything between parentheses
tokenizer . SkipWhitespace ( ) ;
token = tokenizer . ExpectToken ( ZScriptTokenType . Semicolon ) ;
if ( token = = null | | ! token . IsValid )
{
ReportError ( "Expected ;, got " + ( ( Object ) token ? ? "<null>" ) . ToString ( ) ) ;
return false ;
}
//LogWarning(string.Format("Parsed const {0}", constname));
return true ;
}
internal bool ParseEnum ( )
{
// enum blablabla {}
tokenizer . SkipWhitespace ( ) ;
ZScriptToken token = tokenizer . ExpectToken ( ZScriptTokenType . Identifier ) ;
if ( token = = null | | ! token . IsValid )
{
ReportError ( "Expected enum name, got " + ( ( Object ) token ? ? "<null>" ) . ToString ( ) ) ;
return false ;
}
tokenizer . SkipWhitespace ( ) ;
if ( ParseBlock ( false ) = = null ) return false ; // anything between { and }
//LogWarning(string.Format("Parsed enum {0}", token.Value));
return true ;
}
2017-01-16 11:18:46 +00:00
internal bool ParseInteger ( out int value )
{
value = 1 ;
ZScriptToken token = tokenizer . ExpectToken ( ZScriptTokenType . Integer , ZScriptTokenType . OpAdd , ZScriptTokenType . OpSubtract ) ;
if ( token = = null | | ! token . IsValid )
{
ReportError ( "Expected integer, got " + ( ( Object ) token ? ? "<null>" ) . ToString ( ) ) ;
return false ;
}
if ( token . Type = = ZScriptTokenType . OpSubtract ) value = - 1 ;
if ( token . Type ! = ZScriptTokenType . Integer )
{
token = tokenizer . ExpectToken ( ZScriptTokenType . Integer ) ;
if ( token = = null | | ! token . IsValid )
{
ReportError ( "Expected integer, got " + ( ( Object ) token ? ? "<null>" ) . ToString ( ) ) ;
return false ;
}
value * = token . ValueInt ;
return true ;
}
else
{
value = token . ValueInt ;
return true ;
}
}
internal string ParseDottedIdentifier ( )
{
string name = "" ;
while ( true )
{
ZScriptToken token = tokenizer . ExpectToken ( ZScriptTokenType . Identifier ) ;
if ( token = = null | | ! token . IsValid )
{
ReportError ( "Expected identifier, got " + ( ( Object ) token ? ? "<null>" ) . ToString ( ) ) ;
return null ;
}
if ( name . Length > 0 ) name + = '.' ;
name + = token . Value . ToLowerInvariant ( ) ;
long cpos = datastream . Position ;
token = tokenizer . ReadToken ( ) ;
if ( token . Type ! = ZScriptTokenType . Dot )
{
datastream . Position = cpos ;
break ;
}
}
return name ;
}
2017-01-16 05:20:49 +00:00
internal bool ParseClassOrStruct ( bool isstruct , bool extend )
2017-01-15 22:03:44 +00:00
{
// 'class' keyword is already parsed
tokenizer . SkipWhitespace ( ) ;
ZScriptToken tok_classname = tokenizer . ExpectToken ( ZScriptTokenType . Identifier ) ;
if ( tok_classname = = null | | ! tok_classname . IsValid )
{
ReportError ( "Expected class name, got " + ( ( Object ) tok_classname ? ? "<null>" ) . ToString ( ) ) ;
return false ;
}
// name [replaces name] [: name] [native]
ZScriptToken tok_replacename = null ;
ZScriptToken tok_parentname = null ;
ZScriptToken tok_native = null ;
int tokens = 0 ;
while ( tokens + + < 4 )
{
tokenizer . SkipWhitespace ( ) ;
ZScriptToken token = tokenizer . ReadToken ( ) ;
if ( token = = null )
{
2017-01-16 05:20:49 +00:00
ReportError ( "Expected a token" ) ;
2017-01-15 22:03:44 +00:00
return false ;
}
if ( token . Type = = ZScriptTokenType . Identifier )
{
if ( token . Value . ToLowerInvariant ( ) = = "replaces" )
{
if ( tok_native ! = null )
{
2017-01-16 05:20:49 +00:00
ReportError ( "Cannot have replacement after native" ) ;
2017-01-15 22:03:44 +00:00
return false ;
}
if ( tok_replacename ! = null )
{
2017-01-16 05:20:49 +00:00
ReportError ( "Cannot have two replacements per class" ) ;
2017-01-15 22:03:44 +00:00
return false ;
}
tokenizer . SkipWhitespace ( ) ;
tok_replacename = tokenizer . ExpectToken ( ZScriptTokenType . Identifier ) ;
if ( tok_replacename = = null | | ! tok_replacename . IsValid )
{
ReportError ( "Expected replacement class name, got " + ( ( Object ) tok_replacename ? ? "<null>" ) . ToString ( ) ) ;
return false ;
}
}
else if ( token . Value . ToLowerInvariant ( ) = = "native" )
{
if ( tok_native ! = null )
{
2017-01-16 05:20:49 +00:00
ReportError ( "Cannot have two native keywords" ) ;
2017-01-15 22:03:44 +00:00
return false ;
}
tok_native = token ;
}
else
{
ReportError ( "Unexpected token " + ( ( Object ) token ? ? "<null>" ) . ToString ( ) ) ;
}
}
else if ( token . Type = = ZScriptTokenType . Colon )
{
if ( tok_parentname ! = null )
{
2017-01-16 05:20:49 +00:00
ReportError ( "Cannot have two parent classes" ) ;
2017-01-15 22:03:44 +00:00
return false ;
}
if ( tok_replacename ! = null | | tok_native ! = null )
{
2017-01-16 05:20:49 +00:00
ReportError ( "Cannot have parent class after replacement class or native keyword" ) ;
2017-01-15 22:03:44 +00:00
return false ;
}
tokenizer . SkipWhitespace ( ) ;
tok_parentname = tokenizer . ExpectToken ( ZScriptTokenType . Identifier ) ;
if ( tok_parentname = = null | | ! tok_parentname . IsValid )
{
ReportError ( "Expected replacement class name, got " + ( ( Object ) tok_parentname ? ? "<null>" ) . ToString ( ) ) ;
return false ;
}
}
else if ( token . Type = = ZScriptTokenType . OpenCurly )
{
datastream . Position - - ;
break ;
}
}
2017-01-16 01:49:58 +00:00
// do nothing else atm, except remember the position to put it into the class parsing code
tokenizer . SkipWhitespace ( ) ;
long cpos = datastream . Position ;
2017-01-16 08:20:47 +00:00
//List<ZScriptToken> classblocktokens = ParseBlock(false);
//if (classblocktokens == null) return false;
if ( ! SkipBlock ( ) ) return false ;
2017-01-15 22:03:44 +00:00
string log_inherits = ( ( tok_parentname ! = null ) ? "inherits " + tok_parentname . Value : "" ) ;
if ( tok_replacename ! = null ) log_inherits + = ( ( log_inherits . Length > 0 ) ? ", " : "" ) + "replaces " + tok_replacename . Value ;
2017-01-15 22:21:47 +00:00
if ( extend ) log_inherits + = ( ( log_inherits . Length > 0 ) ? ", " : "" ) + "extends" ;
if ( log_inherits . Length > 0 ) log_inherits = " (" + log_inherits + ")" ;
2017-01-16 01:49:58 +00:00
// now if we are a class, and we inherit actor, parse this entry as an actor. don't process extensions.
if ( ! isstruct & & ! extend )
{
ZScriptClassStructure cls = new ZScriptClassStructure ( this , tok_classname . Value , ( tok_replacename ! = null ) ? tok_replacename . Value : null , ( tok_parentname ! = null ) ? tok_parentname . Value : null ) ;
cls . Position = cpos ;
string clskey = cls . ClassName . ToLowerInvariant ( ) ;
if ( allclasses . ContainsKey ( clskey ) )
{
2017-01-16 05:20:49 +00:00
ReportError ( "Class " + cls . ClassName + " is double-defined" ) ;
2017-01-16 01:49:58 +00:00
return false ;
}
allclasses . Add ( cls . ClassName . ToLowerInvariant ( ) , cls ) ;
allclasseslist . Add ( cls ) ;
}
//LogWarning(string.Format("Parsed {0} {1}{2}", (isstruct ? "struct" : "class"), tok_classname.Value, log_inherits));
2017-01-15 22:03:44 +00:00
return true ;
}
// This parses the given decorate stream
// Returns false on errors
public override bool Parse ( TextResourceData data , bool clearerrors )
{
//mxd. Already parsed?
if ( ! base . AddTextResource ( data ) )
{
if ( clearerrors ) ClearError ( ) ;
return true ;
}
// Cannot process?
if ( ! base . Parse ( data , clearerrors ) ) return false ;
// [ZZ] For whatever reason, the parser is closely tied to the tokenizer, and to the general scripting lumps framework (see scripttype).
// For this reason I have to still inherit the old tokenizer while only using the new one.
//ReportError("found zscript? :)");
prevstreamposition = - 1 ;
tokenizer = new ZScriptTokenizer ( datareader ) ;
while ( true )
{
ZScriptToken token = tokenizer . ExpectToken ( ZScriptTokenType . Identifier , // const, enum, class, etc
ZScriptTokenType . Whitespace ,
ZScriptTokenType . Newline ,
ZScriptTokenType . BlockComment , ZScriptTokenType . LineComment ,
ZScriptTokenType . Preprocessor ) ;
if ( token = = null ) // EOF reached, whatever.
break ;
if ( ! token . IsValid )
{
ReportError ( "Expected preprocessor statement, const, enum or class declaraction, got " + token ) ;
return false ;
}
// toplevel tokens allowed are only Preprocessor and Identifier.
switch ( token . Type )
{
case ZScriptTokenType . Whitespace :
case ZScriptTokenType . Newline :
case ZScriptTokenType . BlockComment :
case ZScriptTokenType . LineComment :
break ;
case ZScriptTokenType . Preprocessor :
{
tokenizer . SkipWhitespace ( ) ;
ZScriptToken directive = tokenizer . ExpectToken ( ZScriptTokenType . Identifier ) ;
if ( directive = = null | | ! directive . IsValid )
{
ReportError ( "Expected preprocessor directive, got " + ( ( Object ) directive ? ? "<null>" ) . ToString ( ) ) ;
return false ;
}
if ( directive . Value . ToLowerInvariant ( ) = = "include" )
{
tokenizer . SkipWhitespace ( ) ;
ZScriptToken include_name = tokenizer . ExpectToken ( ZScriptTokenType . Identifier , ZScriptTokenType . String , ZScriptTokenType . Name ) ;
if ( include_name = = null | | ! include_name . IsValid )
{
ReportError ( "Cannot include: expected a string value, got " + ( ( Object ) include_name ? ? "<null>" ) . ToString ( ) ) ;
return false ;
}
if ( ! ParseInclude ( include_name . Value ) )
return false ;
}
else
{
ReportError ( "Unknown preprocessor directive: " + directive . Value ) ;
return false ;
}
break ;
}
case ZScriptTokenType . Identifier :
{
// identifier can be one of: class, enum, const, struct
// the only type that we really care about is class, as it's the one that has all actors.
switch ( token . Value . ToLowerInvariant ( ) )
{
2017-01-15 22:21:47 +00:00
case "extend" :
tokenizer . SkipWhitespace ( ) ;
token = tokenizer . ExpectToken ( ZScriptTokenType . Identifier ) ;
if ( token = = null | | ! token . IsValid | | ( ( token . Value . ToLowerInvariant ( ) ! = "class" ) & & ( token . Value . ToLowerInvariant ( ) ! = "struct" ) ) )
{
ReportError ( "Expected class or struct, got " + ( ( Object ) token ? ? "<null>" ) . ToString ( ) ) ;
return false ;
}
if ( ! ParseClassOrStruct ( ( token . Value . ToLowerInvariant ( ) = = "struct" ) , true ) )
return false ;
break ;
2017-01-15 22:03:44 +00:00
case "class" :
// todo parse class
2017-01-15 22:21:47 +00:00
if ( ! ParseClassOrStruct ( false , false ) )
return false ;
2017-01-15 22:03:44 +00:00
break ;
case "struct" :
// todo parse struct
2017-01-15 22:21:47 +00:00
if ( ! ParseClassOrStruct ( true , false ) )
return false ;
2017-01-15 22:03:44 +00:00
break ;
case "const" :
2017-01-16 05:20:49 +00:00
if ( ! ParseConst ( ) )
2017-01-15 22:03:44 +00:00
return false ;
break ;
case "enum" :
2017-01-16 05:20:49 +00:00
if ( ! ParseEnum ( ) )
2017-01-15 22:03:44 +00:00
return false ;
break ;
2017-01-15 22:21:47 +00:00
default :
ReportError ( "Expected preprocessor statement, const, enum or class declaraction, got " + token ) ;
return false ;
2017-01-15 22:03:44 +00:00
}
break ;
}
}
}
return true ;
}
2017-01-16 01:49:58 +00:00
public bool Finalize ( )
{
ClearError ( ) ;
foreach ( ZScriptClassStructure cls in allclasseslist )
{
if ( ! cls . Process ( ) )
return false ;
}
return true ;
}
2017-01-15 22:03:44 +00:00
#endregion
#region = = = = = = = = = = = = = = = = = = Methods
2017-01-15 22:21:47 +00:00
protected override int GetCurrentLineNumber ( )
{
prevstreamposition = ( tokenizer ! = null ) ? tokenizer . LastPosition : - 1 ;
return base . GetCurrentLineNumber ( ) ;
}
2017-01-15 22:03:44 +00:00
/// <summary>
/// This returns a supported actor by name. Returns null when no supported actor with the specified name can be found. This operation is of O(1) complexity.
/// </summary>
public ActorStructure GetActorByName ( string name )
{
name = name . ToLowerInvariant ( ) ;
return actors . ContainsKey ( name ) ? actors [ name ] : null ;
}
/// <summary>
/// This returns a supported actor by DoomEdNum. Returns null when no supported actor with the specified name can be found. Please note that this operation is of O(n) complexity!
/// </summary>
public ActorStructure GetActorByDoomEdNum ( int doomednum )
{
foreach ( ActorStructure a in actors . Values )
if ( a . DoomEdNum = = doomednum ) return a ;
return null ;
}
// This returns an actor by name
// Returns null when actor cannot be found
internal ActorStructure GetArchivedActorByName ( string name )
{
name = name . ToLowerInvariant ( ) ;
return ( archivedactors . ContainsKey ( name ) ? archivedactors [ name ] : null ) ;
}
2017-01-16 00:08:35 +00:00
internal void ClearActors ( )
{
// Initialize
actors = new Dictionary < string , ActorStructure > ( StringComparer . OrdinalIgnoreCase ) ;
archivedactors = new Dictionary < string , ActorStructure > ( StringComparer . OrdinalIgnoreCase ) ;
parsedlumps = new HashSet < string > ( StringComparer . OrdinalIgnoreCase ) ; //mxd
2017-01-16 01:49:58 +00:00
allclasses = new Dictionary < string , ZScriptClassStructure > ( ) ;
allclasseslist = new List < ZScriptClassStructure > ( ) ;
2017-01-16 00:08:35 +00:00
}
2017-01-15 22:03:44 +00:00
#endregion
}
}