forked from GitHub/gf-core
some more mkText API functions
This commit is contained in:
@@ -154,7 +154,7 @@ lin PNeg = mkTerm "negativePol" ;
|
||||
lin PPartNP np_1 v2_2 = mkTerm "mkNP" np_1 v2_2 ;
|
||||
lin PPos = mkTerm (hide "positivePol") ;
|
||||
lin PassV2 v2_1 = mkTerm "passiveVP" v2_1 ;
|
||||
lin PhrUtt pconj_1 utt_2 voc_3 = mkTerm "mkPhr" pconj_1 utt_2 voc_3 ;
|
||||
lin PhrUtt pconj_1 utt_2 voc_3 = mkFlat (mkTerm "mkPhr" pconj_1 utt_2 voc_3) ;
|
||||
lin PositA a_1 = mkFlat (mkTerm "mkAP" a_1) ;
|
||||
lin PositAdAAdj a_1 = mkTerm "mkAdA" a_1 ;
|
||||
lin PositAdvAdj a_1 = mkTerm "mkAdv" a_1 ;
|
||||
@@ -197,13 +197,13 @@ lin SlashVS np_1 vs_2 sslash_3 = mkTerm "mkClSlash" np_1 vs_2 sslash_3 ;
|
||||
lin SlashVV vv_1 vpslash_2 = mkTerm "mkVPSlash" vv_1 vpslash_2 ;
|
||||
lin SubjS subj_1 s_2 = mkTerm "mkAdv" subj_1 s_2 ;
|
||||
lin TEmpty = mkTerm (hide "emptyText") ;
|
||||
lin TExclMark phr_1 text_2 = mkTerm "mkText" phr_1 (mkTerm "exclMarkPunct") text_2 ;
|
||||
lin TFullStop phr_1 text_2 = mkTerm "mkText" phr_1 text_2 ;
|
||||
lin TExclMark phr_1 text_2 = mkTerm "mkText" (flatIfTerm phr_1) (mkTerm "exclMarkPunct") text_2 ;
|
||||
lin TFullStop phr_1 text_2 = mkTerm "mkText" (flatIfTerm phr_1) text_2 ;
|
||||
lin TCond = mkTerm "conditionalTense" ;
|
||||
lin TFut = mkTerm "futureTense" ;
|
||||
lin TPast = mkTerm "pastTense" ;
|
||||
lin TPres = mkTerm (hide "presentTense") ;
|
||||
lin TQuestMark phr_1 text_2 = mkTerm "mkText" phr_1 (mkTerm "questMarkPunct") text_2 ;
|
||||
lin TQuestMark phr_1 text_2 = mkTerm "mkText" (flatIfTerm phr_1) (mkTerm "questMarkPunct") text_2 ;
|
||||
lin TTAnt tense_1 ant_2 = mkTerm "mkTense" tense_1 ant_2 ;
|
||||
--lin Use2N3 n3_1 = mkTerm "mkN2" n3_1 ;
|
||||
--lin Use3N3 n3_1 = mkTerm "mkN2" n3_1 ;
|
||||
@@ -231,8 +231,8 @@ lin UttImpPol pol_1 imp_2 = mkTerm "mkUtt" (mkTerm "politeImpForm") pol_1 imp_2
|
||||
lin UttImpSg pol_1 imp_2 = mkTerm "mkUtt" pol_1 imp_2 ;
|
||||
--lin UttInterj interj_1 = mkTerm "mkUtt" interj_1 ;
|
||||
lin UttNP np_1 = mkTerm "mkUtt" np_1 ;
|
||||
lin UttQS qs_1 = mkTerm "mkUtt" qs_1 ;
|
||||
lin UttS s_1 = mkTerm "mkUtt" s_1 ;
|
||||
lin UttQS qs_1 = mkFlat (mkTerm "mkUtt" qs_1) ;
|
||||
lin UttS s_1 = mkFlat (mkTerm "mkUtt" s_1) ;
|
||||
lin UttVP vp_1 = mkTerm "mkUtt" vp_1 ;
|
||||
lin VocNP np_1 = mkTerm "mkVoc" np_1 ;
|
||||
|
||||
|
||||
Reference in New Issue
Block a user