instantobjects-cvscommit

[Carlo B. <car...@us...>]

Update of /cvsroot/instantobjects/Source/Core
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv2033/Source/Core

Modified Files:
	InstantCode.pas 
Log Message:
Changes for IOMETADATA keyword support and NexusDBSQL

Index: InstantCode.pas
===================================================================
RCS file: /cvsroot/instantobjects/Source/Core/InstantCode.pas,v
retrieving revision 1.6
retrieving revision 1.7
diff -C2 -d -r1.6 -r1.7
*** InstantCode.pas	17 Nov 2004 20:59:48 -0000	1.6
--- InstantCode.pas	20 Nov 2004 10:52:31 -0000	1.7
***************
*** 4435,4445 ****
    SavePos: TInstantCodePos;
  begin
!   Result := Reader.NextChar = '{';
!   if not Result then
!   begin
      SavePos := Reader.Position;
      try
        Reader.IgnoreComments := False;
!       result := Reader.ReadMatching('{' + MetadataInfoID + ' ');
      finally
        Reader.IgnoreComments := True;
--- 4435,4445 ----
    SavePos: TInstantCodePos;
  begin
!   Result := False;
!   if Reader.NextChar = '{' then begin
      SavePos := Reader.Position;
      try
        Reader.IgnoreComments := False;
!       Result := Reader.ReadMatching('{' + MetadataInfoID + ' ')
!         or (Reader.NextChar = '{');
      finally
        Reader.IgnoreComments := True;
***************
*** 4461,4464 ****
--- 4461,4466 ----
    if SameText(Reader.NextToken, MetadataInfoID) then
      Reader.ReadToken;
+ //  else //For version 1.7: check MetadataInfoID Keyword
+ //    Reader.ErrorExpected(MetadataInfoID);
  
    Persistence := peEmbedded;