mirror of
https://github.com/GrammaticalFramework/gf-core.git
synced 2026-05-22 01:22:51 -06:00
Karin C's example
This commit is contained in:
19
grammars/video/Shared/prologResource.gf
Normal file
19
grammars/video/Shared/prologResource.gf
Normal file
@@ -0,0 +1,19 @@
|
||||
resource prologResource = {
|
||||
|
||||
oper
|
||||
app : Str -> Str -> Str =
|
||||
\pred -> \arg ->
|
||||
pred ++ "(" ++ arg ++ ")" ;
|
||||
appHakeOne : Str -> Str =
|
||||
\arg ->
|
||||
"["++ arg ++ "]" ;
|
||||
oper
|
||||
--with single quotes
|
||||
--app2 : Str -> Str -> Str -> Str = \pred -> \argH -> \argM -> pred ++ "(" ++ "'" ++ argH ++ ":" ++ argM ++ "'" ++ ")" ;
|
||||
--without single quotes
|
||||
--app2 : Str -> Str -> Str -> Str = \pred -> \argH -> \argM -> pred ++ "(" ++ argH ++ ":" ++ argM ++ ")" ;
|
||||
|
||||
app3 : Str -> Str -> Str = \argH -> \argM -> argH ++ ":" ++ argM ;
|
||||
|
||||
|
||||
}
|
||||
Reference in New Issue
Block a user