mirror of
https://github.com/GrammaticalFramework/gf-core.git
synced 2026-04-13 06:49:31 -06:00
16 lines
374 B
Plaintext
16 lines
374 B
Plaintext
--# -path=.:prelude
|
|
|
|
concrete AgendaProlog of Agenda =
|
|
DialogueProlog, WeekdayProlog ** open ResProlog, Prelude in {
|
|
|
|
lin
|
|
Day = ss "day" ;
|
|
Meeting = ss "meeting" ;
|
|
Add = op2 "add_event" "event_to_store" "date_to_store" ;
|
|
Remove = op1 "remove_event" "event_to_remove" ;
|
|
Interrupt = ss "interrupt" ;
|
|
|
|
day = apps "weekday" ;
|
|
|
|
}
|