home *** CD-ROM | disk | FTP | other *** search
/ NetNews Usenet Archive 1992 #30 / NN_1992_30.iso / spool / comp / lang / forth / mac / 40 < prev    next >
Encoding:
Text File  |  1992-12-21  |  4.1 KB  |  126 lines
  1. Newsgroups: comp.lang.forth.mac
  2. Path: sparky!uunet!elroy.jpl.nasa.gov!decwrl!adobe!huxley.mv.us.adobe.com!user
  3. From: hawley@adobe.com (Steve Hawley)
  4. Subject: Re: Stand-alone code segments in Forth
  5. Message-ID: <hawley-191292110139@huxley.mv.us.adobe.com>
  6. Followup-To: comp.lang.forth.mac
  7. Sender: usenet@adobe.com (USENET NEWS)
  8. Organization: Adobe Systems Inc.
  9. References: <BzH7AK.5s7@news.cso.uiuc.edu>
  10. Date: Sat, 19 Dec 1992 19:27:58 GMT
  11. Lines: 113
  12.  
  13. In article <BzH7AK.5s7@news.cso.uiuc.edu>, schalk@symcom.math.uiuc.edu (Ken
  14. Schalk) wrote:
  15. > 
  16. > 
  17. >     I'm new to Forth and enjoying it immensely, but I have a question
  18. > about stand-alone code segments, such as WDEFs and XCMDs.  Let me just
  19. > say that I experienced in other languages (Pascal, C, C++, ...) and
  20. > the Mac Toolbox, and have written both WDEFs and XCMDs in the past.
  21. >     What I'm wondering is, is it possible to build such things with
  22. > any of the Mac Forth incarnations?
  23.  
  24. >     My guess is that it probably hasn't been done, as I think it might
  25. > be kind of painful to turn a Forth dictionary (or some subset thereof)
  26. > into a stand-alone code resource.  However, I think it would be
  27. > wonderful if it were possible.  Having written these things in the
  28. > past, I think the concept of a WDEF in Forth is a beautiful thing.
  29. > (Heck, once you had the basics laid out, you could churn out WDEF
  30. > after WDEF all the time, leading to a distinctive look for your apps,
  31. > albeit a degeneration of the interface standard. :-)
  32.  
  33. Actually, it's not really that hard depending on your architecture.
  34. When I wrote SteveFORTH for the Mac several years ago, my main goal
  35. was to produce a FORTH that had a kernel that was stand-alone and I/O
  36. that was completely abstracted from the language.
  37.  
  38. The way I did this was to write a shell operating system in Think C.
  39. The main() of SteveFORTH looks like this:
  40.  
  41. main()
  42. {    
  43.     MacInits();      /* InitGraf() etc. */
  44.     GetDictionary(); /* load dictionary resource */
  45.     MakeStack();     /* build the parameter stack */
  46.  
  47.     boot();          /* start execution */
  48.     CleanUp();
  49. }
  50.  
  51. Now imagine that we are writing a window definition function.  We could
  52. just
  53. do this:
  54.  
  55. pascal long main(varCode, theWindow, message, param)
  56. short varCode;
  57. WindowPtr theWindow;
  58. short message;
  59. long param;
  60. {
  61.     static short neverBeenCalled;
  62.     long retval;
  63.  
  64.     SetUpRegisters(); /* do all the nasty a4/a5 mucking for globals */
  65.     if (neverBeenCalled) {
  66.         GetDictionary();
  67.         MakeStack();
  68.     }
  69.     Push(varCode);
  70.     PushLong(theWindow);
  71.     PushLong(param);
  72.     Push(message);
  73.  
  74.     boot();
  75.     retval = PopLong();
  76.     CleanUpRegisters();
  77.     return retval;
  78. }
  79.  
  80. In SteveFORTH there was a variable which was the address of the FORTH
  81. function
  82. to call on booting.  By default, it was a routine to make a window and
  83. attach
  84. standard input and output and call the interpretter, but you could easily
  85. just
  86. point it to your WDEF entry point:
  87.  
  88. ok ' myWDEF bootval !
  89.  
  90. and then execute the build application command from SteveFORTH's menu which
  91. will build an application that you can extract the DICT resource and attach
  92. to the application that will contain the above WDEF stub.
  93.  
  94. Here's how boot is defined:
  95.  
  96. boot()
  97. {
  98.     char *a; /* address of FORTH boot function */
  99.  
  100.     /* extract the address and add it to the base of the
  101.      * dictionary.
  102.      */
  103.     a = DStart + *((short *)(DStart + BOOTVAL));
  104.     asm {
  105.         movem.l d0-d7/a0-a6,-(sp) /* save the world */
  106.         move.l a,a0         /* copy the boot vector into A0 (scratch) */
  107.         move.l stack,a6     /* set up parameter stack (and blow away a6) */
  108.         move.l DStart,a3    /* set up dictionary base */
  109.         move.l here,a2      /* load here */
  110.         jsr (a0)            /* call boot function */
  111.         move.l a6,stack     /* save stack */
  112.         move.l a3,DStart    /* save dict base (could've moved!!) */
  113.         move.l a2,here      /* save here */
  114.         movem.l (sp)+,d0-d7/a0-a6 /* restore the world */
  115.     }
  116. }
  117.  
  118.  
  119. Steve Hawley
  120. hawley@adobe.com
  121. --
  122. "Did you know that a cow was *MURDERED* to make that jacket?"
  123. "Yes.    I didn't think there were any witnesses, so I guess I'll have to
  124. kill
  125.  you too." -Jake Johansen
  126.