implemented pattern macros

testsuite/compiler/compute/param_table.gf

@@ -3,4 +3,12 @@ resource param_table = {
 param Q = Q1 | Q2 ;
 param P = P1 | P2 Q ;
 
+oper ab_patt = #["ab"];
+
+oper test : Str -> Q = \s ->
+  case s of {
+    #ab_patt + _ => Q1 ;
+    _            => Q2
+  } ;
+
 }

testsuite/compiler/compute/string_matching.gfs

@@ -23,3 +23,6 @@ cc <case "abcdefghi" of {""+x => x; _ => "?"} : Str>
 cc <case "abcdefghi" of {x+"" => x; _ => "?"} : Str>
 cc <case "aaaaxy" of {"a"* + x => x; _ => "?"} : Str>
 cc <case "xybbbbb" of {x + "b"* => x; _ => "?"} : Str>
+cc <case "xyababbbab" of {x + #ab_patt* => x; _ => "?"} : Str>
+cc test "abcd"
+cc test "xyz"

testsuite/compiler/compute/string_matching.gfs.gold

@@ -22,3 +22,6 @@ param_table.Q2
 "abcdefghi"
 "aaaaxy"
 "xy"
+"xy"
+param_table.Q1
+param_table.Q2