gen/test.icl

   1 module test
   2
   3 import StdEnv
   4 import StdGeneric
   5
   6 generic gen a :: a
   7
   8 gen{|Int|} = 0
   9 gen{|OBJECT|} fa = OBJECT fa
  10
  11 :: BI =: BI Int
  12 derive gen BI
  13
  14 //Start w = startEngine (viewInformation "" [ViewAs (\t->TtTag [] [Text t])] "bork") w
  15 Start :: BI
  16 Start = gen{|*|}