blob: 10be19309b7493dc34703673be957a43f0584c13 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
|
instance ParamSammieEng of ParamSammie = open
SyntaxEng,
ExtraEng,
SymbolicEng,
ParadigmsEng,
IrregEng,
(C = ConstructX),
Prelude
in {
oper
song_N = mkN "song" ;
track_N = mkN "track" ;
album_N = mkN "album" ;
record_N = mkN "record" ;
cd_N = mkN "CD" ;
playlist_N = mkN "playlist" ;
artist_N = mkN "artist" ;
number_N = mkN "number" ;
rock_N = mkN "rock" ;
new_A = regA "new" ;
add_V3 = dirV3 (mkV "add") to_Prep ;
remove_V3 = dirV3 (mkV "remove") from_Prep ;
show_V3 = dirdirV3 (mkV "show") ;
create_V2 = dirV2 (mkV "create") ;
show_V2Q = mkV2Q (dirV2 (mkV "show")) (mkPrep []) ;
tell_V2Q = mkV2Q (dirV2 tell_V) (mkPrep []) ;
play_V2 = dirV2 (mkV "play") ;
return_V2 = mkV2 (mkV "return") to_Prep ;
goto_V2 = mkV2 go_V to_Prep ;
record_V2 = dirV2 (mkV "record") ;
make_V2 = dirV2 make_V ;
stop_V = regDuplV "stop" ;
back_Adv = mkAdv "back" ;
what_IAdv = C.mkIAdv "what" ;
previous_A = mkA "previous" ;
next_A = mkA "next" ;
please_PConj = C.mkPConj "please" ;
mainmenu_NP =
mkNP the_Art (mkCN (mkA "main") (mkN "menu")) ;
goback_VP = mkVP (mkVP go_V) back_Adv ;
shutup_VP = mkVP (partV shut_V "up") ;
pause_VP = mkVP (mkV "pause") ;
resume_VP = mkVP (mkV "resume") ;
whatever_Utt = C.mkUtt "whatever" ;
typeWithGenre x genre = mkCN genre (mkNP x) ;
name = regPN ;
WhatName = mkQCl what_IAdv ;
past = <TPast,ASimul> ;
imperative vp =
mkUtt (mkImp vp)
| mkUtt (mkQS (mkQCl (mkCl (mkNP youSg_Pron) can_VV vp)))
| mkUtt (mkCl (mkNP i_Pron) want_VV vp)
| mkUtt vp
;
previous cn = mkNP the_Art (mkCN previous_A cn) ;
next cn = mkNP the_Art (mkCN next_A cn) ;
what_say = mkUtt whatSg_IP ;
all_art = a_Art | the_Art ;
artist_Prep = by8agent_Prep | with_Prep ;
this cn =
mkNP this_Quant
| mkNP the_Art (mkCN (mkA "current") cn)
;
}
|
