From 77270a010a0b453e9a84c3e62db7cfd22e49d55d Mon Sep 17 00:00:00 2001 From: bjorn Date: Thu, 14 Aug 2008 07:58:04 +0000 Subject: Remove the grammars directory. It was full of old grammars that don't compile these days. See the old source distributions if you want them. --- grammars/TALK/GF_GoDiS/Domain/AgendaTalk/DB.gf | 5 - grammars/TALK/GF_GoDiS/Domain/AgendaTalk/DBEng.gf | 5 - grammars/TALK/GF_GoDiS/Domain/AgendaTalk/DBPro.gf | 5 - grammars/TALK/GF_GoDiS/Domain/AgendaTalk/DBSwe.gf | 5 - .../Domain/AgendaTalk/Shared/sharedDomain.gf | 64 -------- .../Domain/AgendaTalk/Shared/sharedDomainEng.gf | 148 ------------------ .../Domain/AgendaTalk/Shared/sharedDomainPro.gf | 77 ---------- .../Domain/AgendaTalk/Shared/sharedDomainSwe.gf | 42 ----- .../Domain/AgendaTalk/System/systemDomain.gf | 53 ------- .../Domain/AgendaTalk/System/systemDomainEng.gf | 74 --------- .../Domain/AgendaTalk/System/systemDomainPro.gf | 65 -------- .../Domain/AgendaTalk/System/systemDomainSwe.gf | 74 --------- .../GF_GoDiS/Domain/AgendaTalk/User/userDomain.gf | 13 -- .../Domain/AgendaTalk/User/userDomainEng.gf | 25 --- .../Domain/AgendaTalk/User/userDomainPro.gf | 18 --- .../Domain/AgendaTalk/User/userDomainSwe.gf | 24 --- grammars/TALK/GF_GoDiS/Domain/DJGoDiS/DB.gf | 6 - grammars/TALK/GF_GoDiS/Domain/DJGoDiS/DBEng.gf | 7 - grammars/TALK/GF_GoDiS/Domain/DJGoDiS/DBPro.gf | 6 - grammars/TALK/GF_GoDiS/Domain/DJGoDiS/DBSwe.gf | 5 - .../GF_GoDiS/Domain/DJGoDiS/Shared/sharedDomain.gf | 105 ------------- .../Domain/DJGoDiS/Shared/sharedDomainEng.gf | 154 ------------------- .../Domain/DJGoDiS/Shared/sharedDomainPro.gf | 87 ----------- .../Domain/DJGoDiS/Shared/sharedDomainSwe.gf | 170 --------------------- .../GF_GoDiS/Domain/DJGoDiS/System/systemDomain.gf | 75 --------- .../Domain/DJGoDiS/System/systemDomainEng.gf | 106 ------------- .../Domain/DJGoDiS/System/systemDomainPro.gf | 98 ------------ .../Domain/DJGoDiS/System/systemDomainSwe.gf | 105 ------------- .../GF_GoDiS/Domain/DJGoDiS/User/userDomain.gf | 19 --- .../GF_GoDiS/Domain/DJGoDiS/User/userDomainEng.gf | 29 ---- .../GF_GoDiS/Domain/DJGoDiS/User/userDomainPro.gf | 15 -- .../GF_GoDiS/Domain/DJGoDiS/User/userDomainSwe.gf | 29 ---- grammars/TALK/GF_GoDiS/Domain/SpecResEng.gf | 27 ---- grammars/TALK/GF_GoDiS/Domain/SpecResSwe.gf | 27 ---- grammars/TALK/GF_GoDiS/Domain/deLux/DB.gf | 5 - grammars/TALK/GF_GoDiS/Domain/deLux/DBEng.gf | 5 - grammars/TALK/GF_GoDiS/Domain/deLux/DBPro.gf | 5 - grammars/TALK/GF_GoDiS/Domain/deLux/DBSwe.gf | 5 - .../GF_GoDiS/Domain/deLux/Shared/sharedDomain.gf | 50 ------ .../Domain/deLux/Shared/sharedDomainEng.gf | 46 ------ .../Domain/deLux/Shared/sharedDomainPro.gf | 43 ------ .../Domain/deLux/Shared/sharedDomainSwe.gf | 48 ------ .../GF_GoDiS/Domain/deLux/Shared/sharedSpecific.gf | 58 ------- .../GF_GoDiS/Domain/deLux/System/systemDomain.gf | 34 ----- .../Domain/deLux/System/systemDomainEng.gf | 32 ---- .../Domain/deLux/System/systemDomainPro.gf | 28 ---- .../Domain/deLux/System/systemDomainSwe.gf | 28 ---- .../TALK/GF_GoDiS/Domain/deLux/User/userDomain.gf | 13 -- .../GF_GoDiS/Domain/deLux/User/userDomainEng.gf | 12 -- .../GF_GoDiS/Domain/deLux/User/userDomainPro.gf | 14 -- .../GF_GoDiS/Domain/deLux/User/userDomainSwe.gf | 11 -- 51 files changed, 2204 deletions(-) delete mode 100644 grammars/TALK/GF_GoDiS/Domain/AgendaTalk/DB.gf delete mode 100644 grammars/TALK/GF_GoDiS/Domain/AgendaTalk/DBEng.gf delete mode 100644 grammars/TALK/GF_GoDiS/Domain/AgendaTalk/DBPro.gf delete mode 100644 grammars/TALK/GF_GoDiS/Domain/AgendaTalk/DBSwe.gf delete mode 100644 grammars/TALK/GF_GoDiS/Domain/AgendaTalk/Shared/sharedDomain.gf delete mode 100644 grammars/TALK/GF_GoDiS/Domain/AgendaTalk/Shared/sharedDomainEng.gf delete mode 100644 grammars/TALK/GF_GoDiS/Domain/AgendaTalk/Shared/sharedDomainPro.gf delete mode 100644 grammars/TALK/GF_GoDiS/Domain/AgendaTalk/Shared/sharedDomainSwe.gf delete mode 100644 grammars/TALK/GF_GoDiS/Domain/AgendaTalk/System/systemDomain.gf delete mode 100644 grammars/TALK/GF_GoDiS/Domain/AgendaTalk/System/systemDomainEng.gf delete mode 100644 grammars/TALK/GF_GoDiS/Domain/AgendaTalk/System/systemDomainPro.gf delete mode 100644 grammars/TALK/GF_GoDiS/Domain/AgendaTalk/System/systemDomainSwe.gf delete mode 100644 grammars/TALK/GF_GoDiS/Domain/AgendaTalk/User/userDomain.gf delete mode 100644 grammars/TALK/GF_GoDiS/Domain/AgendaTalk/User/userDomainEng.gf delete mode 100644 grammars/TALK/GF_GoDiS/Domain/AgendaTalk/User/userDomainPro.gf delete mode 100644 grammars/TALK/GF_GoDiS/Domain/AgendaTalk/User/userDomainSwe.gf delete mode 100644 grammars/TALK/GF_GoDiS/Domain/DJGoDiS/DB.gf delete mode 100644 grammars/TALK/GF_GoDiS/Domain/DJGoDiS/DBEng.gf delete mode 100644 grammars/TALK/GF_GoDiS/Domain/DJGoDiS/DBPro.gf delete mode 100644 grammars/TALK/GF_GoDiS/Domain/DJGoDiS/DBSwe.gf delete mode 100644 grammars/TALK/GF_GoDiS/Domain/DJGoDiS/Shared/sharedDomain.gf delete mode 100644 grammars/TALK/GF_GoDiS/Domain/DJGoDiS/Shared/sharedDomainEng.gf delete mode 100644 grammars/TALK/GF_GoDiS/Domain/DJGoDiS/Shared/sharedDomainPro.gf delete mode 100644 grammars/TALK/GF_GoDiS/Domain/DJGoDiS/Shared/sharedDomainSwe.gf delete mode 100644 grammars/TALK/GF_GoDiS/Domain/DJGoDiS/System/systemDomain.gf delete mode 100644 grammars/TALK/GF_GoDiS/Domain/DJGoDiS/System/systemDomainEng.gf delete mode 100644 grammars/TALK/GF_GoDiS/Domain/DJGoDiS/System/systemDomainPro.gf delete mode 100644 grammars/TALK/GF_GoDiS/Domain/DJGoDiS/System/systemDomainSwe.gf delete mode 100644 grammars/TALK/GF_GoDiS/Domain/DJGoDiS/User/userDomain.gf delete mode 100644 grammars/TALK/GF_GoDiS/Domain/DJGoDiS/User/userDomainEng.gf delete mode 100644 grammars/TALK/GF_GoDiS/Domain/DJGoDiS/User/userDomainPro.gf delete mode 100644 grammars/TALK/GF_GoDiS/Domain/DJGoDiS/User/userDomainSwe.gf delete mode 100644 grammars/TALK/GF_GoDiS/Domain/SpecResEng.gf delete mode 100644 grammars/TALK/GF_GoDiS/Domain/SpecResSwe.gf delete mode 100644 grammars/TALK/GF_GoDiS/Domain/deLux/DB.gf delete mode 100644 grammars/TALK/GF_GoDiS/Domain/deLux/DBEng.gf delete mode 100644 grammars/TALK/GF_GoDiS/Domain/deLux/DBPro.gf delete mode 100644 grammars/TALK/GF_GoDiS/Domain/deLux/DBSwe.gf delete mode 100644 grammars/TALK/GF_GoDiS/Domain/deLux/Shared/sharedDomain.gf delete mode 100644 grammars/TALK/GF_GoDiS/Domain/deLux/Shared/sharedDomainEng.gf delete mode 100644 grammars/TALK/GF_GoDiS/Domain/deLux/Shared/sharedDomainPro.gf delete mode 100644 grammars/TALK/GF_GoDiS/Domain/deLux/Shared/sharedDomainSwe.gf delete mode 100644 grammars/TALK/GF_GoDiS/Domain/deLux/Shared/sharedSpecific.gf delete mode 100644 grammars/TALK/GF_GoDiS/Domain/deLux/System/systemDomain.gf delete mode 100644 grammars/TALK/GF_GoDiS/Domain/deLux/System/systemDomainEng.gf delete mode 100644 grammars/TALK/GF_GoDiS/Domain/deLux/System/systemDomainPro.gf delete mode 100644 grammars/TALK/GF_GoDiS/Domain/deLux/System/systemDomainSwe.gf delete mode 100644 grammars/TALK/GF_GoDiS/Domain/deLux/User/userDomain.gf delete mode 100644 grammars/TALK/GF_GoDiS/Domain/deLux/User/userDomainEng.gf delete mode 100644 grammars/TALK/GF_GoDiS/Domain/deLux/User/userDomainPro.gf delete mode 100644 grammars/TALK/GF_GoDiS/Domain/deLux/User/userDomainSwe.gf (limited to 'grammars/TALK/GF_GoDiS/Domain') diff --git a/grammars/TALK/GF_GoDiS/Domain/AgendaTalk/DB.gf b/grammars/TALK/GF_GoDiS/Domain/AgendaTalk/DB.gf deleted file mode 100644 index e642d671d..000000000 --- a/grammars/TALK/GF_GoDiS/Domain/AgendaTalk/DB.gf +++ /dev/null @@ -1,5 +0,0 @@ ---# -path=.:../../Resource/Media:../../Resource/Time: - -abstract DB = TVStations, Time, Weekday ** { - -} diff --git a/grammars/TALK/GF_GoDiS/Domain/AgendaTalk/DBEng.gf b/grammars/TALK/GF_GoDiS/Domain/AgendaTalk/DBEng.gf deleted file mode 100644 index 27053c2eb..000000000 --- a/grammars/TALK/GF_GoDiS/Domain/AgendaTalk/DBEng.gf +++ /dev/null @@ -1,5 +0,0 @@ ---# -path=.:../../Resource/Media:../../Resource/Time: - -concrete DBEng of DB = TVStationsEng, TimeEng, WeekdayEng ** { - -} \ No newline at end of file diff --git a/grammars/TALK/GF_GoDiS/Domain/AgendaTalk/DBPro.gf b/grammars/TALK/GF_GoDiS/Domain/AgendaTalk/DBPro.gf deleted file mode 100644 index f7b96247f..000000000 --- a/grammars/TALK/GF_GoDiS/Domain/AgendaTalk/DBPro.gf +++ /dev/null @@ -1,5 +0,0 @@ ---# -path=.:../../Resource/Media:../../Resource/Time: - -concrete DBPro of DB = TVStationsPro, TimeProlog, WeekdayProlog ** { - -} \ No newline at end of file diff --git a/grammars/TALK/GF_GoDiS/Domain/AgendaTalk/DBSwe.gf b/grammars/TALK/GF_GoDiS/Domain/AgendaTalk/DBSwe.gf deleted file mode 100644 index ab7e984d2..000000000 --- a/grammars/TALK/GF_GoDiS/Domain/AgendaTalk/DBSwe.gf +++ /dev/null @@ -1,5 +0,0 @@ ---# -path=.:../../Resource/Media:../../Resource/Time: - -concrete DBSwe of DB = TVStationsSwe, TimeSwe, WeekdaySwe ** { - -} \ No newline at end of file diff --git a/grammars/TALK/GF_GoDiS/Domain/AgendaTalk/Shared/sharedDomain.gf b/grammars/TALK/GF_GoDiS/Domain/AgendaTalk/Shared/sharedDomain.gf deleted file mode 100644 index db2f40c51..000000000 --- a/grammars/TALK/GF_GoDiS/Domain/AgendaTalk/Shared/sharedDomain.gf +++ /dev/null @@ -1,64 +0,0 @@ ---# -path=.:../:../../../Resource/Time:../Shared:../../../Core:../../../Core/Shared: - -abstract sharedDomain = sharedCore, DB, Time, Weekday ** { - -fun - --- ANSWERS - - --makeAddLocAnswer : Location -> Proposition addTask; - --makeRemLocAnswer : Location -> Proposition removeTask; - - makeAddEventAnswer : Event -> Proposition addTask; - makeRemEventAnswer : Event -> Proposition removeTask; - makeCheckupAnswer : Event -> Proposition checkupTask; - makeCheckTimeAnswer : Event -> Proposition checkTimeTask; - makeAddInfoAnswer : Event -> Proposition addInfoTask; - - makeAddEventTimeAnswer : Time -> Proposition addTask; - makeRemEventTimeAnswer : Time -> Proposition removeTask; - makeCheckupTimeAnswer : Time -> Proposition checkupTask; - makeCheckTimeTimeAnswer : Time -> Proposition checkTimeTask; - makeAddInfoTimeAnswer : Time -> Proposition addInfoTask; - - makeAddEventDayAnswer : Weekday -> Proposition addTask; - makeRemEventDayAnswer : Weekday -> Proposition removeTask; - makeCheckupDayAnswer : Weekday -> Proposition checkupTask; - makeCheckTimeDayAnswer : Weekday -> Proposition checkTimeTask; - makeAddInfoDayAnswer : Weekday -> Proposition addInfoTask; - - makeCheckAnswer : Location -> Proposition checkupTask; - makeAddInfoLocAnswer : Location -> Proposition addInfoTask; - makeCheckTimeLocAnswer : Location -> Proposition checkTimeTask; - - - --- LEXICON - - addTask : Task; - removeTask : Task; - changeTask : Task; - addInfoTask : Task; - checkupTask : Task; -- "har jag" - checkTimeTask : Task; - - addEntry : Action addTask; -- "lägga till", "anteckna", "göra en anteckning", "boka", "boka in" - removeEntry : Action removeTask; -- "ta bort", "radera", "ta bort en anteckning", "ta bort anteckningen" - changeEntry : Action changeTask; -- "ändra anteckningen" - "request(change_info)" - augmentEntry : Action addInfoTask; -- "lägga till mer information" - "request(more_info) - checkupEntry : Action checkTimeTask; - - checkup : Ask checkupTask; -- "vad har jag" - -} - - - - - - - - - - - diff --git a/grammars/TALK/GF_GoDiS/Domain/AgendaTalk/Shared/sharedDomainEng.gf b/grammars/TALK/GF_GoDiS/Domain/AgendaTalk/Shared/sharedDomainEng.gf deleted file mode 100644 index f4952f1d5..000000000 --- a/grammars/TALK/GF_GoDiS/Domain/AgendaTalk/Shared/sharedDomainEng.gf +++ /dev/null @@ -1,148 +0,0 @@ ---# -path=.:../:../Artist:../Numbers - - -concrete sharedDomainEng of sharedDomain = sharedCoreEng, numbersEng, orderNumEng, englishDBEng ** - open SpecResEng in { - - - - - -lin - -- ANSWERS - answerSongPlay song = {s = variants { - ( song.s ); - ( (itemForm ! Song) ++ song.s ) - } - }; - answerSongAdd song = {s = variants { - ( song.s ); - ( (itemForm ! Song) ++ song.s ) - } - }; - answerSongRemove song = {s = variants { - ( song.s ); - ( (itemForm ! Song) ++ song.s ) - } - }; - questionSong song = {s = variants { - ( song.s ); - ( (itemForm ! Song) ++ song.s ) - } - }; - - - - answerArtistPlay artist = {s = variants { - ( artist.s ); - ( (itemForm ! Artist) ++ artist.s ) - } - }; - answerArtistAdd artist = {s = variants { - ( artist.s ); - ( (itemForm ! Artist) ++ artist.s ) - } - }; - answerArtistRemove artist = {s = variants { - ( artist.s ); - ( (itemForm ! Artist) ++ artist.s ) - } - }; - questionArtist artist = { s = variants { - ( artist.s ); - ( (itemForm ! Artist) ++ artist.s ) - } - }; - - - - answerStationPlay station = {s = variants { - ( station.s); - ( ["the station"] ++ station.s) - } - }; - answerStationAdd station = {s = variants { - ( station.s); - ( ["the station"] ++ station.s) - } - }; - answerStationRemove station = {s = variants { - ( station.s); - ( ["the station"] ++ station.s) - } - }; - - - - -- LIST RELATED ANSWERS - - -- nummer fem - -- fem - answerNumberInListPlay numb = {s = variants { - ( (listForm ! Numeric) ++ numb.s ); - ( numb.s ) - } - }; - - answerNumberInListRemove numb = {s = variants { - ( (listForm ! Numeric) ++ numb.s ); - ( numb.s ) - } - }; - - - -- den femte låten - -- den femte - answerOrderInListPlay ordNum = - {s = variants { - ("the" ++ ordNum.s ++ (itemForm ! Post)); - ("the" ++ ordNum.s) - } - }; - answerOrderInListRemove ordNum = - {s = variants { - ("the" ++ ordNum.s ++ (itemForm ! Post)); - ("the" ++ ordNum.s) - } - }; - - --- LEXICON - -pattern - - play_spec = (variants {["play"] ; ["listen to"] ; "hear"}); - play_spec_alone = variants {["play a specific"] ; ["play a specific song"] ; ["listen to a specific song"] ; ["hear a specific song"]}; - play = (variants {["start from the beginning"] ; ["play"] ; ["start"]}); - stop = (variants {["stop"]}); - pause = ["pause"]; - resume = (variants {["resume"] ; ["resume playing"]}); - - next = "next"; - previous = "previous"; - - raise_volume = ["raise the volume"] ; - lower_volume = ["lower the volume"]; - - shift = "shift" ++ variants{ ["the balance"] ; ""}; - right = variants{"" ; ["to the"]} ++ "right"; - left = variants{"" ; ["to the"]} ++ "left"; - center = variants{"" ; ["to the"]} ++ "middle"; - - show_list = ["show the list"]; - - add = ["add"]; - remove = ["remove"]; - - handle_list = ["manage the playlist"]; - handle_player = ["talk to the player"]; - handle_stations = ["choose a station"]; -} - - - - - - - - diff --git a/grammars/TALK/GF_GoDiS/Domain/AgendaTalk/Shared/sharedDomainPro.gf b/grammars/TALK/GF_GoDiS/Domain/AgendaTalk/Shared/sharedDomainPro.gf deleted file mode 100644 index b6c74a297..000000000 --- a/grammars/TALK/GF_GoDiS/Domain/AgendaTalk/Shared/sharedDomainPro.gf +++ /dev/null @@ -1,77 +0,0 @@ --- SWEDISH VERSION, UNCOMMENT AS NEEDED ---# -path=.:../:../DBase/Swedish:../DBase:../Shared:../System:../Numbers -concrete sharedDomainPro of sharedDomain = sharedCorePro, numbersEng, orderNumEng, swedishDBPro ** { - --- ENGLISH VERSION, UNCOMMENT AS NEEDED --- --# -path=.:../:../DBase/English:../DBase:../Shared:../System:../Numbers - - --- concrete sharedDomainPro of sharedDomain = sharedCorePro, numbersEng, orderNumEng, englishDBPro ** { - -flags lexer=code ; unlexer=code ; - -lin - --- ANSWERS - - answerSongPlay song = { s = "item" ++ "(" ++ song.s ++ ")"}; - answerSongAdd song = { s = "item" ++ "(" ++ song.s ++ ")"}; - answerSongRemove song = { s = "item" ++ "(" ++ song.s ++ ")"}; - questionSong song = { s = "item" ++ "(" ++ song.s ++ ")"}; - - - answerArtistPlay artist = { s = "group" ++ "(" ++ artist.s ++ ")"}; - answerArtistAdd artist = { s = "group" ++ "(" ++ artist.s ++ ")"}; - answerArtistRemove artist = { s = "group" ++ "(" ++ artist.s ++ ")"}; - questionArtist artist = {s = "group" ++ "(" ++ artist.s ++ ")"}; - - - answerStationPlay station = { s = "station" ++ "(" ++ station.s ++ ")"}; - answerStationAdd station = { s = "station" ++ "(" ++ station.s ++ ")"}; - answerStationRemove station = { s = "station" ++ "(" ++ station.s ++ ")"}; - - - answerNumberInListPlay numb = {s = "index" ++ "(" ++ "[" ++ numb.s ++ "]" ++ ")"}; - answerNumberInListRemove numb = {s = "index" ++ "(" ++ "[" ++ numb.s ++ "]" ++ ")"}; - - answerOrderInListPlay ordNum = {s = "index" ++ "(" ++ "[" ++ ordNum.s ++ "]" ++ ")"}; - answerOrderInListRemove ordNum = {s = "index" ++ "(" ++ "[" ++ ordNum.s ++ "]" ++ ")"}; - - - --- LEXICON -pattern - - play_spec = "start_specific"; - play_spec_alone = "start_specific"; - play = "start"; - stop = "stop"; - pause = "pause"; - resume = "resume"; - - next = "next"; - previous = "previous"; - - raise_volume = "vol_up" ; - lower_volume = "vol_down" ; - - shift = "set_balance"; - right = "1.0"; - left = "-1.0"; - center = "0.0"; - - show_list = "show_list"; - - add = "playlist_add"; - remove = "playlist_del"; - - handle_list = "handle_playlist"; - handle_player = "handle_player"; - handle_stations = "handle_stations"; - - askArtist = "songs_by_artist"; - askSong = "artists_song"; - - askCurrent = "current_song"; - -} \ No newline at end of file diff --git a/grammars/TALK/GF_GoDiS/Domain/AgendaTalk/Shared/sharedDomainSwe.gf b/grammars/TALK/GF_GoDiS/Domain/AgendaTalk/Shared/sharedDomainSwe.gf deleted file mode 100644 index 5c37672d7..000000000 --- a/grammars/TALK/GF_GoDiS/Domain/AgendaTalk/Shared/sharedDomainSwe.gf +++ /dev/null @@ -1,42 +0,0 @@ ---# -path=.:../:../../../Resource/Time:../Shared:../../../Core:../../../Core/Shared: - -concrete sharedDomainSwe of sharedDomain = sharedCoreSwe, DBSwe, TimeSwe, WeekdaySwe ** open SpecResSwe in{ - -lin - -- ANSWERS - - - makeAddEventAnswer event = {s = event.s}; - makeRemEventAnswer event = {s = event.s}; - makeCheckupAnswer event = {s = "om" ++ event.s}; - makeCheckTimeAnswer event = {s = event.s}; - makeAddInfoAnswer event = {s = "om" ++ event.s}; - - makeAddEventTimeAnswer time = {s = time.s}; - makeRemEventTimeAnswer time = {s = time.s}; - makeCheckupTimeAnswer time = {s = time.s}; - makeCheckTimeTimeAnswer time = {s = time.s}; - makeAddInfoTimeAnswer time = {s = time.s}; - - makeAddEventDayAnswer weekday = {s = "på" ++ weekday.s}; - makeRemEventDayAnswer weekday = {s = "på" ++ weekday.s}; - makeCheckupDayAnswer weekday = {s = "på" ++ weekday.s}; - makeCheckTimeDayAnswer weekday = {s = "på" ++ weekday.s}; - makeAddInfoDayAnswer weekday = {s = "på" ++ weekday.s}; - - makeCheckAnswer location = {s = location.s}; - makeAddInfoLocAnswer location = {s = "om" ++ location.s}; - makeCheckTimeLocAnswer location = {s = location.s}; - --- LEXICON - -pattern - addEntry = varaints {["lägga till"] ; ["anteckna"] ; ["göra en anteckning om"]}; - removeEntry = variants{ ["ta bort"] ; ["radera en anteckning"]}; - changeEntry = ["ändra en anteckning om"]; - augmentEntry = ["lägga till mer information"]; - checkupEntry = ["kolla tiden för"]; - - checkup = ["vad har jag uppskrivet"]; - -} \ No newline at end of file diff --git a/grammars/TALK/GF_GoDiS/Domain/AgendaTalk/System/systemDomain.gf b/grammars/TALK/GF_GoDiS/Domain/AgendaTalk/System/systemDomain.gf deleted file mode 100644 index 1148b2811..000000000 --- a/grammars/TALK/GF_GoDiS/Domain/AgendaTalk/System/systemDomain.gf +++ /dev/null @@ -1,53 +0,0 @@ --- SWEDISH VERSION, UNCOMMENT AS NEEDED ---# -path=.:../:../DBase/Swedish:../DBase:../Shared:../System:../Numbers - --- ENGLISH VERSION, UNCOMMENT AS NEEDED --- --# -path=.:../:../DBase/English:../DBase:../Shared:../System:../Numbers - -abstract systemDomain = sharedDomain, systemCore ** { - - -cat - - Proposition; - - -fun - --- PROPOSITIONS. --- - - songProp : Song -> Proposition; - itemProp : Song -> Proposition; - currentSongProp : Song -> Proposition; - - whatToPlayPropNum : Number -> Proposition; - whatToPlayPropOrd : Number -> Proposition; - - itemRemPropNum : Number -> Proposition; - itemRemPropOrd : Number -> Proposition; - - groupToAddProp : Artist -> Proposition; - artistProp : Artist -> Proposition; - groupProp : Artist -> Proposition; - songArtistProp : Artist -> Proposition; - - albumProp : Album -> Proposition; - - artistsSongProp : Artist -> Proposition; - artistsAlbumProp : Artist -> Proposition; - - albumArtistProp : Album -> Proposition; - - songsArtistProp : Song -> Proposition; - - stationProp : Station -> Proposition; - -} - - - - - - - diff --git a/grammars/TALK/GF_GoDiS/Domain/AgendaTalk/System/systemDomainEng.gf b/grammars/TALK/GF_GoDiS/Domain/AgendaTalk/System/systemDomainEng.gf deleted file mode 100644 index 6aa8b72d2..000000000 --- a/grammars/TALK/GF_GoDiS/Domain/AgendaTalk/System/systemDomainEng.gf +++ /dev/null @@ -1,74 +0,0 @@ ---# -path=.:../:../DBase/English:../DBase:../Shared:../System:../Numbers - - -concrete systemDomainEng of systemDomain = sharedDomainEng, systemCoreEng ** { - - -lin - --- PROPOSITIONS - - songProp song = { s = song.s }; - itemProp song = { s = song.s }; - currentSongProp song = { s = song.s }; - - whatToPlayPropNum number = { s = number.s }; - whatToPlayPropOrd order = { s = order.s }; - - itemRemPropNum number = { s = number.s }; - itemRemPropOrd order = { s = order.s }; - - groupToAddProp artist = { s = artist.s }; - artistProp artist = { s = artist.s}; - groupProp artist = { s = artist.s }; - songArtistProp artist = { s = artist.s }; - - albumProp album = { s = album.s }; - - artistsSongProp artist = { s = artist.s }; - artistsAlbumProp artist = { s = artist.s }; - - albumArtistProp album = { s = album.s }; - - songsArtistProp song = { s = song.s }; - - stationProp station = { s = station.s }; - --- sort_restr( song(X) ):- sem_sort(X,item). --- sort_restr( item(X) ):- sem_sort(X,item). --- sort_restr( current_song(X) ):- sem_sort(X,song). --- sort_restr( what_to_play(X) ):- sem_sort(X,index). --- sort_restr( itemRem(X) ):- sem_sort(X,index). --- sort_restr( itemRem(X) ):- sem_sort(X,index). --- sort_restr( groupToAdd(X) ):- group( X ). --- sort_restr( artist(X) ):- group( X ). --- sort_restr( group(X) ):- group( X ). --- sort_restr( song_artist(X) ):- group( X ). --- sort_restr( album(X) ):- album( X ). --- sort_restr( artists_song(X) ):- group_atom( X ). --- sort_restr( artists_album(X) ):- group_atom( X ). --- sort_restr( albums_by_artist(X) ):- album_atom( X ). --- sort_restr( songs_by_artist(X) ):- song_atom( X ). --- sort_restr( station(X) ):- radio_station( X ). --- sort_restr( year(X) ):- sem_sort( X, year ). --- sort_restr( path(X) ):- atomic( X ).%,format("hallå: ~w\n",[X]). --- %sort_restr( X^path(X) ):- atomic( X ),format("hallå: ~w\n",[X]). --- sort_restr( not path(X) ):- format("hallå: ~w\n",[X]), atomic( X ). --- sort_restr( fail(Path^path(Path),no_matches) ). - - -pattern - - --- Because of differing linearisations in User and System usage these functions are not linearized in Shared. - - askArtist = "songs" ; - - - askSong = "artist" ; - askCurrent = ["the current song"]; - - -} - - diff --git a/grammars/TALK/GF_GoDiS/Domain/AgendaTalk/System/systemDomainPro.gf b/grammars/TALK/GF_GoDiS/Domain/AgendaTalk/System/systemDomainPro.gf deleted file mode 100644 index ce83f67f1..000000000 --- a/grammars/TALK/GF_GoDiS/Domain/AgendaTalk/System/systemDomainPro.gf +++ /dev/null @@ -1,65 +0,0 @@ --- SWEDISH VERSION, UNCOMMENT AS NEEDED ---# -path=.:../:../DBase/Swedish:../DBase:../Shared:../System:../Numbers - --- ENGLISH VERSION, UNCOMMENT AS NEEDED --- --# -path=.:../:../DBase/English:../DBase:../Shared:../System:../Numbers - - -concrete systemDomainPro of systemDomain = sharedDomainPro, systemCorePro ** { - - -lin --- PROPOSITIONS - - -- Ok hur ska jag göra med propositions tro? Och vad menar David med song_to_add(Song). - -- Hur blir de till? Skulle man kunna göra som nedan? - - songProp song = { s = "song" ++ "(" ++ song.s ++ ")" }; - itemProp song = { s = "item" ++ "(" ++ song.s ++ ")" }; - currentSongProp song = { s = "current_song" ++ "(" ++ song.s ++ ")" }; - - whatToPlayPropNum number = { s = "what_to_play" ++ "(" ++ number.s ++ ")" }; - whatToPlayPropOrd order = { s = "what_to_play" ++ "(" ++ order.s ++ ")" }; - - itemRemPropNum number = { s = "itemRem" ++ "(" ++ number.s ++ ")" }; - itemRemPropOrd order = { s = "itemRem" ++ "(" ++ order.s ++ ")" }; - - groupToAddProp artist = { s = "groupToAdd" ++ "(" ++ artist.s ++ ")" }; - artistProp artist = { s = "artist" ++ "(" ++ artist.s ++ ")"}; - groupProp artist = { s = "group" ++ "(" ++ artist.s ++ ")" }; - songArtistProp artist = { s = "song_artist" ++ "(" ++ artist.s ++ ")" }; - - albumProp album = { s = "album" ++ "(" ++ album.s ++ ")" }; - - artistsSongProp artist = { s = "artist_song" ++ "(" ++ artist.s ++ ")" }; - artistsAlbumProp artist = { s = "artists_album" ++ "(" ++ artist.s ++ ")" }; - - albumArtistProp album = { s = "albums_by_artist" ++ "(" ++ album.s ++ ")" }; - - songsArtistProp song = { s = "songs_by_artist" ++ "(" ++ song.s ++ ")" }; - - stationProp station = { s = "station" ++ "(" ++ station.s ++ ")" }; - --- sort_restr( song(X) ):- sem_sort(X,item). --- sort_restr( item(X) ):- sem_sort(X,item). --- sort_restr( current_song(X) ):- sem_sort(X,song). --- sort_restr( what_to_play(X) ):- sem_sort(X,index). --- sort_restr( itemRem(X) ):- sem_sort(X,index). --- sort_restr( itemRem(X) ):- sem_sort(X,index). --- sort_restr( groupToAdd(X) ):- group( X ). --- sort_restr( artist(X) ):- group( X ). --- sort_restr( group(X) ):- group( X ). --- sort_restr( song_artist(X) ):- group( X ). --- sort_restr( album(X) ):- album( X ). --- sort_restr( artists_song(X) ):- group_atom( X ). --- sort_restr( artists_album(X) ):- group_atom( X ). --- sort_restr( albums_by_artist(X) ):- album_atom( X ). --- sort_restr( songs_by_artist(X) ):- song_atom( X ). --- sort_restr( station(X) ):- radio_station( X ). --- sort_restr( year(X) ):- sem_sort( X, year ). --- sort_restr( path(X) ):- atomic( X ).%,format("hallå: ~w\n",[X]). --- %sort_restr( X^path(X) ):- atomic( X ),format("hallå: ~w\n",[X]). --- sort_restr( not path(X) ):- format("hallå: ~w\n",[X]), atomic( X ). --- sort_restr( fail(Path^path(Path),no_matches) ). - -} \ No newline at end of file diff --git a/grammars/TALK/GF_GoDiS/Domain/AgendaTalk/System/systemDomainSwe.gf b/grammars/TALK/GF_GoDiS/Domain/AgendaTalk/System/systemDomainSwe.gf deleted file mode 100644 index d26b0b1ee..000000000 --- a/grammars/TALK/GF_GoDiS/Domain/AgendaTalk/System/systemDomainSwe.gf +++ /dev/null @@ -1,74 +0,0 @@ ---# -path=.:../:../DBase/Swedish:../DBase:../Shared:../System:../Numbers - - -concrete systemDomainSwe of systemDomain = sharedDomainSwe, systemCoreSwe ** { - - -lin - --- PROPOSITIONS - - songProp song = { s = song.s }; - itemProp song = { s = song.s }; - currentSongProp song = { s = song.s }; - - whatToPlayPropNum number = { s = number.s }; - whatToPlayPropOrd order = { s = order.s }; - - itemRemPropNum number = { s = number.s }; - itemRemPropOrd order = { s = order.s }; - - groupToAddProp artist = { s = artist.s }; - artistProp artist = { s = artist.s}; - groupProp artist = { s = artist.s }; - songArtistProp artist = { s = artist.s }; - - albumProp album = { s = album.s }; - - artistsSongProp artist = { s = artist.s }; - artistsAlbumProp artist = { s = artist.s }; - - albumArtistProp album = { s = album.s }; - - songsArtistProp song = { s = song.s }; - - stationProp station = { s = station.s }; - --- sort_restr( song(X) ):- sem_sort(X,item). --- sort_restr( item(X) ):- sem_sort(X,item). --- sort_restr( current_song(X) ):- sem_sort(X,song). --- sort_restr( what_to_play(X) ):- sem_sort(X,index). --- sort_restr( itemRem(X) ):- sem_sort(X,index). --- sort_restr( itemRem(X) ):- sem_sort(X,index). --- sort_restr( groupToAdd(X) ):- group( X ). --- sort_restr( artist(X) ):- group( X ). --- sort_restr( group(X) ):- group( X ). --- sort_restr( song_artist(X) ):- group( X ). --- sort_restr( album(X) ):- album( X ). --- sort_restr( artists_song(X) ):- group_atom( X ). --- sort_restr( artists_album(X) ):- group_atom( X ). --- sort_restr( albums_by_artist(X) ):- album_atom( X ). --- sort_restr( songs_by_artist(X) ):- song_atom( X ). --- sort_restr( station(X) ):- radio_station( X ). --- sort_restr( year(X) ):- sem_sort( X, year ). --- sort_restr( path(X) ):- atomic( X ).%,format("hallå: ~w\n",[X]). --- %sort_restr( X^path(X) ):- atomic( X ),format("hallå: ~w\n",[X]). --- sort_restr( not path(X) ):- format("hallå: ~w\n",[X]), atomic( X ). --- sort_restr( fail(Path^path(Path),no_matches) ). - - -pattern - - --- Because of differing linearisations in User and System usage these functions are not linearized in Shared. - - askArtist = "låtar" ; - - - askSong = "artister" ; - askCurrent = ["låten som spelas nu"]; - - -} - - diff --git a/grammars/TALK/GF_GoDiS/Domain/AgendaTalk/User/userDomain.gf b/grammars/TALK/GF_GoDiS/Domain/AgendaTalk/User/userDomain.gf deleted file mode 100644 index 8cadb9084..000000000 --- a/grammars/TALK/GF_GoDiS/Domain/AgendaTalk/User/userDomain.gf +++ /dev/null @@ -1,13 +0,0 @@ ---# -path=.:../:../../../Resource/Time:../../../Resource/Media:../Shared:../../../Core:../../../Core/Shared:../../../Core/User - -abstract userDomain = userCore, sharedDomain ** { - - -fun - -- CompoundedAnswers - - answerEventLocAdd : Event -> Location -> AnswerList addTask; - answerEventLocRem : Event -> Location -> AnswerList removeTask; - - answerEventLocTimeDay : Event -> Location -> Time -> Weekday -> AnswerList removeTask; -} \ No newline at end of file diff --git a/grammars/TALK/GF_GoDiS/Domain/AgendaTalk/User/userDomainEng.gf b/grammars/TALK/GF_GoDiS/Domain/AgendaTalk/User/userDomainEng.gf deleted file mode 100644 index d38968a9b..000000000 --- a/grammars/TALK/GF_GoDiS/Domain/AgendaTalk/User/userDomainEng.gf +++ /dev/null @@ -1,25 +0,0 @@ ---# -path=.:../:../DBase/English:../DBase:../Numbers:../Shared - -concrete userDomainEng of userDomain = userCoreEng, sharedDomainEng ** { - -lin - - -- CompoundedAnswers - answerSongArtistPlay song artist = {s = variants {(song.s ++ "with" ++ artist.s) - ; (artist.s ++ "with" ++ song.s)} }; - - answerSongArtistAdd song artist = {s = variants {(song.s ++ "with" ++ artist.s) - ; (artist.s ++ "with" ++ song.s)} }; - - -pattern - askArtist = variants { ["what do i have"] ; ["what songs do i have"] ; ["do i have anything"]} - ++ variants {"with" ; "by"}; - - - askSong = ["who"] ++ variants {"made"; "wrote"}; - - askCurrent = ["what"] ++ variants {["song is this"] ; ["is this called"]}; - - -} \ No newline at end of file diff --git a/grammars/TALK/GF_GoDiS/Domain/AgendaTalk/User/userDomainPro.gf b/grammars/TALK/GF_GoDiS/Domain/AgendaTalk/User/userDomainPro.gf deleted file mode 100644 index b6e5bff2b..000000000 --- a/grammars/TALK/GF_GoDiS/Domain/AgendaTalk/User/userDomainPro.gf +++ /dev/null @@ -1,18 +0,0 @@ --- SWEDISH VERSION, UNCOMMENT AS NEEDED ---# -path=.:../:../DBase/Swedish:../DBase:../Numbers:../Shared - --- ENGLISH VERSION, UNCOMMENT AS NEEDED --- --# -path=.:../:../DBase/English/:../DBase/:../Numbers:../Shared - - -concrete userDomainPro of userDomain = userCorePro, sharedDomainPro ** { - -lin - answerSongArtistPlay song artist = { s = "answer(item(" ++ song.s ++ ")," ++ - "answer(group(" ++ artist.s ++ ")"}; - answerSongArtistAdd song artist = { s = "answer(item(" ++ song.s ++ ")," ++ - "answer(group(" ++ artist.s ++ ")"}; - - - -} \ No newline at end of file diff --git a/grammars/TALK/GF_GoDiS/Domain/AgendaTalk/User/userDomainSwe.gf b/grammars/TALK/GF_GoDiS/Domain/AgendaTalk/User/userDomainSwe.gf deleted file mode 100644 index c22bb5dd5..000000000 --- a/grammars/TALK/GF_GoDiS/Domain/AgendaTalk/User/userDomainSwe.gf +++ /dev/null @@ -1,24 +0,0 @@ ---# -path=.:../:../../:../../../Resource/Time:../../../Resource/Media/:../Shared:../../../Core:../../../Core/Shared:../../../Core/User - -concrete userDomainSwe of userDomain = userCoreSwe, sharedDomainSwe ** { - -lin - - -- CompoundedAnswers - answerEventLocAdd event loc = {s = event.s ++ loc.s }; - - answerEventLocRem event loc = {s = event.s ++ loc.s }; - - answerEventLocTimeDay event loc time day = {s = variants { - (event.s ++ loc.s ++ time.s ++ "på" ++ day.s); - (event.s ++ loc.s ++ "på" ++ day.s ++ time.s); - } - }; - --- (event.s ++ "på" ++ day.s ++ time.s); --- (loc.s ++ time.s ++ "på" ++ day.s); - - - - -} \ No newline at end of file diff --git a/grammars/TALK/GF_GoDiS/Domain/DJGoDiS/DB.gf b/grammars/TALK/GF_GoDiS/Domain/DJGoDiS/DB.gf deleted file mode 100644 index 9b0b17c33..000000000 --- a/grammars/TALK/GF_GoDiS/Domain/DJGoDiS/DB.gf +++ /dev/null @@ -1,6 +0,0 @@ ---# -path=.:../../Resource/Media/English:../../Resource/Media/Swedish:../../../Resource/Numbers/ - -abstract DB = SwedishAlbums, SwedishArtists, SwedishRadioStations, SwedishSongs, numbers, orderNum ** { ---abstract DB = EnglishAlbums, EnglishArtists, EnglishRadioStations, EnglishSongs, numbers, orderNum ** { - -} diff --git a/grammars/TALK/GF_GoDiS/Domain/DJGoDiS/DBEng.gf b/grammars/TALK/GF_GoDiS/Domain/DJGoDiS/DBEng.gf deleted file mode 100644 index 67428921c..000000000 --- a/grammars/TALK/GF_GoDiS/Domain/DJGoDiS/DBEng.gf +++ /dev/null @@ -1,7 +0,0 @@ ---# -path=.:../../Resource/Media/English:../../Resource/Media/Swedish:../../Resource/Numbers/ - -concrete DBEng of DB = EnglishAlbumsEng, EnglishArtistsEng, ---EnglishSongsEng, -EnglishRadioStationsEng, SwedishSongsSwe, numbersEng, orderNumEng ** { - -} \ No newline at end of file diff --git a/grammars/TALK/GF_GoDiS/Domain/DJGoDiS/DBPro.gf b/grammars/TALK/GF_GoDiS/Domain/DJGoDiS/DBPro.gf deleted file mode 100644 index 555b66cfa..000000000 --- a/grammars/TALK/GF_GoDiS/Domain/DJGoDiS/DBPro.gf +++ /dev/null @@ -1,6 +0,0 @@ ---# -path=.:../../Resource/Media/English:../../Resource/Media/Swedish - ---concrete DBPro of DB = EnglishAlbumsPro, EnglishSongsPro, EnglishArtistsPro, EnglishRadioStationsPro, numbersPro, orderNumPro ** { -concrete DBPro of DB = SwedishAlbumsPro, SwedishSongsPro, SwedishArtistsPro, SwedishRadioStationsPro, numbersPro, orderNumPro ** { - -} \ No newline at end of file diff --git a/grammars/TALK/GF_GoDiS/Domain/DJGoDiS/DBSwe.gf b/grammars/TALK/GF_GoDiS/Domain/DJGoDiS/DBSwe.gf deleted file mode 100644 index c3f9bec42..000000000 --- a/grammars/TALK/GF_GoDiS/Domain/DJGoDiS/DBSwe.gf +++ /dev/null @@ -1,5 +0,0 @@ ---# -path=.:../../Resource/Media/English:../../Resource/Media/Swedish:../../Resource/Numbers/ - -concrete DBSwe of DB = SwedishAlbumsSwe, SwedishArtistsSwe, SwedishSongsSwe, SwedishRadioStationsSwe, numbersSwe, orderNumSwe ** { - -} \ No newline at end of file diff --git a/grammars/TALK/GF_GoDiS/Domain/DJGoDiS/Shared/sharedDomain.gf b/grammars/TALK/GF_GoDiS/Domain/DJGoDiS/Shared/sharedDomain.gf deleted file mode 100644 index bbf81bcc7..000000000 --- a/grammars/TALK/GF_GoDiS/Domain/DJGoDiS/Shared/sharedDomain.gf +++ /dev/null @@ -1,105 +0,0 @@ --- SWEDISH version, uncomment as needed. --- --# -path=.:../:../../:../Shared/:../../../Resource/Media/:../../../Resource/Media/Swedish/:../../../Resource/Numbers/:../../../Core:../../../Core/Shared/ --- abstract sharedDomain = sharedCore, numbers, orderNum, swedishDB ** { - - --- ENGLISH version, uncomment as needed. ---# -path=.:../:../../:../Shared/:../../../Resource/Media/:../../../Resource/Media/English/:../../../Resource/Numbers/:../../../Core:../../../Core/Shared/ - -abstract sharedDomain = sharedCore, DB ** { - -fun - --- ANSWERS - - -- Request Answers - - answerSongPlay : Song -> Proposition playTask; - answerSongAdd : Song -> Proposition addTask; - answerSongRemove : Song -> Proposition removeTask; - - answerArtistPlay : Artist -> Proposition playTask; - answerArtistAdd : Artist -> Proposition addTask; - answerArtistRemove : Artist -> Proposition removeTask; - - answerStationPlay : Station -> Proposition playTask; - answerStationAdd : Station -> Proposition addTask; - answerStationRemove : Station -> Proposition removeTask; - - answerNumberInListPlay : Number -> Proposition playTask; - answerNumberInListRemove: Number -> Proposition removeTask; - - answerOrderInListPlay : OrderNumber -> Proposition playTask; - answerOrderInListRemove : OrderNumber -> Proposition removeTask; - - - - - -- Ask Answers - questionSong : Song -> Proposition songQuestion; - questionArtist : Artist -> Proposition artistQuestion; - --- LEXICON - - playTask : Task; - addTask : Task; - removeTask : Task; - speakerTask : Task; - - artistQuestion : Task; - songQuestion : Task; - - - play_spec : Action playTask; - - play_spec_alone : SingleAction; - play : SingleAction; - stop : SingleAction; - pause : SingleAction; - resume : SingleAction; - - next : OrderNumber; - previous : OrderNumber; - - raise_volume : SingleAction; - lower_volume : SingleAction; - - fastforward : SingleAction; - rewind : SingleAction; - - shift : Action speakerTask; - right : Proposition speakerTask; - left : Proposition speakerTask; - center : Proposition speakerTask; - - show_list : SingleAction; - - add : Action addTask; - add_alone : SingleAction; - remove : Action removeTask; - remove_alone : SingleAction; - - remove_all : SingleAction; - - - handle_list : SingleAction; - handle_player : SingleAction; - handle_stations : SingleAction; - - askArtist : Ask artistQuestion; - askSong : Ask songQuestion; - - askCurrent : SingleAsk; - -} - - - - - - - - - - - diff --git a/grammars/TALK/GF_GoDiS/Domain/DJGoDiS/Shared/sharedDomainEng.gf b/grammars/TALK/GF_GoDiS/Domain/DJGoDiS/Shared/sharedDomainEng.gf deleted file mode 100644 index 52994585d..000000000 --- a/grammars/TALK/GF_GoDiS/Domain/DJGoDiS/Shared/sharedDomainEng.gf +++ /dev/null @@ -1,154 +0,0 @@ ---# -path=.:../:../../:../Shared/:../../../Resource/Media/:../../../Resource/Media/English/:../../../Resource/Numbers/:../../../Core:../../../Core/Shared/ - -concrete sharedDomainEng of sharedDomain = sharedCoreEng, DBEng ** - open SpecResEng in { - -flags conversion=finite; - - - -lin - -- ANSWERS - answerSongPlay song = {s = variants { - ( song.s ); - ( (itemForm ! Song) ++ song.s ) - } - }; - answerSongAdd song = {s = variants { - ( song.s ); - ( (itemForm ! Song) ++ song.s ) - } - }; - answerSongRemove song = {s = variants { - ( song.s ); - ( (itemForm ! Song) ++ song.s ) - } - }; - questionSong song = {s = variants { - ( song.s ); - ( (itemForm ! Song) ++ song.s ) - } - }; - - - - answerArtistPlay artist = {s = variants { - ( artist.s ); - ( (itemForm ! Artist) ++ artist.s ) - } - }; - answerArtistAdd artist = {s = variants { - ( artist.s ); - ( (itemForm ! Artist) ++ artist.s ) - } - }; - answerArtistRemove artist = {s = variants { - ( artist.s ); - ( (itemForm ! Artist) ++ artist.s ) - } - }; - questionArtist artist = { s = variants { - ( artist.s ); - ( (itemForm ! Artist) ++ artist.s ) - } - }; - - - - answerStationPlay station = {s = variants { - ( station.s); - ( ["the station"] ++ station.s) - } - }; - answerStationAdd station = {s = variants { - ( station.s); - ( ["the station"] ++ station.s) - } - }; - answerStationRemove station = {s = variants { - ( station.s); - ( ["the station"] ++ station.s) - } - }; - - - - -- LIST RELATED ANSWERS - - -- nummer fem - -- fem - answerNumberInListPlay numb = {s = variants { - ( (listForm ! Numeric) ++ numb.s ); - ( numb.s ) - } - }; - - answerNumberInListRemove numb = {s = variants { - ( (listForm ! Numeric) ++ numb.s ); - ( numb.s ) - } - }; - - - -- den femte låten - -- den femte - answerOrderInListPlay ordNum = - {s = variants { - ("the" ++ ordNum.s ++ (itemForm ! Post)); - ("the" ++ ordNum.s) - } - }; - answerOrderInListRemove ordNum = - {s = variants { - ("the" ++ ordNum.s ++ (itemForm ! Post)); - ("the" ++ ordNum.s) - } - }; - - --- LEXICON - -pattern - - play_spec = (variants {["play"] ; ["listen to"] ; "hear"}); - play_spec_alone = variants {["play a specific song"] ; ["play a specific"] ; ["listen to a specific song"] ; ["hear a specific song"]}; - play = (variants {["start from the beginning"] ; ["play"] ; ["start"]}); - stop = (variants {["stop"]}); - pause = ["pause"]; - resume = (variants {["resume"] ; ["resume playing"]}); - - next = "next"; - previous = "previous"; - - raise_volume = ["raise the volume"] ; - lower_volume = ["lower the volume"]; - - fastforward = ["fast forward"]; - rewind = "rewind"; - - shift = "shift" ++ variants{ ["the balance"] ; ""}; - right = variants{"" ; ["to the"]} ++ "right"; - left = variants{"" ; ["to the"]} ++ "left"; - center = variants{"" ; ["to the"]} ++ "middle"; - - show_list = ["show the list"]; - - add = ["add"]; - add_alone = variants {["add a specific song"] ; ["add this"] ; ["add this one"]}; - remove = ["remove"]; - remove_alone = variants {["remove"] ; ["renmove this"] ; ["remove this one"]}; - - remove_all = ["clear the playlist"]; - - handle_list = ["manage the playlist"]; - handle_player = ["talk to the player"]; - handle_stations = ["choose a station"]; -} - - - - - - - - diff --git a/grammars/TALK/GF_GoDiS/Domain/DJGoDiS/Shared/sharedDomainPro.gf b/grammars/TALK/GF_GoDiS/Domain/DJGoDiS/Shared/sharedDomainPro.gf deleted file mode 100644 index 8c3917a37..000000000 --- a/grammars/TALK/GF_GoDiS/Domain/DJGoDiS/Shared/sharedDomainPro.gf +++ /dev/null @@ -1,87 +0,0 @@ --- SWEDISH VERSION, UNCOMMENT AS NEEDED --- --# -path=.:../:../../:../Shared/:../../../Resource/Media/:../../../Resource/Media/Swedish/:../../../Resource/Numbers/:../../../Core:../../../Core/Shared/ ---concrete sharedDomainPro of sharedDomain = sharedCorePro, numbersEng, orderNumEng, swedishDBPro ** { - - --- ENGLISH VERSION, UNCOMMENT AS NEEDED ---# -path=.:../:../../:../Shared/:../../../Resource/Media/:../../../Resource/Media/English/:../../../Resource/Numbers/:../../../Core:../../../Core/Shared/ - -concrete sharedDomainPro of sharedDomain = sharedCorePro, DBPro ** { - -flags lexer=code ; unlexer=code ; -flags conversion=finite; - -lin - --- ANSWERS - - answerSongPlay song = { s = "item" ++ "(" ++ song.s ++ ")"}; - answerSongAdd song = { s = "item" ++ "(" ++ song.s ++ ")"}; - answerSongRemove song = { s = "item" ++ "(" ++ song.s ++ ")"}; - questionSong song = { s = "item" ++ "(" ++ song.s ++ ")"}; - - - answerArtistPlay artist = { s = "group" ++ "(" ++ artist.s ++ ")"}; - answerArtistAdd artist = { s = "groupToAdd" ++ "(" ++ artist.s ++ ")"}; - answerArtistRemove artist = { s = "group" ++ "(" ++ artist.s ++ ")"}; - questionArtist artist = {s = "group" ++ "(" ++ artist.s ++ ")"}; - - - answerStationPlay station = { s = "station" ++ "(" ++ station.s ++ ")"}; - answerStationAdd station = { s = "station" ++ "(" ++ station.s ++ ")"}; - answerStationRemove station = { s = "station" ++ "(" ++ station.s ++ ")"}; - - - answerNumberInListPlay numb = {s = "index" ++ "(" ++ "[" ++ numb.s ++ "]" ++ ")"}; - answerNumberInListRemove numb = {s = "itemRem" ++ "(" ++ "[" ++ numb.s ++ "]" ++ ")"}; - - answerOrderInListPlay ordNum = {s = "index" ++ "(" ++ "[" ++ ordNum.s ++ "]" ++ ")"}; - answerOrderInListRemove ordNum = {s = "itemRem" ++ "(" ++ "[" ++ ordNum.s ++ "]" ++ ")"}; - - - --- LEXICON -pattern - - play_spec = "start_specific"; - play_spec_alone = "start_specific"; - play = "start"; - stop = "stop"; - pause = "pause"; - resume = "resume"; - - next = "next"; - previous = "previous"; - - raise_volume = "vol_up" ; - lower_volume = "vol_down" ; - - - fastforward = "fast_forward"; - rewind = "rewind"; - - - shift = "set_balance"; - right = "1.0"; - left = "-1.0"; - center = "0.0"; - - show_list = "show_list"; - - add = "playlist_add"; - add_alone = "playlist_add"; - remove = "playlist_del"; - remove_alone = "playlist_del"; - - remove_all = "playlist_clear"; - - handle_list = "handle_playlist"; - handle_player = "handle_player"; - handle_stations = "handle_stations"; - - askArtist = "songs_by_artist"; - askSong = "artists_song"; - - askCurrent = "current_song"; - -} \ No newline at end of file diff --git a/grammars/TALK/GF_GoDiS/Domain/DJGoDiS/Shared/sharedDomainSwe.gf b/grammars/TALK/GF_GoDiS/Domain/DJGoDiS/Shared/sharedDomainSwe.gf deleted file mode 100644 index 13f04ec3f..000000000 --- a/grammars/TALK/GF_GoDiS/Domain/DJGoDiS/Shared/sharedDomainSwe.gf +++ /dev/null @@ -1,170 +0,0 @@ ---# -path=.:../:../../:../Shared/:../../../Resource/Media/:../../../Resource/Media/Swedish/:../../../Resource/Numbers/:../../../Core:../../../Core/Shared/ - -concrete sharedDomainSwe of sharedDomain = sharedCoreSwe, DBSwe ** open SpecResSwe in{ - - -flags conversion=finite; - - -lin - -- ANSWERS - answerSongPlay song = {s = variants { - ( song.s ); - ( (itemForm ! Song) ++ song.s ) - } - }; - answerSongAdd song = {s = variants { - ( song.s ); - ( (itemForm ! Song) ++ song.s ) - } - }; - answerSongRemove song = {s = variants { - ( song.s ); - ( (itemForm ! Song) ++ song.s ) - } - }; - questionSong song = {s = variants { - ( song.s ); - ( (itemForm ! Song) ++ song.s ) - } - }; - - - - answerArtistPlay artist = {s = variants { - ( artist.s ); - ( (itemForm ! Artist) ++ artist.s ) - } - }; - answerArtistAdd artist = {s = variants { - ( artist.s ); - ( (itemForm ! Artist) ++ artist.s ) - } - }; - answerArtistRemove artist = {s = variants { - ( artist.s ); - ( (itemForm ! Artist) ++ artist.s ) - } - }; - questionArtist artist = { s = variants { - ( artist.s ); - ( (itemForm ! Artist) ++ artist.s ) - } - }; - - - - answerStationPlay station = {s = variants { - ( station.s); - ( "stationen" ++ station.s) - } - }; - answerStationAdd station = {s = variants { - ( station.s); - ( "stationen" ++ station.s) - } - }; - answerStationRemove station = {s = variants { - ( station.s); - ( "stationen" ++ station.s) - } - }; - - - - -- LIST RELATED ANSWERS - - -- nummer fem - -- fem - answerNumberInListPlay numb = {s = variants { - ( (listForm ! Numeric) ++ numb.s ); - ( numb.s ) - } - }; - - answerNumberInListRemove numb = {s = variants { - ( (listForm ! Numeric) ++ numb.s ); - ( numb.s ) - } - }; - - - -- den femte låten - -- den femte - answerOrderInListPlay ordNum = - {s = variants { - ("den" ++ ordNum.s ++ (itemForm ! Post)); - ("den" ++ ordNum.s) - } - }; - answerOrderInListRemove ordNum = - {s = variants { - ("den" ++ ordNum.s ++ (itemForm ! Post)); - ("den" ++ ordNum.s) - } - }; - - --- LEXICON - -pattern - - play_spec = (variants {["spela"] ; ["starta"] ; ["höra"] ; ["lyssna på"]}); - play_spec_alone = variants {["spela"] ; ["spela den här"] ; ["spela den"] ; ["spela en speciell"] ; ["spela en speciell låt"]}; - play = (variants {["spela från början"] ; ["spela"] ; ["starta"]}); - stop = (variants {["stoppa"] ; ["avbryta"]}); - pause = (variants {["pausa"] }); - resume = (variants {["återuppta spelningen"] ; ["starta igen"]}); - - next = "nästa"; - previous = "föregående"; - - raise_volume = "höja" ++ variants { ("volymen") ; ("ljudet")}; - lower_volume = "sänka" ++ variants { ("volymen") ; ("ljudet")}; - - - fastforward = ["spola framåt"]; - rewind = ["spola bakåt"]; - - - shift = variants{ ["ändra balansen"] ; "skifta"}; - right = variants{"" ; "till"} ++ "höger"; - left = variants{"" ; "till"} ++ "vänster"; - center = variants{"" ; "till"} ++ "mitten"; - - show_list = ["visa listan"]; - - add = ["lägga till"]; - add_alone = variants {["lägga till"]; ["lägg till den här"] ; ["lägg till den"]}; - remove = ["ta bort"]; - remove_alone = variants { ["ta bort"] ; ["ta bort den"] ; ["ta bort den här"] }; - - remove_all = variants {["rensa listan"] ; ["ta bort allt"]}; - - handle_list = ["ändra i spellistan"]; - handle_player = ["prata med spelaren"]; - handle_stations = ["välja en radiostation"]; - - - - -- FLYTTAT TILL userSpecificSwe.gf och systemSpecificSwe.gf pga - -- olika linearisering for system och användare. - - --askArtist = variants { "låtar" ; - -- variants { variants {"vad" ; ["vilka låtar"]} ++ ["har jag"] ; - -- ["har jag någonting"]} ++ variants {"med" ; "av"}}; - - - --askSong = variants { "artister" ; (["vem har"] ++ variants {"skrivit"; "gjort"})}; - - --askCurrent = ["vad heter"] ++ variants {["den här"] ; ["låten som spelas nu"]}; - -} - - - - - - - - diff --git a/grammars/TALK/GF_GoDiS/Domain/DJGoDiS/System/systemDomain.gf b/grammars/TALK/GF_GoDiS/Domain/DJGoDiS/System/systemDomain.gf deleted file mode 100644 index a323bbd25..000000000 --- a/grammars/TALK/GF_GoDiS/Domain/DJGoDiS/System/systemDomain.gf +++ /dev/null @@ -1,75 +0,0 @@ ---# -path=.:../:../../:../Shared/:../../../Resource/Media/:../../../Resource/Media/Swedish/:../../../Resorce/Media/English:../../../Resource/Numbers/:../../../Core:../../../Core/Shared/:../../../Core/System - -abstract systemDomain = sharedDomain, systemCore ** { - - -fun - --- PROPOSITIONS. - - songProp : Song -> Proposition; - itemProp : Song -> Proposition; - currentSongProp : Song -> Proposition; - - whatToPlayPropNum : Number -> Proposition; - whatToPlayPropOrd : Number -> Proposition; - - itemRemPropNum : Number -> Proposition; - itemRemPropOrd : Number -> Proposition; - - groupToAddProp : Artist -> Proposition; - artistProp : Artist -> Proposition; - groupProp : Artist -> Proposition; - songArtistProp : Artist -> Proposition; - - albumProp : Album -> Proposition; - - artistsSongProp : Artist -> Proposition; - artistsAlbumProp : Artist -> Proposition; - - albumArtistProp : Album -> Proposition; - songsArtistProp : Song -> Proposition; - stationProp : Station -> Proposition; - - actionProp : (t: Task) -> Action (t) -> Proposition; - - - --- Asks - whatSongQuestion : SingleAsk; -- "what song do you mean?" - whatArtistQuestion : SingleAsk; -- "what artist do you mean?" - whatIndexQuestion : SingleAsk; -- "what index do you mean?" - whatToRemoveQuestion : SingleAsk; - whatStationQuestion : SingleAsk; -- "what station do you want?" - whatAlbumQuestion : SingleAsk; -- "what album do you mean?" - whatToPlayQuestion : SingleAsk; -- "which song in the playlist do you want to lay?" - whatToRemove : SingleAsk; -- "What number do you want to remove?" - - --- Confirms - - addedToPlaylist : Confirm; -- "The playlist is increased" - removedFromPLaylist : Confirm; -- "The playlist is reduced" - clearedPlaylist : Confirm; -- "The playlist is cleared" - turnedUpVolume : Confirm; -- "Turning up the volume" - loweredVolume : Confirm; -- "Lowering the volume" - startingThePlayer : Confirm; -- "Starting the music" - stoppingThePlayer : Confirm; -- "Stopping the music" - pausingThePlayer : Confirm; -- "Pausing the music" - resumingThePlayer : Confirm; -- "Resuming the music" - shuffleTheList : Confirm; -- "The list has been shuffled" - ffing : Confirm; - rewinding : Confirm; - handlingstations : Confirm; - handlingplayer : Confirm; - handlingplaylist : Confirm; - showedList : Confirm; - -} - - - - - - - diff --git a/grammars/TALK/GF_GoDiS/Domain/DJGoDiS/System/systemDomainEng.gf b/grammars/TALK/GF_GoDiS/Domain/DJGoDiS/System/systemDomainEng.gf deleted file mode 100644 index 54947de7e..000000000 --- a/grammars/TALK/GF_GoDiS/Domain/DJGoDiS/System/systemDomainEng.gf +++ /dev/null @@ -1,106 +0,0 @@ ---# -path=.:../:../../:../Shared/:../../../Resource/Media/:../../../Resource/Media/English/:../../../Resorce/Media/Swedish:../../../Resource/Numbers/:../../../Core:../../../Core/Shared/:../../../Core/System - -concrete systemDomainEng of systemDomain = sharedDomainEng, systemCoreEng ** { - - -flags conversion=finite; - - -lin - --- PROPOSITIONS - - songProp song = { s = song.s }; - itemProp song = { s = song.s }; - currentSongProp song = { s = song.s }; - - whatToPlayPropNum number = { s = number.s }; - whatToPlayPropOrd order = { s = order.s }; - - itemRemPropNum number = { s = number.s }; - itemRemPropOrd order = { s = order.s }; - - groupToAddProp artist = { s = artist.s }; - artistProp artist = { s = artist.s}; - groupProp artist = { s = artist.s }; - songArtistProp artist = { s = artist.s }; - - albumProp album = { s = album.s }; - - artistsSongProp artist = { s = artist.s }; - artistsAlbumProp artist = { s = artist.s }; - - albumArtistProp album = { s = album.s }; - - songsArtistProp song = { s = song.s }; - - stationProp station = { s = station.s }; - - actionProp _ action = {s = action.s }; - --- sort_restr( song(X) ):- sem_sort(X,item). --- sort_restr( item(X) ):- sem_sort(X,item). --- sort_restr( current_song(X) ):- sem_sort(X,song). --- sort_restr( what_to_play(X) ):- sem_sort(X,index). --- sort_restr( itemRem(X) ):- sem_sort(X,index). --- sort_restr( itemRem(X) ):- sem_sort(X,index). --- sort_restr( groupToAdd(X) ):- group( X ). --- sort_restr( artist(X) ):- group( X ). --- sort_restr( group(X) ):- group( X ). --- sort_restr( song_artist(X) ):- group( X ). --- sort_restr( album(X) ):- album( X ). --- sort_restr( artists_song(X) ):- group_atom( X ). --- sort_restr( artists_album(X) ):- group_atom( X ). --- sort_restr( albums_by_artist(X) ):- album_atom( X ). --- sort_restr( songs_by_artist(X) ):- song_atom( X ). --- sort_restr( station(X) ):- radio_station( X ). --- sort_restr( year(X) ):- sem_sort( X, year ). --- sort_restr( path(X) ):- atomic( X ).%,format("hallå: ~w\n",[X]). --- %sort_restr( X^path(X) ):- atomic( X ),format("hallå: ~w\n",[X]). --- sort_restr( not path(X) ):- format("hallå: ~w\n",[X]), atomic( X ). --- sort_restr( fail(Path^path(Path),no_matches) ). - - -pattern - - --- Because of differing linearisations in User and System usage these functions are not linearized in Shared. - - askArtist = "song" ; - askSong = "artist" ; - askCurrent = ["the current song"]; - - --- Asks - whatSongQuestion = ["what song do you mean"]; - whatArtistQuestion = ["what artist do you mean"]; - whatIndexQuestion = ["what index number do you want to play"]; - whatToRemoveQuestion = ["what song do you want to remove from the playlist"]; - whatStationQuestion = ["what radio station do you want to listen to"]; - whatAlbumQuestion = ["what album do you mean"]; - whatToPlayQuestion = ["what song in the playlist do you want to play"]; - whatToRemove = ["what song in the playlist do you want to remove"]; - - --- Confirms - - addedToPlaylist = ["the playlist is increased"]; - removedFromPLaylist = ["the playlist is reduced"]; - clearedPlaylist = ["the playlist is cleared"]; - turnedUpVolume = ["turning up the volume"]; - loweredVolume = ["lowering the volume"]; - startingThePlayer = ["starting the music"]; - stoppingThePlayer = ["the player is stopped"]; - pausingThePlayer = ["pausing the player"]; - resumingThePlayer = ["resuming the music"]; - shuffleTheList = ["the playlist has been shuffled"]; - ffing = ["performing fast forward"]; - rewinding = ["rewinding"]; - handlingstations = ["done with choosing a station"]; - handlingplayer = ["your wish is my command"]; - handlingplaylist = ["done fiddling with the playlist"]; - showedList = ["finished showing the list"]; - -} - - diff --git a/grammars/TALK/GF_GoDiS/Domain/DJGoDiS/System/systemDomainPro.gf b/grammars/TALK/GF_GoDiS/Domain/DJGoDiS/System/systemDomainPro.gf deleted file mode 100644 index 932cc4f15..000000000 --- a/grammars/TALK/GF_GoDiS/Domain/DJGoDiS/System/systemDomainPro.gf +++ /dev/null @@ -1,98 +0,0 @@ --- --# -path=.:../:../../:../Shared/:../../../Resource/Media/:../../../Resource/Media/Swedish/:../../../Resource/Numbers/:../../../Core:../../../Core/Shared/:../../../Core/System ---# -path=.:../:../../:../Shared/:../../../Resource/Media/:../../../Resource/Media/English/:../../../Resorce/Media/Swedish:../../../Resource/Numbers/:../../../Core:../../../Core/Shared/:../../../Core/System - - - -concrete systemDomainPro of systemDomain = sharedDomainPro, systemCorePro ** { - -flags conversion=finite; - - -lin --- PROPOSITIONS - - songProp song = { s = "song" ++ "(" ++ song.s ++ ")" }; - itemProp song = { s = "item" ++ "(" ++ song.s ++ ")" }; - currentSongProp song = { s = "current_song" ++ "(" ++ song.s ++ ")" }; - - whatToPlayPropNum number = { s = "what_to_play" ++ "(" ++ number.s ++ ")" }; - whatToPlayPropOrd order = { s = "what_to_play" ++ "(" ++ order.s ++ ")" }; - - itemRemPropNum number = { s = "itemRem" ++ "(" ++ number.s ++ ")" }; - itemRemPropOrd order = { s = "itemRem" ++ "(" ++ order.s ++ ")" }; - - groupToAddProp artist = { s = "groupToAdd" ++ "(" ++ artist.s ++ ")" }; - artistProp artist = { s = "artist" ++ "(" ++ artist.s ++ ")"}; - groupProp artist = { s = "group" ++ "(" ++ artist.s ++ ")" }; - songArtistProp artist = { s = "song_artist" ++ "(" ++ artist.s ++ ")" }; - - albumProp album = { s = "album" ++ "(" ++ album.s ++ ")" }; - - artistsSongProp artist = { s = "artist_song" ++ "(" ++ artist.s ++ ")" }; - artistsAlbumProp artist = { s = "artists_album" ++ "(" ++ artist.s ++ ")" }; - - albumArtistProp album = { s = "albums_by_artist" ++ "(" ++ album.s ++ ")" }; - - songsArtistProp song = { s = "songs_by_artist" ++ "(" ++ song.s ++ ")" }; - - stationProp station = { s = "station" ++ "(" ++ station.s ++ ")" }; - - actionProp _ action = {s = "action" ++ "(" ++ action.s ++ ")"}; - --- sort_restr( song(X) ):- sem_sort(X,item). --- sort_restr( item(X) ):- sem_sort(X,item). --- sort_restr( current_song(X) ):- sem_sort(X,song). --- sort_restr( what_to_play(X) ):- sem_sort(X,index). --- sort_restr( itemRem(X) ):- sem_sort(X,index). --- sort_restr( itemRem(X) ):- sem_sort(X,index). --- sort_restr( groupToAdd(X) ):- group( X ). --- sort_restr( artist(X) ):- group( X ). --- sort_restr( group(X) ):- group( X ). --- sort_restr( song_artist(X) ):- group( X ). --- sort_restr( album(X) ):- album( X ). --- sort_restr( artists_song(X) ):- group_atom( X ). --- sort_restr( artists_album(X) ):- group_atom( X ). --- sort_restr( albums_by_artist(X) ):- album_atom( X ). --- sort_restr( songs_by_artist(X) ):- song_atom( X ). --- sort_restr( station(X) ):- radio_station( X ). --- sort_restr( year(X) ):- sem_sort( X, year ). --- sort_restr( path(X) ):- atomic( X ).%,format("hallå: ~w\n",[X]). --- %sort_restr( X^path(X) ):- atomic( X ),format("hallå: ~w\n",[X]). --- sort_restr( not path(X) ):- format("hallå: ~w\n",[X]), atomic( X ). --- sort_restr( fail(Path^path(Path),no_matches) ). - -pattern --- Asks - whatSongQuestion = ["x ^ item ( x )"]; - whatArtistQuestion = ["x ^ group ( x )"]; - whatIndexQuestion = ["x ^ index ( x )"]; - whatToRemoveQuestion = ["x ^ song_to_remove ( x )"]; - whatStationQuestion = ["x ^ station ( x )"]; - whatAlbumQuestion = ["x ^ album ( x )"]; - whatToPlayQuestion = ["x ^ what_to_play ( x )"]; - whatToRemove = ["x ^ itemRem ( x )"]; - - - - --- Confirms - - addedToPlaylist = "playlist_add"; -- "The playlist is increased" - removedFromPLaylist = "playlist_del"; -- "The playlist is reduced" - clearedPlaylist = "playlist_clear"; -- "The playlist is cleared" - turnedUpVolume = "vol_up"; -- "Turning up the volume" - loweredVolume = "vol_down"; -- "Lowering the volume" - startingThePlayer = variants {"start" ; "start_specific"}; - stoppingThePlayer = "stop"; -- "Stopping the music" - pausingThePlayer = "pause"; -- "Pausing the music" - resumingThePlayer = "resume"; -- "Resuming the music" - shuffleTheList = "shuffle"; -- "The list has been shuffled" - ffing = "fast_fowrward"; - rewinding = "rewind"; - handlingstations = "handle_stations"; - handlingplayer = "handle_player"; - handlingplaylist = "handle_playlist"; - showedList = "show_list"; - - -} \ No newline at end of file diff --git a/grammars/TALK/GF_GoDiS/Domain/DJGoDiS/System/systemDomainSwe.gf b/grammars/TALK/GF_GoDiS/Domain/DJGoDiS/System/systemDomainSwe.gf deleted file mode 100644 index bee23a751..000000000 --- a/grammars/TALK/GF_GoDiS/Domain/DJGoDiS/System/systemDomainSwe.gf +++ /dev/null @@ -1,105 +0,0 @@ ---# -path=.:../:../../:../Shared/:../../../Resource/Media/:../../../Resource/Media/Swedish/:../../../Resorce/Media/English:../../../Resource/Numbers/:../../../Core:../../../Core/Shared/:../../../Core/System - -concrete systemDomainSwe of systemDomain = sharedDomainSwe, systemCoreSwe ** { - -flags conversion=finite; - - -lin - --- PROPOSITIONS - - songProp song = { s = song.s }; - itemProp song = { s = song.s }; - currentSongProp song = { s = song.s }; - - whatToPlayPropNum number = { s = number.s }; - whatToPlayPropOrd order = { s = order.s }; - - itemRemPropNum number = { s = number.s }; - itemRemPropOrd order = { s = order.s }; - - groupToAddProp artist = { s = artist.s }; - artistProp artist = { s = artist.s}; - groupProp artist = { s = artist.s }; - songArtistProp artist = { s = artist.s }; - - albumProp album = { s = album.s }; - - artistsSongProp artist = { s = artist.s }; - artistsAlbumProp artist = { s = artist.s }; - - albumArtistProp album = { s = album.s }; - - songsArtistProp song = { s = song.s }; - - stationProp station = { s = station.s }; - --- sort_restr( song(X) ):- sem_sort(X,item). --- sort_restr( item(X) ):- sem_sort(X,item). --- sort_restr( current_song(X) ):- sem_sort(X,song). --- sort_restr( what_to_play(X) ):- sem_sort(X,index). --- sort_restr( itemRem(X) ):- sem_sort(X,index). --- sort_restr( itemRem(X) ):- sem_sort(X,index). --- sort_restr( groupToAdd(X) ):- group( X ). --- sort_restr( artist(X) ):- group( X ). --- sort_restr( group(X) ):- group( X ). --- sort_restr( song_artist(X) ):- group( X ). --- sort_restr( album(X) ):- album( X ). --- sort_restr( artists_song(X) ):- group_atom( X ). --- sort_restr( artists_album(X) ):- group_atom( X ). --- sort_restr( albums_by_artist(X) ):- album_atom( X ). --- sort_restr( songs_by_artist(X) ):- song_atom( X ). --- sort_restr( station(X) ):- radio_station( X ). --- sort_restr( year(X) ):- sem_sort( X, year ). --- sort_restr( path(X) ):- atomic( X ).%,format("hallå: ~w\n",[X]). --- %sort_restr( X^path(X) ):- atomic( X ),format("hallå: ~w\n",[X]). --- sort_restr( not path(X) ):- format("hallå: ~w\n",[X]), atomic( X ). --- sort_restr( fail(Path^path(Path),no_matches) ). - - -pattern - - --- Because of differing linearisations in User and System usage these functions are not linearized in Shared. - - askArtist = "låtar" ; - - - askSong = "artister" ; - askCurrent = ["låten som spelas nu"]; - - --- Asks - whatSongQuestion = ["vilken sång menar du"]; - whatArtistQuestion = ["vilken artist menar du"]; - whatIndexQuestion = ["vilket index nummer vill du spela"]; - whatToRemoveQuestion = ["vilken sång vill du ta bort från spellistan"]; - whatStationQuestion = ["vilken radiostation vill du lyssna på"]; - whatAlbumQuestion = ["vilket album menar du"]; - whatToPlayQuestion = ["vad i spellistan vill du spela"]; - whatToRemove = ["vad i spellistan vill du ta bort"]; - - - --- Confirms - - addedToPlaylist = ["spellistan är utökad"]; - removedFromPLaylist = ["spellistan är reducerad"]; - clearedPlaylist = ["spellistan är rensad"]; - turnedUpVolume = ["höjer volymen"]; - loweredVolume = ["sänker volymen"]; - startingThePlayer = ["startar uppspelningen"]; - stoppingThePlayer = ["spelaren är stoppad"]; - pausingThePlayer = ["pausar uppspelningen"]; - resumingThePlayer = ["återupptar uppspelningen"]; - shuffleTheList = ["spellistan har blandats"]; - ffing = ["spolar frammåt"]; - rewinding = ["spolar bakåt"]; - handlingstations = ["klar med att välja radiostation"]; - handlingplayer = ["jag fixar"]; - handlingplaylist = ["klar med spellistan"]; - showedList = ["spellistan är visad"]; -} - - diff --git a/grammars/TALK/GF_GoDiS/Domain/DJGoDiS/User/userDomain.gf b/grammars/TALK/GF_GoDiS/Domain/DJGoDiS/User/userDomain.gf deleted file mode 100644 index 40d355a18..000000000 --- a/grammars/TALK/GF_GoDiS/Domain/DJGoDiS/User/userDomain.gf +++ /dev/null @@ -1,19 +0,0 @@ --- SWEDISH VERSION, UNCOMMENT WHEN NEEDED -----# -path=.:../:../../:../Shared/:../../../Resource/Media/:../../../Resource/Media/Swedish/:../../../Resource/Numbers/:../../../Core:../../../Core/Shared/:../../../Core/User - - --- ENGLISH VERSION, UNCOMMENT WHEN NEEDED ---# -path=.:../:../../:../Shared/:../../../Resource/Media/:../../../Resource/Media/English/:../../../Resorce/Media/Swedish:../../../Resource/Numbers/:../../../Core:../../../Core/Shared/:../../../Core/User - - -abstract userDomain = userCore, sharedDomain ** { - - -fun - -- CompoundedAnswers - - answerSongArtistPlay : Song -> Artist -> AnswerList playTask; - answerSongArtistAdd : Song -> Artist -> AnswerList addTask; - - -} \ No newline at end of file diff --git a/grammars/TALK/GF_GoDiS/Domain/DJGoDiS/User/userDomainEng.gf b/grammars/TALK/GF_GoDiS/Domain/DJGoDiS/User/userDomainEng.gf deleted file mode 100644 index d3732c3a0..000000000 --- a/grammars/TALK/GF_GoDiS/Domain/DJGoDiS/User/userDomainEng.gf +++ /dev/null @@ -1,29 +0,0 @@ - ---# -path=.:../:../../:../Shared/:../../../Resource/Media/:../../../Resource/Media/Swedish/:../../../Resource/Media/English:../../../Resource/Numbers/:../../../Core:../../../Core/Shared/:../../../Core/User - -concrete userDomainEng of userDomain = userCoreEng, sharedDomainEng ** { - -flags conversion=finite; - - -lin - - -- CompoundedAnswers - answerSongArtistPlay song artist = {s = variants {(song.s ++ "with" ++ artist.s) - ; (artist.s ++ "with" ++ song.s)} }; - - answerSongArtistAdd song artist = {s = variants {(song.s ++ "with" ++ artist.s) - ; (artist.s ++ "with" ++ song.s)} }; - - -pattern - askArtist = variants { ["what do i have"] ; ["what songs do i have"] ; ["do i have anything"]} - ++ variants {"with" ; "by"}; - - - askSong = ["who"] ++ variants {"made"; "wrote"}; - - askCurrent = ["what"] ++ variants {["song is this"] ; ["is this called"]}; - - -} \ No newline at end of file diff --git a/grammars/TALK/GF_GoDiS/Domain/DJGoDiS/User/userDomainPro.gf b/grammars/TALK/GF_GoDiS/Domain/DJGoDiS/User/userDomainPro.gf deleted file mode 100644 index 237c86ba6..000000000 --- a/grammars/TALK/GF_GoDiS/Domain/DJGoDiS/User/userDomainPro.gf +++ /dev/null @@ -1,15 +0,0 @@ ---# -path=.:../:../../:../Shared/:../../../Resource/Media/:../../../Resource/Media/English/:../../../Resource/Media/Swedish:../../../Resorce/Media/Swedish:../../../Resource/Numbers/:../../../Core:../../../Core/Shared/:../../../Core/User - - - -concrete userDomainPro of userDomain = userCorePro, sharedDomainPro ** { - -flags conversion=finite; - - -lin - answerSongArtistPlay song artist = { s = ["answer ( item ("] ++ song.s ++ [" ) ) ,"] ++ - ["answer ( group ("] ++ artist.s ++ [") )"]}; - answerSongArtistAdd song artist = { s = ["answer ( item ("] ++ song.s ++ [" ) ) ,"] ++ - ["answer ( group ("] ++ artist.s ++ [") )"]}; -} \ No newline at end of file diff --git a/grammars/TALK/GF_GoDiS/Domain/DJGoDiS/User/userDomainSwe.gf b/grammars/TALK/GF_GoDiS/Domain/DJGoDiS/User/userDomainSwe.gf deleted file mode 100644 index 1530d1dad..000000000 --- a/grammars/TALK/GF_GoDiS/Domain/DJGoDiS/User/userDomainSwe.gf +++ /dev/null @@ -1,29 +0,0 @@ ---# -path=.:../:../../:../Shared/:../../../Resource/Media/:../../../Resource/Media/Swedish/:../../../Resorce/Media/English:../../../Resource/Numbers/:../../../Core:../../../Core/Shared/:../../../Core/User - - -concrete userDomainSwe of userDomain = userCoreSwe, sharedDomainSwe ** { - -flags conversion=finite; - - -lin - - -- CompoundedAnswers - answerSongArtistPlay song artist = {s = variants {(song.s ++ "med" ++ artist.s) - ; (artist.s ++ "med" ++ song.s)} }; - - answerSongArtistAdd song artist = {s = variants {(song.s ++ "med" ++ artist.s) - ; (artist.s ++ "med" ++ song.s)} }; - - -pattern - askArtist = variants { ["vad har jag"] ; ["vilka låtar har jag"] ; ["har jag någonting"]} - ++ variants {"med" ; "av"}; - - - askSong = ["vem har"] ++ variants {"skrivit"; "gjort"}; - - askCurrent = ["vad heter"] ++ variants {["den här"] ; ["låten som spelas nu"]}; - - -} \ No newline at end of file diff --git a/grammars/TALK/GF_GoDiS/Domain/SpecResEng.gf b/grammars/TALK/GF_GoDiS/Domain/SpecResEng.gf deleted file mode 100644 index f08ce3e9e..000000000 --- a/grammars/TALK/GF_GoDiS/Domain/SpecResEng.gf +++ /dev/null @@ -1,27 +0,0 @@ --- A file with Pointers... --- With pointers I mean the phrases that point out a specific semantics of a segment. --- Example "I want to listen to the artist Sting" where "the artist" makes clear --- that "Sting" is an artist and not a song for instance. - -resource SpecResEng = { - -param ListInfo = Numeric | Ordered ; -param ItemChoice = Artist | Song | Post; - -oper listForm : ListInfo => Str - = table { - Numeric => ["number"]; - Ordered => ["the"] - - }; - - -oper itemForm : ItemChoice => Str - = table { - Artist => ["the artist"]; - Song => ["the song"]; - Post => "" - }; - -} - diff --git a/grammars/TALK/GF_GoDiS/Domain/SpecResSwe.gf b/grammars/TALK/GF_GoDiS/Domain/SpecResSwe.gf deleted file mode 100644 index 8ff0c8807..000000000 --- a/grammars/TALK/GF_GoDiS/Domain/SpecResSwe.gf +++ /dev/null @@ -1,27 +0,0 @@ --- A file with Pointers... --- With pointers I mean the phrases that point out a specific semantics of a segment. --- Example "I want to listen to the artist Sting" where "the artist" makes clear --- that "Sting" is an artist and not a song for instance. - -resource SpecResSwe = { - -param ListInfo = Numeric | Ordered ; -param ItemChoice = Artist | Song | Post; - -oper listForm : ListInfo => Str - = table { - Numeric => ["nummer"]; - Ordered => ["den"] - - }; - - -oper itemForm : ItemChoice => Str - = table { - Artist => "artisten"; - Song => "låten"; - Post => "" - }; - -} - diff --git a/grammars/TALK/GF_GoDiS/Domain/deLux/DB.gf b/grammars/TALK/GF_GoDiS/Domain/deLux/DB.gf deleted file mode 100644 index 16c1b9b1d..000000000 --- a/grammars/TALK/GF_GoDiS/Domain/deLux/DB.gf +++ /dev/null @@ -1,5 +0,0 @@ ---# -path=.:../../Resource/Home - -abstract DB = Lamps, Rooms ** { - -} diff --git a/grammars/TALK/GF_GoDiS/Domain/deLux/DBEng.gf b/grammars/TALK/GF_GoDiS/Domain/deLux/DBEng.gf deleted file mode 100644 index 5508418be..000000000 --- a/grammars/TALK/GF_GoDiS/Domain/deLux/DBEng.gf +++ /dev/null @@ -1,5 +0,0 @@ ---# -path=.:../../Resource/Home - -concrete DBEng of DB= LampsEng, RoomsEng ** { - -} diff --git a/grammars/TALK/GF_GoDiS/Domain/deLux/DBPro.gf b/grammars/TALK/GF_GoDiS/Domain/deLux/DBPro.gf deleted file mode 100644 index 531aef80f..000000000 --- a/grammars/TALK/GF_GoDiS/Domain/deLux/DBPro.gf +++ /dev/null @@ -1,5 +0,0 @@ ---# -path=.:../../Resource/Home - -concrete DBPro of DB= LampsPro, RoomsPro ** { - -} diff --git a/grammars/TALK/GF_GoDiS/Domain/deLux/DBSwe.gf b/grammars/TALK/GF_GoDiS/Domain/deLux/DBSwe.gf deleted file mode 100644 index 7a74399d8..000000000 --- a/grammars/TALK/GF_GoDiS/Domain/deLux/DBSwe.gf +++ /dev/null @@ -1,5 +0,0 @@ ---# -path=.:../../Resource/Home - -concrete DBSwe of DB= LampsSwe, RoomsSwe ** { - -} diff --git a/grammars/TALK/GF_GoDiS/Domain/deLux/Shared/sharedDomain.gf b/grammars/TALK/GF_GoDiS/Domain/deLux/Shared/sharedDomain.gf deleted file mode 100644 index 9606ca232..000000000 --- a/grammars/TALK/GF_GoDiS/Domain/deLux/Shared/sharedDomain.gf +++ /dev/null @@ -1,50 +0,0 @@ ---# -path=.:../:../../:../Shared/:../../../Resource/Home/:../../../Core:../../../Core/Shared/:../../../Core/System - -abstract sharedDomain = sharedCore, DB ** { - -fun - --- ANSWERS - - answerLampOn : Lamp -> Proposition onTask; - answerLampOff : Lamp -> Proposition offTask; - - answerLocation : Room -> Proposition locateTask; - - -- Ask Answers - questionWhichLamp : Lamp -> Proposition lampQuestion; - questionLocation : Room -> Proposition locQuestion; - --- LEXICON - - onTask : Task; - offTask : Task; - locateTask : Task; - lampQuestion : Task; - locQuestion : Task; - - turnOn : Action onTask; - turnOff : Action offTask; - - turnOnThis : SingleAction; - turnOffThis : SingleAction; - - dimmerUp : SingleAction; - dimmerDown : SingleAction; - - --askLamp : Ask lampQuestion; - --askLocation : Ask locQuestion; - - askStatusLamp : SingleAsk; -} - - - - - - - - - - - diff --git a/grammars/TALK/GF_GoDiS/Domain/deLux/Shared/sharedDomainEng.gf b/grammars/TALK/GF_GoDiS/Domain/deLux/Shared/sharedDomainEng.gf deleted file mode 100644 index 1a0ff32c7..000000000 --- a/grammars/TALK/GF_GoDiS/Domain/deLux/Shared/sharedDomainEng.gf +++ /dev/null @@ -1,46 +0,0 @@ ---# -path=.:../:../../:../Shared/:../../../Resource/Home/:../../../Core:../../../Core/Shared/:../../../Core/System - - -concrete sharedDomainEng of sharedDomain = sharedCoreEng, DBEng ** - open SpecResEng in { - - - - - -lin - -- ANSWERS - - answerLampOn lamp = {s = lamp.s}; - answerLampOff lamp = {s = lamp.s}; - answerLocation loc = {s = loc.s}; - - questionWhichLamp lamp = {s = lamp.s}; - questionLocation loc = {s = loc.s}; - --- LEXICON - -pattern - - turnOn = ["turn on"]; - turnOff = ["turn off"]; - - turnOnThis = ["turn on"]; - turnOffThis = ["turn off"]; - - dimmerUp = ["dim up"]; - dimmerDown = ["dim down"]; - - --askLamp = ["do i have a"]; - --askLocation = ["is there a"]; - - askStatusLamp = ["what lights are on"]; -} - - - - - - - - diff --git a/grammars/TALK/GF_GoDiS/Domain/deLux/Shared/sharedDomainPro.gf b/grammars/TALK/GF_GoDiS/Domain/deLux/Shared/sharedDomainPro.gf deleted file mode 100644 index e08589b55..000000000 --- a/grammars/TALK/GF_GoDiS/Domain/deLux/Shared/sharedDomainPro.gf +++ /dev/null @@ -1,43 +0,0 @@ ---# -path=.:../:../../:../Shared/:../../../Resource/Home/:../../../Core:../../../Core/Shared/:../../../Core/System - - - -concrete sharedDomainPro of sharedDomain = sharedCorePro, DBPro ** { - - - - - -lin - -- ANSWERS - - answerLampOn lamp = {s = lamp.s}; - answerLampOff lamp = {s = lamp.s}; - answerLocation loc = {s = loc.s}; - - questionWhichLamp lamp = {s = lamp.s}; - questionLocation loc = {s = loc.s}; - - --- LEXICON - -pattern - - turnOn = "turnOn"; - turnOff = "turnOff"; - - turnOnThis = "turnOn_closest"; - turnOffThis = "turnOff_closest"; - - dimmerUp = "dimmer_up"; - dimmerDown = "dimmer_down"; - - --askLamp = "lamps"; - --askLocation = "locations"; - - askStatusLamp = "status"; - -} - - - diff --git a/grammars/TALK/GF_GoDiS/Domain/deLux/Shared/sharedDomainSwe.gf b/grammars/TALK/GF_GoDiS/Domain/deLux/Shared/sharedDomainSwe.gf deleted file mode 100644 index 9c31959fa..000000000 --- a/grammars/TALK/GF_GoDiS/Domain/deLux/Shared/sharedDomainSwe.gf +++ /dev/null @@ -1,48 +0,0 @@ ---# -path=.:../:../../:../Shared/:../../../Resource/Home/:../../../Core:../../../Core/Shared/:../../../Core/System - - - -concrete sharedDomainSwe of sharedDomain = sharedCoreSwe, DBSwe ** { - - - - - -lin - -- ANSWERS - - answerLampOn lamp = {s = lamp.s}; - answerLampOff lamp = {s = lamp.s}; - answerLocation loc = {s = loc.s}; - - questionWhichLamp lamp = {s = lamp.s}; - questionLocation loc = {s = loc.s}; - - --- LEXICON - -pattern - - turnOn = "tända"; - turnOff = "släcka"; - - turnOnThis = "tända"; - turnOffThis = "släcka"; - - dimmerUp = ["dimma upp"]; - dimmerDown = ["dimma ner"]; - - --askLamp = ["har jag en"]; - --askLocation = ["finns det ett"]; - - askStatusLamp = ["vilka lampor är tända"]; - -} - - - - - - - - diff --git a/grammars/TALK/GF_GoDiS/Domain/deLux/Shared/sharedSpecific.gf b/grammars/TALK/GF_GoDiS/Domain/deLux/Shared/sharedSpecific.gf deleted file mode 100644 index 73e3d7f47..000000000 --- a/grammars/TALK/GF_GoDiS/Domain/deLux/Shared/sharedSpecific.gf +++ /dev/null @@ -1,58 +0,0 @@ ---# -path=.:../:../../:../Shared/:../../../Resource/Home/:../../../Core:../../../Core/Shared/:../../../Core/System - -abstract sharedDomain = sharedCore, DB ** { - -fun - --- ANSWERS - - - -- Ett alternativ är att gära en Task för varje action som - -- finns i domänen. Alltså En erase Task, en play Task och en add Task - -- på det sattet kan man gora funktioner som tar "nummer fem" och gör en - -- "Object play" och en "Object erase" men inte en "Object add". - - -- Request Answers - - answerLampOn : Lamp -> Object onTask; - answerLampOff : Lamp -> Object offTask; - - answerLocation : Location -> Object locateTask; - - -- Ask Answers - questionWhichLamp : Lamp -> Object lampQuestion; - questionLocation : Location -> Object locQuestion; - --- LEXICON - - onTask : Task; - offTask : Task; - locateTask : Task; - lampQuestion : Task; - locQuestion : Task; - - turnOn : Action onTask; - turnOff : Action offTask; - - turnOnThis : SingleAction; - turnOffThis : SingleAction; - - dimmerUp : SingleAction; - dimmerDown : SingleAction; - - --askLamp : Ask lampQuestion; - --askLocation : Ask locQuestion; - - askStatusLamp : SingleAsk; -} - - - - - - - - - - - diff --git a/grammars/TALK/GF_GoDiS/Domain/deLux/System/systemDomain.gf b/grammars/TALK/GF_GoDiS/Domain/deLux/System/systemDomain.gf deleted file mode 100644 index 9e3e09d83..000000000 --- a/grammars/TALK/GF_GoDiS/Domain/deLux/System/systemDomain.gf +++ /dev/null @@ -1,34 +0,0 @@ ---# -path=.:../:../../:../Shared/:../../../Resource/Home/:../../../Core:../../../Core/Shared/:../../../Core/System - -abstract systemDomain = sharedDomain, systemCore ** { - - -fun - --- PROPOSITIONS. --- - - - lampProp : Lamp -> Proposition onTask; - locProp : Room -> Proposition onTask; - - whatToTurnOffProp : Lamp -> Proposition offTask; - whatToTurnOnProp : Lamp -> Proposition onTask; - --- Asks - whatLampQuestion : SingleAsk; -- "what song do you mean?" - whatLocQuestion : SingleAsk; -- "what artist do you mean?" - --- Confirms - - turnedOnLamp : Confirm; - turnedOffLamp : Confirm; - -} - - - - - - - diff --git a/grammars/TALK/GF_GoDiS/Domain/deLux/System/systemDomainEng.gf b/grammars/TALK/GF_GoDiS/Domain/deLux/System/systemDomainEng.gf deleted file mode 100644 index 98ede07e6..000000000 --- a/grammars/TALK/GF_GoDiS/Domain/deLux/System/systemDomainEng.gf +++ /dev/null @@ -1,32 +0,0 @@ ---# -path=.:../:../../:../Shared/:../../../Resource/Home/:../../../Core:../../../Core/Shared/:../../../Core/System - ---# -path=.:../:../DBase/:../Shared - - -concrete systemDomainEng of systemDomain = sharedDomainEng, systemCoreEng ** { - - -lin - --- PROPOSITIONS - - lampProp lamp = { s = lamp.s }; - locProp loc = { s = loc.s }; - - whatToTurnOffProp lamp = { s = lamp.s }; - whatToTurnOnProp lamp = { s = lamp.s }; - -pattern - --- Asks - - whatLampQuestion = ["what lamp do you mean"]; - whatLocQuestion = ["what room do you mean"]; - --- Confirms - - turnedOnLamp = ["the light is on"]; - turnedOffLamp = ["the light is turned off"]; -} - - diff --git a/grammars/TALK/GF_GoDiS/Domain/deLux/System/systemDomainPro.gf b/grammars/TALK/GF_GoDiS/Domain/deLux/System/systemDomainPro.gf deleted file mode 100644 index 213dce355..000000000 --- a/grammars/TALK/GF_GoDiS/Domain/deLux/System/systemDomainPro.gf +++ /dev/null @@ -1,28 +0,0 @@ ---# -path=.:../:../../:../Shared/:../../../Resource/Home/:../../../Core:../../../Core/Shared/:../../../Core/System - -concrete systemDomainPro of systemDomain = sharedDomainPro, systemCorePro ** { - -lin - --- PROPOSITIONS - - lampProp lamp = { s = lamp.s }; - locProp loc = { s = loc.s }; - - whatToTurnOffProp lamp = { s = lamp.s }; - whatToTurnOnProp lamp = { s = lamp.s }; - -pattern - --- Asks - - whatLampQuestion = ["X^lamp(X)"]; - whatLocQuestion = ["X^loc(X)"]; - --- Confirms - - turnedOnLamp = ["turnOn"]; - turnedOffLamp = ["turnOff"]; - - -} \ No newline at end of file diff --git a/grammars/TALK/GF_GoDiS/Domain/deLux/System/systemDomainSwe.gf b/grammars/TALK/GF_GoDiS/Domain/deLux/System/systemDomainSwe.gf deleted file mode 100644 index d4924aacf..000000000 --- a/grammars/TALK/GF_GoDiS/Domain/deLux/System/systemDomainSwe.gf +++ /dev/null @@ -1,28 +0,0 @@ ---# -path=.:../:../../:../Shared/:../../../Resource/Home/:../../../Core:../../../Core/Shared/:../../../Core/System - -concrete systemDomainSwe of systemDomain = sharedDomainSwe, systemCoreSwe ** { - -lin - --- PROPOSITIONS - - lampProp lamp = { s = lamp.s }; - locProp loc = { s = loc.s }; - - whatToTurnOffProp lamp = { s = lamp.s }; - whatToTurnOnProp lamp = { s = lamp.s }; - -pattern - --- Asks - - whatLampQuestion = ["vilken lampa menar du"]; - whatLocQuestion = ["vilket rum menar du"]; - --- Confirms - - turnedOnLamp = ["lampan är tänd"]; - turnedOffLamp = ["lampan är släckt"]; -} - - diff --git a/grammars/TALK/GF_GoDiS/Domain/deLux/User/userDomain.gf b/grammars/TALK/GF_GoDiS/Domain/deLux/User/userDomain.gf deleted file mode 100644 index 642d253b8..000000000 --- a/grammars/TALK/GF_GoDiS/Domain/deLux/User/userDomain.gf +++ /dev/null @@ -1,13 +0,0 @@ ---# -path=.:../:../../:../Shared/:../../../Resource/Home/:../../../Core:../../../Core/Shared/:../../../Core/User - -abstract userDomain = userCore, sharedDomain ** { - - -fun - -- CompoundedAnswers - - answerLampLocTurnOn : Lamp -> Room -> AnswerList onTask; - answerLampLocTurnOff : Lamp -> Room -> AnswerList offTask; - - -} \ No newline at end of file diff --git a/grammars/TALK/GF_GoDiS/Domain/deLux/User/userDomainEng.gf b/grammars/TALK/GF_GoDiS/Domain/deLux/User/userDomainEng.gf deleted file mode 100644 index 7eabf6a03..000000000 --- a/grammars/TALK/GF_GoDiS/Domain/deLux/User/userDomainEng.gf +++ /dev/null @@ -1,12 +0,0 @@ ---# -path=.:../:../../:../Shared/:../../../Resource/Home/:../../../Core:../../../Core/Shared/:../../../Core/User - -concrete userDomainEng of userDomain = userCoreEng, sharedDomainEng ** { - -lin - - -- CompoundedAnswers - -- CompoundedAnswers - answerLampLocTurnOn lamp loc = {s = lamp.s ++ "in" ++ loc.s}; - - answerLampLocTurnOff lamp loc = {s = lamp.s ++ "in" ++ loc.s}; -} \ No newline at end of file diff --git a/grammars/TALK/GF_GoDiS/Domain/deLux/User/userDomainPro.gf b/grammars/TALK/GF_GoDiS/Domain/deLux/User/userDomainPro.gf deleted file mode 100644 index a8dffd1f7..000000000 --- a/grammars/TALK/GF_GoDiS/Domain/deLux/User/userDomainPro.gf +++ /dev/null @@ -1,14 +0,0 @@ ---# -path=.:../:../../:../Shared/:../../../Resource/Home/:../../../Core:../../../Core/Shared/:../../../Core/User - -concrete userDomainPro of userDomain = userCorePro, sharedDomainPro ** { - -lin - - -- CompoundedAnswers - answerLampLocTurnOn lamp loc = {s = "answer(lamp(" ++ lamp.s ++ ")," ++ - "answer(loc(" ++ loc.s ++ ")"}; - - answerLampLocTurnOff lamp loc = {s = "answer(lamp(" ++ lamp.s ++ ")," ++ - "answer(loc(" ++ loc.s ++ ")"}; - -} \ No newline at end of file diff --git a/grammars/TALK/GF_GoDiS/Domain/deLux/User/userDomainSwe.gf b/grammars/TALK/GF_GoDiS/Domain/deLux/User/userDomainSwe.gf deleted file mode 100644 index 0df4d8618..000000000 --- a/grammars/TALK/GF_GoDiS/Domain/deLux/User/userDomainSwe.gf +++ /dev/null @@ -1,11 +0,0 @@ ---# -path=.:../:../../:../Shared/:../../../Resource/Home/:../../../Core:../../../Core/Shared/:../../../Core/User - -concrete userDomainSwe of userDomain = userCoreSwe, sharedDomainSwe ** { - -lin - - -- CompoundedAnswers - answerLampLocTurnOn lamp loc = {s = lamp.s ++ "i" ++ loc.s}; - - answerLampLocTurnOff lamp loc = {s = lamp.s ++ "i" ++ loc.s}; -} \ No newline at end of file -- cgit v1.2.3