mirror of
https://github.com/GrammaticalFramework/gf-core.git
synced 2026-05-03 08:12:51 -06:00
changed names of resource-1.3; added a note on homepage on release
This commit is contained in:
31
lib/resource-1.3/multimodal/old/DemRes.gf
Normal file
31
lib/resource-1.3/multimodal/old/DemRes.gf
Normal file
@@ -0,0 +1,31 @@
|
||||
resource DemRes = open Prelude in {
|
||||
|
||||
oper
|
||||
|
||||
Point : Type =
|
||||
{point : Str} ;
|
||||
|
||||
point : Point -> Str = \p ->
|
||||
p.point ;
|
||||
|
||||
mkPoint : Str -> Point = \s ->
|
||||
{point = s} ;
|
||||
|
||||
noPoint : Point =
|
||||
mkPoint [] ;
|
||||
|
||||
concatPoint : (x,y : Point) -> Point = \x,y ->
|
||||
mkPoint (point x ++ point y) ;
|
||||
|
||||
-- A type is made demonstrative by adding $Point$.
|
||||
|
||||
Dem : Type -> Type = \t -> t ** Point ;
|
||||
|
||||
mkDem : (t : Type) -> t -> Point -> Dem t = \_,x,s ->
|
||||
x ** s ;
|
||||
|
||||
nonDem : (t : Type) -> t -> Dem t = \t,x ->
|
||||
mkDem t x noPoint ;
|
||||
|
||||
|
||||
}
|
||||
Reference in New Issue
Block a user