Changeset 13903 for src/Pugs/AST.hs

Timestamp:

10/05/06 06:25:21 (2 years ago)

Author:

audreyt

Message:

* Add support for transliteration:

tr///
y///
$x tr///
$x y///

Files:

• src/Pugs/AST.hs (modified) (2 diffs)

src/Pugs/AST.hs

@@ -202 +202 @@
 mergeStmts (Syn "package" [kind, pkg@(Val (VStr _))]) y =
     Syn "namespace" [kind, pkg, y]
-mergeStmts x@(Ann ann (Syn syn _)) y | (syn ==) `any` words "subst match //"  =
+mergeStmts x@(Ann ann (Syn syn _)) y | isImplicitTopic syn =
     mergeStmts (Ann ann (App (_Var "&infix:~~") Nothing [_Var "$_", x])) y
-mergeStmts x y@(Ann ann (Syn syn _)) | (syn ==) `any` words "subst match //"  =
+mergeStmts x y@(Ann ann (Syn syn _)) | isImplicitTopic syn =
     mergeStmts x (Ann ann (App (_Var "&infix:~~") Nothing [_Var "$_", y]))
 mergeStmts (Ann ann (Syn "sub" [Val (VCode sub)])) y | subType sub == SubBlock =
@@ -215 +215 @@
 mergeStmts x (Stmts Noop y) = mergeStmts x y
 mergeStmts x y = Stmts x y
+
+isImplicitTopic "subst" = True
+isImplicitTopic "match" = True
+isImplicitTopic "trans" = True
+isImplicitTopic "//"    = True
+isImplicitTopic _       = False
 
 isEmptyParams :: [Param] -> Bool