Garbo/Garbo.cdr/mac/source/piemnsrc.sit/NumToStr.c.bin/NumToStr.c

C/C++ Source or Header | 1987-09-30 | 434 b | 18 lines | [TEXT/KAHL]

#include "HyperXCmd.h"

/*  Convert a signed long integer to a Pascal string.  Instead of
    returning a new string, as Pascal does, it expects you to
    create mystr and pass it in to be filled.
 */
pascal void
NumToStr(paramPtr,num,mystr)
register XCmdBlockPtr    paramPtr;
long             num;
Str31    mystr;
{
    paramPtr->inArgs[0] = num;
    paramPtr->inArgs[1] = (long)mystr;
    paramPtr->request = xreqNumToStr;
    (*paramPtr->entryPoint)();
}