regular expression patterns

This commit is contained in:
aarne
2006-01-07 14:39:40 +00:00
parent 16a4868efa
commit 69e1668f16
18 changed files with 173 additions and 137 deletions

View File

@@ -10,7 +10,6 @@ resource Predef = {
oper Int : Type = variants {} ; -- the type of integers
oper Ints : Int -> Type = variants {} ; -- the type of integers from 0 to n
oper CC : Tok -> Tok -> Tok = variants {} ; -- concatenation; used in patterns
oper length : Tok -> Int = variants {} ; -- length of string
oper drop : Int -> Tok -> Tok = variants {} ; -- drop prefix of length
oper take : Int -> Tok -> Tok = variants {} ; -- take prefix of length

View File

@@ -1355,7 +1355,9 @@ caseTable : Number -> CommonNoun -> Case => Str = \n,cn ->
in
{s = table {
Imper Sg => "älä" ;
Impf n p | Cond n p => ei.s ! Pres n p ;
-- Impf n p | Cond n p => ei.s ! Pres n p ;
Impf n p => ei.s ! Pres n p ;
Cond n p => ei.s ! Pres n p ;
v => ei.s ! v
}
} ;