Random Dimond code examples

for.di

#**
 * For statement definition
 *
 * @example
 *   for { $i=0; $i<20; $i++ } {
 *     ...
 *   }
 *#

define { Function, Function } 'for' {
  { $expression, $body } = $$~arguments
  { $initial, $condition, $each } = $expression

  $expression~scope = $body~scope = $$~stack[-2]~scope

  $initial()

  {
    unless $condition() {
      $body()
      $each()
      $self()
    }
  }
}

if.di

#**
 * If statement
 *
 * @example
 *  if $condition {
 *    ...
 *  }
 *#

define { ???, Function } 'if' {
  { $condition, $body } = $$~arguments
  $condition && $body()
}

unless.di

#**
 * Unless statement
 *
 * @example
 *  unless $condition {
 *    ...
 *  }
 *#

define { ???, Function } 'unless' {
  { $condition, $body } = $$~arguments
  $condition || $body()
}

possible way to define lambda parameters

{ -> ( Integer, String )
    ...
}

or with named parameters

{ -> ( foo:Integer, bar:(String, null) ;; baz:Boolean )
    ...
}