home *** CD-ROM | disk | FTP | other *** search
/ Windows 95 v2.4 Fix / W95-v2.4fix.iso / ACADWIN / ADS / CPP / MFCADS / MFCADS.CPP < prev    next >
Encoding:
C/C++ Source or Header  |  1995-02-08  |  7.4 KB  |  274 lines
  1. /* 
  2.     MFCADS.CPP -
  3.     
  4.     This file:
  5.  
  6.         Defines ADS_APP a MFC ADS application class.
  7.  
  8.     (C) Copyright 1988-1994 by Autodesk, Inc.
  9.  
  10.     This program is copyrighted by Autodesk, Inc. and is  licensed
  11.     to you under the following conditions.  You may not distribute
  12.     or  publish the source code of this program in any form.   You
  13.     may  incorporate this code in object form in derivative  works
  14.     provided  such  derivative  works  are  (i.) are  designed and
  15.     intended  to  work  solely  with  Autodesk, Inc. products, and
  16.     (ii.)  contain  Autodesk's  copyright  notice  "(C)  Copyright
  17.     1988-1994 by Autodesk, Inc."
  18.  
  19.     AUTODESK  PROVIDES THIS PROGRAM "AS IS" AND WITH  ALL  FAULTS.
  20.     AUTODESK  SPECIFICALLY DISCLAIMS ANY IMPLIED WARRANTY OF  MER-
  21.     CHANTABILITY OR FITNESS FOR A PARTICULAR USE.  AUTODESK,  INC.
  22.     DOES  NOT  WARRANT THAT THE OPERATION OF THE PROGRAM  WILL  BE
  23.     UNINTERRUPTED OR ERROR FREE.
  24.  
  25. */
  26. #include "mfcads.h"
  27.  
  28. //-----------------------------------------------------------------------------
  29. ADS_APP     *main_app = NULL;
  30.  
  31. //-----------------------------------------------------------------------------
  32. ADS_APP* GetAdsApp()
  33. {
  34.     ASSERT ( main_app != NULL );
  35.     return main_app;
  36. }
  37.  
  38. //-----------------------------------------------------------------------------
  39. ADS_APP::DISPATCHER  ADS_APP::dispatcher[] =
  40. {
  41.     { RQXLOAD,      &ADS_APP::LOADFun }
  42.     , { RQSUBR,     &ADS_APP::SUBRFun }
  43.     , { RQXUNLD,    &ADS_APP::UNLDFun }
  44.     , { RQEND,      &ADS_APP::ENDFun }
  45.     , { RQQUIT,     &ADS_APP::QUITFun }
  46.     , { RQSAVE,     &ADS_APP::SAVEFun }
  47.     , { RQHUP,      &ADS_APP::HUPFun }
  48.     , { RQCFG,      &ADS_APP::CFGFun }
  49. };
  50.  
  51. /******************************************************************************
  52. *                                                                             *
  53. *                    ADS_APP member functions                                 *
  54. *                                                                             *
  55. ******************************************************************************/
  56. //-----------------------------------------------------------------------------
  57. int ADS_APP::HUPFun( void )
  58. { 
  59.     app_state = APP_DONE;
  60.     return 1;
  61. }
  62.  
  63. //-----------------------------------------------------------------------------
  64. int ADS_APP::QUITFun( void )
  65. {
  66.     app_state = APP_DONE;
  67.     return 1;
  68. }
  69.  
  70. //-----------------------------------------------------------------------------
  71. BOOL ADS_APP::InitInstance()
  72. {
  73.     if ( CWinApp::InitInstance() )
  74.     {
  75.         return TRUE;
  76.     }
  77.     return FALSE;
  78. }
  79.  
  80. //-----------------------------------------------------------------------------
  81. BOOL ADS_APP::InitApplication()
  82. {
  83.     main_app = this;
  84.     if ( ads_winit( m_hInstance, (char*)m_pszAppName ) != RTNORM) 
  85.     {
  86.         return FALSE;
  87.     }
  88.     return TRUE;
  89. }
  90.  
  91. //-----------------------------------------------------------------------------
  92. ADS_APP::ADS_APP( )
  93. {
  94.     LOAD_status = RTNORM;
  95.     UNLD_status = RTERROR;
  96.     SUBR_status = RTNORM;
  97.     num_funs = 0;
  98.     num_run_funs = 0;
  99.     app_state = APP_OK;
  100. }
  101.  
  102. //-----------------------------------------------------------------------------
  103. int ADS_APP::InsertExternFunc(ADS_FUNC_INFO& target)
  104. {
  105.     if (num_funs < MAX_ADS_FUNC)
  106.     {
  107.         target.func_code = num_funs;    // zero based
  108.         exfuns[num_funs++] = target;
  109.         return num_funs;
  110.     }
  111.     else
  112.     {
  113.         return -1;
  114.     }
  115. }
  116.  
  117. //-----------------------------------------------------------------------------
  118. int ADS_APP::LOADFun()
  119. {
  120.     int i;
  121.     for (i = 0; i < num_funs; i++) 
  122.     {
  123.         if ( !ads_defun(exfuns[i].extern_name, i) )
  124.         {
  125.             LOAD_status = RTERROR;
  126.             break;
  127.         }
  128.         else
  129.         {
  130.             ads_printf(exfuns[i].message);
  131.         }
  132.     }
  133.     return ( (LOAD_status == RTNORM) ? -RSRSLT : -RSERR);
  134. }
  135.  
  136.  
  137. //-----------------------------------------------------------------------------
  138. int ADS_APP::UNLDFun()
  139. {
  140.     UNLD_status = RTNORM;
  141.     for (int i = 0; i < num_funs; i++) 
  142.     {
  143.         if (ads_undef(exfuns[i].extern_name,i) == RTERROR)
  144.         {
  145.             UNLD_status = RTERROR;
  146.         }
  147.     }
  148.     app_state = APP_DONE;
  149.     ads_printf( "Unloading.\n" );
  150.     return ( (UNLD_status == RTNORM) ? -RSRSLT : - RSERR);
  151. }
  152.  
  153. //-----------------------------------------------------------------------------
  154. int ADS_APP::OnIdle( LONG lCount )
  155. {
  156.     CWinApp::OnIdle( lCount );
  157.     short   scode = RSRSLT;             /* Normal result code (default) */
  158.     int     stat;
  159.     if ( app_state != APP_DONE )
  160.     {
  161.         if ( ( stat = ads_link( scode ) ) < 0 )
  162.         {
  163.             return (1);
  164.         }
  165.         //
  166.         // There is a chance that the user has closed the window already
  167.         //
  168.         if ( !m_pMainWnd )
  169.         {
  170.             //
  171.             // A kludge for now, can't return to OnIdle()...
  172.             //
  173.             ads_link( RSRSLT );
  174.             AfxTerminate();
  175.         }
  176.         //
  177.         // Dispatching the result
  178.         //
  179.         scode = RSRSLT;
  180.         int i;
  181.         for ( i = 0; i < ARRAY_SIZE( dispatcher ); i++ )
  182.         {            
  183.             if ( dispatcher[i].command == stat)
  184.             {
  185.                 scode = ( this->*dispatcher[i].rsp_fun )();
  186.                 break;
  187.             }            
  188.         }
  189.  
  190.         if ( num_run_funs != 0 )
  191.         {
  192.             while ( --num_run_funs )
  193.             {
  194.                 ( this->*run_funs[ num_run_funs ] )();
  195.             }
  196.         }
  197.     }
  198.     else
  199.     //
  200.     // app_state == APP_DONE, time to go...
  201.     //
  202.     {
  203.         ads_link( RSRSLT );
  204.         AfxTerminate();
  205.         return 0;
  206.     }
  207.     return 1;
  208. }
  209.  
  210. //-----------------------------------------------------------------------------
  211. int ADS_APP::SUBRFun()
  212. {
  213.     struct resbuf *rb=NULL;
  214.     int func_code = ads_getfuncode();
  215.  
  216.     if ( func_code< 0 
  217.         || func_code > num_funs )
  218.         //
  219.         // We should check the arguments here
  220.         //
  221.         // || ((rb = ads_getargs()) == NULL))
  222.     {
  223.         return 0;
  224.     }
  225.  
  226.     switch (exfuns[func_code].func_type)
  227.     {
  228.         case ADS_INT_FUNC:
  229.         {
  230.             ads_retint(exfuns[func_code].extern_func.calling_fun.AdsIntFunc(rb));
  231.         }
  232.         break;
  233.  
  234.         case ADS_VOID_FUNC:
  235.         {
  236.             exfuns[func_code].extern_func.calling_fun.AdsVoidFunc(rb);
  237.             ads_retvoid();
  238.         }
  239.         break;
  240.  
  241.         case ADS_REAL_FUNC:
  242.         {
  243.             ads_retreal(exfuns[func_code].extern_func.calling_fun.AdsRealFunc(rb));
  244.         }
  245.         break;
  246.     }
  247.     return ( (SUBR_status == RTERROR) ? RSERR : RSRSLT);
  248. }
  249.  
  250. /******************************************************************************
  251.  
  252.                 ADS_FUNC_INFO member functions    
  253.     
  254. ******************************************************************************/
  255. //-----------------------------------------------------------------------------
  256. ADS_FUNC_INFO::ADS_FUNC_INFO(ADS_FUNC _extern_func
  257.                             , ADS_FUNC_TYPE _ads_func_type
  258.                             , char *_extern_name
  259.                             , char *_message):extern_func(_extern_func)
  260. {
  261.     func_type = _ads_func_type;
  262.     
  263.     strcpy(extern_name, _extern_name);
  264.     
  265.     if ( _message == NULL)
  266.     {
  267.         message[0] = '\0';
  268.     }
  269.     else
  270.     {
  271.         strcpy(message, _message);
  272.     }
  273. }
  274.