home *** CD-ROM | disk | FTP | other *** search
/ Piper's Pit BBS/FTP: ibm 0020 - 0029 / ibm0020-0029 / ibm0028.tar / ibm0028 / KAPA1.ZIP / EXAMPLE2.ZIP / KAPPA.C < prev    next >
Encoding:
C/C++ Source or Header  |  1990-07-27  |  2.9 KB  |  88 lines
  1. /****************************************************************
  2. **                KAPPA.c
  3. *****************************************************************/
  4.  
  5. /******************************************************/
  6. /*     Copyright (c) MegaKnowledge 1988           */
  7. /*     VersionInfo: "%w %v %f"                  */
  8. /*     "RBP' 11 6-Mar-89,19:58:12" */
  9. /*                              */
  10. /******************************************************/
  11.  
  12. /*  KAPPA.c - Resident startup portion of Kappa  */
  13.  
  14. #include "kappa.h"
  15.  
  16. /* Declare functions to be registered */
  17. short Hypotenuse (ARGLIST);
  18.  
  19. /****************************************************************
  20. ** First include the files with the structures and definitions,
  21. ** as well as the global variable declarations.
  22. *****************************************************************/
  23.  
  24. /****************************************************************
  25. ** Main procedure, called by microsoft windows when
  26. ** KAPPA.EXE is activated.
  27. *****************************************************************/
  28. int FAR PASCAL WinMain( hInstance, hPrevInstance, lpszCmdLine, cmdShow)
  29. HANDLE hInstance, hPrevInstance;
  30. LPSTR  lpszCmdLine;
  31. int    cmdShow;
  32. {
  33.     if ( KappaInit( KERNEL, hInstance, hPrevInstance, lpszCmdLine, cmdShow )
  34.          == FALSE )
  35.     return FALSE;
  36.     if ( KappaInit( DEVELOP, hInstance, hPrevInstance, lpszCmdLine, cmdShow )
  37.          == FALSE )
  38.     return FALSE;
  39.  
  40.     /************************************************************/
  41.     /* FOR THE USER:                        */
  42.     /*    - Please insert all your initialization code after this */
  43.     /*    comment and before the 'return' statement.        */
  44.     /*    - At this point, all KAPPA specific information has    */
  45.     /*    already been initialized.                */
  46.     /*    - Please repeat appropriate initialization code in the    */
  47.     /*    'InitNewApplication'.  This routine is called upon    */
  48.     /*    selection of 'New' from the File menu of KAPPA.     */
  49.     /************************************************************/
  50.     /* Begin */
  51.     Register_Function ("Hypo", (KAPPROC) Hypotenuse, EVAL_ARGS,
  52.                        CAT_MISC);
  53.  
  54.     /* End */
  55.     return KappaLoad( DEVELOP, lpszCmdLine );
  56. }
  57.  
  58. /****************************************************************
  59. ** Initialzation procedure, called by KAPPA when the New menu item
  60. ** is selected.
  61. *****************************************************************/
  62. void InitNewApplication (void)
  63. {
  64.     /* Begin */
  65.  
  66.  
  67.  
  68.     /* End */
  69. }
  70.  
  71. /****************************************************************
  72. ** Initialzation procedure, called by KAPPA when the OPEN menu item
  73. ** is selected.
  74. *****************************************************************/
  75. void InitOpenApplication (void)
  76. {
  77.     /* Begin */
  78.  
  79.  
  80.  
  81.     /* End */
  82. }
  83. /****************************************************************
  84. **            END OF MAIN FILE
  85. *****************************************************************/
  86.  
  87.  
  88.