home *** CD-ROM | disk | FTP | other *** search
/ Garbo / Garbo.cdr / mac / source / luschsrc.sit / string.c.bin / string.c
Encoding:
C/C++ Source or Header  |  1990-01-26  |  938 b   |  42 lines  |  [TEXT/KAHL]
  1. /********************************************************************************
  2.  *    string.c
  3.  *
  4.  *    String Handling Package
  5.  *
  6.  *    Written by Paco Xander Nathan
  7.  *    ⌐1990, Motorola Inc.  Public domain source code.
  8.  ********************************************************************************/
  9.  
  10. #include "applic.h"
  11. #include "string.h"
  12.  
  13.  
  14. /* Copy a pascal string from p1 to p2
  15.  */
  16. void
  17. StrPCpy (p2, p1)
  18.     register StringPtr p1, p2;
  19. {
  20.     if (p1 && p2)
  21.         BlockMove(p1, p2, (long) (*p1 + 1));
  22. }
  23.  
  24.  
  25. /* Get name from chooser desk accessory
  26.  */
  27. OSErr 
  28. StrGetChooser (theName)
  29.     register StringPtr theName;
  30. {
  31.     register StringHandle strHndl;
  32.  
  33.     strHndl = GetString(-16096);                    /* resID of chooser string */
  34.     if (strHndl) {                                    /* if resource actually exists */
  35.         StrPCpy(theName, (StringPtr) *strHndl);        /* copy string to Name param */
  36.         ReleaseResource((Handle) strHndl);            /* release the resource */
  37.         return(noErr);
  38.     }
  39.  
  40.     return(nilHandleErr);
  41. }
  42.