home *** CD-ROM | disk | FTP | other *** search
/ Celestin Apprentice 5 / Apprentice-Release5.iso / Source Code / C / Frameworks / Grant's CGI Framework 1.0b14 / Util / Version.c < prev    next >
Encoding:
C/C++ Source or Header  |  1996-04-11  |  906 b   |  45 lines  |  [TEXT/CWIE]
  1. /*****
  2.  *
  3.  *    Version.c
  4.  *
  5.  *    This is a support file for "Grant's CGI Framework".
  6.  *    Please see the license agreement that accompanies the distribution package
  7.  *    for licensing details.
  8.  *
  9.  *    Copyright ©1995,1996 by Grant Neufeld
  10.  *    grant@acm.com
  11.  *    http://arpp.carleton.ca/grant/
  12.  *
  13.  *****/
  14.  
  15. #include "compiler_stuff.h"
  16.  
  17. #include "Version.h"
  18.  
  19.  
  20. /***  FUNCTIONS  ***/
  21.  
  22. /* set the versionString to the short version string from the 'vers' resource
  23.     with ID resID */
  24. void
  25. VersionGetShort ( short resId, Str255 versionString )
  26. {
  27.     Handle    resource;
  28.     
  29.     /* Get the resource */
  30.     resource = GetResource ( 'vers', resId );
  31.     if ( resource == NULL )
  32.     {
  33.         versionString[0] = nil;
  34.         return;
  35.     }
  36.     
  37.     /*    The short description (pascal) string starts at the 7th byte */
  38.     BlockMove ( (StringPtr) (*resource) + 6, versionString, (*resource)[6] + 1 );
  39.     
  40.     ReleaseResource ( resource );
  41. } /* VersionGetShort */
  42.  
  43.  
  44. /*****  EOF  *****/
  45.