[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.8 and 1.11

version 1.8, 2001/01/08 05:26:49 version 1.11, 2004/09/10 13:20:23
Line 182  FunctionValue } def
Line 182  FunctionValue } def
  /Arglist set /Argthis set /FunctionValue [ ] def   /Arglist set /Argthis set /FunctionValue [ ] def
  [/this /f /r  ] /ArgNames set ArgNames pushVariables [ %%function body   [/this /f /r  ] /ArgNames set ArgNames pushVariables [ %%function body
  [Argthis] Arglist join ArgNames mapset   [Argthis] Arglist join ArgNames mapset
  f  r   ,, /FunctionValue set /ExitPoint ]pop popVariables %%pop argValues   f  r   __ /FunctionValue set /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 470  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
Line 496  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 1116  FunctionValue } def
Line 1125  FunctionValue } def
  [/this /a  ] /ArgNames set ArgNames pushVariables [ %%function body   [/this /a  ] /ArgNames set ArgNames pushVariables [ %%function body
  [Argthis] Arglist join ArgNames mapset   [Argthis] Arglist join ArgNames mapset
   a pmat  /ExitPoint ]pop popVariables %%pop argValues    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   db.DebugStack setstack pop stdstack
 } def  } def
 %%end of function  %%end of function
Legend:
Removed from v.1.8  
changed lines
  Added in v.1.11
FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>