1
0
forked from GitHub/gf-core

prelude sources to lib/src; present in StructuralEng; refactored checkGFCC

This commit is contained in:
aarne
2007-12-13 10:12:00 +00:00
parent e6c9cb2b52
commit 072b48065d
17 changed files with 85 additions and 44 deletions

View File

@@ -1,8 +0,0 @@
resource HTML = open Prelude in {
oper
tag : Str -> Str = \t -> "<" + t + ">" ;
endtag : Str -> Str = \t -> tag ("/" + t) ;
intag : Str -> Str -> Str = \t,s -> tag t ++ s ++ endtag t ;
intagAttr : Str -> Str -> Str -> Str =
\t,a,s -> ("<" + t) ++ (a + ">") ++ s ++ endtag t ;
}