Squish

 BBS: Inland Empire Archive
Date: 05-25-92 (22:37)             Number: 178
From: FRANCOIS ROY                 Refer#: NONE
  To: STEVE MATHIESON               Recvd: NO  
Subj: Squish                         Conf: (2) Quik_Bas

 >Has anyone in here got the Squish API stuff for QB4.5?

 Ok - message #1: here are the structures.  The next
message will tell you what sense I have been able to make
of them so far.

TYPE SQIDX      ' .SQI file: one of these per message (12 bytes)
  OFFST  AS LONG
  UMSGID AS LONG
  HASH   AS LONG
END TYPE

TYPE SQBASE     ' .SQD database header (256 bytes): 1 per .SQD file
  SLEN    AS INTEGER
  RSVD1   AS INTEGER
  NUMMSG  AS LONG       ' No of msgs in area
  HIMSG   AS LONG       ' Highest msg number (same as NUMMSG)
  SKIPMSG AS LONG       ' # of msgs to protect from autoKill
  HIWATER AS LONG       ' Highwatermark
  UID     AS LONG       ' # of next UMSGID to use
  BASEID  AS STRING * 80' Name (incl path) of this message base
  FBEGIN  AS LONG       ' Offset to 1st frame
  FLAST   AS LONG       ' Offset to last frame
  FFBEGIN AS LONG       ' Offset to 1st free frame
  FFLAST  AS LONG       ' Offset to last free frame
  FEND    AS LONG       ' Offset to end of file
  MAXMSGS AS LONG       ' # of msgs to keep
  MAXDAYS AS INTEGER    ' # of days to keep msgs for
  SZSQHDR AS INTEGER    ' Size of SQHDR (32 bytes)
END TYPE

TYPE SQHDR
  ID     AS LONG
  NEXTF  AS LONG
  PREVF  AS LONG
  FLEN   AS LONG
  MSGLEN AS LONG
  CLEN   AS LONG
  FTYP   AS INTEGER
  RSVD   AS INTEGER
END TYPE

TYPE SQMESSAGE    ' The message Header, as it appears in a Squish area
     ATTRIB     AS LONG
     FROM       AS STRING * 36
     DEST       AS STRING * 36
     SUBJ       AS STRING * 72
     ORIGZONE   AS INTEGER
     ORIGNET    AS INTEGER
     ORIGNODE   AS INTEGER
     ORIGPOINT  AS INTEGER
     DESTZONE   AS INTEGER
     DESTNET    AS INTEGER
     DESTNODE   AS INTEGER
     DESTPOINT  AS INTEGER
     BINDATES   AS STRING * 8
     UTCOFST    AS INTEGER
     REPLYTO    AS LONG
     REPLIES    AS STRING * 40
     DATEMSG    AS STRING * 20
END TYPE

--- msgedsq 2.1
 * Origin: R&D BBS 'The VAX Heaven' {819/772-2952} 9600 HST/V32 (1:163/506)