Subversion Repositories fastphp

Compare Revisions

Regard whitespace Rev 100 → Rev 101

/trunk/EditorMain.pas
1059,8 → 1059,8
 
procedure TForm1.FontSizeTimerTimer(Sender: TObject);
begin
if Memo2.Font.Size <> SynEdit1.Font.Size then
Memo2.Font.Size := SynEdit1.Font.Size;
if Memo2.Font.Size <> (SynEdit1.Font.Size-3) then
Memo2.Font.Size := (SynEdit1.Font.Size-3);
end;
 
procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
1654,7 → 1654,7
p := Pos(LowerCase(toFind), LowerCase(line));
if p <> 0 then
begin
line := copy(line, p+length(toFind), 99);
line := copy(line, p+length(toFind), 99); // TODO: "(test.php:123)" does not work, because "123)" will be tried to convert to Integer
if not TryStrToInt(line, lineno) then exit;
GotoLineNo(lineno);
end;
/trunk/codeexplorer.php
61,6 → 61,10
// $verify=file_get_contents("https://www.google.com/recaptcha/api/siteverify?secret={$secret}&response={$response}");
$code = str_replace('{$', '{', $code);
 
// Quick'n'Dirty fix to correctly parse the line
// $handler = function(MqttClient $client, string $topic, string $message, int $qualityOfService, bool $retained) use (&$msg_count) {};
$code = preg_replace('@function\s*\\(@is', '(', $code);
 
$token = token_get_all($code);
$wait_function = false;
$wait_const = false;