Mercurial > urweb

annotate src/elab.sml @ 109:813e5a52063d

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Remove closure conversion in favor of zany fun with modules, which also replaces 'page'
author Adam Chlipala <adamc@hcoop.net>
date Sun, 13 Jul 2008 10:17:06 -0400
parents f0f59e918cac
children e3041657d653
rev   line source
adamc@2 1 (* Copyright (c) 2008, Adam Chlipala
adamc@2 2 * All rights reserved.
adamc@2 3 *
adamc@2 4 * Redistribution and use in source and binary forms, with or without
adamc@2 5 * modification, are permitted provided that the following conditions are met:
adamc@2 6 *
adamc@2 7 * - Redistributions of source code must retain the above copyright notice,
adamc@2 8 * this list of conditions and the following disclaimer.
adamc@2 9 * - Redistributions in binary form must reproduce the above copyright notice,
adamc@2 10 * this list of conditions and the following disclaimer in the documentation
adamc@2 11 * and/or other materials provided with the distribution.
adamc@2 12 * - The names of contributors may not be used to endorse or promote products
adamc@2 13 * derived from this software without specific prior written permission.
adamc@2 14 *
adamc@2 15 * THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS "AS IS"
adamc@2 16 * AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
adamc@2 17 * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
adamc@2 18 * ARE DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT OWNER OR CONTRIBUTORS BE
adamc@2 19 * LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR
adamc@2 20 * CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF
adamc@2 21 * SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS
adamc@2 22 * INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN
adamc@2 23 * CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE)
adamc@2 24 * ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE
adamc@2 25 * POSSIBILITY OF SUCH DAMAGE.
adamc@2 26 *)
adamc@2 27
adamc@2 28 structure Elab = struct
adamc@2 29
adamc@2 30 type 'a located = 'a ErrorMsg.located
adamc@2 31
adamc@2 32 datatype kind' =
adamc@2 33 KType
adamc@2 34 | KArrow of kind * kind
adamc@2 35 | KName
adamc@2 36 | KRecord of kind
adamc@82 37 | KUnit
adamc@2 38
adamc@2 39 | KError
adamc@76 40 | KUnif of ErrorMsg.span * string * kind option ref
adamc@2 41
adamc@2 42 withtype kind = kind' located
adamc@2 43
adamc@2 44 datatype explicitness =
adamc@2 45 Explicit
adamc@2 46 | Implicit
adamc@2 47
adamc@2 48 datatype con' =
adamc@2 49 TFun of con * con
adamc@2 50 | TCFun of explicitness * string * kind * con
adamc@85 51 | TDisjoint of con * con * con
adamc@2 52 | TRecord of con
adamc@2 53
adamc@2 54 | CRel of int
adamc@2 55 | CNamed of int
adamc@34 56 | CModProj of int * string list * string
adamc@2 57 | CApp of con * con
adamc@8 58 | CAbs of string * kind * con
adamc@84 59 | CDisjoint of con * con * con
adamc@2 60
adamc@2 61 | CName of string
adamc@2 62
adamc@2 63 | CRecord of kind * (con * con) list
adamc@2 64 | CConcat of con * con
adamc@67 65 | CFold of kind * kind
adamc@2 66
adamc@82 67 | CUnit
adamc@82 68
adamc@2 69 | CError
adamc@76 70 | CUnif of ErrorMsg.span * kind * string * con option ref
adamc@2 71
adamc@2 72 withtype con = con' located
adamc@2 73
adamc@9 74 datatype exp' =
adamc@14 75 EPrim of Prim.t
adamc@14 76 | ERel of int
adamc@9 77 | ENamed of int
adamc@34 78 | EModProj of int * string list * string
adamc@9 79 | EApp of exp * exp
adamc@26 80 | EAbs of string * con * con * exp
adamc@9 81 | ECApp of exp * con
adamc@9 82 | ECAbs of explicitness * string * kind * exp
adamc@9 83
adamc@29 84 | ERecord of (con * exp * con) list
adamc@12 85 | EField of exp * con * { field : con, rest : con }
adamc@71 86 | EFold of kind
adamc@12 87
adamc@9 88 | EError
adamc@9 89
adamc@9 90 withtype exp = exp' located
adamc@9 91
adamc@31 92 datatype sgn_item' =
adamc@31 93 SgiConAbs of string * int * kind
adamc@31 94 | SgiCon of string * int * kind * con
adamc@31 95 | SgiVal of string * int * con
adamc@31 96 | SgiStr of string * int * sgn
adamc@59 97 | SgiSgn of string * int * sgn
adamc@88 98 | SgiConstraint of con * con
adamc@31 99
adamc@31 100 and sgn' =
adamc@31 101 SgnConst of sgn_item list
adamc@31 102 | SgnVar of int
adamc@41 103 | SgnFun of string * int * sgn * sgn
adamc@42 104 | SgnWhere of sgn * string * con
adamc@59 105 | SgnProj of int * string list * string
adamc@31 106 | SgnError
adamc@31 107
adamc@31 108 withtype sgn_item = sgn_item' located
adamc@31 109 and sgn = sgn' located
adamc@31 110
adamc@2 111 datatype decl' =
adamc@5 112 DCon of string * int * kind * con
adamc@9 113 | DVal of string * int * con * exp
adamc@31 114 | DSgn of string * int * sgn
adamc@31 115 | DStr of string * int * sgn * str
adamc@48 116 | DFfiStr of string * int * sgn
adamc@88 117 | DConstraint of con * con
adamc@109 118 | DExport of int * sgn * str
adamc@31 119
adamc@31 120 and str' =
adamc@31 121 StrConst of decl list
adamc@31 122 | StrVar of int
adamc@34 123 | StrProj of str * string
adamc@41 124 | StrFun of string * int * sgn * sgn * str
adamc@44 125 | StrApp of str * str
adamc@31 126 | StrError
adamc@2 127
adamc@2 128 withtype decl = decl' located
adamc@31 129 and str = str' located
adamc@31 130
adamc@2 131 type file = decl list
adamc@2 132
adamc@2 133 end