forked from GitHub/gf-core
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