[Instantobjects-cvscommit] Source/Core InstantCode.pas,1.7,1.8

[Nando D. <na...@us...>]

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

Modified Files:
	InstantCode.pas 
Log Message:
externalstored Part attributes do not map to an intermediate table anymore

Index: InstantCode.pas
===================================================================
RCS file: /cvsroot/instantobjects/Source/Core/InstantCode.pas,v
retrieving revision 1.7
retrieving revision 1.8
diff -C2 -d -r1.7 -r1.8
*** InstantCode.pas	20 Nov 2004 10:52:31 -0000	1.7
--- InstantCode.pas	11 Feb 2005 17:03:36 -0000	1.8
***************
*** 3975,3982 ****
  procedure TInstantCodeAttribute.InternalWrite(Writer: TInstantCodeWriter);
  
!   procedure WriteStr(const Name, Value: string);
    begin
!     if Value <> '' then
!       Writer.Write(' ' + Name + ' ''' + Value + '''');
    end;
  
--- 3975,3987 ----
  procedure TInstantCodeAttribute.InternalWrite(Writer: TInstantCodeWriter);
  
!   procedure WriteStr(const Name, Value: string; const Force: Boolean = False);
    begin
!     if (Value <> '') or Force then
!     begin
!       if Value <> '' then
!         Writer.Write(' ' + Name + ' ''' + Value + '''')
!       else
!         Writer.Write(' ' + Name);
!     end;
    end;
  
***************
*** 3992,3996 ****
      WriteStr(MetaKeyExternalLinked, Metadata.ExternalLinkedName)
    else if Metadata.IsExternal = ceStored then
!     WriteStr(MetaKeyExternalStored, Metadata.ExternalStoredName)
    else
      WriteStr(MetaKeyStored, Metadata.StorageName);
--- 3997,4005 ----
      WriteStr(MetaKeyExternalLinked, Metadata.ExternalLinkedName)
    else if Metadata.IsExternal = ceStored then
!   begin
!     if Metadata.AttributeType = atPart then
!       WriteStr(MetaKeyStored, Metadata.StorageName);
!     WriteStr(MetaKeyExternalStored, Metadata.ExternalStoredName, True);
!   end
    else
      WriteStr(MetaKeyStored, Metadata.StorageName);
***************
*** 8553,8557 ****
        begin
          FMetadata.IsExternal := ceStored;
!         FMetadata.ExternalStoredName := ReadStringValue;
        end;
        if SameText(Token, MetaKeyExternalLinked) then
--- 8562,8566 ----
        begin
          FMetadata.IsExternal := ceStored;
!         FMetadata.ExternalStoredName := '';
        end;
        if SameText(Token, MetaKeyExternalLinked) then