home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 9 / 09.iso / l / l217 / 2.ddi / FOREIGN / MSC / MSCMAIN.C < prev    next >
Encoding:
C/C++ Source or Header  |  1990-03-26  |  1.9 KB  |  55 lines
  1. /***************************************************************************
  2.  
  3.                PDC Prolog
  4.  
  5.              Copyright (c) 1986, 90 by Prolog Development Center
  6.  
  7.  FileName: MSCMAIN.C
  8.  PURPOSE: _main for Microsoft C
  9.  
  10.  ═══════════════╦══════╦════════════════════════════════════════════════════
  11.   Date Modified,║ By,  ║  Comments.
  12.  ═══════════════╬══════╬════════════════════════════════════════════════════
  13.                 ║      ║
  14. ***************************************************************************/
  15.  
  16. unsigned  _stklen = 10000;
  17.  
  18.  
  19. /***************************************************************************
  20.     Variables public in Prolog main module and .SYM file
  21. ***************************************************************************/
  22.  
  23. extern void * far PROLOG_Vars;
  24. extern void * far PROLOG_SymbolTable;
  25. void              PROLOG_ErrReport(unsigned);
  26. void              PROLOG_Goal(void);
  27.  
  28.  
  29. /***************************************************************************
  30.     Entry to prolog
  31.  RUN_Main needs four parameters:
  32.    PROLOG_SymbolTable: Pointer to root of symbol table
  33.    PROLOG_Vars:        Misc parameters transferred from compiler
  34.    PROLOG_ErrReport:   Which error routine to call in case of runtime error
  35.    PROLOG_Goal:        The address of the Prolog Goal.
  36.    ReBoot:           Boolean int, specifying if memory allocations
  37.                specified in a configuration file should alter
  38.                the running program. Always FALSE (ie 0).
  39.  
  40. ***************************************************************************/
  41.  
  42. unsigned RUN_Main(void *runtimevars,void *SymbolTable,void (*goal)(void),
  43.                     void (*ERR_Report)(unsigned),int ReBoot);
  44.  
  45.  
  46. /***************************************************************************
  47.     Main C routine
  48. ***************************************************************************/
  49.  
  50. main()
  51. {
  52.   return(RUN_Main(&PROLOG_Vars,&PROLOG_SymbolTable,
  53.                     PROLOG_Goal,PROLOG_ErrReport,0));
  54. }
  55.