reordered phrasebook sources so that they are easier to clone; cloned Ger,Spa,Cat,Bul

2026-05-23 09:52:55 -06:00 · 2010-04-07 19:39:48 +00:00
parent e8e01acf73
commit 69542726b3
34 changed files with 1212 additions and 355 deletions
--- a/examples/phrasebook/Clone.hs
+++ b/examples/phrasebook/Clone.hs
@@ -51,4 +51,4 @@ commentBody ss = header ++ map comment body ++ ["}"] where
  isJment ws = case ws of
    k:_ | elem k ["flags","lin","lincat","oper","param"] -> True
    _ -> False
-  comment l = "-- " ++ l
+  comment l = if take 2 l == "--" then l else "-- " ++ l