Return to sample.sm1 CVS log

Up to [local] / OpenXM / src / kan96xx / plugin

Annotation of OpenXM/src/kan96xx/plugin/sample.sm1, Revision 1.1.1.1

1.1       maekawa     1: %% sample.sm1
                      2: [(plugin-sample)
                      3:  [[$[(sample) op-code [ args ]] extension integer$]
                      4:   [(See plugin/sample.h for the op-code.)]
                      5:   [(       0       [ shared-stack ] extension )]
                      6:   [(       Initialization.)]
                      7:   [(       3       [ ] extension)]
                      8:   [(       Add two elements on the top of the shared-stack and push the)]
                      9:   [(       result to the shared-stack.)]
                     10:   [(init-sample  :  )]
                     11:   [(test-sample  :  )]]
                     12: ] putUsages
                     13:
                     14:
                     15: /init-sample {
                     16:   /plugin_sample_standard_operand_stack
                     17:     [(StandardOperandStack)] system_variable
                     18:   def
                     19:   100 newstack /plugin_sample_shared_stack set
                     20:   [(sample) 0 [plugin_sample_shared_stack]] extension
                     21: }  def
                     22:
                     23: /test-sample {
                     24:   plugin_sample_shared_stack setstack
                     25:   1 2
                     26:   pstack
                     27:   plugin_sample_standard_operand_stack  setstack
                     28:   %% sync the stack pointer of shared-stack before calling sample.
                     29:
                     30:   [(sample) 3 [ ]] extension pop  %% add
                     31:   ( --------------------------- ) message
                     32:   plugin_sample_shared_stack setstack
                     33:   pstack
                     34:   plugin_sample_standard_operand_stack  setstack
                     35:
                     36: } def