[BACK]Return to slib.sm1 CVS log [TXT][DIR] Up to [local] / OpenXM / src / k097

Diff for /OpenXM/src/k097/slib.sm1 between version 1.2 and 1.10

version 1.2, 2000/12/10 02:25:31 version 1.10, 2003/11/20 09:20:36
Line 7  K00_verbose  %% if-condition
Line 7  K00_verbose  %% if-condition
 /HelpAdd {  /HelpAdd {
  db.DebugStack setstack $In function : HelpAdd of class PrimitiveObject$  stdstack   db.DebugStack setstack $In function : HelpAdd of class PrimitiveObject$  stdstack
  /Arglist set /Argthis set /FunctionValue [ ] def   /Arglist set /Argthis set /FunctionValue [ ] def
  [/this /s  ] /ArgNames set ArgNames pushVariables [ %%function body   [/this /s /category  ] /ArgNames set ArgNames pushVariables [ %%function body
  [Argthis] Arglist join ArgNames mapset   [Argthis] Arglist join ArgNames mapset
   [ %%start of local variables
   /n ] pushVariables [ %%local variables
 this [ %% function args  this [ %% function args
   Arglist ] {Length} sendmsg2
   /n  set
   n (1)..  lessThanOrEqual
    %% if-condition
     { %%ifbody
   null /category  set
     }%%end if if body
     { %%if- else part
     } ifelse
   true  %% if-condition
     { %%ifbody
   n (1)..  eq
   n (2)..  eq
    or
    not
    %% if-condition
     { %%ifbody
   this [ %% function args
   s ] {Println} sendmsg2
   this [ %% function args
   (HelpAdd: wrong argument length.) ] {Error} sendmsg2
     }%%end if if body
     { %%if- else part
     } ifelse
   this [ %% function args
   category ] {Tag} sendmsg2
   (0)..  eq
   this [ %% function args
   category ] {Tag} sendmsg2
   (5)..  eq
    or
    not
    %% if-condition
     { %%ifbody
   this [ %% function args
   category ] {Println} sendmsg2
   this [ %% function args
   (HelpAdd: wrong category.) ] {Error} sendmsg2
     }%%end if if body
     { %%if- else part
     } ifelse
   this [ %% function args
   s ] {Tag} sendmsg2
   (6)..  eq
    not
    %% if-condition
     { %%ifbody
   this [ %% function args
   s ] {Println} sendmsg2
   this [ %% function args
   (HelpAdd: s must be an array.) ] {Error} sendmsg2
     }%%end if if body
     { %%if- else part
     } ifelse
   this [ %% function args
   s [(0)..  ]  Get
   ] {Tag} sendmsg2
   (5)..  eq
    not
    %% if-condition
     { %%ifbody
   this [ %% function args
   s ] {Println} sendmsg2
   this [ %% function args
   (HelpAdd: s[0] must be a string.) ] {Error} sendmsg2
     }%%end if if body
     { %%if- else part
     } ifelse
   this [ %% function args
   s [(1)..  ]  Get
   ] {Tag} sendmsg2
   (5)..  eq
   this [ %% function args
   s [(1)..  ]  Get
   ] {Tag} sendmsg2
   (6)..  eq
    or
    not
    %% if-condition
     { %%ifbody
   this [ %% function args
   s ] {Println} sendmsg2
   this [ %% function args
   (HelpAdd: s[1] must be a string or an array.) ] {Error} sendmsg2
     }%%end if if body
     { %%if- else part
     } ifelse
     }%%end if if body
     { %%if- else part
     } ifelse
   [ category s   ] /s  set
   this [ %% function args
 Helplist s ] {Append} sendmsg2  Helplist s ] {Append} sendmsg2
 /Helplist  set  /Helplist  set
   /ExitPoint ]pop popVariables %%pop the local variables
 /ExitPoint ]pop popVariables %%pop argValues  /ExitPoint ]pop popVariables %%pop argValues
  db.DebugStack setstack pop stdstack   db.DebugStack setstack pop stdstack
 } def  } def
 %%end of function  %%end of function
   
   /Tag {
    db.DebugStack setstack $In function : Tag of class PrimitiveObject$  stdstack
    /Arglist set /Argthis set /FunctionValue [ ] def
    [/this /f  ] /ArgNames set ArgNames pushVariables [ %%function body
    [Argthis] Arglist join ArgNames mapset
   [ %%start of local variables
   /ans ] pushVariables [ %%local variables
    f   etag (universalNumber) dc  /ans  set
   ans  /FunctionValue set  {/ExitPoint goto} exec %%return
   /ExitPoint ]pop popVariables %%pop the local variables
   /ExitPoint ]pop popVariables %%pop argValues
    db.DebugStack setstack pop stdstack
   FunctionValue } def
   %%end of function
   
   /Error {
    db.DebugStack setstack $In function : Error of class PrimitiveObject$  stdstack
    /Arglist set /Argthis set /FunctionValue [ ] def
    [/this /s  ] /ArgNames set ArgNames pushVariables [ %%function body
    [Argthis] Arglist join ArgNames mapset
     s error  /ExitPoint ]pop popVariables %%pop argValues
    db.DebugStack setstack pop stdstack
   FunctionValue } def
   %%end of function
   
 /Print {  /Print {
  db.DebugStack setstack $In function : Print of class PrimitiveObject$  stdstack   db.DebugStack setstack $In function : Print of class PrimitiveObject$  stdstack
  /Arglist set /Argthis set /FunctionValue [ ] def   /Arglist set /Argthis set /FunctionValue [ ] def
Line 100  FunctionValue } def
Line 220  FunctionValue } def
 FunctionValue } def  FunctionValue } def
 %%end of function  %%end of function
   
 /Indexed {  
  db.DebugStack setstack $In function : Indexed of class PrimitiveObject$  stdstack  
  /Arglist set /Argthis set /FunctionValue [ ] def  
  [/this /name /i  ] /ArgNames set ArgNames pushVariables [ %%function body  
  [Argthis] Arglist join ArgNames mapset  
  name  i   s.Indexed /FunctionValue set  /ExitPoint ]pop popVariables %%pop argValues  
  db.DebugStack setstack pop stdstack  
 FunctionValue } def  
 %%end of function  
   
 /Indexed2 {  
  db.DebugStack setstack $In function : Indexed2 of class PrimitiveObject$  stdstack  
  /Arglist set /Argthis set /FunctionValue [ ] def  
  [/this /name /i /j  ] /ArgNames set ArgNames pushVariables [ %%function body  
  [Argthis] Arglist join ArgNames mapset  
  name  i  j   s.Indexed2 /FunctionValue set  /ExitPoint ]pop popVariables %%pop argValues  
  db.DebugStack setstack pop stdstack  
 FunctionValue } def  
 %%end of function  
   
 /Transpose {  /Transpose {
  db.DebugStack setstack $In function : Transpose of class PrimitiveObject$  stdstack   db.DebugStack setstack $In function : Transpose of class PrimitiveObject$  stdstack
  /Arglist set /Argthis set /FunctionValue [ ] def   /Arglist set /Argthis set /FunctionValue [ ] def
Line 182  FunctionValue } def
Line 282  FunctionValue } def
 /Reduction {  /Reduction {
  db.DebugStack setstack $In function : Reduction of class PrimitiveObject$  stdstack   db.DebugStack setstack $In function : Reduction of class PrimitiveObject$  stdstack
  /Arglist set /Argthis set /FunctionValue [ ] def   /Arglist set /Argthis set /FunctionValue [ ] def
  [/this /f /G  ] /ArgNames set ArgNames pushVariables [ %%function body   [/this /f /myset  ] /ArgNames set ArgNames pushVariables [ %%function body
  [Argthis] Arglist join ArgNames mapset   [Argthis] Arglist join ArgNames mapset
  f  G   reduction /FunctionValue set  /ExitPoint ]pop popVariables %%pop argValues  [ %%start of local variables
   /n /indexTable /set2 /i /j /tmp /t_syz /r /rng /vsize /tt ] pushVariables [ %%local variables
   null /vsize  set
   this [ %% function args
   this [ %% function args
   (1) ] {Poly} sendmsg2
   ] {GetRing} sendmsg2
   /r  set
   this [ %% function args
   f ] {GetRing} sendmsg2
   /rng  set
   this [ %% function args
   rng ] {Tag} sendmsg2
   (0)..  eq
    %% if-condition
     { %%ifbody
   this [ %% function args
   myset ] {GetRing} sendmsg2
   /rng  set
     }%%end if if body
     { %%if- else part
     } ifelse
   this [ %% function args
   rng ] {Tag} sendmsg2
   (0)..  eq not
    %% if-condition
     { %%ifbody
   this [ %% function args
   rng ] {SetRing} sendmsg2
     }%%end if if body
     { %%if- else part
     } ifelse
   this [ %% function args
   f ] {IsArray} sendmsg2
    %% if-condition
     { %%ifbody
   this [ %% function args
   f ] {Length} sendmsg2
   /vsize  set
     [f] fromVectors 0 get /f set    }%%end if if body
     { %%if- else part
     } ifelse
   this [ %% function args
   myset ] {Length} sendmsg2
   /n  set
   n (0)..  gt
    %% if-condition
     { %%ifbody
   this [ %% function args
   myset [(0)..  ]  Get
   ] {IsArray} sendmsg2
    %% if-condition
     { %%ifbody
   vsize this [ %% function args
   myset [(0)..  ]  Get
   ] {Length} sendmsg2
    eq not
    %% if-condition
     { %%ifbody
   this [ %% function args
   (Reduction: size mismatch.) ] {Error} sendmsg2
     }%%end if if body
     { %%if- else part
     } ifelse
     myset fromVectors /myset set    }%%end if if body
     { %%if- else part
     } ifelse
     }%%end if if body
     { %%if- else part
     } ifelse
   this [ %% function args
   n ] {NewArray} sendmsg2
   /indexTable  set
   [   ] /set2  set
   (0).. /j  set
   (0).. /i  set
   %%for init.
   %%for
   { i n  lt
    {  } {exit} ifelse
   [ {%%increment
   /i i (1).. {add} sendmsg2 def
   } %%end of increment{A}
   {%%start of B part{B}
   this [ %% function args
   myset [i  ]  Get
   ] {Tag} sendmsg2
   (0)..  eq
    %% if-condition
     { %%ifbody
   indexTable [i  ] (1)..  (0)..  2 1 roll {sub} sendmsg
    Put
     }%%end if if body
     { %%if- else part
   myset [i  ]  Get
   this [ %% function args
   (0) ] {Poly} sendmsg2
    eq
    %% if-condition
     { %%ifbody
   indexTable [i  ] (1)..  (0)..  2 1 roll {sub} sendmsg
    Put
     }%%end if if body
     { %%if- else part
   this [ %% function args
   set2 myset [i  ]  Get
   ] {Append} sendmsg2
   /set2  set
   indexTable [i  ] j  Put
   /j j (1).. {add} sendmsg2 def
     } ifelse
     } ifelse
   } %% end of B part. {B}
    2 1 roll] {exec} map pop
   } loop %%end of for
     f set2 (gradedPolySet) dc reduction /tmp set  this [ %% function args
   n ] {NewArray} sendmsg2
   /t_syz  set
   (0).. /i  set
   %%for init.
   %%for
   { i n  lt
    {  } {exit} ifelse
   [ {%%increment
   /i i (1).. {add} sendmsg2 def
   } %%end of increment{A}
   {%%start of B part{B}
   indexTable [i  ]  Get
   (1)..  (0)..  2 1 roll {sub} sendmsg
    eq not
    %% if-condition
     { %%ifbody
   t_syz [i  ] tmp [(2).. indexTable [i  ]  Get
    ]  Get
    Put
     }%%end if if body
     { %%if- else part
   t_syz [i  ] this [ %% function args
   (0) ] {Poly} sendmsg2
    Put
     } ifelse
   } %% end of B part. {B}
    2 1 roll] {exec} map pop
   } loop %%end of for
   this [ %% function args
   vsize ] {Tag} sendmsg2
   (0)..  eq not
    %% if-condition
     { %%ifbody
   tmp [(0)..  ]  Get
   /tt  set
     [vsize (integer) dc tt] toVectors /tt set  tmp [(0)..  ] tt  Put
     }%%end if if body
     { %%if- else part
     } ifelse
   this [ %% function args
   r ] {SetRing} sendmsg2
   [ tmp [(0)..  ]  Get
   tmp [(1)..  ]  Get
   t_syz   ]  /FunctionValue set  {/ExitPoint goto} exec %%return
   /ExitPoint ]pop popVariables %%pop the local variables
   /ExitPoint ]pop popVariables %%pop argValues
  db.DebugStack setstack pop stdstack   db.DebugStack setstack pop stdstack
 FunctionValue } def  FunctionValue } def
 %%end of function  %%end of function
Line 209  FunctionValue } def
Line 470  FunctionValue } def
 this [ %% function args  this [ %% function args
 Arglist ] {Length} sendmsg2  Arglist ] {Length} sendmsg2
 /argsize  set  /argsize  set
   this [ %% function args
   vList ] {IsArray} sendmsg2
    %% if-condition
     { %%ifbody
     vList {toString} map from_records /vList set    }%%end if if body
     { %%if- else part
     } ifelse
 argsize (1)..  eq  argsize (1)..  eq
  %% if-condition   %% if-condition
   { %%ifbody    { %%ifbody
  [  vList  ring_of_differential_operators ( ) elimination_order 0 ] define_ring   [  vList  ring_of_differential_operators ( ) elimination_order 0 ] define_ring
          /tmp set  tmp  /FunctionValue set  {/ExitPoint goto} exec %%return           /tmp set  this [ %% function args
   ] {SetRingVariables} sendmsg2
   tmp  /FunctionValue set  {/ExitPoint goto} exec %%return
   }%%end if if body    }%%end if if body
   { %%if- else part    { %%if- else part
   } ifelse    } ifelse
Line 233  weightMatrix ] {Length} sendmsg2 
Line 503  weightMatrix ] {Length} sendmsg2 
 this [ %% function args  this [ %% function args
 size ] {NewVector} sendmsg2  size ] {NewVector} sendmsg2
 /new0  set  /new0  set
   /@@@.indexMode.flag.save @@@.indexMode.flag def    0 @@@.indexMode  (0).. %%PSfor initvalue.    /@@@.indexMode.flag.save @@@.indexMode.flag def    0 @@@.indexMode  (0).. size  2 -1 roll
   %%PSfor initvalue.
  (integer) data_conversion   (integer) data_conversion
 size  (1).. sub  (integer) data_conversion  1  2 -1 roll   2 -1 roll
    (1).. sub  (integer) data_conversion  1  2 -1 roll
 { %% for body  { %% for body
  (universalNumber) data_conversion /i  set   (universalNumber) data_conversion /i  set
 weightMatrix [i  ]  Get  weightMatrix [i  ]  Get
Line 270  tmp [j  ]  Get
Line 542  tmp [j  ]  Get
 new0 [i  ] newtmp  Put  new0 [i  ] newtmp  Put
   } for    } for
  [  vList  ring_of_differential_operators   new0   weight_vector  pp   ] define_ring /ringpp  set   [  vList  ring_of_differential_operators   new0   weight_vector  pp   ] define_ring /ringpp  set
   this [ %% function args
   ] {SetRingVariables} sendmsg2
   @@@.indexMode.flag.save @@@.indexMode  ringpp  /FunctionValue set  {/ExitPoint goto} exec %%return    @@@.indexMode.flag.save @@@.indexMode  ringpp  /FunctionValue set  {/ExitPoint goto} exec %%return
 /ExitPoint ]pop popVariables %%pop the local variables  /ExitPoint ]pop popVariables %%pop the local variables
 /ExitPoint ]pop popVariables %%pop argValues  /ExitPoint ]pop popVariables %%pop argValues
Line 307  FunctionValue } def
Line 581  FunctionValue } def
 FunctionValue } def  FunctionValue } def
 %%end of function  %%end of function
   
 true /SetRingVariables_Verbose  set  false /SetRingVariables_Verbose  set
 /SetRingVariables {  /SetRingVariables {
  db.DebugStack setstack $In function : SetRingVariables of class PrimitiveObject$  stdstack   db.DebugStack setstack $In function : SetRingVariables of class PrimitiveObject$  stdstack
  /Arglist set /Argthis set /FunctionValue [ ] def   /Arglist set /Argthis set /FunctionValue [ ] def
Line 321  this [ %% function args 
Line 595  this [ %% function args 
   { %%if- else part    { %%if- else part
   } ifelse    } ifelse
 this [ %% function args  this [ %% function args
 (0)..  [(CC)] system_variable (universalNumber) dc  ] {k00setRingVariables} sendmsg2  (0)..  [(N)] system_variable (universalNumber) dc  ] {k00setRingVariables} sendmsg2
 this [ %% function args   %% if-condition
  [(C)] system_variable (universalNumber) dc   [(LL)] system_variable (universalNumber) dc  ] {k00setRingVariables} sendmsg2    { %%ifbody
 this [ %% function args    define_ring_variables    }%%end if if body
  [(L)] system_variable (universalNumber) dc   [(MM)] system_variable (universalNumber) dc  ] {k00setRingVariables} sendmsg2    { %%if- else part
 this [ %% function args    } ifelse
  [(M)] system_variable (universalNumber) dc   [(NN)] system_variable (universalNumber) dc  ] {k00setRingVariables} sendmsg2  
 SetRingVariables_Verbose  %% if-condition  SetRingVariables_Verbose  %% if-condition
   { %%ifbody    { %%ifbody
 this [ %% function args  this [ %% function args
Line 350  FunctionValue } def
Line 623  FunctionValue } def
   $[$ (array) dc 0 get (universalNumber) dc  /leftBrace  set    $[$ (array) dc 0 get (universalNumber) dc  /leftBrace  set
 this [ %% function args  this [ %% function args
 this [ %% function args  this [ %% function args
 s ] {StringToIntegerArray} sendmsg2  s ] {StringToAsciiArray} sendmsg2
 leftBrace ] {Position} sendmsg2  leftBrace ] {Position} sendmsg2
 /jj  set  /jj  set
 jj (1)..  (0)..  2 1 roll {sub} sendmsg  jj (1)..  (0)..  2 1 roll {sub} sendmsg
Line 371  FunctionValue } def
Line 644  FunctionValue } def
 /k00setRingVariables {  /k00setRingVariables {
  db.DebugStack setstack $In function : k00setRingVariables of class PrimitiveObject$  stdstack   db.DebugStack setstack $In function : k00setRingVariables of class PrimitiveObject$  stdstack
  /Arglist set /Argthis set /FunctionValue [ ] def   /Arglist set /Argthis set /FunctionValue [ ] def
  [/this /tmp002_p /tmp002_q  ] /ArgNames set ArgNames pushVariables [ %%function body   [/this /p /q  ] /ArgNames set ArgNames pushVariables [ %%function body
  [Argthis] Arglist join ArgNames mapset   [Argthis] Arglist join ArgNames mapset
 [ %%start of local variables  [ %%start of local variables
 /tmp002_i /tmp002_v /tmp002_str ] pushVariables [ %%local variables  /v /i ] pushVariables [ %%local variables
 tmp002_p %%PSfor initvalue.  p /i  set
  (integer) data_conversion  %%for init.
 tmp002_q  (1).. sub  (integer) data_conversion  1  2 -1 roll  %%for
 { %% for body  { i q  lt
  (universalNumber) data_conversion /tmp002_i  set   {  } {exit} ifelse
   [ {%%increment
   /i i (1).. {add} sendmsg2 def
   } %%end of increment{A}
   {%%start of B part{B}
 this [ %% function args  this [ %% function args
 tmp002_i ] {getxvar} sendmsg2  i ] {getxvar} sendmsg2
 /tmp002_v  set  /v  set
 this [ %% function args  this [ %% function args
 tmp002_v ] {k00AreThereLeftBrace} sendmsg2  v ] {k00AreThereLeftBrace} sendmsg2
  %% if-condition   %% if-condition
   { %%ifbody    { %%ifbody
   false  /FunctionValue set  {/ExitPoint goto} exec %%return
   }%%end if if body    }%%end if if body
   { %%if- else part    { %%if- else part
 SetRingVariables_Verbose  %% if-condition  
   { %%ifbody  
 this [ %% function args  
 tmp002_v ] {Print} sendmsg2  
 this [ %% function args  
 ( ) ] {Print} sendmsg2  
   }%%end if if body  
   { %%if- else part  
   } ifelse    } ifelse
 this [ %% function args  this [ %% function args
 [ (/) tmp002_v ( $) tmp002_v ($ (poly) data_conversion def )   ] ] {AddString} sendmsg2  i ] {getdvar} sendmsg2
 /str  set  /v  set
  [(parse)   str   ] extension    } ifelse  
 this [ %% function args  this [ %% function args
 tmp002_i ] {getdvar} sendmsg2  v ] {k00AreThereLeftBrace} sendmsg2
 /tmp002_v  set  
 this [ %% function args  
 tmp002_v ] {k00AreThereLeftBrace} sendmsg2  
  %% if-condition   %% if-condition
   { %%ifbody    { %%ifbody
   false  /FunctionValue set  {/ExitPoint goto} exec %%return
   }%%end if if body    }%%end if if body
   { %%if- else part    { %%if- else part
 SetRingVariables_Verbose  %% if-condition  
   { %%ifbody  
 this [ %% function args  
 tmp002_v ] {Print} sendmsg2  
 this [ %% function args  
 ( ) ] {Print} sendmsg2  
   }%%end if if body  
   { %%if- else part  
   } ifelse    } ifelse
 this [ %% function args  } %% end of B part. {B}
 [ (/) tmp002_v ( $) tmp002_v ($ (poly) data_conversion def )   ] ] {AddString} sendmsg2   2 1 roll] {exec} map pop
 /str  set  } loop %%end of for
  [(parse)   str   ] extension    } ifelse  true  /FunctionValue set  {/ExitPoint goto} exec %%return
   } for  
 /ExitPoint ]pop popVariables %%pop the local variables  /ExitPoint ]pop popVariables %%pop the local variables
 /ExitPoint ]pop popVariables %%pop argValues  /ExitPoint ]pop popVariables %%pop argValues
  db.DebugStack setstack pop stdstack   db.DebugStack setstack pop stdstack
 } def  FunctionValue } def
 %%end of function  %%end of function
   
 /AddString {  /AddString {
Line 631  FunctionValue } def
Line 889  FunctionValue } def
 FunctionValue } def  FunctionValue } def
 %%end of function  %%end of function
   
 this [ %% function args  
 [ (Map) [ (Map(karg,func) applies the function <<func>> to the <<karg>>(string func).) ( Ex. Map([82,83,85],"AsciiToString"):)   ]   ] ] {HelpAdd} sendmsg2  
 /Position {  /Position {
  db.DebugStack setstack $In function : Position of class PrimitiveObject$  stdstack   db.DebugStack setstack $In function : Position of class PrimitiveObject$  stdstack
  /Arglist set /Argthis set /FunctionValue [ ] def   /Arglist set /Argthis set /FunctionValue [ ] def
Line 672  i /pos  set
Line 928  i /pos  set
 FunctionValue } def  FunctionValue } def
 %%end of function  %%end of function
   
 this [ %% function args  
 [ (Position) [ (Position(list,elem) returns the position p of the element <<elem>> in) ( the array <<list>>. If <<elem>> is not in <<list>>, it return -1) ( (array list).) (Ex. Position([1,34,2],34): )   ]   ] ] {HelpAdd} sendmsg2  
 /StringToIntegerArray {  
  db.DebugStack setstack $In function : StringToIntegerArray of class PrimitiveObject$  stdstack  
  /Arglist set /Argthis set /FunctionValue [ ] def  
  [/this /s  ] /ArgNames set ArgNames pushVariables [ %%function body  
  [Argthis] Arglist join ArgNames mapset  
  s   (array) dc { (universalNumber) dc } map /FunctionValue set  /ExitPoint ]pop popVariables %%pop argValues  
  db.DebugStack setstack pop stdstack  
 FunctionValue } def  
 %%end of function  
   
 this [ %% function args  
 [ (StringToIntegerArray) [ (StringToIntegerArray(s) decomposes the string <<s>> into an array of) (ascii codes of <<s>>  (string s).) (cf. AsciiToString.)   ]   ] ] {HelpAdd} sendmsg2  
 /StringToAsciiArray {  /StringToAsciiArray {
  db.DebugStack setstack $In function : StringToAsciiArray of class PrimitiveObject$  stdstack   db.DebugStack setstack $In function : StringToAsciiArray of class PrimitiveObject$  stdstack
  /Arglist set /Argthis set /FunctionValue [ ] def   /Arglist set /Argthis set /FunctionValue [ ] def
  [/this /s  ] /ArgNames set ArgNames pushVariables [ %%function body   [/this /s  ] /ArgNames set ArgNames pushVariables [ %%function body
  [Argthis] Arglist join ArgNames mapset   [Argthis] Arglist join ArgNames mapset
 this [ %% function args   s   (array) dc { (universalNumber) dc } map /FunctionValue set  /ExitPoint ]pop popVariables %%pop argValues
 s ] {StringToIntegerArray} sendmsg2  
  /FunctionValue set  {/ExitPoint goto} exec %%return  
 /ExitPoint ]pop popVariables %%pop argValues  
  db.DebugStack setstack pop stdstack   db.DebugStack setstack pop stdstack
 FunctionValue } def  FunctionValue } def
 %%end of function  %%end of function
   
 this [ %% function args  
 [ (StringToAsciiArray) [ (StringToAsciiArray(s) is StringToIntegerArray(s).)   ]   ] ] {HelpAdd} sendmsg2  
 /NewArray {  /NewArray {
  db.DebugStack setstack $In function : NewArray of class PrimitiveObject$  stdstack   db.DebugStack setstack $In function : NewArray of class PrimitiveObject$  stdstack
  /Arglist set /Argthis set /FunctionValue [ ] def   /Arglist set /Argthis set /FunctionValue [ ] def
Line 714  n ] {NewVector} sendmsg2 
Line 951  n ] {NewVector} sendmsg2 
 FunctionValue } def  FunctionValue } def
 %%end of function  %%end of function
   
 this [ %% function args  
 [ (NewArray) [ (NewArray(n) returns an array of size n (integer n).)   ]   ] ] {HelpAdd} sendmsg2  
 /GetEnv {  /GetEnv {
  db.DebugStack setstack $In function : GetEnv of class PrimitiveObject$  stdstack   db.DebugStack setstack $In function : GetEnv of class PrimitiveObject$  stdstack
  /Arglist set /Argthis set /FunctionValue [ ] def   /Arglist set /Argthis set /FunctionValue [ ] def
Line 726  this [ %% function args 
Line 961  this [ %% function args 
 FunctionValue } def  FunctionValue } def
 %%end of function  %%end of function
   
   /Boundp {
    db.DebugStack setstack $In function : Boundp of class PrimitiveObject$  stdstack
    /Arglist set /Argthis set /FunctionValue [ ] def
    [/this /a  ] /ArgNames set ArgNames pushVariables [ %%function body
    [Argthis] Arglist join ArgNames mapset
   [ %%start of local variables
   /b ] pushVariables [ %%local variables
    [(parse) [(/)   a   ( load tag 0 eq
                             { /FunctionValue 0 def }
                             { /FunctionValue 1 def } ifelse )] cat ] extension /ExitPoint ]pop popVariables %%pop the local variables
   /ExitPoint ]pop popVariables %%pop argValues
    db.DebugStack setstack pop stdstack
   FunctionValue } def
   %%end of function
   
   /Rest {
    db.DebugStack setstack $In function : Rest of class PrimitiveObject$  stdstack
    /Arglist set /Argthis set /FunctionValue [ ] def
    [/this /a  ] /ArgNames set ArgNames pushVariables [ %%function body
    [Argthis] Arglist join ArgNames mapset
    a   rest /FunctionValue set  /ExitPoint ]pop popVariables %%pop argValues
    db.DebugStack setstack pop stdstack
   FunctionValue } def
   %%end of function
   
   /GetPathName {
    db.DebugStack setstack $In function : GetPathName of class PrimitiveObject$  stdstack
    /Arglist set /Argthis set /FunctionValue [ ] def
    [/this /s  ] /ArgNames set ArgNames pushVariables [ %%function body
    [Argthis] Arglist join ArgNames mapset
   [ %%start of local variables
   /t /sss ] pushVariables [ %%local variables
   s /sss  set
     [(stat) s] extension 0 get /t set  this [ %% function args
   t ] {Tag} sendmsg2
   (0)..  eq
    %% if-condition
     { %%ifbody
 this [ %% function args  this [ %% function args
 [ (GetEnv) [ (GetEnv(s) returns the value of the environmental variable s (string s).)   ]   ] ] {HelpAdd} sendmsg2  [ this [ %% function args
   (LOAD_K_PATH) ] {GetEnv} sendmsg2
   (/) s   ] ] {AddString} sendmsg2
   /s  set
     [(stat) s] extension 0 get /t set  this [ %% function args
   t ] {Tag} sendmsg2
   (0)..  eq
    %% if-condition
     { %%ifbody
   null  /FunctionValue set  {/ExitPoint goto} exec %%return
     }%%end if if body
     { %%if- else part
   s  /FunctionValue set  {/ExitPoint goto} exec %%return
     } ifelse
     }%%end if if body
     { %%if- else part
   s  /FunctionValue set  {/ExitPoint goto} exec %%return
     } ifelse
   /ExitPoint ]pop popVariables %%pop the local variables
   /ExitPoint ]pop popVariables %%pop argValues
    db.DebugStack setstack pop stdstack
   FunctionValue } def
   %%end of function
   
   /Load_sm1 {
    db.DebugStack setstack $In function : Load_sm1 of class PrimitiveObject$  stdstack
    /Arglist set /Argthis set /FunctionValue [ ] def
    [/this /fnames /flag  ] /ArgNames set ArgNames pushVariables [ %%function body
    [Argthis] Arglist join ArgNames mapset
   [ %%start of local variables
   /ppp /n /i /cmd ] pushVariables [ %%local variables
   this [ %% function args
   flag ] {Boundp} sendmsg2
    %% if-condition
     { %%ifbody
     }%%end if if body
     { %%if- else part
   this [ %% function args
   fnames ] {Length} sendmsg2
   /n  set
   (0).. /i  set
   %%for init.
   %%for
   { i n  lt
    {  } {exit} ifelse
   [ {%%increment
   /i i (1).. {add} sendmsg2 def
   } %%end of increment{A}
   {%%start of B part{B}
   this [ %% function args
   fnames [i  ]  Get
   ] {GetPathName} sendmsg2
   /ppp  set
   this [ %% function args
   ppp ] {Tag} sendmsg2
   (0)..  eq not
    %% if-condition
     { %%ifbody
     [(parse) ppp pushfile ] extension  this [ %% function args
   [ (/) flag ( 1 def )   ] ] {AddString} sendmsg2
   /cmd  set
     [(parse) cmd ] extension  n /i  set
     }%%end if if body
     { %%if- else part
     } ifelse
   } %% end of B part. {B}
    2 1 roll] {exec} map pop
   } loop %%end of for
     } ifelse
   /ExitPoint ]pop popVariables %%pop the local variables
   /ExitPoint ]pop popVariables %%pop argValues
    db.DebugStack setstack pop stdstack
   FunctionValue } def
   %%end of function
   
   /GetRing {
    db.DebugStack setstack $In function : GetRing of class PrimitiveObject$  stdstack
    /Arglist set /Argthis set /FunctionValue [ ] def
    [/this /f  ] /ArgNames set ArgNames pushVariables [ %%function body
    [Argthis] Arglist join ArgNames mapset
     f getRing /FunctionValue set  /ExitPoint ]pop popVariables %%pop argValues
    db.DebugStack setstack pop stdstack
   FunctionValue } def
   %%end of function
   
   /SetRing {
    db.DebugStack setstack $In function : SetRing of class PrimitiveObject$  stdstack
    /Arglist set /Argthis set /FunctionValue [ ] def
    [/this /r  ] /ArgNames set ArgNames pushVariables [ %%function body
    [Argthis] Arglist join ArgNames mapset
     r ring_def  /ExitPoint ]pop popVariables %%pop argValues
    db.DebugStack setstack pop stdstack
   FunctionValue } def
   %%end of function
   
   /ReParse {
    db.DebugStack setstack $In function : ReParse of class PrimitiveObject$  stdstack
    /Arglist set /Argthis set /FunctionValue [ ] def
    [/this /a  ] /ArgNames set ArgNames pushVariables [ %%function body
    [Argthis] Arglist join ArgNames mapset
   [ %%start of local variables
   /c ] pushVariables [ %%local variables
   this [ %% function args
   a ] {IsArray} sendmsg2
    %% if-condition
     { %%ifbody
   this [ %% function args
   a (ReParse) ] {Map} sendmsg2
   /c  set
     }%%end if if body
     { %%if- else part
    a   toString . /c set   } ifelse
   c  /FunctionValue set  {/ExitPoint goto} exec %%return
   /ExitPoint ]pop popVariables %%pop the local variables
   /ExitPoint ]pop popVariables %%pop argValues
    db.DebugStack setstack pop stdstack
   FunctionValue } def
   %%end of function
   
   /Pmat {
    db.DebugStack setstack $In function : Pmat of class PrimitiveObject$  stdstack
    /Arglist set /Argthis set /FunctionValue [ ] def
    [/this /a  ] /ArgNames set ArgNames pushVariables [ %%function body
    [Argthis] Arglist join ArgNames mapset
     a pmat  /ExitPoint ]pop popVariables %%pop argValues
    db.DebugStack setstack pop stdstack
   } def
   %%end of function
   
   /QuoteMode {
    db.DebugStack setstack $In function : QuoteMode of class PrimitiveObject$  stdstack
    /Arglist set /Argthis set /FunctionValue [ ] def
    [/this /a  ] /ArgNames set ArgNames pushVariables [ %%function body
    [Argthis] Arglist join ArgNames mapset
   a (0)..  eq
    %% if-condition
     { %%ifbody
    [(QuoteMode) 0] system_variable    }%%end if if body
     { %%if- else part
    [(QuoteMode) 1] system_variable    } ifelse
   /ExitPoint ]pop popVariables %%pop argValues
    db.DebugStack setstack pop stdstack
   } def
   %%end of function
   

Legend:
Removed from v.1.2  
changed lines
  Added in v.1.10

FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>