home *** CD-ROM | disk | FTP | other *** search
/ Piper's Pit BBS/FTP: ibm 0020 - 0029 / ibm0020-0029 / ibm0028.tar / ibm0028 / KAPA1.ZIP / EXAMPLE1.ZIP / KAPPA.C < prev    next >
Encoding:
C/C++ Source or Header  |  1990-07-27  |  3.1 KB  |  84 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.  
  15. /****************************************************************
  16. ** First include the files with the structures and definitions,
  17. ** as well as the global variable declarations.
  18. *****************************************************************/
  19. #include "kappa.h"
  20.  
  21. /* Function declarations */
  22. short SquareHandler (ARGLIST);
  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 ( "Square", SquareHandler, EVAL_ARGS, CAT_MATH );
  52.  
  53.     /* End */
  54.     return KappaLoad( DEVELOP, lpszCmdLine );
  55. }
  56.  
  57.  
  58.  
  59. /****************************************************************
  60. ** Initialzation procedure, called by KAPPA when the New menu item
  61. ** is selected.
  62. *****************************************************************/
  63. void InitNewApplication (void)
  64. {
  65.     /* Begin */
  66.     Register_Function ( "Square", SquareHandler, EVAL_ARGS, CAT_MATH );
  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.     /* End */
  80. }
  81. /****************************************************************
  82. **                      END OF MAIN FILE
  83. *****************************************************************/
  84.