Return to tu1.sm1 CVS log

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

Annotation of OpenXM/src/kan96xx/Doc/tu1.sm1, Revision 1.1.1.1

1.1       maekawa     1: %%% tu1.sm1,  1998, 11/3
                      2: %%% A sample program for authors of packages.
                      3:
                      4: %%% global variables for bfunction
                      5: %%% bfunction.*
                      6: /bfunction.v [(x) (y) (z)] def   %% default value of v (variables).
                      7: /bfunction.s (s) def             %% default value of s.
                      8: /bfunction.verbose 0 def
                      9:
                     10: /bfunction {
                     11:   /arg1 set
                     12:   [/in-bfunction /aa /typev /setarg /f /s /v] pushVariables
                     13:   [(CurrentRingp) (KanGBmessage)] pushEnv  %% push current global environment.
                     14:   [
                     15:
                     16:     /aa arg1 def
                     17:     aa isArray { } { (array bfunction) message error } ifelse
                     18:     /setarg 0 def
                     19:     aa { tag } map /typev set
                     20:     typev [ StringP ] eq
                     21:     {  /f aa 0 get def
                     22:        /v bfunction.v def
                     23:        /s bfunction.s def
                     24:        /setarg 1 def
                     25:     } { } ifelse
                     26:     typev [StringP StringP] eq
                     27:     {  /f aa 0 get def
                     28:        /v [ aa 1 get to_records pop ] def
                     29:        /s bfunction.s def
                     30:        /setarg 1 def
                     31:     } { } ifelse
                     32:     typev [StringP ArrayP] eq
                     33:     {  /f aa 0 get def
                     34:        /v aa 1 get def
                     35:        /s bfunction.s def
                     36:        /setarg 1 def
                     37:     } { } ifelse
                     38:     setarg { } { (Argument mismatch) message error } ifelse
                     39:
                     40:     [(KanGBmessage) bfunction.verbose] system_variable
                     41:
                     42:
                     43:     %%% PROGRAM BODY
                     44:
                     45:     /arg1 [f v s] def
                     46:   ] pop
                     47:   popEnv
                     48:   popVariables
                     49:   arg1
                     50: } def
                     51:
                     52: %% Auxiliary function for bfunction.
                     53: %% bfunction.*
                     54: /bfunction.foo1 {
                     55:
                     56: } def
                     57:
                     58:
                     59: %% Write usages as follows.
                     60: [(bfunction)
                     61:  [( a bfunction b)
                     62:   (array a; poly b;)
                     63:   (a :  [f] ;  string f ;)
                     64:   (a :  [f v] ; string f,v; )
                     65:   (b is the bfunction of the polynomial f given as a string.)
                     66:   $Example  [(x^3-y^2) (x,y)] bfunction :: $
                     67:  ]
                     68: ] putUsages
                     69: (bfunction ) messagen
                     70:
                     71: ;
                     72:
                     73:
                     74:
                     75:
                     76:
                     77: