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     ! 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