TokenLoadToken routines updated. Documentation fixed.

CInclude/token.h

@@ -85,15 +85,15 @@ extern Boolean /*XXX*/
 		       VisMonikerSearchFlags searchFlags,
 		       TokenMonikerInfo *tokenMonikerInfo);
 
-extern Boolean /*XXX*/
+extern Boolean
     _pascal TokenLoadMonikerBlock(dword tokenChars,
 			  ManufacturerID manufacturerID,
 			  DisplayType displayType,
 			  VisMonikerSearchFlags searchFlags,
 			  word *blockSize,
 			  MemHandle *blockHandle);
 
-extern Boolean /*XXX*/
+extern Boolean 
     _pascal TokenLoadMonikerChunk(dword tokenChars,
 			  ManufacturerID manufacturerID,
 			  DisplayType displayType,
@@ -102,7 +102,7 @@ extern Boolean /*XXX*/
 			  word *chunkSize,
 			  ChunkHandle *chunkHandle);
 
-extern Boolean /*XXX*/
+extern Boolean 
     _pascal TokenLoadMonikerBuffer(dword tokenChars,
 			   ManufacturerID manufacturerID,
 			   DisplayType displayType,
@@ -117,20 +117,20 @@ extern Boolean /*XXX*/
 extern void /*XXX*/
     _pascal TokenGetTokenStats(dword tokenChars, ManufacturerID manufacturerID);
 
-extern Boolean /*XXX*/
+extern Boolean 
     _pascal TokenLoadTokenBlock(dword tokenChars,
 			ManufacturerID manufacturerID,
 			word *blockSize,
 			MemHandle *blockHandle);
 
-extern Boolean /*XXX*/
+extern Boolean 
     _pascal TokenLoadTokenChunk(dword tokenChars,
 			ManufacturerID manufacturerID,
 			MemHandle lmemBlock,
 			word *chunkSize,
 			ChunkHandle *chunkHandle);
 
-extern Boolean /*XXX*/
+extern Boolean 
     _pascal TokenLoadTokenBuffer(dword tokenChars,
 			 ManufacturerID manufacturerID,
 			 TokenEntry *buffer);

Library/User/Token/tokenC.asm

@@ -413,6 +413,10 @@ TOKENLOADTOKENBLOCK	proc	far	tokenChars:dword,
 	clr	cx			; allocate global heap block
 	call	TokenLoadToken		; cx = #bytes, di = block
 					; carry clear if found
+	jnc 	foundit
+	mov	cx, 0			; return zero block and #bytes
+	mov	di, 0			; preserve carry
+foundit:	
 	les	si, blockSize
 	mov	es:[si], cx		; return #bytes
 	les	si, blockHandle
@@ -457,6 +461,10 @@ TOKENLOADTOKENCHUNK	proc	far	tokenChars:dword,
 	clr	di			; cx = lmemBlock
 	call	TokenLoadToken		; cx = #bytes, di = lmem chunk
 					; carry clear if found
+	jnc 	foundit
+	mov	cx, 0			; return zero chunk handle and #bytes
+	mov	di, 0			; preserve carry
+foundit:	
 	les	si, chunkSize
 	mov	es:[si], cx		; return #bytes
 	les	si, chunkHandle

TechDocs/Markdown/Routines/rroutq_t.md

@@ -2401,8 +2401,8 @@ pointers to any chunk in the block.
 			word			* blockSize,		/* returned size of new block */
 			MemHandle		* blockHandle);		/* returned handle of block */
 This routine loads the specified token's **TokenEntry** structure into a 
-newly-allocated global memory block. If the token is not found, the returned 
-error flag will be *true*; otherwise, it will be *false*.
+newly-allocated global memory block. The returned Boolean will be *true* if the 
+token was found, *false* otherwise.
 
 Pass this routine the following:
 
@@ -2428,7 +2428,7 @@ newly-allocated block will be returned.
 			ManufacturerID	manufacturerID,		/* manufacturer ID of token */
 			TokenEntry		* buffer);			/* buffer for returned token */
 This routine loads the specified token's **TokenEntry** structure into a passed 
-buffer. The returned error flag will be *true* if the token was not found, *false* 
+buffer. The returned Boolean will be *true* if the token was found, *false* 
 otherwise. Pass this routine the following:
 
 *tokenChars* - The four token characters that identify the token database 
@@ -2452,8 +2452,8 @@ will be copied.
 			word			* chunkSize,		/* returned size of new chunk */
 			ChunkHandle		* chunkHandle);		/* returned chunk handle */
 This routine loads the specified token's **TokenEntry** structure into a 
-newly-allocated chunk. The returned error flag will be *true* if the token could 
-not be found, *false* otherwise.
+newly-allocated chunk. The returned Boolean will be *true* if the token was found, 
+*false* otherwise.
 
 Pass this routine the following:
 

TechDocs/ascii/Routines/rroutq-t.txt

@@ -2963,8 +2963,8 @@ Boolean	TokenLoadMonikerBlock(
 	MemHandle		* blockHandle);					/* returned block handle */
 
 This routine loads a specified token's moniker, allocating a new global 
-memory block for the moniker. The returned Boolean will be false if the 
-moniker was found, true otherwise. Information about the moniker is 
+memory block for the moniker. The returned Boolean will be true if the 
+moniker was found, false otherwise. Information about the moniker is 
 returned in the values pointed to by blockSize (the size of the newly allocated 
 block) and blockHandle (the handle of the new block). If the moniker is not 
 found, both return pointers will be NULL and no block will be allocated.
@@ -3015,7 +3015,7 @@ Boolean	TokenLoadMonikerBuffer(
 	word		* bytesReturned);						/* number of bytes returned */
 
 This routine loads a specified token's moniker into a provided buffer. The 
-return value will be false if the moniker was found, true otherwise. The size 
+returned Boolean will be true if the moniker was found, false otherwise. The size 
 of the returned moniker will be returned in the word pointed to by the 
 bytesReturned parameter.
 
@@ -3067,8 +3067,8 @@ Boolean	TokenLoadMonikerChunk(
 	ChunkHandle		* chunkHandle);					/* returned new chunk handle */
 
 This routine loads a specified token's moniker, allocating a new chunk in a 
-local memory block for the moniker. The returned error flag will be true if the 
-moniker was not found, false otherwise.
+local memory block for the moniker. The returned Boolean will be true if the 
+moniker was found, false otherwise.
 
 Pass this routine the following:
 
@@ -3117,8 +3117,8 @@ Boolean	TokenLoadTokenBlock(
 	MemHandle		* blockHandle);					/* returned handle of block */
 
 This routine loads the specified token's TokenEntry structure into a 
-newly-allocated global memory block. If the token is not found, the returned 
-error flag will be true; otherwise, it will be false.
+newly-allocated global memory block. The returned Boolean will be true if the 
+token was found, false otherwise.
 
 Pass this routine the following:
 
@@ -3150,7 +3150,7 @@ Boolean	TokenLoadTokenBuffer(
 	TokenEntry		* buffer);					/* buffer for returned token */
 
 This routine loads the specified token's TokenEntry structure into a passed 
-buffer. The returned error flag will be true if the token was not found, false 
+buffer. The returned Boolean will be true if the token was found, false 
 otherwise. Pass this routine the following:
 
 tokenChars	The four token characters that identify the token database 
@@ -3181,8 +3181,8 @@ Boolean	TokenLoadTokenChunk(
 	ChunkHandle		* chunkHandle);					/* returned chunk handle */
 
 This routine loads the specified token's TokenEntry structure into a 
-newly-allocated chunk. The returned error flag will be true if the token could 
-not be found, false otherwise.
+newly-allocated chunk. The returned Boolean will be true if the 
+token was found, false otherwise.
 
 Pass this routine the following:
 

TechDocs/html/CRef/Routines/R_9c.htm

@@ -166,9 +166,9 @@ <H1 CLASS="refHeading">
 <P>
 This routine loads the specified token's <CODE>
 TokenEntry</CODE>
- structure into a newly-allocated global memory block. If the token is not found, the returned error flag will be <CODE>
+ structure into a newly-allocated global memory block. The returned Boolean will be <CODE>
 true</CODE>
-; otherwise, it will be <CODE>
+if the token was found; otherwise, it will be <CODE>
 false</CODE>
 .</P>
 <P>
@@ -210,11 +210,10 @@ <H1 CLASS="refHeading">
 <P>
 This routine loads the specified token's <CODE>
 TokenEntry</CODE>
- structure into a passed buffer. The returned error flag will be <CODE>
+ structure into a passed buffer. The returned Boolean will be <CODE>
 true</CODE>
- if the token was not found, <CODE>
-false</CODE>
- otherwise. Pass this routine the following:</P>
+if the token was found; otherwise, it will be <CODE>
+false</CODE>. Pass this routine the following:</P>
 <DL>
 <DT>
 <CODE>