alias mevaltest {
var %astart $MAKETOKCOUNT
MAKETOK Some
MAKETOK TEST:SOME:PARAMETERS:PLEASE. $+ $prop
MAKETOK MSL++_1
MAKETOK $false
var %aend $MAKETOKCOUNT
var %bstart $MAKETOKCOUNT
MAKETOK MSL++_1
MAKETOK VARIABLE1
MAKETOK VALUE1
MAKETOK MSL++_1
MAKETOK VARIABLE2
MAKETOK VALUE2
var %bend $MAKETOKCOUNT
var %cstart $MAKETOKCOUNT + 1
MAKETOK $*
var %cend $MAKETOKCOUNT
return $meval(%astart,%aend,%bstart,%bend,%cstart,%cend)
}
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
; Code for passing dynamic variables to the $meval function ;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
; var %astart $MAKETOKCOUNT ; For passing variables to the $meval function (or your own function) ;
; maketok MAKETOK V ClassName ; ;
; maketok MAKETOK V $prop ; ;
; var %aend $MAKETOKCOUNT ; ;
; ; ;
; var %bstart $MAKETOKCOUNT ; For passing variables before the $N- tokens are passed (any number of variables allowed ;
; maketok MAKETOK V SomeValue ; these variables will be before the $N- tokens. ;
; maketok MAKETOK V SomeValue2 ; ;
; var %bend $MAKETOKCOUNT ; ;
; ; ;
; var %cstart $MAKETOKCOUNT + 1 ; Starting token number (if trying to pass $2- to a function you put + 2 instead of +1 ;
; maketok MAKETOK V $* ; (which is for tokens $1-) ;
; var %cend $MAKETOKCOUNT ; ;
; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
; return $meval(MAKETOK,%astart,%aend,%bstart,%bend,%cstart,%cend) ;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
alias -l meval {
var %astart $1
var %aend $2
var %acount %aend - %astart
var %bstart $3
var %bend $4
var %bcount %bend - %bstart
var %cstart $5 - 1
var %cend $$6
var %ccount %cend - %cstart
var %localVariables
var %x 1
while %x <= %acount {
var %y %x + %astart
var %localVariables %localVariables $+ $chr(255) $+ $ $+ getmaketok $+ [ ( ] $+ %y $+ [ ) ]
inc %x
}
tokenize 255 %localVariables
var %class [ [ $1 ] ]
var %prop [ [ $2 ] ]
var %object [ [ $3 ] ]
var %isObjectCall [ [ $4 ] ]
var %header,%footer
var %x 1
while %x <= %bcount {
var %y %x + %bstart
var %header %header $+ $chr(255) $+ $ $+ getmaketok $+ [ ( ] $+ %y $+ [ ) ]
inc %x
}
var %x 1
while %x <= %ccount {
var %y %x + %cstart
var %footer %footer $+ $chr(255) $+ $ $+ getmaketok $+ [ ( ] $+ %y $+ [ ) ]
inc %x
}
var %eval,%endeval
var %eval $ $+ %class $+ . $+ $fprop($mprop(%prop)) $+ [ ( ] $+ [ $fprop($mprop(%prop),2-) ] $+ [ , ]
var %endeval [ ) ] $+ . $+ [ $mprop(%prop,1) ]
;;;;;;;;;;;;;;;;;
;if !%isObjectCall {
; if $isPublic(%class,$fprop($mprop(%prop))) || ($isPrivate(%class,$fprop($mprop(%prop))) && $fprop($mprop(%prop)) == INIT) {
; var %eval $ $+ %class $+ . $+ $fprop($mprop(%prop)) $+ [ ( ] $+ $fprop($mprop(%prop),2-) $+ [ , ]
; var %endeval [ ) ] $+ . $+ [ $mprop(%prop,1) ]
; }
; else if $IsException(%class, $fprop($mprop(%prop))) {
; var %eval $ $+ %class $+ .EXCEPTION. $+ $fprop($mprop(%prop)) $+ [ ( ] $+ $fprop($mprop(%prop),2-) $+ [ , ]
; var %endeval [ ) ] $+ . $+ $mprop(%prop,1)
; }
; else {
; if ($IsInstance(%obejct)) {
; UNMAKETOK
; return $catch(%object, NoOperation, $scriptline, $token($token($script,-1,96),1,46), $qt($fprop($mprop(%prop))) is not a public member of class $qt(%class))
; }
; else {
; UNMAKETOK
; return $catch(Class, NoOperation, $scriptline, $token($token($script,-1,96),1,46), $qt($fprop($mprop(%prop))) is not a public member of class $qt(%class)).class
; }
; }
;}
;else {
; var %eval $ $+ OBJECT $+ [ ( ]
; var %endeval [ ) ] $+ . $+ $prop
;}
;;;;;;;;;;;;;;;;;;
tokenize 255 %header $+ %footer
var %x 1
while %x <= $0 {
if %x == $0 {
var %eval %eval $+ [ $ $+ [ %x ] ]
}
else {
var %eval %eval $+ [ $ $+ [ %x ] ] $+ [ , ]
}
inc %x
}
return [ [ %eval ] $+ [ %endeval ] ]
}
;;;;;;;;;;;;;
; End meval ;
;;;;;;;;;;;;;
alias -l MAKETOK {
hinc -m MAKETOK COUNT
hadd MAKETOK $hget(MAKETOK,COUNT) $1-
}
alias -l MAKETOKCOUNT {
if $hget(MAKETOK,COUNT) {
return $v1
}
return 0
}
alias -l UNMAKETOK {
if ($hget(MAKETOK)) hfree MAKETOK
}
alias -l GETMAKETOK {
return $hget(MAKETOK, $1)
}
alias -l Some.TEST {
var %params $1
var %object $2
echo -a TEST BEGINNING
var %x 1
echo -a PROP: $prop
while %x <= $0 {
echo -a Token Number %x $+ : [ $ $+ [ %x ] ]
inc %x
}
echo -a TEST END
if $prop {
var %astart $MAKETOKCOUNT
MAKETOK Some
MAKETOK $prop
MAKETOK %object
MAKETOK $false
var %aend $MAKETOKCOUNT
var %bstart $MAKETOKCOUNT
MAKETOK %object
var %bend $MAKETOKCOUNT
var %cstart $MAKETOKCOUNT + 3
MAKETOK $*
var %cend $MAKETOKCOUNT
return $meval(%astart,%aend,%bstart,%bend,%cstart,%cend)
}
UNMAKETOK
return 1
}