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 349 by tony, Mon Oct 18 08:39:40 2021 UTC vs.
Revision 353 by tony, Sat Oct 23 14:11:37 2021 UTC

# Line 398 | Line 398 | resourcestring
398    sArrayIndexError = 'Array Index Error (%d)';
399    sBlobIndexError = 'Blob Index Error (%d)';
400    sStatementError = 'Error processing SQL statement: %s %s - for statement "%s"';
401 <  sNotInArray = 'elt tag found but not in an XML array tag';
401 > //  sNotInArray = 'elt tag found but not in an XML array tag';
402    sNoDatabase = 'Missing database for xml tag import';
403    sNoTransaction = 'Missing transaction for xml tag import';
404  
# Line 516 | Line 516 | begin
516            sqltIdentifierInDoubleQuotes:
517              stmt += '"' + TokenText + '"';
518  
519 –          sqltCR: {ignore};
520 –
519            sqltEOL:
520              stmt += LineEnding;
521  
# Line 581 | Line 579 | begin
579          sqltIdentifierInDoubleQuotes:
580            stmt += '"' + TokenText + '"';
581  
584 –        sqltCR: {ignore};
585 –
582          sqltEOL:
583            stmt += LineEnding;
584  
# Line 609 | Line 605 | begin
605            State := stInStmt;
606          end;
607  
612 –        sqltCR: {ignore};
613 –
608          sqltEOL:
609            stmt += LineEnding;
610  
# Line 640 | Line 634 | begin
634              stmt += TokenText;
635            end;
636  
643 –        sqltCR: {ignore};
644 –
637          sqltEOL:
638            stmt += LineEnding;
639  
# Line 1027 | Line 1019 | begin
1019        end;
1020  
1021      sqltSpace,
1022 <    sqltCR, sqltEOL:
1022 >    sqltEOL:
1023        QueueToken(token);
1024  
1025      else
# Line 1044 | Line 1036 | begin
1036        end;
1037  
1038        sqltSpace,
1039 <      sqltCR, sqltEOL:
1039 >      sqltEOL:
1040          QueueToken(token);
1041  
1042        sqltIdentifier:
# Line 1078 | Line 1070 | begin
1070        end;
1071  
1072      sqltSpace,
1073 <    sqltCR, sqltEOL:
1073 >    sqltEOL:
1074        QueueToken(token);
1075  
1076      else
# Line 1136 | Line 1128 | begin
1128        end;
1129  
1130      sqltSpace,
1131 <    sqltCR, sqltEOL:
1131 >    sqltEOL:
1132        QueueToken(token);
1133  
1134      else
# Line 1910 | Line 1902 | begin
1902        FIndex := 1;
1903      end
1904      else
1905 +    if Result <> CR then
1906      begin
1907        FCurLine += Result;
1908        Inc(FIndex);

Diff Legend

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