Subversion Repositories fastphp

unit FastPHPUtils;

interface

uses

  Windows, SysUtils, StrUtils, Dialogs, IniFiles, Classes, Forms, ShellAPI, Functions,

  System.UITypes;

const

  FASTPHP_GOTO_URI_PREFIX = 'fastphp://editor/gotoline/';

function GetPHPExe: string;

function RunPHPScript(APHPFileName: string; lint: boolean=false; inConsole: boolean=False; ContentCallBack: TContentCallBack=nil): string;

function ParseCHM(const chmFile: TFileName): boolean;

function IsValidPHPExe(const exeFile: TFileName): boolean;

implementation

uses

  FastPHPConfig;

function GetPHPExe: string;

var

  od: TOpenDialog;

begin

  result := TFastPHPConfig.PhpInterpreter;

  if not FileExists(result) then

  begin

    od := TOpenDialog.Create(nil);

    try

      od.DefaultExt := '.exe';

      od.FileName := 'php.exe';

      od.Filter := 'Executable file (*.exe)|*.exe';

      od.Options := [ofReadOnly, ofHideReadOnly, ofPathMustExist, ofFileMustExist, ofEnableSizing];

      od.Title := 'Please choose your PHP interpreter (php.exe)';

      if not od.Execute then exit;

      if not FileExists(od.FileName) then exit;

      result := od.FileName;

    finally

      od.Free;

    end;

    if not IsValidPHPExe(result) then

    begin

      MessageDlg('This is not a valid PHP executable.', mtError, [mbOk], 0);

      exit;

    end;

    TFastPHPConfig.PhpInterpreter := result;

  end;

end;

function RunPHPScript(APHPFileName: string; lint: boolean=false; inConsole: boolean=False; ContentCallBack: TContentCallBack=nil): string;

var

  phpExe, args, batFile, workdir: string;

  slBat: TStringList;

begin

  phpExe := GetPHPExe;

  if phpExe = '' then Abort;

  if lint then

    args := '-l "'+APHPFileName+'"'

  else

    args := '-f "'+APHPFileName+'"';

  //workdir := ExtractFileDir(ParamStr(0));

  workdir := ExtractFileDir(APHPFileName);

  if inConsole then

  begin

    (*

    ShellExecute(0, 'open', PChar(phpExe), PChar(args), PChar(workdir), SW_NORMAL);

    *)

    batFile := IncludeTrailingPathDelimiter(GetTempDir) + 'RunFastPHP.bat';

    slBat := TStringList.Create;

    try

      slBat.Add('@echo off');

      slBat.Add('cd /d "'+workdir+'"');

      slBat.Add('"'+phpExe+'" ' + args);

      slBat.Add('pause.');

      slBat.SaveToFile(batFile);

      ShellExecute(0, 'open', PChar(batFile), '', '', SW_NORMAL);

    finally

      slBat.Free;

    end;

    result := '';

  end

  else

  begin

    result := GetDosOutput('"'+phpExe+'" ' + args, workdir, ContentCallBack);

  end;

end;

function ParseCHM(const chmFile: TFileName): boolean;

var

  test, candidate, candidate2: string;

  p, p2, q: integer;

  i: integer;

  good: Boolean;

  ini: TMemIniFile;

  domain: string;

  sl: TStringList;

  symbolCount: Integer;

  sl2: TStrings;

  outFile: string;

begin

  // TODO: problem:  mysqli::commit has /res/mysqli.commit.html -> keyword is NOT commit alone

  outFile := ChangeFileExt(chmFile, '.ini');

  DeleteFile(outFile);

  test := LoadFileToStr(chmFile);

  if Pos('/php_manual_', test) = -1 then

  begin

    result := false;

    exit;

  end;

  p := 0;

  ini := TMemIniFile.Create(outFile);

  try

    ini.WriteString('_Info_', 'Source', chmFile);

    ini.WriteString('_Info_', 'Generated', DateTimeToStr(Now));

    ini.WriteString('_Info_', 'GeneratorVer', '1.0');

    ini.WriteString('_Info_', 'Signature', '$ViaThinkSoft$');

    {$REGION 'Excludes'}

    // TODO: more excludes

    ini.WriteBool('_HelpExclude_', 'about', true);

    ini.WriteBool('_HelpExclude_', 'apache', true);

    {$ENDREGION}

    while true do

    begin

      if Assigned(Application) then Application.ProcessMessages;

      p := PosEx('/res/', Test, p+1);

      if p = 0 then break;

      p2 := PosEx('.html', Test, p);

      if p = 0 then break;

      candidate := copy(Test, p+5, p2-p-5);

      if candidate = '' then continue;

      if Length(candidate) > 50 then continue;

      good := true;

      for i := p+5 to p2-1 do

      begin

        if ord(test[i]) < 32 then

        begin

          good := false;

          break;

        end;

        {$IFDEF UNICODE}

        if not CharInSet(test[i], ['a'..'z', 'A'..'Z', '.', '-', '_', '0'..'9']) then

        {$ELSE}

        if not (test[i] in ['a'..'z', 'A'..'Z', '.', '-', '_', '0'..'9']) then

        {$ENDIF}

        begin

          ini.WriteInteger('_Errors_', 'Contains unexpected character! ' + candidate, ini.ReadInteger('_Errors_', 'Contains unexpected character! ' + candidate, 0)+1);

          good := false;

          break;

        end;

      end;

      if good then

      begin

        candidate2 := LowerCase(StringReplace(candidate, '-', '_', [rfReplaceAll]));

        q := LastPos('.', candidate2);

        domain := copy(candidate2, 1, q-1);

        if domain = '' then continue;

        candidate2 := copy(candidate2, q+1, Length(candidate2)-q);

        ini.WriteInteger('_Category_', domain, ini.ReadInteger('_Category_', domain, 0)+1);

        ini.WriteString(domain, candidate2, '/res/'+candidate+'.html');

        if not ini.ReadBool('_HelpExclude_', domain, false)

           and (candidate2 <> 'configuration')

           and (candidate2 <> 'constants')

           and (candidate2 <> 'installation')

           and (candidate2 <> 'requirements')

           and (candidate2 <> 'resources')

           and (candidate2 <> 'setup') then

        begin

          if ini.ReadString('_HelpWords_', candidate2, '') <> '' then

          begin

            ini.WriteInteger('_Conflicts_', candidate2, ini.ReadInteger('_Conflicts_', candidate2, 0)+1);

          end;

          ini.WriteString('_HelpWords_', candidate2, '/res/'+candidate+'.html');

        end;

      end;

    end;

    sl := TStringList.Create;

    sl2 := TStringList.Create;

    try

      ini.ReadSections(sl);

      ini.WriteInteger('_Info_', 'TotalDomains', sl.Count);

      symbolCount := 0;

      for domain in sl do

      begin

        ini.ReadSection(domain, sl2);

        Inc(symbolCount, sl2.Count)

      end;

      ini.WriteInteger('_Info_', 'TotalSymbols', symbolCount);

    finally

      sl.Free;

      sl2.Free;

    end;

    ini.UpdateFile;

    result := true;

  finally

    ini.Free;

  end;

end;

function IsValidPHPExe(const exeFile: TFileName): boolean;

var

  cont: string;

begin

  cont := LoadFileToStr(exeFile);

  result := (Pos('php://stdout', cont) >= 0) or

            (Pos('PHP_SELF', cont) >= 0);

end;

end.