home *** CD-ROM | disk | FTP | other *** search
/ Programmer 7500 / MAX_PROGRAMMERS.iso / CLIPPER / MISC / MSH20.ZIP / MSHFILES.ZIP / DEMO2.MSH < prev    next >
Encoding:
Text File  |  1992-03-26  |  4.4 KB  |  110 lines
  1. | file DEMO2.MSH   
  2. hide_all
  3. ("Welcome to Mi-Shell"
  4. " 
  5.     Copyright(C) PMC/OPENetwork 1990     
  6.  
  7.  "
  8. message)message1!
  9. message1
  10. ("Demo2" swap message)m!
  11. "  This is an advanced tutorial where we'll explore the
  12.   language and the debugger. The Mi-Shell script language
  13.   is a stack language, like Postcript and FORTH. If 
  14.   you are not familiar with either, this tutorial should
  15.   help as an introduction." m
  16. "  When the debugger window comes up, you will see 2 parts:
  17.  the top line reflects the source code submitted, together
  18.  with a caret pointing to the token being interpreted.
  19.  below the dotted line, you will see the contents of the stack.
  20. " m
  21. "  First, we will push 2 on the stack, push another 2 on the stack,
  22.   then push a + on the stack. The + will add 2+2 and return a 4.
  23.   The whole code will be
  24.               2  2  +  3  +  drop
  25.   To step thru in the debugger, push s (for step) repeatedly and 
  26.   watch the stack.  " m
  27. |
  28. (true debug!2 2 + 3 + drop false debug!)#
  29. "  You may have noticed that after the computation, we issued
  30.   a drop, which dropped the result from the stack.
  31.   Then we had the code   
  32.              false debug !  
  33.   This is how we turn off the debug mode: we push false on the
  34.   stack, then push the system variable debug, then push !, 
  35.   the assignment function. This causes the value false to be 
  36.   assigned to debug. In most languages, this would be written
  37.   as         debug = false
  38.   We did that, so that invoking this message would
  39.   be immediate, rather than a slow step thru process. " m
  40. "  Let us make an even simpler assignment, 
  41.   similar to the usual XYZ = 23
  42.   This is done with the statement 23 XYZ ! 
  43.   There is not much to see in the debugger, but we'll
  44.   follow it anyway." m
  45. (true debug!23 "XYZ" ! false debug!)#
  46. "  Now let's watch the concatenation of two strings, 
  47.   which is done with the & operator." m 
  48. (true debug!"hello, " "world" & drop false debug!)#
  49. " A boolean variable is one whose values are true or false.
  50.  In the Mi-Shell script, every value is a string, and a value
  51.  of \"false\" or \"\" (an empty string) are understood as false.
  52.  Every other string is considered true." m
  53. " Let us examine the ifelse statement.
  54.  First we look at the syntax:
  55.  
  56.  Boolean (action1) (action2) ifelse
  57.  
  58.  will run action2 if Boolean is false (or the empty string),
  59.      and  action1 otherwise. 
  60.  
  61.  Now, we will look at an example:
  62.   XYZ (message1) (quit) ifelse! 
  63.  will execute message1
  64.  because XYZ is not false  (we set to 23 a few windows ago). " m
  65. (true debug!"XYZ" (message1) (quit) ifelse! false debug!)#
  66.  
  67. "  A more interesting example is the definition of 
  68.  debug_toggle, a standard definition you can find
  69.  in STDDEFS.MSH.
  70.  
  71.  (debug(false debug!)(true debug!)ifelse)debug_toggle!
  72.  
  73.  This may look formidable, but is actually rather simple.
  74.  The whole thing is a piece of code (the outer parentheses),
  75.  defining debug_toggle.
  76.  Inside, we see 4 items:
  77.  debug          the system variable which is either true or false,
  78.  (false debug!) action1, which turns debug off,
  79.  (true  debug!) action2, which turns debug on,
  80.  ifelse         which causes action1 or action2 to occur, 
  81.                 based on the value of debug.
  82.   If you can follow this example, you have gone a long 
  83.   way towards understanding stack languages in general,
  84.   and Mi-Shell in particular." m
  85. " Let us now look at a while loop.
  86.   ((stack_size 0 > ) (drop) while)clean_stack!
  87.  This is a definition for clean_stack which can 
  88.  be found in STDDEFS.MSH. In english, it says 
  89.  while the stack size (a primitive) is positive,
  90.  drop the top from the stack. It is clear that the 
  91.  syntax is:
  92.  (boolean) (action) while
  93.  and means while boolean is true, perform action.
  94.  Let us see it work. the code will be
  95.  3 2 clean_stack" m
  96. (true debug!3 2 clean_stack false debug!)#
  97. " Now that you are almost done with this advanced tutorial, 
  98.  let us take a look at the Mi-Shell script that it 
  99.  is written in. We'll use pager, Mi-Shell's built-in 
  100.  viewer. The Up, Down, PgUp and PgDwn keys will be
  101.  active, and you can use F1 for help and ESC to quit. " m
  102. prog_dir "DEMO2.MSH"& pager
  103. " Well, so long now. . . You have graduated!
  104.  The next logical steps are to study the primitives
  105.  in the Reference Manual, to study the standard
  106.  definitions in stddefs.msh and menu.msh, and
  107.  to start writing your own!" m
  108. hide_all
  109. |||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||
  110.