Home My Page Projects Code Snippets Project Openings SML/NJ
Summary Activity Forums Tracker Lists Tasks Docs Surveys News SCM Files

SCM Repository

[smlnj] Annotation of /sml/trunk/compiler/ElabData/basics/core-ptnum.sml
ViewVC logotype

Annotation of /sml/trunk/compiler/ElabData/basics/core-ptnum.sml

Parent Directory Parent Directory | Revision Log Revision Log


Revision 2162 - (view) (download)

1 : blume 903 (* core-ptnum.sml
2 :     *
3 :     * (C) 2001 Lucent Technologies, Bell Labs
4 :     *
5 :     * Generic set of primitive type constructor numbers (not SML/NJ-specific).
6 :     *)
7 :     signature CORE_PRIM_TYC_NUM = sig
8 :    
9 :     (* The numbers here are consecutive and fill [0...next_free_ptn) *)
10 :    
11 :     val ptn_void : int
12 :     val ptn_int : int (* default int (31 bit in SML/NJ) *)
13 :     val ptn_real : int
14 :     val ptn_string : int
15 :     val ptn_exn : int
16 :     val ptn_arrow : int
17 :     val ptn_ref : int
18 :     val ptn_array : int
19 :     val ptn_vector : int
20 :    
21 :     val next_free_ptn : int
22 :     end
23 :    
24 :     structure CorePrimTycNum : CORE_PRIM_TYC_NUM = struct
25 :    
26 :     val ptn_void = 0
27 :     val ptn_int = 1
28 :     val ptn_real = 2
29 :     val ptn_string = 3
30 :     val ptn_exn = 4
31 :     val ptn_arrow = 5
32 :     val ptn_ref = 6
33 :     val ptn_array = 7
34 :     val ptn_vector = 8
35 :    
36 :     val next_free_ptn = 9
37 :     end

root@smlnj-gforge.cs.uchicago.edu
ViewVC Help
Powered by ViewVC 1.0.0