diff options
| author | peb <unknown> | 2005-08-11 13:11:46 +0000 |
|---|---|---|
| committer | peb <unknown> | 2005-08-11 13:11:46 +0000 |
| commit | 26b84344f7a99fe11dcf066bc1d2eafa38828414 (patch) | |
| tree | 8ec1dd39b9bd853766ef16e666e9d013b3cfb16d /src/GF/Conversion/GFC.hs | |
| parent | 1351c101337e46a89c066f0830ed6f06fc96cf7a (diff) | |
"Committed_by_peb"
Diffstat (limited to 'src/GF/Conversion/GFC.hs')
| -rw-r--r-- | src/GF/Conversion/GFC.hs | 12 |
1 files changed, 6 insertions, 6 deletions
diff --git a/src/GF/Conversion/GFC.hs b/src/GF/Conversion/GFC.hs index 84ac6747d..c0d1b68b2 100644 --- a/src/GF/Conversion/GFC.hs +++ b/src/GF/Conversion/GFC.hs @@ -4,9 +4,9 @@ -- Stability : (stable) -- Portability : (portable) -- --- > CVS $Date: 2005/05/30 08:11:32 $ +-- > CVS $Date: 2005/08/11 14:11:46 $ -- > CVS $Author: peb $ --- > CVS $Revision: 1.12 $ +-- > CVS $Revision: 1.13 $ -- -- All conversions from GFC ----------------------------------------------------------------------------- @@ -95,8 +95,8 @@ gfc2abstract :: (CanonGrammar, Ident) -> [Abstract SCat Fun] gfc2abstract gr = [ Abs (decl2cat decl) (map decl2cat decls) (name2fun name) | Rule (Abs decl decls name) _ <- gfc2simple gr ] -abstract2prolog :: [Abstract SCat Fun] -> String -abstract2prolog gr = skvatt_hdr ++ concatMap abs2pl gr +abstract2skvatt :: [Abstract SCat Fun] -> String +abstract2skvatt gr = skvatt_hdr ++ concatMap abs2pl gr where abs2pl (Abs cat [] fun) = prtQuoted cat ++ " ---> " ++ "\"" ++ prt fun ++ "\".\n" abs2pl (Abs cat cats fun) = @@ -104,8 +104,8 @@ abstract2prolog gr = skvatt_hdr ++ concatMap abs2pl gr "\"(" ++ prt fun ++ "\"" ++ prtBefore ", \" \", " (map prtQuoted cats) ++ ", \")\".\n" -cfg2prolog :: CGrammar -> String -cfg2prolog gr = skvatt_hdr ++ concatMap cfg2pl gr +cfg2skvatt :: CGrammar -> String +cfg2skvatt gr = skvatt_hdr ++ concatMap cfg2pl gr where cfg2pl (CFRule cat syms _name) = prtQuoted cat ++ " ---> " ++ if null syms then "\"\".\n" else |