mirror of
https://github.com/elliotnunn/sys7.1-doc-wip.git
synced 2024-06-11 23:29:30 +00:00
82 lines
2.1 KiB
OpenEdge ABL
82 lines
2.1 KiB
OpenEdge ABL
{
|
|
File: dpPubControlBlock.p
|
|
|
|
Contains: Code for creation, disposing, and using Publication Control Blocks
|
|
|
|
Written by: Nick Kledzik
|
|
|
|
Copyright: © 1989-1990 by Apple Computer, Inc., all rights reserved.
|
|
|
|
Change History (most recent first):
|
|
|
|
<6> 6/20/90 ngk change CanonicalFileSpec to FSSpec
|
|
<5> 5/31/90 ngk now have GetLastEditionContainerUsed
|
|
<4> 4/7/90 ngk Fix uses.
|
|
<3> 3/10/90 ngk Fixed USES file order.
|
|
<2> 1/6/90 ngk Changed USES to use Edition.p and EditionPrivate.p removed
|
|
PubCBOnceOnlyInt to Init.p
|
|
<1.7> 11/13/89 ngk Cleaned up dependencies
|
|
<1.6> 10/2/89 ngk EASE sucks
|
|
<•1.5> 10/2/89 ngk nothing
|
|
<1.4> 9/18/89 ngk Changed FileSpec to CanonicalFileSpec.
|
|
<1.3> 8/29/89 ngk Change PubCBbumpUsageCount to use IOCount instead of openCount.
|
|
<1.2> 8/8/89 ngk Added PubControlBlockOnceOnlyInit
|
|
<1.1> 5/29/89 ngk Changed PubCB to have a handle to usage info instead of the
|
|
PubCB being variable size. Factored usage changes into
|
|
PubCBbumpUsageCount
|
|
<1.0> 5/19/89 ngk Submitted for first time
|
|
|
|
To Do:
|
|
}
|
|
|
|
|
|
UNIT dpPubControlBlock;
|
|
|
|
|
|
INTERFACE
|
|
|
|
USES
|
|
{ • public Interface files }
|
|
StandardEqu, Editions,
|
|
|
|
{ • private Interface files }
|
|
EditionsPrivate,
|
|
|
|
{ • other Edition Manager Units }
|
|
dpMisc, dpPubIO;
|
|
|
|
|
|
CONST
|
|
kCheckExisting = TRUE;
|
|
kCanAllocateNew = TRUE;
|
|
kCanGrowUsage = TRUE;
|
|
|
|
FUNCTION dpGetPubCBListHeadNode(VAR headNode: PubCBLinkHandle): OSErr;
|
|
|
|
FUNCTION dpRequestPubCB(editionFile: FSSpec; me: AppRefNum;
|
|
checkExisting, canAllocateNew: BOOLEAN;
|
|
VAR thePubCB: PubCBHandle): OSErr;
|
|
|
|
FUNCTION dpReleasePubCB(thePubCB: PubCBHandle; me: AppRefNum): OSErr;
|
|
|
|
FUNCTION dpPubCBbumpUsageCount(usageInfo: TotalAppUsageHandle;
|
|
whichApp: AppRefNum; canGrowUsage: BOOLEAN;
|
|
bumpUseCount,bumpIOCount: INTEGER):OSErr;
|
|
|
|
FUNCTION dpDisposePubCB(thePubCB: PubCBHandle): OSErr;
|
|
|
|
|
|
PROCEDURE dpRemoveAppsPubCBs(whichApp: AppRefNum);
|
|
|
|
FUNCTION dp_GetLastEditionContainerUsed(VAR container: EditionContainerSpec): OSErr;
|
|
|
|
|
|
|
|
IMPLEMENTATION
|
|
|
|
{$I dpCompileOptions.inc.p }
|
|
{$I dpPubControlBlock.inc.p }
|
|
|
|
END. { dpPubControlBlock }
|
|
|