Add the tiger source code bundle from the book site
Signed-off-by: jmug <u.g.a.mariano@gmail.com>
This commit is contained in:
parent
915660c8a7
commit
33d8bac511
87 changed files with 3252 additions and 0 deletions
16
tiger/chap5/types.sml
Normal file
16
tiger/chap5/types.sml
Normal file
|
|
@ -0,0 +1,16 @@
|
|||
structure Types =
|
||||
struct
|
||||
|
||||
type unique = unit ref
|
||||
|
||||
datatype ty =
|
||||
RECORD of (Symbol.symbol * ty) list * unique
|
||||
| NIL
|
||||
| INT
|
||||
| STRING
|
||||
| ARRAY of ty * unique
|
||||
| NAME of Symbol.symbol * ty option ref
|
||||
| UNIT
|
||||
|
||||
end
|
||||
|
||||
Loading…
Add table
Add a link
Reference in a new issue