Does TAQOZ have `CREATE ... DOES>` or the equivalent?

Comments

• Christof Eb. Posts: 1,109

  2023-07-23 18:41

  Yes, See in AutoS.fth here https://forums.parallax.com/discussion/174970/p2-taqoz-v2-8-lutlongs-value-type-variables-locals-now-faster#latest
  It is by Bob or Peter.
  Christof
• bob_g4bby Posts: 401

  2023-07-24 08:56 edited 2023-07-24 09:13

  Yes, I got CREATE DOES> going , which seem to work quite well.

  pub CREATE  ( -- )
      [C] GRAB
      [C] CREATE:
      [C] GRAB
      HERE 2- 0 REG W!
  ;
  
  pub DOES>   ( -- )
      R>
      0 REG W@
      W!
  ;
  

  As you know, with CREATE DOES>, you can make new, very simple classes of words ( the words between CREATE and DOES> make the internal data and the words between DOES> and ; make a single method for acting on that data ) Once defined, you can make as many objects from that class as you like.

  I took the idea further, by adapting Bernd Paysans' Mini-OOF (Object Oriented Forth) for Taqoz.

  Here is a very simple demonstration of Mini-OOF programming.

  I made several useful examples too:-

  1. How to make one or more Cogs run as many timed tasks as you like, each with it's own period
  2. How to make one or more Cogs runs as many state machines as you like
  3. How to create as many stacks, buffers and arrays as you like

  Cheers, Bob