Forums Feature Suggestions if then else - multiple varibles/commands

   ; Information is linked simply enough. In good code the commands are created with a design for expansion.

Select Case <Variable> {

  Case (DATA)
    ; The variable set in active memory.. So by calling a variable it takes less memory...  
  Case Else
    ; The overhead and memory required for an if statement to be ran, is vertually the same as a Case statement.
    ; A few variables IE 3 will remain in memory until finish of the Case Segment.
}
    ; The code itself will look cleaner, and allow for users to understand the creators code easier.
  

alias some_switch {
goto $1
:case_one
:case_two
echo -a case 1&2
return
:case_three
}

alias some_switch {
  var %a = $$1 | goto %a
  :one
  :two
  echo -a case 1&2
  return
  :%a 
  echo -a Default
}

alias blah {
  var %x = 12
  switch (%x) {
    case (1) {
      echo -a %x is 1
      break
    }
    case ($calc(10+1)) {
      echo -a %x is 11
      break
    }
    default { echo -a %x is %x }
  }
  ;more code can go here.
}

moo {
  var %a = $1
  this line causes an error!
  goto %a
  :one
  echo -a one!
  :two
  echo -a two!
  :%a
  return
  :error
  echo -a error!
  reseterror
}

  
alias SELECT {
  if ($1 = CASE) {
    STRING SET GLOBAL SELECT_CASE $2-
    return $true
  }
  if ($1 = END) {
    STRING DELETE GLOBAL SELECT_CASE
  }
}

alias CASE {
  STRING GET GLOBAL SELECT_CASE
  var %SELECT_CASE = $result
  if ($prop = CS) {
    return $iif($1- === %SELECT_CASE, return $true)
  }
  if ($prop = ISIN) {
    return $iif($1- isin %SELECT_CASE, return $true)
  }
  if ($prop = ISWM) {
    return $iif($1- iswm %SELECT_CASE, return $true)
  }
  if ($prop = ISWMCS) {
    return $iif($1- iswmcs %SELECT_CASE, return $true)
  }
  return $iif($1- = %SELECT_CASE, return $true)
}


alias STRING {
  if ($1 = SET) {
    hadd -m $2 $3 $4-
    return $TRUE
  }
  if ($1 = GET) {
    return $hget($2 , $3)
  }
  if ($1 = DELETE) {
    hdel $2 $3
    return $TRUE
  }
  if ($1 = CLEAR) {
    hdel $2
    return $TRUE
  }
  :ERROR
  echo -s $error
  reseterror
  return $FALSE
} 

  

SELECT CASE $1
if $case(*string*).iswm {
  echo the string is in $1
}
if $CASE(STRING).cs {
  echo the variable == string
}
SELECT END

alias select.case {
  if (%select.case.hashtables.cleared != $true) {
    hfree -w select.case
    hfree -w case.select.matched
    hfree -w case.select.exit
    ; * Hashtables need to be empty per code execution, buggy scripts might leave something in them.
    ; * Also cant use -u0 or -u option on items as it doesnt function the same as with /set
  }
  set -u %select.case.hashtables.cleared $true
  var %i = $hget(select.case,0).item
  inc %i
  hadd -m select.case %i $1-
  hadd -m case.select.matched %i %case.select.matched
  hadd -m case.select.exit %i %case.select.exit
  set %case.select.matched $false
  set %case.select.exit $false
}
alias select.end {
  var %i = $hget(select.case,0).item
  set -u %case.select.matched $hget(case.select.matched,%i)
  set -u %case.select.exit $hget(case.select.exit,%i)
  hdel select.case %i
  hdel case.select.matched %i
  hdel case.select.exit %i
}
alias select.exit {
  set -u %case.select.exit $true
}  
alias case {
  if (%case.select.exit) { return $false }
  if (%case.select.matched == $true) { return $true }
  var %i = $hget(select.case,0).item
  ;
  if $istok(= == === < > >= <= // \\ & isin isincs iswm iswmcs isnum isletter ison isop ishop isvoice isreg isaop isavoice isignore isprotect != !== !=== !< !> !>= !<= !// !\\ !& !isin !isincs !iswm !iswmcs !isnum !isletter !ison !isop !ishop !isvoice !isreg !isaop !isavoice !isignore !isprotect,$prop,32) { var %prop = $prop } | else { var %prop = == }
  if ($1- [ %prop ] $hget(select.case,%i)) { set -u %case.select.matched $true | return $true }
  ;
  ; *** originaly just had this line >>>>> if ($1- == $hget(select.case,%i)) { set -u %case.select.matched $true | return $true }
  ;
  return $false
}
alias case.else {
  if (%case.select.exit) { return $false }
  if (%case.select.matched) { return $false }
  set -u %case.select.matched $true
  select.exit
  return $true
}  
;
;
; EXAMPLE BELOW
;
;
alias test {
  select.case $1
  if $case(fred) { echo -a fredo }
  if $case(dave) { echo -a davo 
    select.case $2
    if $case(1) { echo $!2 is one | select.exit }
    if $case(3) { echo $!2 is three }
    if $case(2) { echo $!2 is two or it was three if said above }
    if $case.else { echo $!2 is not one, two or three }
    select.end
  }
  if $case(greg).=== { echo -a greg the bunny shoots himself and thats the end of that. | select.exit }
  if $case(*m*).iswm { echo -a M is present }
  if $case.else  { echo -a ELSE someone else duh! }
  select.end
}