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 |