home *** CD-ROM | disk | FTP | other *** search
/ Mac-Source 1994 July / Mac-Source_July_1994.iso / Other Langs / Tickle-4.0 (tcl) / src / pascal_glue.c < prev    next >
Encoding:
C/C++ Source or Header  |  1993-11-18  |  871 b   |  35 lines  |  [TEXT/MPS ]
  1. /*
  2. ** This source code was written by Tim Endres
  3. ** Email: time@ice.com.
  4. ** USMail: 8840 Main Street, Whitmore Lake, MI  48189
  5. **
  6. ** Some portions of this application utilize sources
  7. ** that are copyrighted by ICE Engineering, Inc., and
  8. ** ICE Engineering retains all rights to those sources.
  9. **
  10. ** Neither ICE Engineering, Inc., nor Tim Endres, 
  11. ** warrants this source code for any reason, and neither
  12. ** party assumes any responsbility for the use of these
  13. ** sources, libraries, or applications. The user of these
  14. ** sources and binaries assumes all responsbilities for
  15. ** any resulting consequences.
  16. */
  17.  
  18. #include <Types.h>
  19. #include <Memory.h>
  20. #include "tcl.h"
  21. #include "XTCL.h"
  22.  
  23. void
  24. XTCLEntry(argc, argv, xpb)
  25. int            argc;
  26. char        **argv;
  27. XTCLParmBlk    *xpb;
  28. {
  29. pascal void PXTCLEntry(int argc, char **argv, XTCLParmBlk *xpb);
  30.  
  31.     PXTCLEntry(argc, argv, xpb);
  32.     return;
  33.     }
  34.  
  35.