Arguments to subrules

start:   word  rev[$item[1]]  {1}

rev:     word  {$return = 1 if $arg [0] eq reverse $item [1]; undef}

word:    /\w+/

In [1] := foo oof
Out [1] = 1
In [2] := foo bar
Out [2] = <<UNDEF>>


[Prev] [Next] [Index]