diff options
| author | peb <unknown> | 2005-02-17 09:12:32 +0000 |
|---|---|---|
| committer | peb <unknown> | 2005-02-17 09:12:32 +0000 |
| commit | 359f1b8ea2032fbf5b8ad7ad6c88e922fa83470b (patch) | |
| tree | 17d52866d7f97c1817832eefb741e07a0b54cffb /src/GF/Infra/ReadFiles.hs | |
| parent | 55f889eda88d847ace5cdae00b175434006be287 (diff) | |
"Committed_by_peb"
Diffstat (limited to 'src/GF/Infra/ReadFiles.hs')
| -rw-r--r-- | src/GF/Infra/ReadFiles.hs | 8 |
1 files changed, 8 insertions, 0 deletions
diff --git a/src/GF/Infra/ReadFiles.hs b/src/GF/Infra/ReadFiles.hs index 8f6b5c971..7fd81386e 100644 --- a/src/GF/Infra/ReadFiles.hs +++ b/src/GF/Infra/ReadFiles.hs @@ -161,12 +161,19 @@ needCompile opts headers sfiles0 = paths $ res $ mark $ iter changed where CSRead -> gfcFile CSRes -> gfrFile +isGFC :: FilePath -> Bool isGFC = (== "gfc") . fileSuffix +gfcFile :: FilePath -> FilePath gfcFile = suffixFile "gfc" + +gfrFile :: FilePath -> FilePath gfrFile = suffixFile "gfr" + +gfFile :: FilePath -> FilePath gfFile = suffixFile "gf" +resModName :: ModName -> ModName resModName = ('#':) -- to get imports without parsing the whole files @@ -306,6 +313,7 @@ isOldFile f = do -- old GF tolerated newlines in quotes. No more supported! +fixNewlines :: String -> String fixNewlines s = case s of '"':cs -> '"':mk cs c :cs -> c:fixNewlines cs |