Subversion Repositories fastphp

Compare Revisions

Regard whitespace Rev 70 → Rev 69

/trunk/codeexplorer.php
1,4 → 1,4
<?php
<?php
 
// TODO: show full signature of each element?
 
/trunk/FastPHPTreeView.pas
55,8 → 55,7
StrUtils, Windows;
 
const
MAGIC_V100 = 'FAST100!';
UTF8_BOM = '';
LEN_MAGIC = 8;
LEN_ICON = 4;
LEN_LINENO = 8;
LEN_DESCLEN = 4;
118,24 → 117,11
 
{$REGION 'Update the treeview'}
Self.Items.Clear;
 
{$REGION 'Remove UTF8-BOMs'}
repeat
magic := Read(ptr, Length(UTF8_BOM));
until magic <> UTF8_BOM;
ptr := ptr - Length(UTF8_BOM);
{$ENDREGION}
 
magic := Read(ptr, length(MAGIC_V100));
 
if magic = MAGIC_V100 then
begin
magic := Read(ptr, LEN_MAGIC);
if magic = 'FAST100!' then
Rec100(nil, ptr)
end
else
begin
raise EFastNodeException.CreateFmt('FastNode version "%s" not supported.', [magic]);
end;
{$ENDREGION}
 
{$REGION 'Recover the previous current state (selected and expanded flags)'}
/trunk/codeexplorer_api.inc.php
1,4 → 1,4
<?php
<?php
 
define('SIGNAL_END_OF_TRANSMISSION', chr(1).chr(2).chr(3).chr(4).chr(5).chr(6).chr(7).chr(8));
define('SIGNAL_TERMINATE', chr(8).chr(7).chr(6).chr(5).chr(4).chr(3).chr(2).chr(1));
/trunk/RunPHP.pas
147,12 → 147,9
end;
 
// Signal the code explorer to terminate
(*
testString := #13#10+SIGNAL_TERMINATE+#13#10;
WriteFile(StdInPipeWrite, testString[1], Length(testString), BytesWritten, nil);
WaitForSingleObject(PI.hProcess, INFINITE);
*)
TerminateProcess(Pi.hProcess, 0);
 
CloseHandle(StdInPipeWrite);
finally