Lisaac prototype interface

Section Header
+ name :=Expanded TIME;
- comment := "Time";
- type := `unsigned long`;
- default := `0`:TIME;
Section Insert
- parent_object:OBJECT :=
Section Public
- hour:UINTEGER_8 <-
- minute:UINTEGER_8 <-
- second:UINTEGER_8 <-
- csecond:UINTEGER_8 <-
Section Public
- '>' Right 60 other:SELF :BOOLEAN <-
- '<' Right 60 other:SELF :BOOLEAN <-
- '>=' Right 60 other:SELF :BOOLEAN <-
- '<=' Right 60 other:SELF :BOOLEAN <-
- to_csecond:INTEGER <-
- '-' Right 60 other:SELF :SELF <-
BSBS: A uniformiser -# +# ???
- '-#' Right 60 other:SELF :INTEGER <-
- '+#' Right 60 other:INTEGER :TIME <-
- create (h,m,s,cs:INTEGER) :TIME <-
- create_csecond csec:INTEGER :SELF <-
- to_string:STRING <-
- append_in str:STRING <-
- append_short_in str:STRING <-
- update <-
- print <-