whiteboard/geir/geir.vm

## Licensed to the Apache Software Foundation (ASF) under one
## or more contributor license agreements.  See the NOTICE file
## distributed with this work for additional information
## regarding copyright ownership.  The ASF licenses this file
## to you under the Apache License, Version 2.0 (the
## "License"); you may not use this file except in compliance
## with the License.  You may obtain a copy of the License at
##
##   http://www.apache.org/licenses/LICENSE-2.0
##
## Unless required by applicable law or agreed to in writing,
## software distributed under the License is distributed on an
## "AS IS" BASIS, WITHOUT WARRANTIES OR CONDITIONS OF ANY
## KIND, either express or implied.  See the License for the
## specific language governing permissions and limitations
## under the License.    
Tests the basic arg passing for VMs
We want to pass through two VMs

#macro( foo $a )
  Hello from foo!
  #foreach($i in $a)
    foo: $i
  #end
#end

#macro( floog $a)
  floog : $a
#end

#set($woogie = "geir")
#set($x = 4)
#set($y = 10)
#bar("hello $woogie")
#bar( $woogie )
#bar( 1 )
#bar( true )
#foo( ["a","b"] )
#foo( [1..4] )
#foo( [$x..$y] )

This tests the pass-by-name feature

#macro( bar $b )
  bar : $b
  #floog( $b )
#end

>$provider.bang()<
#bar( $provider.bang() )
#bar( $provider.bang() )