+++ /dev/null
-definition module gen\r
-\r
-/*\r
- GAST: A Generic Automatic Software Test-system\r
- \r
- gen: generic generation of values of a type\r
-\r
- Pieter Koopman, 2004\r
- Radboud Universty, Nijmegen\r
- The Netherlands\r
- pieter@cs.ru.nl\r
-*/\r
-\r
-import StdGeneric\r
-\r
-randomize :: [a] [Int] Int ([Int] -> [a]) -> [a]\r
-\r
-generic ggen a :: Int [Int] -> [a]\r
-\r
-derive ggen Int, Bool, Real, Char, UNIT, PAIR, EITHER, CONS, OBJECT, FIELD, (,), (,,), (,,,), [], String\r
-\r
-maxint :: Int\r
-minint :: Int\r
-StrLen :== 80\r