//TO-DO : Get the LuaEditApplication Path from registy, Application.ExeName is the Host

library LuaEditDebug;

uses
  SysUtils,
  Messages,
  Dialogs,
  Classes,
  Windows,
  Controls,
  Registry,
  Forms,
  lua,
  LuaUtils,
  RTDebug,
  Themes,
  UxTheme,
  JvDockGlobals,
  JvDockControlForm,
  About in '..\About.pas' {frmAbout},
  GoToLine in '..\GoToLine.pas' {frmGotoLine},
  Main in '..\Main.pas' {frmMain},
  ProjectTree in '..\ProjectTree.pas' {frmProjectTree},
  Replace in '..\Replace.pas' {frmReplace},
  ReplaceQuerry in '..\ReplaceQuerry.pas' {frmReplaceQuerry},
  Search in '..\Search.pas' {frmSearch},
  Stack in '..\Stack.pas' {frmStack},
  Splash in '..\Splash.pas' {frmSplash},
  Watch in '..\Watch.pas' {frmWatch},
  FunctionList in '..\FunctionList.pas' {frmFunctionList},
  AddToPrj in '..\AddToPrj.pas' {frmAddToPrj},
  RemFromPrj in '..\RemFromPrj.pas' {frmRemoveFile},
  ErrorLookup in '..\ErrorLookup.pas' {frmErrorLookup},
  LuaStack in '..\LuaStack.pas' {frmLuaStack},
  PrintSetup in '..\PrintSetup.pas' {frmPrintSetup},
  PrjSettings in '..\PrjSettings.pas' {frmPrjOptions},
  CntString in '..\CntString.pas' {frmCntString},
  Connecting in '..\Connecting.pas' {frmConnecting},
  Contributors in '..\Contributors.pas' {frmContributors},
  LuaOutput in '..\LuaOutput.pas' {frmLuaOutput},
  Breakpoints in '..\Breakpoints.pas' {frmBreakpoints},
  RegSetFileType in '..\RegSetFileType.pas',
  LuaLocals in '..\LuaLocals.pas' {frmLuaLocals},
  LuaEditMessages in '..\LuaEditMessages.pas' {frmLuaEditMessages},
  AddBreakpoint in '..\AddBreakpoint.pas' {frmAddBreakpoint},
  LuaGlobals in '..\LuaGlobals.pas' {frmLuaGlobals},
  EditorSettings in '..\EditorSettings.pas' {frmEditorSettings},
  ExSaveExit in '..\ExSaveExit.pas' {frmExSaveExit},
  AsciiTable in '..\AsciiTable.pas' {frmAsciiTable},
  ReadOnlyMsgBox in '..\ReadOnlyMsgBox.pas' {frmReadOnlyMsgBox},
  Rings in '..\Rings.pas' {frmRings},
  FindInFiles in '..\FindInFiles.pas' {frmFindInFiles},
  FindWindow1 in '..\FindWindow1.pas' {frmFindWindow1},
  FindWindow2 in '..\FindWindow2.pas' {frmFindWindow2},
  InternalBrowser in '..\InternalBrowser.pas' {frmInternalBrowser},
  SearchPath in '..\SearchPath.pas' {frmSearchPath},
  SIFReport in '..\SIFReport.pas' {frmSIFReport};

{$R *.res}

function InitForms: TfrmMain;
var
  pReg: TRegistry;
begin
  RTAssert(0, true, 'LuaEditDebug Application='+IntToHex(Integer(Application), 8), '', 0);
  RTAssert(0, true, 'Creating...', '', 0);
  
  // leave those important lines here...
  // There is a bug with the themes and forms placed in dll
  // The dll don't have the time to free the theme handle and the when it does it,
  // the host application already did it so... Runtime Error 216
  ThemeServices.ApplyThemeChange;
  InitThemeLibrary;

  Application.CreateForm(TfrmMain, frmMain);
  Application.CreateForm(TfrmAbout, frmAbout);
  Application.CreateForm(TfrmGotoLine, frmGotoLine);
  Application.CreateForm(TfrmReplace, frmReplace);
  Application.CreateForm(TfrmReplaceQuerry, frmReplaceQuerry);
  Application.CreateForm(TfrmSearch, frmSearch);
  Application.CreateForm(TfrmAddToPrj, frmAddToPrj);
  Application.CreateForm(TfrmRemoveFile, frmRemoveFile);
  Application.CreateForm(TfrmErrorLookup, frmErrorLookup);
  Application.CreateForm(TfrmPrintSetup, frmPrintSetup);
  Application.CreateForm(TfrmPrjOptions, frmPrjOptions);
  Application.CreateForm(TfrmCntString, frmCntString);
  Application.CreateForm(TfrmConnecting, frmConnecting);
  Application.CreateForm(TfrmContributors, frmContributors);
  Application.CreateForm(TfrmAddBreakpoint, frmAddBreakpoint);
  Application.CreateForm(TfrmEditorSettings, frmEditorSettings);
  Application.CreateForm(TfrmAsciiTable, frmAsciiTable);
  Application.CreateForm(TfrmFindInFiles, frmFindInFiles);
  Application.CreateForm(TfrmFindWindow1, frmFindWindow1);
  Application.CreateForm(TfrmFindWindow2, frmFindWindow2);
  Application.CreateForm(TfrmInternalBrowser, frmInternalBrowser);
  Application.CreateForm(TfrmSearchPath, frmSearchPath);
  Application.CreateForm(TfrmSIFReport, frmSIFReport);
  
  if (Application.MainForm = nil) then
    RTAssert(0, true, 'Creating done Nil', '', 0)
  else
    RTAssert(0, (frmMain = Application.MainForm), 'Creating done frmMain', 'Creating done '+Application.MainForm.Name, 0);

  // Initialize a few things
  frmMain.CheckButtons;
  frmMain.LoadEditorSettings;

  // Create registry class and switching root key to local machine
  pReg := TRegistry.Create;
  pReg.RootKey := HKEY_LOCAL_MACHINE;

  if pReg.OpenKey('\Software\LuaEdit', False) then
    LoadDockTreeFromFile(pReg.ReadString('ApplicationPath') + 'LuaEdit.dck');

  // Free registry class and return main form
  pReg.Free;
  Result :=frmMain;
end;

procedure UnInitForms;
Var
   MainFormHandle: HWnd;
   i: Integer;

begin
try
  RTAssert(0, true, 'Freeing', '', 0);
  MainFormHandle :=frmMain.Handle;
  for i :=0 to Screen.CustomFormCount-1 do
   if (Screen.CustomForms[0]<>Nil) then
   begin
        RTAssert(0, true, ' '+Screen.CustomForms[0].Name+'('+Screen.CustomForms[0].ClassName+') Free (screen)', '', 0);
        Screen.CustomForms[0].Free;
   end;

  repeat
     Sleep(100);
  Until not(IsWindow(MainFormHandle));

  RTAssert(0, true, 'Free Done', '', 0);
except
   RTAssert(0, true, 'Free exception', '', 0);

end;

  // leave those important lines here...
  // There is a bug with the themes and forms placed in dll
  // The dll don't have the time to free the theme handle and the when it does it,
  // the host application already did it so... Runtime Error 216
  ThemeServices.ApplyThemeChange;
  FreeThemeLibrary;
end;


function LuaEditDebugOpen :Plua_State; cdecl;
begin
     Result :=lua_open;
     //Store in LuaRegistry Only!!!!!
     LuaSetTableLightUserData(Result, LUA_REGISTRYINDEX, 'LuaEditDebug_MainForm',
                              InitForms);
end;

function LuaEditDebugStartFile(LState :Plua_State; Filename :PChar):Integer; cdecl;
Var
   MainForm :TfrmMain;
   pLuaUnit: TLuaUnit;

begin
     RTAssert(0, true, 'Starting '+Filename, '', 0);
     Result :=LUA_ERRRUN;
     MainForm :=LuaGetTableLightUserData(LState, LUA_REGISTRYINDEX, 'LuaEditDebug_MainForm');
     if (MainForm<>Nil)
     then with MainForm do
          begin
               MainForm.Visible :=True;
               repeat
                     Sleep(100);
               Until IsWindowVisible(MainForm.Handle);

               RTAssert(0, true, ' AddFileInProject', '', 0);
               pLuaUnit := AddFileInProject(FileName, False, LuaSingleUnits);

               RTAssert(0, true, ' AddFileInTab', '', 0);
               pLuaUnit.IsLoaded := True;
               AddFileInTab(pLuaUnit);
               MonitorFileToRecent(FileName);
               RTAssert(0, true, ' CheckButtons', '', 0);
               CheckButtons;
               MainForm.LuaState :=LState;
               ExecuteCurrent(True, 0, '', -1);
         end;
end;

function LuaEditDebugStart(LuaState :Plua_State; Code :PChar):Integer; cdecl;
Var
   xTempFile     :TFileStream;
   xTempFileName,
   TempPath      :String;

   function UniqueFileName(BasePath :String) :String;
   Var
      loopCounter :Integer;

   begin
     if (BasePath[Length(BasePath)]<>'\')
     then BasePath :=BasePath + '\';
     loopCounter :=30;
     repeat
           sleep(250);
           DateTimeToString(Result, 'yyyy-mm-dd-hh-nn-ss-z', Now);
           Result :=BasePath+Result+'.lua';
           Dec(loopCounter);
     Until not(FileExists(Result)) or (loopCounter=-1);
     if (loopCounter=-1)
     then raise Exception.Create('Cannot Work on '+BasePath);
end;


begin
     try
        SetLength(TempPath, MAX_PATH);
        GetTempPath(MAX_PATH, PChar(TempPath));
        TempPath :=PChar(TempPath); //adjust Length to reflect the new real size

        xTempFilename :=UniqueFileName(TempPath);

        RTAssert(0, true, 'Filling '+xTempFilename, '', 0);

        xTempFile :=TFileStream.Create(xTempFilename, fmCreate);
        xTempFile.Write(Code^, Length(Code^));
        xTempFile.Free;
        Result :=LuaEditDebugStartFile(LuaState, PChar(xTempFileName));
     except
        Result := LUA_ERRRUN;
     end;
end;

procedure LuaEditDebugClose(LuaState :Plua_State); cdecl;
Var
   MainForm :TfrmMain;

begin
     MainForm :=LuaGetTableLightUserData(LuaState, LUA_REGISTRYINDEX, 'LuaEditDebug_MainForm');
     if (MainForm<>Nil)
     then UnInitForms;

   RTAssert(0, true, 'lua_close', '', 0);
     lua_close(LuaState);
   RTAssert(0, true, 'lua_done', '', 0);
end;

exports
       LuaEditDebugOpen,
       LuaEditDebugStartFile,
       LuaEditDebugStart,
       LuaEditDebugClose;

begin
end.