Forums Scripts & Popups How to pass a dynamic set of parameters to alias

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
}