Changeset 13903 for src/Pugs/Prim/Match.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/Prim/Match.hs (modified) (2 diffs)

src/Pugs/Prim/Match.hs

@@ -136 +136 @@
     op2Match x (VType (mkType name))
 
-op2Match x (VSubst (rx, subst)) | rxGlobal rx = do
+-- $x ~~ tr/x/y/ ==> $x = ~$x.trans('x' => 'y')
+op2Match x (VSubst (MkTrans from to)) = do
+    str <- fromVal x
+    evalExp $ Syn "="
+        [ Val x
+        , App (_Var "&trans") (Just (Val (VStr str)))
+            [ App (_Var "&infix:=>") Nothing
+                [ Val (VStr from)
+                , Val (VStr to)
+                ]
+            ]
+        ]
+
+op2Match x (VSubst (MkSubst rx subst)) | rxGlobal rx = do
     str         <- fromVal x
     (str', cnt) <- doReplace str 0
@@ -162 +175 @@
                 return (concat [genericTake from str, str', after'], ok')
 
-op2Match x (VSubst (rx, subst)) = do
+op2Match x (VSubst (MkSubst rx subst)) = do
     str     <- fromVal x
     ref     <- fromVal x