* started implementation of dynamic library

.gitignore

@@ -1,5 +1,7 @@
-*/lib/
+lib/
+debug/
 *.lps
 *.exe
 *.res
-*.ico
+*.ico
+*.dll

doc/ebnf.txt

@@ -0,0 +1,55 @@
+ShaderFile ::= (Class | Procedure | Function | Main | Code)*
+Class ::= '{$CLASS' ClassName ('$EXTENDS' ClassName*)? '}' (ClassProcedure | ClassFunction | ClassMain | Code)* '{$END}'
+Inherited ::= '{$INHERITED' (ClassName)? (MethodName)? (Parameter)* ('$INLINE')? '}'
+Call ::= '{$CALL' MethodName Parameter* '}'
+Include ::= '{$INCLUDE' Filepath '}'
+Meta ::= '{$META' (TextQuoted* | '$VERSION' VersionNumber 'compatibility'? | '$EXTENSION' ExtensionName ExtensionValue | '$LAYOUT' LayoutValue) '}'
+Property ::= '{$PROPERTY' PropertyName (StaticName | Value)? '}'
+Static ::= '{$STATIC' StaticName Value? '}'
+Echo ::= '{$ECHO' (StaticName | PropertyName | TextQuoted) '}'
+Varying ::= '{$VARYING' glslTypeQuoted IdentifierQuoted '}'
+Uniform ::= '{$UNIFORM' glslTypeQuoted IdentifierQuoted '}'
+Var ::= '{$VAR' glslTypeQuoted IdentifierQuoted glslValue? '}'
+Const ::= '{$CONST' glslTypeQuoted IdentifierQuoted glslValue '}'
+Procedure ::= ProcedureHead Code '{$END}' 
+ClassProcedure ::= ProcedureHead (Code | Inherited)* '{$END}' 
+ProcedureHead ::= '{$PROC' MethodName (ParameterType ParameterName)* ('$INLINE')? '}'
+ClassFunction ::= FunctionHead (Code | Inherited)* '{$END}' 
+Function ::= FunctionHead Code '{$END}'
+FunctionHead ::= '{$FUNC' ReturnType MethodName (ParameterType ParameterName)* ('$INLINE')? '}'
+Main ::= '{$MAIN}' Code '{$END}'
+ClassMain ::= '{$MAIN}' (Code | Inherited)* '{$END}'
+If ::= '{$IF' Expression '}' Code ( '{$ELIF' Expression '}' Code )* ( '{$ELSE}' Code )? '{$END}'
+Info ::= '{$INFO' TextQuoted '}'
+Warning ::= '{$WARNING' TextQuoted '}'
+Error ::= '{$ERROR' TextQuoted '}'
+Throw ::= '{$THROW' TextQuoted '}'
+
+Parameter ::= (PropertyName | StaticName | glslCodeQuoted)
+Code ::= (glslCode | Call | Include | Meta | Property | Static | Echo | Var | Varying | Uniform | Const | If | Info | Warning | Error | Throw)*
+Expression ::= ( PropertyName | StaticName | Value | ( '$NOT' | '!' ) Expression | '(' Expression ')' | Expression ( '$OR' | '$AND' | '$XOR' | '+' | '-' | '*' | '/' | '=' | '<' | '>' | '<=' | '>=' | '<>' | '|' | '&' | '^' ) Expression )
+
+ClassName ::= Identifier 
+MethodName ::= Identifier 
+PropertyName ::= Identifier 
+StaticName ::= Identifier 
+ExtensionName ::= IdentifierQuoted
+ParameterName ::= IdentifierQuoted
+
+Value ::= TextQuoted
+glslValue ::= glslCodeQuoted
+ExtensionValue ::= glslCodeQuoted
+LayoutValue ::= glslCodeQuoted
+
+ReturnType ::= glslTypeQuoted
+ParameterType ::= glslTypeQuoted
+
+TextQuoted ::= ['] Text [']
+VersionNumber ::= [0-9]
+IdentifierQuoted ::= ['] Identifier [']
+Identifier ::= [A-Za-z0-9_]
+Filepath ::= ['] [A-Za-z0-9\/_-] [']
+glslCodeQuoted ::= ['] glslCode [']
+glslTypeQuoted ::= ['] glslType [']
+glslType ::= (int | float | double | vec2 | vec3 | vec4 | ivec2 | ivec3 | ivec4 | dvec2 | dvec3 | dvec4 | mat2 | mat3 | mat4 | imat2 | imat3 | imat4 | dmat2 | dmat3 | dmat4)
+glslCode ::= [https://www.opengl.org/documentation/glsl/]

library/header/ulibShaderFile.pas

@@ -0,0 +1,126 @@
+unit ulibShaderFile;
+
+{$mode objfpc}{$H+}
+
+interface
+
+uses
+  Classes, SysUtils;
+
+////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
+const
+  LSF_LOGLEVEL_DEBUG                      = 0;
+  LSF_LOGLEVEL_INFO                       = 1;
+  LSF_LOGLEVEL_WARNING                    = 2;
+  LSF_LOGLEVEL_ERROR                      = 3;
+
+  LSF_ERR_NONE                            = $00000000;
+  LSF_ERR_NOT_INIT                        = $00000001;
+  LSF_ERR_INVALID_HANDLE_SHADER_FILE      = $00000002;
+  LSF_ERR_UNKNOWN_IDENTFIFIER             = $00001000;
+  LSF_ERR_DUPLICATE_IDENTIFIER            = $00001001;
+  LSF_ERR_OUT_OF_RANGE                    = $00001002;
+  LSF_ERR_INVALID_IDENTIFIER              = $00001003;
+  LSF_ERR_INVALID_PARAMTER_COUNT          = $00001004;
+  LSF_ERR_INVALID_PARAMTER                = $00001005;
+  LSF_ERR_UNEXPECTED_TOKEN                = $00001006;
+  LSF_ERR_INVALID_TOKEN                   = $00001007;
+  LSF_ERR_EXPRESSION_INTERNAL             = $00001008;
+  LSF_ERR_EXPRESSION                      = $00001009;
+  LSF_ERR_SHADER_PART_INTERNAL            = $0000100A;
+  LSF_ERR_SHADER_PART                     = $0000100B;
+  LSF_ERR_UNKNOWN                         = $FFFFFFFF;
+
+////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
+type
+  TlsfErrorCode = Cardinal;
+  TlsfLogLevel = Cardinal;
+  TlsfShaderFileHandle = Pointer;
+  TlsfShaderFileLogEvent = procedure(const aLogLevel: TlsfLogLevel; const aMsg: PAnsiChar);
+
+  Tlsf_ShaderFile_create          = function: TlsfShaderFileHandle; stdcall;
+  Tlsf_ShaderFile_setLogCallback  = function(const aHandle: TlsfShaderFileHandle; const aCallback: TlsfShaderFileLogEvent): TlsfErrorCode; stdcall;
+  Tlsf_ShaderFile_loadFromFile    = function(const aHandle: TlsfShaderFileHandle; const aFilename: PAnsiChar): TlsfErrorCode; stdcall;
+  Tlsf_ShaderFile_saveToFile      = function(const aHandle: TlsfShaderFileHandle; const aFilename: PAnsiChar): TlsfErrorCode; stdcall;
+  Tlsf_ShaderFile_destroy         = function(const aHandle: TlsfShaderFileHandle): TlsfErrorCode; stdcall;
+
+  Tlsf_init                       = function : TlsfErrorCode; stdcall;
+  Tlsf_getLastErrorCode           = function : TlsfErrorCode; stdcall;
+  Tlsf_getLastErrorMsg            = function : PAnsiChar; stdcall;
+  Tlsf_getLastErrorTrace          = function : PAnsiChar; stdcall;
+  Tlsf_finish                     = function: TlsfErrorCode; stdcall;
+
+var
+  lsf_ShaderFile_create:          Tlsf_ShaderFile_create;
+  lsf_ShaderFile_setLogCallback:  Tlsf_ShaderFile_setLogCallback;
+  lsf_ShaderFile_loadFromFile:    Tlsf_ShaderFile_loadFromFile;
+  lsf_ShaderFile_saveToFile:      Tlsf_ShaderFile_saveToFile;
+  lsf_ShaderFile_destroy:         Tlsf_ShaderFile_destroy;
+
+  lsf_getLastErrorCode:           Tlsf_getLastErrorCode;
+  lsf_getLastErrorMsg:            Tlsf_getLastErrorMsg;
+  lsf_getLastErrorTrace:          Tlsf_getLastErrorTrace;
+
+procedure lsf_init(const aLibName: String);
+procedure lsf_finish;
+
+implementation
+
+uses
+  dynlibs;
+
+var
+  libHandle: TLibHandle;
+  lsf_init_intern: Tlsf_init;
+  lsf_finish_intern: Tlsf_finish;
+
+////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
+procedure lsf_init(const aLibName: String);
+
+  function LoadProc(const aName: AnsiString): Pointer;
+  begin
+    result := GetProcedureAddress(libHandle, aName);
+    if not Assigned(result) then
+      raise Exception.CreateFmt('unable to load ''%s'' from ''%s''', [aName, aLibName]);
+  end;
+
+begin
+  libHandle := LoadLibrary(aLibName);
+  if (libHandle = 0) then
+    raise Exception.CreateFmt('unable to load library: %s', [aLibName]);
+  lsf_ShaderFile_create         := Tlsf_ShaderFile_create(        LoadProc('lsf_ShaderFile_create'));
+  lsf_ShaderFile_setLogCallback := Tlsf_ShaderFile_setLogCallback(LoadProc('lsf_ShaderFile_setLogCallback'));
+  lsf_ShaderFile_loadFromFile   := Tlsf_ShaderFile_loadFromFile(  LoadProc('lsf_ShaderFile_loadFromFile'));
+  lsf_ShaderFile_saveToFile     := Tlsf_ShaderFile_saveToFile(    LoadProc('lsf_ShaderFile_saveToFile'));
+  lsf_ShaderFile_destroy        := Tlsf_ShaderFile_destroy(       LoadProc('lsf_ShaderFile_destroy'));
+
+  lsf_init_intern               := Tlsf_init(                     LoadProc('lsf_init'));
+  lsf_getLastErrorCode          := Tlsf_getLastErrorCode(         LoadProc('lsf_getLastErrorCode'));
+  lsf_getLastErrorMsg           := Tlsf_getLastErrorMsg(          LoadProc('lsf_getLastErrorMsg'));
+  lsf_getLastErrorTrace         := Tlsf_getLastErrorTrace(        LoadProc('lsf_getLastErrorTrace'));
+  lsf_finish_intern             := Tlsf_finish(                   LoadProc('lsf_finish'));
+
+  if (lsf_init_intern() <> LSF_ERR_NONE) then
+    raise Exception.Create('error while initializing library: ' + lsf_getLastErrorMsg());
+end;
+
+////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
+procedure lsf_finish;
+begin
+  lsf_finish_intern();
+  lsf_ShaderFile_create         := nil;
+  lsf_ShaderFile_setLogCallback := nil;
+  lsf_ShaderFile_loadFromFile   := nil;
+  lsf_ShaderFile_saveToFile     := nil;
+  lsf_ShaderFile_destroy        := nil;
+  lsf_getLastErrorCode          := nil;
+  lsf_getLastErrorMsg           := nil;
+  lsf_getLastErrorTrace         := nil;
+  if (libHandle <> 0) then begin
+    FreeLibrary(libHandle);
+    libHandle := 0;
+  end;
+end;
+
+end.
+

library/libShaderFile.lpi

@@ -0,0 +1,75 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<CONFIG>
+  <ProjectOptions>
+    <Version Value="9"/>
+    <PathDelim Value="\"/>
+    <General>
+      <Flags>
+        <MainUnitHasCreateFormStatements Value="False"/>
+        <MainUnitHasTitleStatement Value="False"/>
+      </Flags>
+      <SessionStorage Value="InProjectDir"/>
+      <MainUnit Value="0"/>
+      <Title Value="libShaderFile"/>
+      <UseAppBundle Value="False"/>
+      <ResourceType Value="res"/>
+    </General>
+    <i18n>
+      <EnableI18N LFM="False"/>
+    </i18n>
+    <VersionInfo>
+      <StringTable ProductVersion=""/>
+    </VersionInfo>
+    <BuildModes Count="1">
+      <Item1 Name="Default" Default="True"/>
+    </BuildModes>
+    <PublishOptions>
+      <Version Value="2"/>
+    </PublishOptions>
+    <RunParams>
+      <local>
+        <FormatVersion Value="1"/>
+      </local>
+    </RunParams>
+    <Units Count="1">
+      <Unit0>
+        <Filename Value="libShaderFile.lpr"/>
+        <IsPartOfProject Value="True"/>
+        <UnitName Value="libShaderFile"/>
+      </Unit0>
+    </Units>
+  </ProjectOptions>
+  <CompilerOptions>
+    <Version Value="11"/>
+    <PathDelim Value="\"/>
+    <Target>
+      <Filename Value="libShaderFile"/>
+    </Target>
+    <SearchPaths>
+      <IncludeFiles Value="$(ProjOutDir)"/>
+      <OtherUnitFiles Value=".."/>
+      <UnitOutputDirectory Value="lib\$(TargetCPU)-$(TargetOS)"/>
+    </SearchPaths>
+    <CodeGeneration>
+      <RelocatableUnit Value="True"/>
+    </CodeGeneration>
+    <Linking>
+      <Options>
+        <ExecutableType Value="Library"/>
+      </Options>
+    </Linking>
+  </CompilerOptions>
+  <Debugging>
+    <Exceptions Count="3">
+      <Item1>
+        <Name Value="EAbort"/>
+      </Item1>
+      <Item2>
+        <Name Value="ECodetoolError"/>
+      </Item2>
+      <Item3>
+        <Name Value="EFOpenError"/>
+      </Item3>
+    </Exceptions>
+  </Debugging>
+</CONFIG>

library/libShaderFile.lpr

@@ -0,0 +1,298 @@
+library libShaderFile;
+
+{$mode objfpc}{$H+}
+
+uses
+  SysUtils,
+  uengShaderFile, uengShaderPart, uengShaderFileGenerics, uengShaderFileTypes;
+
+////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
+//external types and contstants/////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
+////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
+const
+  LSF_LOGLEVEL_DEBUG                      = llDebug;
+  LSF_LOGLEVEL_INFO                       = llInfo;
+  LSF_LOGLEVEL_WARNING                    = llWarning;
+  LSF_LOGLEVEL_ERROR                      = llError;
+
+  LSF_ERR_NONE                            = $00000000;
+  LSF_ERR_NOT_INIT                        = $00000001;
+  LSF_ERR_INVALID_HANDLE_SHADER_FILE      = $00000002;
+  LSF_ERR_UNKNOWN_IDENTFIFIER             = $00001000;
+  LSF_ERR_DUPLICATE_IDENTIFIER            = $00001001;
+  LSF_ERR_OUT_OF_RANGE                    = $00001002;
+  LSF_ERR_INVALID_IDENTIFIER              = $00001003;
+  LSF_ERR_INVALID_PARAMTER_COUNT          = $00001004;
+  LSF_ERR_INVALID_PARAMTER                = $00001005;
+  LSF_ERR_UNEXPECTED_TOKEN                = $00001006;
+  LSF_ERR_INVALID_TOKEN                   = $00001007;
+  LSF_ERR_EXPRESSION_INTERNAL             = $00001008;
+  LSF_ERR_EXPRESSION                      = $00001009;
+  LSF_ERR_SHADER_PART_INTERNAL            = $0000100A;
+  LSF_ERR_SHADER_PART                     = $0000100B;
+  LSF_ERR_UNKNOWN                         = $FFFFFFFF;
+
+////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
+type
+  TlsfErrorCode = Cardinal;
+  TlsfLogLevel = Cardinal;
+  TlsfShaderFileHandle = Pointer;
+  TlsfShaderFileLogEvent = procedure(const aLogLevel: TlsfLogLevel; const aMsg: PAnsiChar);
+
+////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
+//internal types and contstants/////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
+////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
+type
+  TShaderFile = class(TengShaderFile)
+  private
+    fLogCallback: TlsfShaderFileLogEvent;
+  protected
+    procedure LogMsgIntern(const aSender: TengShaderPart; const aLogLevel: TengShaderPartLogLevel; const aMsg: String); override;
+  public
+    property LogCallback: TlsfShaderFileLogEvent read fLogCallback write fLogCallback;
+  end;
+  TengShaderFiles = specialize TutlHashSet<TShaderFile>;
+
+////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
+var
+  ShaderFiles: TengShaderFiles = nil;
+  LastErrorCode: TlsfErrorCode = LSF_ERR_NONE;
+  LastErrorMsg: String = '';
+  LastErrorTrace: String = '';
+
+////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
+//Misc (not exportet)///////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
+////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
+procedure SetLastError(const aErrorCode: TlsfErrorCode; const aMsg: String);
+begin
+  LastErrorCode  := aErrorCode;
+  LastErrorMsg   := aMsg;
+  LastErrorTrace := '';
+end;
+
+////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
+procedure SetLastError(const aException: Exception);
+begin
+  if (aException is EengUnknownIdentifier) then
+    LastErrorCode := LSF_ERR_UNKNOWN_IDENTFIFIER
+  else if (aException is EengDuplicateIdentifier) then
+    LastErrorCode := LSF_ERR_DUPLICATE_IDENTIFIER
+  else if (aException is EengOutOfRange) then
+    LastErrorCode := LSF_ERR_OUT_OF_RANGE
+  else if (aException is EengInvalidIdentifier) then
+    LastErrorCode := LSF_ERR_INVALID_IDENTIFIER
+  else if (aException is EengInvalidParamterCount) then
+    LastErrorCode := LSF_ERR_INVALID_PARAMTER_COUNT
+  else if (aException is EengInvalidParamter) then
+    LastErrorCode := LSF_ERR_INVALID_PARAMTER
+  else if (aException is EengUnexpectedToken) then
+    LastErrorCode := LSF_ERR_UNEXPECTED_TOKEN
+  else if (aException is EengInvalidToken) then
+    LastErrorCode := LSF_ERR_INVALID_TOKEN
+  else if (aException is EengExpressionInternal) then
+    LastErrorCode := LSF_ERR_EXPRESSION_INTERNAL
+  else if (aException is EengExpression) then
+    LastErrorCode := LSF_ERR_EXPRESSION
+  else if (aException is EengShaderPartInternal) then
+    LastErrorCode := LSF_ERR_SHADER_PART_INTERNAL
+  else if (aException is EengShaderPart ) then
+    LastErrorCode := LSF_ERR_SHADER_PART
+  else
+    LastErrorCode := LSF_ERR_UNKNOWN;
+  if (aException is EengShaderPart)
+    then LastErrorTrace := (aException as EengShaderPart).PrintTrace
+    else LastErrorTrace := '';
+  LastErrorMsg   := aException.Message;
+end;
+
+////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
+function CheckIfInitialized: Boolean;
+begin
+  try
+    result := Assigned(ShaderFiles);
+    if not result then
+      SetLastError(LSf_ERR_NOT_INIT, 'libShaderFile has not been initialized. call esf_init before using any other methods.');
+  except
+    on e: Exception do begin
+      SetLastError(e);
+      result := false;
+    end;
+  end;
+end;
+
+////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
+function CheckShaderFileHandle(const aHandle: TlsfShaderFileHandle): Boolean;
+begin
+  try
+    result := CheckIfInitialized;
+    if result then begin
+      result := ShaderFiles.Contains(TShaderFile(aHandle));
+      if not result then
+        SetLastError(LSF_ERR_INVALID_HANDLE_SHADER_FILE, Format('0x%x is not a valid shader file handle', [PtrUInt(aHandle)]));
+    end;
+  except
+    on e: Exception do begin
+      SetLastError(e);
+      result := false;
+    end;
+  end;
+end;
+
+////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
+//ShaderFile////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
+////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
+function lsf_ShaderFile_create: TlsfShaderFileHandle; stdcall;
+begin
+  try
+    result := nil;
+    if not CheckIfInitialized then
+      exit;
+    result := TengShaderFile.Create;
+    ShaderFiles.Add(TShaderFile(result));
+  except
+    on e: Exception do begin
+      SetLastError(e);
+      result := nil;
+    end;
+  end;
+end;
+
+////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
+function lsf_ShaderFile_setLogCallback(const aHandle: TlsfShaderFileHandle; const aCallback: TlsfShaderFileLogEvent): TlsfErrorCode; stdcall;
+begin
+  try
+    result := LSF_ERR_NONE;
+    if not CheckShaderFileHandle(aHandle)
+      then result := LastErrorCode
+      else TShaderFile(aHandle).LogCallback := aCallback;
+  except
+    on e: Exception do begin
+      SetLastError(e);
+      result := LastErrorCode;
+    end;
+  end;
+end;
+
+////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
+function lsf_ShaderFile_loadFromFile(const aHandle: TlsfShaderFileHandle; const aFilename: PAnsiChar): TlsfErrorCode; stdcall;
+begin
+  try
+    result := LSF_ERR_NONE;
+    if not CheckShaderFileHandle(aHandle)
+      then result := LastErrorCode
+      else TShaderFile(aHandle).LoadFromFile(aFilename);
+  except
+    on e: Exception do begin
+      SetLastError(e);
+      result := LastErrorCode;
+    end;
+  end;
+end;
+
+////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
+function lsf_ShaderFile_saveToFile(const aHandle: TlsfShaderFileHandle; const aFilename: PAnsiChar): TlsfErrorCode; stdcall;
+begin
+  try
+    result := LSF_ERR_NONE;
+    if not CheckShaderFileHandle(aHandle)
+      then result := LastErrorCode
+      else TShaderFile(aHandle).SaveToFile(aFilename);
+  except
+    on e: Exception do begin
+      SetLastError(e);
+      result := LastErrorCode;
+    end;
+  end;
+end;
+
+////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
+function lsf_ShaderFile_destroy(const aHandle: TlsfShaderFileHandle): TlsfErrorCode; stdcall;
+begin
+  try
+    result := LSF_ERR_NONE;
+    if not CheckShaderFileHandle(aHandle)
+      then result := LastErrorCode
+      else ShaderFiles.Remove(TShaderFile(aHandle));
+  except
+    on e: Exception do begin
+      SetLastError(e);
+      result := LastErrorCode;
+    end;
+  end;
+end;
+
+////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
+//Global////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
+////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
+function lsf_init: TlsfErrorCode; stdcall;
+begin
+  try
+    result := LSF_ERR_NONE;
+    ShaderFiles := TengShaderFiles.Create(true);
+  except
+    on e: Exception do begin
+      SetLastError(e);
+      result := LastErrorCode;
+    end;
+  end;
+end;
+
+////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
+function lsf_getLastErrorCode: TlsfErrorCode; stdcall;
+begin
+  result := LastErrorCode;
+end;
+
+////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
+function lsf_getLastErrorMsg: PAnsiChar; stdcall;
+begin
+  result := PAnsiChar(LastErrorMsg);
+end;
+
+////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
+function lsf_getLastErrorTrace: PAnsiChar; stdcall;
+begin
+  result := PAnsiChar(LastErrorTrace);
+end;
+
+////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
+function lsf_finish: TlsfErrorCode; stdcall;
+begin
+  try
+    result := LSF_ERR_NONE;
+    FreeAndNil(ShaderFiles);
+  except
+    on e: Exception do begin
+      SetLastError(e);
+      result := LastErrorCode;
+    end;
+  end;
+end;
+
+exports
+  lsf_ShaderFile_create,
+  lsf_ShaderFile_setLogCallback,
+  lsf_ShaderFile_loadFromFile,
+  lsf_ShaderFile_saveToFile,
+  lsf_ShaderFile_destroy,
+
+  lsf_init,
+  lsf_getLastErrorCode,
+  lsf_getLastErrorMsg,
+  lsf_getLastErrorTrace,
+  lsf_finish;
+
+////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
+//TShaderFile///////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
+////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
+procedure TShaderFile.LogMsgIntern(const aSender: TengShaderPart; const aLogLevel: TengShaderPartLogLevel; const aMsg: String);
+var
+  tmp: TlsfShaderFileLogEvent;
+begin
+  inherited LogMsgIntern(aSender, aLogLevel, aMsg);
+  tmp := fLogCallback;
+  if Assigned(tmp) then
+    tmp(Cardinal(aLogLevel), PAnsiChar(aMsg));
+end;
+
+end.

uengShaderPartInclude.pas

@@ -45,7 +45,6 @@ type
 implementation
 
 uses
-  FileUtil,
   uengShaderFileConstants;
 
 ////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
@@ -89,7 +88,7 @@ begin
   if (aParams.Count <> 2) then
     raise EengInvalidParamterCount.Create(GetTokenName, 2, self);
   fIncludeFile  := aParams[1].Name;
-  fAbsoluteFile := CreateAbsolutePath(fIncludeFile, ExtractFilePath(Filename));
+  fAbsoluteFile := ExtractFilePath(Filename) + fIncludeFile;
   result := '';
   LoadShaderFile;
 end;
@@ -108,7 +107,7 @@ procedure TengShaderPartInclude.SaveToFile(const aFilename: String; const aFileW
 begin
   LoadShaderFile;
   fIncludeFile  := Format('%p_', [Pointer(fShaderFile)]) + ExtractFileName(fIncludeFile);
-  fAbsoluteFile := CreateAbsolutePath(fIncludeFile, ExtractFilePath(aFilename));
+  fAbsoluteFile := ExtractFilePath(aFilename) + fIncludeFile;
   fShaderFile.SaveToFile(fAbsoluteFile, aFileWriter);
 end;