home *** CD-ROM | disk | FTP | other *** search
/ Celestin Apprentice 4 / Apprentice-Release4.iso / Source Code / OpenDoc / CreditNow! / CreditNow! Source / $SOM / CreditNowDemoInit.cpp < prev   
Encoding:
C/C++ Source or Header  |  1995-04-23  |  2.0 KB  |  76 lines  |  [TEXT/MPS ]
  1. /*
  2.     File:        CreditNowDemoInit.cpp
  3.     Contains:    Init routines
  4.     Written by:    PartMaker
  5.  
  6.     Change History (most recent first):
  7.  
  8.     <3>    3/20/95    JS        Updated for Developer Release 2.
  9.     <3>    3/20/95    JS        Use InitODMemory()
  10.     <2>    3/8/95    JS        Updated to b1c13/c14
  11.     <1>    2/2/95    RA        first checked in
  12.     <0>    PartMaker source by E. Soldan, T. Çelik, J. Alfke, R. Adkins, D. Nelson, J. Schalk
  13. */
  14.  
  15. #ifndef _ALTPOINT_
  16. #include <AltPoint.h>
  17. #endif
  18.  
  19. #ifndef __SOM__
  20. #include <som.xh>
  21. #endif
  22.  
  23. #ifndef __SOMOBJ__
  24. #include <somobj.xh>
  25. #endif
  26.  
  27. #ifndef __USERSRCM__
  28. #include <UseRsrcM.h>
  29. #endif
  30.  
  31. #ifndef __CODEFRAGMENTS__
  32. #include <CodeFragments.h>
  33. #endif
  34.  
  35. #ifndef SOM_Module_creditnowdemo_Source
  36. #include "CreditNowDemo.xh"
  37. #endif
  38.  
  39. #ifndef _CREDITNOWDEMO_
  40. #include "CPCreditNowDemo.h"
  41. #endif
  42.  
  43. //---------------------------------------------------------------------------------------
  44. // Library initialization routine
  45. //---------------------------------------------------------------------------------------
  46.  
  47. extern "C" pascal OSErr CreditNowDemoCFMInit (CFragInitBlockPtr initBlkPtr);
  48.  
  49. pascal OSErr CreditNowDemoCFMInit (CFragInitBlockPtr initBlkPtr)
  50. {
  51.     EnteringMethod("\pCreditNowDemoCFMInit");
  52.  
  53.     OSErr err1 = InitODMemory();
  54.     OSErr err2 = InitLibraryResources(initBlkPtr);
  55.     
  56.     return err1 ? err1 : err2;
  57. }
  58.  
  59. //---------------------------------------------------------------------------------------
  60. // Library main routine
  61. //---------------------------------------------------------------------------------------
  62.  
  63. SOMEXTERN void SOMLINK CreditNowDemoSOMInit (long majorVersion, 
  64.                                        long minorVersion, 
  65.                                        string className);
  66.                                        
  67. SOMEXTERN void SOMLINK CreditNowDemoSOMInit (long majorVersion, 
  68.                                        long minorVersion, 
  69.                                        string className)
  70. {
  71.     EnteringMethod("\pCreditNowDemoSOMInit");
  72.  
  73.     AppropriateSolns_CreditNowDemoNewClass(majorVersion, minorVersion);
  74. }
  75.  
  76.