Return to printSVector.modified.sm1 CVS log

Up to [local] / OpenXM / src / k097 / lib

Annotation of OpenXM/src/k097/lib/printSVector.modified.sm1, Revision 1.1.1.1

1.1       maekawa     1: %%% supporting code for printSVector.
                      2: /greaterThanOrEqual {
                      3:   /arg2 set /arg1 set
                      4:   arg1 arg2 gt { 1 }
                      5:   { arg1 arg2 eq {1} {0} ifelse} ifelse
                      6: } def
                      7:
                      8: /lengthUniv {
                      9:  length (universalNumber) dc
                     10: } def
                     11:
                     12: /getUniv {
                     13:  (integer) dc get
                     14: } def  %% Do not forget to thow away /.
                     15:
                     16: [(printSVector)
                     17:  [( vector printSVector   outputs the <<vector>> in a pretty way.)
                     18:   ( The elements of the vector must be strings.)
                     19:  ]
                     20: ] putUsages
                     21:
                     22: %%% compiled code by d0, 1996, 8/17.
                     23: /printSVector {
                     24:  /arg1 set
                     25: [ %%start of local variables
                     26: /keys /i /j /n /max /width /m /k /kk /tmp0 ] pushVariables [ %%local variables
                     27: /keys arg1 def
                     28: /n
                     29: keys lengthUniv
                     30:  def
                     31: /max (0)..  def
                     32: /i (0)..  def
                     33: %%for init.
                     34: %%for
                     35: { i n  lt
                     36:  {  } {exit} ifelse
                     37: [ {%%increment
                     38: /i  i (1).. add def
                     39: } %%end of increment{A}
                     40: {%%start of B part{B}
                     41: keys i  getUniv lengthUniv
                     42: max  gt
                     43:  %% if-condition
                     44:   { %%ifbody
                     45: /max
                     46: keys i   getUniv lengthUniv
                     47:  def
                     48:   }%%end if if body
                     49:   { %%if- else part
                     50:   } ifelse
                     51: } %% end of B part. {B}
                     52:  2 1 roll] {exec} map
                     53: } loop %%end of for
                     54: /max max (3)..  add
                     55:  def
                     56: /width (80)..  def
                     57: /m (0)..  def
                     58:
                     59: %%while
                     60: { m max  mul
                     61: (80)..  lt
                     62:  { } {exit} ifelse
                     63:  /m m (1)..  add
                     64:  def
                     65: } loop
                     66: /k (0)..  def
                     67: /kk (0)..  def
                     68: /i (0)..  def
                     69: %%for init.
                     70: %%for
                     71: { i n  lt
                     72:  {  } {exit} ifelse
                     73: [ {%%increment
                     74: /i  i (1).. add def
                     75: } %%end of increment{A}
                     76: {%%start of B part{B}
                     77: keys i getUniv messagen
                     78: /kk kk (1)..  add
                     79:  def
                     80: /k k
                     81: keys i getUniv lengthUniv
                     82:  add
                     83:  def
                     84: /tmp0 max
                     85: keys i  getUniv lengthUniv
                     86:  sub
                     87:  def
                     88: /j (0)..  def
                     89: %%for init.
                     90: %%for
                     91: { j tmp0  lt
                     92:  {  } {exit} ifelse
                     93: [ {%%increment
                     94: /j  j (1).. add def
                     95: } %%end of increment{A}
                     96: {%%start of B part{B}
                     97: /k k (1)..  add
                     98:  def
                     99: kk m  lt
                    100:  %% if-condition
                    101:   { %%ifbody
                    102: ( ) messagen
                    103:   }%%end if if body
                    104:   { %%if- else part
                    105:   } ifelse
                    106: } %% end of B part. {B}
                    107:  2 1 roll] {exec} map
                    108: } loop %%end of for
                    109: kk m  greaterThanOrEqual
                    110:  %% if-condition
                    111:   { %%ifbody
                    112: /kk (0)..  def
                    113: /k (0)..  def
                    114: newline
                    115:   }%%end if if body
                    116:   { %%if- else part
                    117:   } ifelse
                    118: } %% end of B part. {B}
                    119:  2 1 roll] {exec} map
                    120: } loop %%end of for
                    121: newline
                    122: /ExitPoint ]pop popVariables %%pop the local variables
                    123: } def
                    124: %%end of function
                    125: