
Area : Saved netmail

Date : Feb 04 '95, 16:07                                               pvt rcv 
From : Marius Ellen                                          2:282/531.2
To   : Gerard van Essen                                        2:281/527
Subj : fdlist                                                                


Hello Gerard,

ME>> ik struikel alleen nog over het zetten van de gecompileerde
ME>> zones op offset 0x110 in nodelist.fdx. Ik kom er maar niet uit.

GvE> Sorry, Marius; ik heb ook geen idee hoe het zit. Ik gebruik ze in ieder
GvE> geval niet :-)
Bedankt ;-) Maar ben er uiteindelijk toch achter gekomen wat het is. De nieuwe
FastV7 kan nu ook naast Version7 style ook Frontdoor style en GoldEd 2.4x en
2.5x compileren.

=== Cut ===
  FdNameStr = array[0..14] of char;

  FdNodeFdxRec = record           { NodeList.Fdx record $17 (23)        }
    NodePos   : Longint;          { FilePos to boardname                }
    Child     : Longint;          { Nr of Child blk nr (lower index)    }
    Length    : Byte;             { const $0e (14)                      }
    Address   : Taddress;         { Swapped address                     }
    RoutNet   : Word;             { Default routing (net)               }
    RoutNode  : Word;             { Default routing (node)              }
    Status    : Byte;             { Zone/Region/Host/Hub etc            }
    Reserved  : Byte;             { const $ff                           }
  end;                            { Subrecord FdNodeBlk                 }

  FdUserFdxRec = record           { UserList.Fdx record $21 (33)        }
    NodePos   : Longint;          { FilePos to boardname                }
    Child     : Longint;          { Nr of Child blk nr (lower index)    }
    Length    : Byte;             { const $18 (24)                      }
    SName     : FDNameStr;        { Upper padr (last first)             }
    Address   : Taddress;         { Swapped address                     }
    Status    : Byte;             { Zone/Region/Host/Hub etc            }
  end;                            { Subrecord FdUserBlk                 }

  FdNodeBlk = record              { NodeList.Fdx structure $2e5 (741)   }
    case Boolean of               { 32 * $17 + 5 = $2e5 bytes           }
    0:(CtlMinus   : Longint;      { const $ffffffff                     }
       CtlZero    : Longint;      { const $00000000                     }
       CtlRoot    : Longint;      { blocknr of first main index         }
       CtlSize    : Longint;      { size of used block ($2e5)           }
       CtlDummyA  : String[$ef];  { const $000..000                     }
       CtlExten   : String[3];    { extension of fdnet or NodeList file }
       CtlVersion : Word;         { database revision ($0302)           }
       CtlPhone   : Byte;         { swedish pulse blabla                }
       CtlDummyB  : String[$08];  { const $000..000                     }
>      CtlHiZone  : Word;         { Highest compiled zone               }
>      CtlIncSet  : Set of 0..255);{ Set of included zones              }
    1:(IdxRecs    : Byte;         { Number of Items in IdxData          }
       IdxChild   : Longint;      { Nr of Child blk nr (lower index)    }
       IdxData    : array[0..31] of FDNodeFdxRec);
  end;

  FdUserBlk = record              { UserList.Fdx structure $425 (1061)  }
    case Boolean of               { 32 * $21 + 5 = $425 bytes           }
    0:(CtlMinus   : Longint;      { const $ffffffff                     }
       CtlZero    : Longint;      { const $00000000                     }
       CtlRoot    : Longint;      { blocknr of first main index         }
       CtlSize    : Longint);     { size of used block ($425)           }
    1:(IdxRecs    : Byte;         { Number of Items in IdxData          }
       IdxChild   : Longint;      { Nr of Child blk nr (lower index)    }
       IdxData    : array[0..31] of FDUserFdxRec);
  end;

  FdPhoneBlk = record             { Phone.Fdx structure $3a5 (933)      }
    case Boolean of               { 32 * $1d + 5 = $3a5 bytes           }
    0:(CtlMinus   : Longint;      { const $ffffffff                     }
       CtlZero    : Longint;      { const $00000000                     }
       CtlRoot    : Longint;      { blocknr of first main index         }
       CtlSize    : Longint);     { size of used block ($3a5)           }
    1:(IdxRecs    : Byte;         { Number of Items in IdxData          }
       IdxChild   : Longint;      { Nr of Child blk nr (lower index)    }
       IdxData    : array[0..31] of FDPhoneFdxRec);
  end;
=== Cut ===

De fd developers filetjes maken dat niet echt duidelijk.

Greetings,
Marius
--- GoldED 2.50.Beta4+
 * Origin: Always look at the bright side of life. (2:282/531.2)
