GitHub/gf-core
1
0
Fork 1
mirror of https://github.com/GrammaticalFramework/gf-core.git synced 2026-04-12 22:39:31 -06:00
Code Issues Packages Projects Releases Wiki Activity

simple-minded transformer of constructor counts, to adapt a treebank quickly

Browse Source
This commit is contained in:
aarne
2014-02-26 18:24:48 +00:00
parent 3a064468c2
commit 8db4f97bce
1 changed files with 63 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

63
lib/src/experimental/transfer/CountTransfer.hs Normal file
View File

@@ -0,0 +1,63 @@
module Main where
main = interact (unlines . map changeCounts . lines)
changeCounts = unlexer . concatMap counts . lexer
lexer s = case lex s of
(t,s2@(_:_)):_ -> t:lexer s2
_ -> []
unlexer = unwords
counts t = case t of
"UttImpPl" -> ["PrImpPl"]
"UttImpPol" -> ["PrImpPol"]
"UttImpSg" -> ["PrImpSg"]
"ImpVP" -> []
"UttQS" -> ["UttPrS","UseQCl_none"]
"UttS" -> ["UttPrS"]
"UttVP" -> ["UttPrVPI","InfVP_none"]
"UseRCl" -> []
"TTAnt" -> []
"RelVP" -> ["RelVP_none"]
"RelSlash" -> ["RelSlash_none"]
"ConjS" -> ["UseClC_none"]
"PredVPS" -> ["UseCl_none","PredVP_none","UseVPC_none"]
"BaseVPS" -> ["StartVPC_none"]
"ConsVPS" -> ["ContVPC_none"]
"BaseS" -> ["StartClC_none"]
"ConsS" -> ["ContClC_none"]
"PredVP" -> ["PredVP_none"]
"AdvVP" -> ["AdvCl_none","LiftAdv"] ---- some for Cl, some for QCl
"AdVVP" -> ["AdvQCl_none","LiftAdV"] ----
"QuestVP" -> ["QuestVP_none"]
"QuestSlash" -> ["QuestSlash_none"]
"QuestCl" -> ["QuestCl_none"]
"QuestIAdv" -> ["QuestIAdv_none"]
"QuestIComp" -> ["QuestIComp_none"]
"UseV" -> ["UseV_none"]
"ComplVS" -> ["ComplVS_none","UseV_s","LiftVS"]
"ComplVQ" -> ["ComplVQ_none","UseV_q","LiftVQ"]
"ComplVA" -> ["ComplVA_none","UseV_a","LiftVA"]
"ComplVV" -> ["ComplVV_none","UseV_v","LiftVV","InfVP_none"]
"ComplSlash" -> ["ComplV2_none"]
"UseComp" -> []
"CompAP" -> ["UseAP_none","LiftAP"]
"CompAdv" -> ["UseAdv_none","LiftAdv"]
"CompCN" -> ["UseCN_none","LiftCN"]
"CompNP" -> ["UseNP_none"]
"CompVP" -> ["UseAP_none","InfAP_none"]
"CompQS" -> ["UseQ_none"]
"CompS" -> ["UseS_none"]
"SlashV2a" -> ["UseV_np","LiftV2"]
"SlashV2S" -> ["SlashV2S_none","UseV_np_s","LiftV2S"]
"SlashV2Q" -> ["SlashV2Q_none","UseV_np_q","LiftV2Q"]
"SlashV2A" -> ["SlashV2A_none","UseV_np_a","LiftV2A"]
"SlashV2V" -> ["SlashV2V_none","UseV_np_v","LiftV2V","InfVP_none"]
"SlashVV" -> ["ComplVV_np","UseV_v","LiftVV","InfVP_none"]
"SlashVP" -> ["PredVP_np"]
"UseCl" -> []
"UseQCl" -> []
t -> [t]