|
- unit uengShaderPartClass;
-
- {$mode objfpc}{$H+}
- {$I uengShaderFile.inc}
-
- interface
-
- uses
- Classes, SysUtils,
- uengShaderPart, uengShaderCodeGenerator, uengShaderFileParser;
-
- type
- ////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
- TengShaderPartClass = class(TengShaderCodeGenerator)
- { Code Loading & Storage }
- private { member }
- fName: String;
- fExtends: TStringList;
- private { getter }
- function GetExtends: TStrings;
- protected { virtual getter }
- function GetText: String; override;
- function ParseIntern(const aArgs: TengParseArgs; const aParams: TengTokenParameterList): String; override;
-
- { General }
- public
- property Name: String read fName;
- property Extends: TStrings read GetExtends;
- constructor Create(const aParent: TengShaderPart); override;
- destructor Destroy; override;
-
- { Class Methods }
- public
- class function GetTokenName: String; override;
- end;
-
- implementation
-
- uses
- uengShaderFileConstants, uengShaderFileTypes, uengShaderFileHelper;
-
- ////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
- //TengShaderPartClass///////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
- ////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
- function TengShaderPartClass.GetExtends: TStrings;
- begin
- result := fExtends;
- end;
-
- ////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
- function TengShaderPartClass.GetText: String;
- var
- s: String;
- begin
- result := TOKEN_CHAR_BEGIN + GetTokenName + ' ' + fName;
- if (fExtends.Count > 0) then begin
- result := result + ' ' + TOKEN_EXTENDS;
- for s in fExtends do
- result := result + ' ' + s;
- end;
- result := result + TOKEN_CHAR_END +
- inherited GetText +
- TOKEN_CHAR_BEGIN + TOKEN_END + TOKEN_CHAR_END;
- end;
-
- ////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
- function TengShaderPartClass.ParseIntern(const aArgs: TengParseArgs; const aParams: TengTokenParameterList): String;
- var
- i: Integer;
- begin
- if (aParams[0].Name <> GetTokenName) then
- raise EengInvalidToken.Create(ClassName, aParams[0].Name, Line, Col, Filename);
- if (aParams.Count < 2) then
- raise EengInvalidParamterCount.Create(GetTokenName, 2, -1, Line, Col, Filename);
- with aParams[1] do begin
- if not IsValidIdentifier(Name) then
- raise EengInvalidIdentifier.Create(Name, Line, Col, Filename);
- fName := Name;
- end;
- if (aParams.Count > 2) then begin
- if (aParams.Count < 4) then
- raise EengInvalidParamterCount.Create(GetTokenName, 4, -1, Line, Col, Filename);
- if (aParams[2].Name <> TOKEN_EXTENDS) then with aParams[2] do
- raise EengInvalidParamter.Create(aParams[2].Name, TOKEN_EXTENDS, Line, Col, Filename);
- fExtends.Clear;
- for i := 3 to aParams.Count-1 do
- fExtends.Add(aParams[i].Name);
- end;
-
- // TODO fRoot.AddClass ?
-
- result := inherited ParseIntern(aArgs, aParams);
- result := CheckEndToken(aArgs, self);
- end;
-
- ////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
- constructor TengShaderPartClass.Create(const aParent: TengShaderPart);
- begin
- inherited Create(aParent);
- fExtends := TStringList.Create;
- end;
-
- ////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
- destructor TengShaderPartClass.Destroy;
- begin
- FreeAndNil(fExtends);
- inherited Destroy;
- end;
-
- ////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
- class function TengShaderPartClass.GetTokenName: String;
- begin
- result := TOKEN_CLASS;
- end;
-
- end.
|