added VP exx

2026-04-30 23:02:50 -06:00 · 2007-06-03 09:42:49 +00:00
parent 01840d027d
commit 8918619a15
4 changed files with 70 additions and 30 deletions
--- a/lib/resource-1.0/api/examples/mkgfs.hs
+++ b/lib/resource-1.0/api/examples/mkgfs.hs
@@ -11,6 +11,9 @@ mkgfs = do


 addLin s = case words s of
-  c@('e':'x':_):_ -> appendFile script ("l " ++ c ++ "\n")
+  c@('e':'x':_):_ -> appendFile script ("l " ++ cc ++ "\n") where
+    cc = case take 2 (reverse c) of
+      --- "PV" -> "utt " ++ c
+      _ -> c 
  _ -> return ()