home *** CD-ROM | disk | FTP | other *** search
/ Black Box 4 / BlackBox.cdr / progbas / qbxdbf10.arj / QBXDBF.BI < prev    next >
Encoding:
Text File  |  1991-09-30  |  5.3 KB  |  108 lines
  1. '***** QBXDBF ver 1.00 declarations *****
  2. 'standard functions
  3. DECLARE FUNCTION AddKeyDBF% (kyfile%, recordno&, vseg%, voff%)
  4. DECLARE FUNCTION AddRecordDBF% (dbfile%, vseg%, voff%, recordno&)
  5. DECLARE FUNCTION CloseDataDBF% (dbfile%)
  6. DECLARE FUNCTION CloseKeyDBF% (kyfile%)
  7. DECLARE FUNCTION CopyDataStrucDBF% (dbfile%, copyfile$)
  8. DECLARE FUNCTION CopyKeyStrucDBF% (kyfile%, copyfile$)
  9. DECLARE FUNCTION CreateDataDBF% (filename$, NoFields%, FieldList() AS ANY)
  10. DECLARE FUNCTION CreateKeyDBF% (filename$, kx$, dbfile%)
  11. DECLARE FUNCTION DeleteRecordDBF% (dbfile%, recordno&)
  12. DECLARE FUNCTION ExitDBF% ()
  13. DECLARE FUNCTION ExpandDataDBF% (dbfile%, norecs&)
  14. DECLARE FUNCTION ExpandKeyDBF% (kyfile%, nokeys&)
  15. DECLARE FUNCTION FlushDataDBF% (dbfile%, dup%)
  16. DECLARE FUNCTION FlushKeyDBF% (kyfile%, dup%)
  17. DECLARE FUNCTION FreeDataFileDBF% ()
  18. DECLARE FUNCTION FreeKeyFileDBF% ()
  19. DECLARE FUNCTION GetCurrKeyDBF% (kyfile%, Qkey$)
  20. DECLARE FUNCTION GetDirectDBF% (dbfile%, recordno&, vseg%, voff%)
  21. DECLARE FUNCTION GetEqualDBF% (kyfile%, dbfile%, Qkey$, vseg%, voff%)
  22. DECLARE FUNCTION GetFirstDBF% (kyfile%, dbfile%, vseg%, voff%)
  23. DECLARE FUNCTION GetGTDBF% (kyfile%, dbfile%, Qkey$, vseg%, voff%)
  24. DECLARE FUNCTION GetGTEDBF% (kyfile%, dbfile%, Qkey$, vseg%, voff%)
  25. DECLARE FUNCTION GetLastDBF% (kyfile%, dbfile%, vseg%, voff%)
  26. DECLARE FUNCTION GetLTDBF% (kyfile%, dbfile%, Qkey$, vseg%, voff%)
  27. DECLARE FUNCTION GetLTEDBF% (kyfile%, dbfile%, Qkey$, vseg%, voff%)
  28. DECLARE FUNCTION GetNextDBF% (kyfile%, dbfile%, vseg%, voff%)
  29. DECLARE FUNCTION GetPositionDBF% (kyfile%, recordno&)
  30. DECLARE FUNCTION GetPrevDBF% (kyfile%, dbfile%, vseg%, voff%)
  31. DECLARE FUNCTION InitDBF% (KEYfiles%, DBFfiles%, DBFfields%)
  32. DECLARE FUNCTION MKN$ (dbfile%, FieldNumber%, zNum#, errc%)
  33. 'PDS-DECLARE FUNCTION MKN$ (dbfile%, FieldNumber%, zNum@, errc%)
  34. DECLARE FUNCTION OpenDataDBF% (filename$, dbfile%, asmode%)
  35. DECLARE FUNCTION OpenKeyDBF% (filename$, kyfile%, dbfile%, asmode%)
  36. DECLARE FUNCTION StatDataDBF% (dbfile%, RecLen%, norecs&, bfileno%, NoFields%, LUdate$, ID%)
  37. DECLARE FUNCTION StatKeyDBF% (kyfile%, keylen%, keys&, bfileno%)
  38. DECLARE FUNCTION UndeleteRecordDBF% (dbfile%, recordno&)
  39. DECLARE FUNCTION UpdateRecordDBF% (dbfile%, recordno&, vseg%, voff%)
  40. DECLARE FUNCTION VersionDBF% (version$)
  41. '-----STANDARD EXTERNAL-----
  42. DECLARE FUNCTION PackDBF% (dbfile%, kyfile%, packfile$, keyfile$)
  43. DECLARE FUNCTION ReIndexDBF% (kyfile%, dbfile%, NewKeyFile$)
  44. '-----LOW-LEVEL-----
  45. DECLARE FUNCTION GetKeyExpressionDBF% (kyfile%, kx$)
  46. DECLARE FUNCTION GetKeyAtPosDBF% (kyfile%, keyat$)
  47. DECLARE FUNCTION ConstructQkeyDBF% (kyfile%, Qkey$, vseg%, voff%, keylen%)
  48. DECLARE FUNCTION GetFieldDBF% (dbfile%, FieldNo%, FieldList AS ANY)
  49. DECLARE FUNCTION GetHeaderDBF% (dbfile%, HeaderList AS ANY)
  50. DECLARE FUNCTION SetFieldDBF% (dbfile%, FieldNo%, FieldList AS ANY)
  51. DECLARE FUNCTION SetHeaderDBF% (dbfile%, HeaderList AS ANY)
  52. DECLARE FUNCTION ReadHeaderDBF% (dbfile%)
  53. DECLARE FUNCTION WriteHeaderDBF% (dbfile%)
  54. DECLARE FUNCTION ReadFieldDescDBF% (dbfile%)
  55. DECLARE FUNCTION WriteFieldDescDBF% (dbfile%)
  56. DECLARE FUNCTION ProcessExpressionDBF$ (express$, errc%, maxvar%, maxsub%)
  57. DECLARE FUNCTION GetTreeState% (kyfile%, TreeState AS ANY)
  58. '---- UTILITY ----
  59. DECLARE SUB GetDiskInfo (drive$, AvailClusters%, MaxClusters%, BytesSector%, SectorsCluster%, freebytes&)
  60. DECLARE FUNCTION GetDefaultDrive% ()
  61. DECLARE FUNCTION FileExists% (filename$)
  62. DECLARE FUNCTION GetDosVersion% ()
  63. DECLARE FUNCTION SFTFiles% ()
  64. DECLARE FUNCTION GetXEInfo% (class%, action%, locus%)
  65. '----- UTILITY EXTERNAL ----
  66. DECLARE FUNCTION CreateFile% (pathname$, BYVAL attribute%)
  67. DECLARE FUNCTION OpenDevice% (pathname$, BYVAL asmode%, handle%, flen&)
  68. DECLARE FUNCTION ReadDevice% (BYVAL handle%, BYVAL start&, BYVAL bytes&, BYVAL vseg%, BYVAL voff%)
  69. DECLARE FUNCTION WriteDevice% (BYVAL handle%, BYVAL start&, BYVAL bytes&, BYVAL vseg%, BYVAL voff%)
  70. DECLARE FUNCTION CloseDevice% (BYVAL handle%)
  71. DECLARE FUNCTION DeleteFile% (pathname$)
  72. DECLARE FUNCTION RenameFile% (oldpathname$, newpathname$)
  73. '---- INTERNAL USE ----
  74. DECLARE FUNCTION RetrieveFirst% (kfile%, Qkey2$, Qrecno&)
  75. DECLARE FUNCTION RetrievePrev% (kfile%, Qkey2$, Qrecno&)
  76. DECLARE FUNCTION RetrieveEqual% (kfile%, Qkey2$, Qrecno&)
  77. DECLARE FUNCTION RetrieveNext% (kfile%, Qkey2$, Qrecno&)
  78. DECLARE FUNCTION RetrieveLast% (kfile%, Qkey2$, Qrecno&)
  79. DECLARE FUNCTION RetrieveGT% (kfile%, Qkey2$, Qrecno&)
  80. DECLARE FUNCTION RetrieveGTE% (kfile%, Qkey2$, Qrecno&)
  81. DECLARE FUNCTION RetrieveLT% (kfile%, Qkey2$, Qrecno&)
  82. DECLARE FUNCTION RetrieveLTE% (kfile%, Qkey2$, Qrecno&)
  83. '---- INTERNAL USE EXTERNAL ----
  84. DECLARE FUNCTION MemComp% (BYVAL vseg1%, BYVAL voff1%, BYVAL vseg2%, BYVAL voff2%, BYVAL bytes%)
  85. DECLARE SUB MemCopy (BYVAL FromSeg%, BYVAL FromOff%, BYVAL ToSeg%, BYVAL ToOff%, BYVAL count%)
  86. DECLARE SUB QuikSort (BYVAL vseg%, BYVAL voff%, BYVAL Items%, BYVAL RecLen%, BYVAL cstart%, BYVAL cbytes%)
  87.  
  88. '--------------------------------------------------------------------------
  89. '{Prg-level structure used to get/set each field in a db record}
  90.  
  91. TYPE DBFFieldListTYPE
  92. FieldName AS STRING * 10
  93. FieldType AS STRING * 1
  94. FieldLen AS INTEGER
  95. FieldDC AS INTEGER
  96. END TYPE '15
  97.  
  98. TYPE TreeStateTYPE
  99. ackysc AS LONG
  100. cukysc AS LONG
  101. cukyof AS INTEGER
  102. iflag AS INTEGER
  103. stkcnt AS INTEGER
  104. pstack AS STRING * 40
  105. END TYPE '54 -- allocated in caller program, internal use only
  106.  
  107.  
  108.