CICA 1993 August/CICA.cdr/unzipped/programr/vbasic/hugary/hugearr.bas

BASIC Source File | 1992-03-11 | 1.7 KB | 27 lines

' The original set of definitions.
 Global Const HA_OK              = 0
 Global Const HA_OUTOFMEMORY    = -1
 Global Const HA_TOMANYARRAYS   = -2
 Global Const HA_BADELEMENTSIZE = -3  ' no longer possible; left for backward compatibility.
 Global Const HA_SUBSCRIPT      = -4
 Global Const HA_BADARRAY       = -5
 Global Const HA_FILEOPENERROR  = -7
 Global Const HA_FILEWRITEERROR = -8
 Global Const HA_FILEREADERROR  = -9
 Declare Function HugeDim% Lib "hugearr.dll" (ByVal recsize%, ByVal limit&)
 Declare Function HugeRedim% Lib "hugearr.dll" (ByVal hArray%, ByVal limit&)
 Declare Function GetHugeEl% Lib "hugearr.dll" (ByVal Index%, ByVal el&, buffer As Any)
 Declare Function GetHugeNEl% Lib "hugearr.dll" (ByVal Index%, ByVal el&, ByVal nelem%, buffer As Any)
 Declare Function SetHugeEl% Lib "hugearr.dll" (ByVal Index%, ByVal el&, buffer As Any)
 Declare Function SetHugeNEl% Lib "hugearr.dll" (ByVal Index%, ByVal el&, ByVal nelem%, buffer As Any)
 Declare Function HugeErase% Lib "hugearr.dll" (ByVal hArray%)
 Declare Function NumHugeArrays% Lib "hugearr.dll" ()
 Declare Function HugeUbound& Lib "hugearr.dll" (ByVal hArray%)
 Declare Function HugeInt% Lib "hugearr.dll" (ByVal hArray%, ByVal el&)
 Declare Function HugeLong& Lib "hugearr.dll" (ByVal hArray%, ByVal el&)
 Declare Function HugeSingle! Lib "hugearr.dll" (ByVal hArray%, ByVal el&)
 Declare Function HugeDouble# Lib "hugearr.dll" (ByVal hArray%, ByVal el&)
 Declare Function HugeCurrency@ Lib "hugearr.dll" (ByVal hArray%, ByVal el&)
 Declare Function HugeSave& Lib "hugearr.dll" (ByVal hArray%, ByVal NEl&, ByVal RecLen%, ByVal Fn$)
 Declare Function HugeLoad& Lib "hugearr.dll" (ByVal hArray%, ByVal RecLen%, ByVal Fn$)