ViewVC Help
View File | Revision Log | Show Annotations | Download File | View Changeset | Root Listing
root/public/ibx/trunk/runtime/nongui/ibxscript.pas
(Generate patch)

Comparing ibx/trunk/runtime/nongui/ibxscript.pas (file contents):
Revision 209 by tony, Wed Mar 14 12:48:51 2018 UTC vs.
Revision 227 by tony, Mon Apr 9 10:31:10 2018 UTC

# Line 39 | Line 39 | const
39  
40    BlobLineLength = 40;
41  
42 +  DefaultTerminator = ';';
43 +
44    {Non-character symbols}
45    sqNone                 = #0;
46    sqEnd                  = #1;
# Line 732 | Line 734 | begin
734        begin
735          with GetTransaction do
736            if InTransaction then Rollback;
737 +        FSymbolStream.Terminator := DefaultTerminator;
738          if assigned(OnErrorLog) then
739          begin
740            Add2Log(Format(sStatementError,[FSymbolStream.GetErrorPrefix,
# Line 1906 | Line 1909 | begin
1909    #0..#8,#10..#31,' ':
1910      Result := ' ';
1911  
1912 <  #9,';','"','''','/',
1912 >  #9,';','"','''','/','-',
1913    '*','=','>','<',',':
1914      Result := C;
1915    else
# Line 1933 | Line 1936 | end;
1936   constructor TSymbolStream.Create;
1937   begin
1938    inherited;
1939 <  FTerminator := ';';
1939 >  FTerminator := DefaultTerminator;
1940    NextStatement;
1941   end;
1942  
# Line 2023 | Line 2026 | begin
2026              Result := sqCommentLine;
2027              FIndex := 0;
2028              FNextSymbol := sqNone
2029 +          end;
2030 +
2031 +        '-':
2032 +          if FXMLMode > 0 then
2033 +            break
2034 +          else
2035 +          if FNextSymbol = '-' then
2036 +          begin
2037 +            FString := '--' + system.copy(FLine,FIndex,length(FLine)- FIndex + 1) ;
2038 +            Result := sqCommentLine;
2039 +            FIndex := 0;
2040 +            FNextSymbol := sqNone
2041            end;
2042  
2043          '<':

Diff Legend

– Removed lines
+ Added lines
< Changed lines
> Changed lines