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

SCM Repository

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

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

Parent Directory Parent Directory | Revision Log Revision Log


Revision 2162 - (download) (annotate)
Thu Nov 2 21:20:47 2006 UTC (13 years, 6 months ago) by blume
File size: 817 byte(s)
eliminated src dir
(* core-ptnum.sml
 *
 * (C) 2001 Lucent Technologies, Bell Labs
 *
 * Generic set of primitive type constructor numbers (not SML/NJ-specific). 
 *)
signature CORE_PRIM_TYC_NUM = sig

    (* The numbers here are consecutive and fill [0...next_free_ptn) *)

    val ptn_void : int
    val ptn_int : int			(* default int (31 bit in SML/NJ) *)
    val ptn_real : int
    val ptn_string : int
    val ptn_exn : int
    val ptn_arrow : int
    val ptn_ref : int
    val ptn_array : int
    val ptn_vector : int

    val next_free_ptn : int
end

structure CorePrimTycNum : CORE_PRIM_TYC_NUM = struct

    val ptn_void = 0
    val ptn_int = 1
    val ptn_real = 2
    val ptn_string = 3
    val ptn_exn = 4
    val ptn_arrow = 5
    val ptn_ref = 6
    val ptn_array = 7
    val ptn_vector = 8

    val next_free_ptn = 9
end

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