GitHub/gf-core
1
0
Fork 1
mirror of https://github.com/GrammaticalFramework/gf-core.git synced 2026-04-24 03:52:50 -06:00
Code Issues Packages Projects Releases Wiki Activity

utf8

Browse Source
This commit is contained in:
aarne
2004-08-12 12:21:23 +00:00
parent 4849132f1f
commit cf59dee8d3
1 changed files with 3 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

5
src/GF/Shell/JGF.hs
View File

@@ -2,6 +2,7 @@ module JGF where
import Operations import Operations
import UseIO import UseIO
import Unicode
import IOGrammar import IOGrammar
import Option import Option
@@ -49,12 +50,12 @@ welcome =
"An experimental GF Editor for Java." ++ "An experimental GF Editor for Java." ++
"(c) Kristofer Johannisson, Janna Khegai, and Aarne Ranta 2002 under CNU GPL." "(c) Kristofer Johannisson, Janna Khegai, and Aarne Ranta 2002 under CNU GPL."
initEditMsgJavaX env = encodeUTF8 $ unlines $ tagXML "gfinit" $ initEditMsgJavaX env = encodeUTF8 $ mkUnicode $ unlines $ tagXML "gfinit" $
tagsXML "newcat" [["n" +++ cat] | (_,cat) <- newCatMenu env] ++ tagsXML "newcat" [["n" +++ cat] | (_,cat) <- newCatMenu env] ++
tagXML "topic" [abstractName env] ++ tagXML "topic" [abstractName env] ++
tagXML "language" [prLanguage langAbstract] ++ tagXML "language" [prLanguage langAbstract] ++
concat [tagAttrXML "language" ("file",file) [prLanguage lang] | concat [tagAttrXML "language" ("file",file) [prLanguage lang] |
(file,lang) <- zip (allGrammarFileNames env) (allLanguages env)] (file,lang) <- zip (allGrammarFileNames env) (allLanguages env)]
initAndEditMsgJavaX isNew env state = encodeUTF8 $ initAndEditMsgJavaX isNew env state =
initEditMsgJavaX env ++++ displaySStateJavaX isNew env state initEditMsgJavaX env ++++ displaySStateJavaX isNew env state