Mercurial > urweb

annotate src/mono_print.sml @ 1932:98895243b5b6

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Change handling of returned text blobs, to activate the normal EWrite optimizations
author Adam Chlipala <adam@chlipala.net>
date Wed, 11 Dec 2013 18:22:10 -0500
parents e15234fbb163
children 278e10629ba1
rev   line source
adam@1848 1 (* Copyright (c) 2008, 2013, Adam Chlipala
adamc@25 2 * All rights reserved.
adamc@25 3 *
adamc@25 4 * Redistribution and use in source and binary forms, with or without
adamc@25 5 * modification, are permitted provided that the following conditions are met:
adamc@25 6 *
adamc@25 7 * - Redistributions of source code must retain the above copyright notice,
adamc@25 8 * this list of conditions and the following disclaimer.
adamc@25 9 * - Redistributions in binary form must reproduce the above copyright notice,
adamc@25 10 * this list of conditions and the following disclaimer in the documentation
adamc@25 11 * and/or other materials provided with the distribution.
adamc@25 12 * - The names of contributors may not be used to endorse or promote products
adamc@25 13 * derived from this software without specific prior written permission.
adamc@25 14 *
adamc@25 15 * THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS "AS IS"
adamc@25 16 * AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
adamc@25 17 * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
adamc@25 18 * ARE DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT OWNER OR CONTRIBUTORS BE
adamc@25 19 * LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR
adamc@25 20 * CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF
adamc@25 21 * SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS
adamc@25 22 * INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN
adamc@25 23 * CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE)
adamc@25 24 * ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE
adamc@25 25 * POSSIBILITY OF SUCH DAMAGE.
adamc@25 26 *)
adamc@25 27
adamc@244 28 (* Pretty-printing monomorphic Ur/Web *)
adamc@25 29
adamc@25 30 structure MonoPrint :> MONO_PRINT = struct
adamc@25 31
adamc@25 32 open Print.PD
adamc@25 33 open Print
adamc@25 34
adamc@25 35 open Mono
adamc@25 36
adamc@25 37 structure E = MonoEnv
adamc@25 38
adamc@25 39 val debug = ref false
adamc@25 40
adamc@252 41 val dummyt = (TRecord [], ErrorMsg.dummySpan)
adamc@252 42
adamc@25 43 fun p_typ' par env (t, _) =
adamc@25 44 case t of
adamc@25 45 TFun (t1, t2) => parenIf par (box [p_typ' true env t1,
adamc@25 46 space,
adamc@25 47 string "->",
adamc@25 48 space,
adamc@25 49 p_typ env t2])
adamc@25 50 | TRecord xcs => box [string "{",
adamc@25 51 p_list (fn (x, t) =>
adamc@25 52 box [string x,
adamc@25 53 space,
adamc@25 54 string ":",
adamc@25 55 space,
adamc@25 56 p_typ env t]) xcs,
adamc@25 57 string "}"]
adamc@841 58 | TDatatype (n, ref (dk, _)) =>
adamc@178 59 ((if !debug then
adamc@841 60 string (#1 (E.lookupDatatype env n) ^ "__" ^ Int.toString n ^ "["
adamc@841 61 ^ (case dk of
adamc@841 62 Option => "Option"
adamc@841 63 | Enum => "Enum"
adamc@841 64 | Default => "Default")
adamc@841 65 ^ "]")
adamc@178 66 else
adamc@178 67 string (#1 (E.lookupDatatype env n)))
adamc@178 68 handle E.UnboundNamed _ => string ("UNBOUND_DATATYPE_" ^ Int.toString n))
adamc@51 69 | TFfi (m, x) => box [string "FFI(", string m, string ".", string x, string ")"]
adamc@292 70 | TOption t => box [string "option(",
adamc@292 71 p_typ env t,
adamc@292 72 string ")"]
adamc@757 73 | TList t => box [string "list(",
adamc@757 74 p_typ env t,
adamc@757 75 string ")"]
adamc@577 76 | TSource => string "source"
adamc@568 77 | TSignal t => box [string "signal(",
adamc@568 78 p_typ env t,
adamc@568 79 string ")"]
adamc@25 80
adamc@25 81 and p_typ env = p_typ' false env
adamc@25 82
adamc@109 83 fun p_enamed env n =
adamc@178 84 (if !debug then
adamc@178 85 string (#1 (E.lookupENamed env n) ^ "__" ^ Int.toString n)
adamc@178 86 else
adamc@178 87 string (#1 (E.lookupENamed env n)))
adamc@178 88 handle E.UnboundNamed _ => string ("UNBOUNDN_" ^ Int.toString n)
adamc@178 89
adamc@178 90 fun p_con_named env n =
adamc@178 91 (if !debug then
adamc@178 92 string (#1 (E.lookupConstructor env n) ^ "__" ^ Int.toString n)
adamc@178 93 else
adamc@178 94 string (#1 (E.lookupConstructor env n)))
adamc@178 95 handle E.UnboundNamed _ => string ("CONSTRUCTOR_" ^ Int.toString n)
adamc@178 96
adamc@178 97 fun p_patCon env pc =
adamc@178 98 case pc of
adamc@178 99 PConVar n => p_con_named env n
adamc@186 100 | PConFfi {mod = m, con, ...} => box [string "FFIC(",
adamc@185 101 string m,
adamc@185 102 string ".",
adamc@185 103 string con,
adamc@185 104 string ")"]
adamc@178 105
adamc@178 106 fun p_pat' par env (p, _) =
adamc@178 107 case p of
adamc@178 108 PWild => string "_"
adamc@182 109 | PVar (s, _) => string s
adamc@178 110 | PPrim p => Prim.p_t p
adamc@188 111 | PCon (_, n, NONE) => p_patCon env n
adamc@188 112 | PCon (_, n, SOME p) => parenIf par (box [p_patCon env n,
adamc@288 113 space,
adamc@288 114 p_pat' true env p])
adamc@178 115 | PRecord xps =>
adamc@178 116 box [string "{",
adamc@182 117 p_list_sep (box [string ",", space]) (fn (x, p, _) =>
adamc@178 118 box [string x,
adamc@178 119 space,
adamc@178 120 string "=",
adamc@178 121 space,
adamc@178 122 p_pat env p]) xps,
adamc@178 123 string "}"]
adamc@288 124 | PNone _ => string "None"
adamc@757 125 | PSome (t, p) =>
adamc@757 126 if !debug then
adamc@757 127 box [string "Some[",
adamc@757 128 p_typ env t,
adamc@757 129 string "]",
adamc@757 130 space,
adamc@757 131 p_pat' true env p]
adamc@757 132 else
adamc@757 133 box [string "Some",
adamc@757 134 space,
adamc@757 135 p_pat' true env p]
adamc@178 136
adamc@178 137 and p_pat x = p_pat' false x
adamc@109 138
adamc@591 139 fun p_mode env m =
adamc@591 140 case m of
adamc@591 141 Attribute => string "Attribute"
adamc@591 142 | Script => string "Script"
adamc@591 143 | Source t => box [string "Source", space, p_typ env t]
adamc@591 144
adamc@25 145 fun p_exp' par env (e, _) =
adamc@25 146 case e of
adamc@25 147 EPrim p => Prim.p_t p
adamc@25 148 | ERel n =>
adamc@178 149 ((if !debug then
adamc@178 150 string (#1 (E.lookupERel env n) ^ "_" ^ Int.toString n)
adamc@178 151 else
adamc@178 152 string (#1 (E.lookupERel env n)))
adamc@178 153 handle E.UnboundRel _ => string ("UNBOUND_" ^ Int.toString n))
adamc@109 154 | ENamed n => p_enamed env n
adamc@188 155 | ECon (_, pc, NONE) => p_patCon env pc
adamc@188 156 | ECon (_, pc, SOME e) => parenIf par (box [p_patCon env pc,
adamc@188 157 space,
adamc@188 158 p_exp' true env e])
adamc@297 159 | ENone _ => string "None"
adamc@290 160 | ESome (_, e) => parenIf par (box [string "Some",
adamc@290 161 space,
adamc@290 162 p_exp' true env e])
adamc@109 163
adamc@51 164 | EFfi (m, x) => box [string "FFI(", string m, string ".", string x, string ")"]
adamc@51 165 | EFfiApp (m, x, es) => box [string "FFI(",
adamc@51 166 string m,
adamc@51 167 string ".",
adamc@51 168 string x,
adamc@51 169 string "(",
adam@1663 170 p_list (p_exp env o #1) es,
adamc@51 171 string "))"]
adamc@25 172 | EApp (e1, e2) => parenIf par (box [p_exp env e1,
adamc@25 173 space,
adamc@25 174 p_exp' true env e2])
adamc@252 175 | EAbs (x, t, _, e) => parenIf true (box [string "fn",
adamc@252 176 space,
adamc@252 177 string x,
adamc@252 178 space,
adamc@252 179 string ":",
adamc@252 180 space,
adamc@252 181 p_typ env t,
adamc@252 182 space,
adamc@252 183 string "=>",
adamc@252 184 space,
adamc@252 185 p_exp (E.pushERel env x t NONE) e])
adamc@25 186
adamc@387 187 | EUnop (s, e) => parenIf true (box [string s,
adamc@387 188 space,
adamc@387 189 p_exp' true env e])
adam@1360 190 | EBinop (_, s, e1, e2) => parenIf true (box [p_exp' true env e1,
adam@1360 191 space,
adam@1360 192 string s,
adam@1360 193 space,
adam@1360 194 p_exp' true env e2])
adamc@387 195
adamc@25 196 | ERecord xes => box [string "{",
adamc@29 197 p_list (fn (x, e, _) =>
adamc@25 198 box [string x,
adamc@25 199 space,
adamc@25 200 string "=",
adamc@25 201 space,
adamc@25 202 p_exp env e]) xes,
adamc@25 203 string "}"]
adamc@25 204 | EField (e, x) =>
adamc@25 205 box [p_exp' true env e,
adamc@25 206 string ".",
adamc@25 207 string x]
adamc@25 208
adamc@1107 209 | ECase (e, pes, {result, ...}) => parenIf true (box [string "case",
adamc@1107 210 space,
adamc@1107 211 p_exp env e,
adamc@1107 212 space,
adamc@1107 213 if !debug then
adamc@1107 214 box [string "return",
adamc@1107 215 space,
adamc@1107 216 p_typ env result,
adamc@1107 217 space]
adamc@1107 218 else
adamc@1107 219 box [],
adamc@1107 220 string "of",
adamc@1107 221 space,
adamc@1107 222 p_list_sep (box [space, string "|", space])
adamc@1107 223 (fn (p, e) => box [p_pat env p,
adamc@1107 224 space,
adamc@1107 225 string "=>",
adamc@1107 226 space,
adamc@1107 227 p_exp (E.patBinds env p) e])
adamc@1107 228 pes])
adamc@94 229
adamc@283 230 | EError (e, t) => box [string "(error",
adamc@283 231 space,
adamc@283 232 p_exp env e,
adamc@283 233 space,
adamc@283 234 string ":",
adamc@283 235 space,
adamc@283 236 p_typ env t,
adamc@283 237 string ")"]
adam@1932 238 | EReturnBlob {blob = SOME blob, mimeType, t} => box [string "(blob",
adam@1932 239 space,
adam@1932 240 p_exp env blob,
adam@1932 241 space,
adam@1932 242 string "in",
adam@1932 243 space,
adam@1932 244 p_exp env mimeType,
adam@1932 245 space,
adam@1932 246 string ":",
adam@1932 247 space,
adam@1932 248 p_typ env t,
adam@1932 249 string ")"]
adam@1932 250 | EReturnBlob {blob = NONE, mimeType, t} => box [string "(blob",
adam@1932 251 space,
adam@1932 252 string "<page>",
adam@1932 253 space,
adam@1932 254 string "in",
adam@1932 255 space,
adam@1932 256 p_exp env mimeType,
adam@1932 257 space,
adam@1932 258 string ":",
adam@1932 259 space,
adam@1932 260 p_typ env t,
adam@1932 261 string ")"]
adamc@1065 262 | ERedirect (e, t) => box [string "(redirect",
adamc@1065 263 space,
adamc@1065 264 p_exp env e,
adamc@1065 265 space,
adamc@1065 266 string ":",
adamc@1065 267 space,
adamc@1065 268 p_typ env t,
adamc@1065 269 string ")"]
adamc@283 270
adamc@331 271 | EStrcat (e1, e2) => parenIf par (box [p_exp' true env e1,
adamc@331 272 space,
adamc@331 273 string "^",
adamc@331 274 space,
adamc@331 275 p_exp env e2])
adamc@94 276
adamc@102 277 | EWrite e => box [string "write(",
adamc@102 278 p_exp env e,
adamc@102 279 string ")"]
adamc@102 280
adamc@578 281 | ESeq (e1, e2) => box [string "(",
adamc@578 282 p_exp env e1,
adamc@106 283 string ";",
adamc@106 284 space,
adamc@578 285 p_exp env e2,
adamc@578 286 string ")"]
adamc@252 287 | ELet (x, t, e1, e2) => box [string "(let",
adamc@251 288 space,
adamc@251 289 string x,
adamc@251 290 space,
adamc@251 291 string ":",
adamc@251 292 space,
adamc@251 293 p_typ env t,
adamc@251 294 space,
adamc@251 295 string "=",
adamc@251 296 space,
adamc@252 297 string "(",
adamc@251 298 p_exp env e1,
adamc@252 299 string ")",
adamc@251 300 space,
adamc@251 301 string "in",
adamc@251 302 space,
adamc@252 303 string "(",
adamc@252 304 p_exp (E.pushERel env x t NONE) e2,
adamc@252 305 string "))"]
adamc@106 306
adamc@111 307 | EClosure (n, es) => box [string "CLOSURE(",
adamc@111 308 p_enamed env n,
adamc@111 309 p_list_sep (string "") (fn e => box [string ", ",
adamc@111 310 p_exp env e]) es,
adamc@111 311 string ")"]
adamc@111 312
adamc@252 313 | EQuery {exps, tables, state, query, body, initial} =>
adamc@252 314 box [string "query[",
adamc@252 315 p_list (fn (x, t) => box [string x, space, string ":", space, p_typ env t]) exps,
adamc@252 316 string "] [",
adamc@252 317 p_list (fn (x, xts) => box [string x,
adamc@252 318 space,
adamc@252 319 string ":",
adamc@252 320 space,
adamc@252 321 string "{",
adamc@252 322 p_list (fn (x, t) => box [string x, space, string ":", space, p_typ env t]) xts,
adamc@252 323 string "}"]) tables,
adamc@252 324 string "] [",
adamc@252 325 p_typ env state,
adamc@252 326 string "]",
adamc@252 327 space,
adamc@252 328 p_exp env query,
adamc@252 329 space,
adamc@252 330 string "initial",
adamc@252 331 space,
adamc@252 332 p_exp env initial,
adamc@252 333 space,
adamc@252 334 string "in",
adamc@252 335 space,
adamc@252 336 p_exp (E.pushERel (E.pushERel env "r" dummyt NONE) "acc" dummyt NONE) body]
adam@1293 337 | EDml (e, _) => box [string "dml(",
adam@1293 338 p_exp env e,
adam@1293 339 string ")"]
adamc@338 340 | ENextval e => box [string "nextval(",
adamc@338 341 p_exp env e,
adamc@338 342 string ")"]
adamc@1073 343 | ESetval (e1, e2) => box [string "setval(",
adamc@1073 344 p_exp env e1,
adamc@1073 345 string ",",
adamc@1073 346 space,
adamc@1073 347 p_exp env e2,
adamc@1073 348 string ")"]
adamc@1112 349 | EUnurlify (e, _, _) => box [string "unurlify(",
adamc@1112 350 p_exp env e,
adamc@1112 351 string ")"]
adamc@815 352 | EJavaScript (m, e) => box [string "JavaScript(",
adamc@815 353 p_mode env m,
adamc@815 354 string ",",
adamc@815 355 space,
adamc@815 356 p_exp env e,
adamc@815 357 string ")"]
adamc@568 358
adamc@568 359 | ESignalReturn e => box [string "Return(",
adamc@568 360 p_exp env e,
adamc@568 361 string ")"]
adamc@574 362 | ESignalBind (e1, e2) => box [string "Bind(",
adamc@572 363 p_exp env e1,
adamc@572 364 string ",",
adamc@572 365 space,
adamc@572 366 p_exp env e2,
adamc@572 367 string ")"]
adamc@574 368 | ESignalSource e => box [string "Source(",
adamc@574 369 p_exp env e,
adamc@574 370 string ")"]
adamc@252 371
adam@1848 372 | EServerCall (n, _, _, _) => box [string "Server(",
adamc@1020 373 p_exp env n,
adamc@1020 374 string ")"]
adamc@1021 375 | ERecv (n, _) => box [string "Recv(",
adamc@1021 376 p_exp env n,
adamc@1021 377 string ")"]
adamc@1021 378 | ESleep n => box [string "Sleep(",
adamc@1021 379 p_exp env n,
adamc@1021 380 string ")"]
adamc@1021 381 | ESpawn n => box [string "Spawn(",
adamc@1021 382 p_exp env n,
adamc@1021 383 string ")"]
adamc@608 384
adamc@25 385 and p_exp env = p_exp' false env
adamc@25 386
adamc@126 387 fun p_vali env (x, n, t, e, s) =
adamc@126 388 let
adamc@126 389 val xp = if !debug then
adamc@126 390 box [string x,
adamc@126 391 string "__",
adamc@126 392 string (Int.toString n)]
adamc@126 393 else
adamc@126 394 string x
adamc@126 395 in
adamc@126 396 box [xp,
adamc@126 397 space,
adamc@126 398 string "as",
adamc@126 399 space,
adamc@126 400 string s,
adamc@126 401 space,
adamc@126 402 string ":",
adamc@126 403 space,
adamc@126 404 p_typ env t,
adamc@126 405 space,
adamc@126 406 string "=",
adamc@126 407 space,
adamc@126 408 p_exp env e]
adamc@126 409 end
adamc@126 410
adamc@164 411 fun p_datatype env (x, n, cons) =
adamc@164 412 let
adamc@168 413 val env = E.pushDatatype env x n cons
adamc@164 414 in
adam@1734 415 box [if !debug then (string (x ^ "__" ^ Int.toString n))
adam@1734 416 else string x,
adamc@164 417 space,
adamc@164 418 string "=",
adamc@164 419 space,
adamc@164 420 p_list_sep (box [space, string "|", space])
adamc@164 421 (fn (x, n, NONE) => if !debug then (string (x ^ "__" ^ Int.toString n))
adamc@164 422 else string x
adamc@164 423 | (x, _, SOME t) => box [if !debug then (string (x ^ "__" ^ Int.toString n))
adamc@164 424 else string x, space, string "of", space, p_typ env t])
adamc@164 425 cons]
adamc@164 426 end
adamc@164 427
adamc@1199 428 fun p_policy env pol =
adamc@1199 429 case pol of
adamc@1214 430 PolClient e => box [string "sendClient",
adamc@1214 431 space,
adamc@1214 432 p_exp env e]
adamc@1220 433 | PolInsert e => box [string "mayInsert",
adamc@1220 434 space,
adamc@1220 435 p_exp env e]
adamc@1221 436 | PolDelete e => box [string "mayDelete",
adamc@1221 437 space,
adamc@1221 438 p_exp env e]
adamc@1223 439 | PolUpdate e => box [string "mayUpdate",
adamc@1223 440 space,
adamc@1223 441 p_exp env e]
adamc@1229 442 | PolSequence e => box [string "sendOwnIds",
adamc@1229 443 space,
adamc@1229 444 p_exp env e]
adamc@1199 445
adamc@126 446 fun p_decl env (dAll as (d, _) : decl) =
adamc@25 447 case d of
adamc@808 448 DDatatype x => box [string "datatype",
adamc@808 449 space,
adamc@808 450 p_list_sep (box [space, string "and", space]) (p_datatype (E.declBinds env dAll)) x]
adamc@164 451 | DVal vi => box [string "val",
adamc@126 452 space,
adamc@126 453 p_vali env vi]
adamc@126 454 | DValRec vis =>
adamc@25 455 let
adamc@126 456 val env = E.declBinds env dAll
adamc@25 457 in
adamc@25 458 box [string "val",
adamc@25 459 space,
adamc@126 460 string "rec",
adamc@25 461 space,
adamc@126 462 p_list_sep (box [newline, string "and", space]) (p_vali env) vis]
adamc@25 463 end
adamc@109 464
adamc@1104 465 | DExport (ek, s, n, ts, t, _) => box [string "export",
adamc@1104 466 space,
adamc@1104 467 Export.p_export_kind ek,
adamc@1104 468 space,
adamc@1104 469 p_enamed env n,
adamc@1104 470 space,
adamc@1104 471 string "as",
adamc@1104 472 space,
adamc@1104 473 string s,
adamc@1104 474 p_list_sep (string "") (fn t => box [space,
adamc@1104 475 string "(",
adamc@1104 476 p_typ env t,
adamc@1104 477 string ")"]) ts,
adamc@1104 478 space,
adamc@1104 479 string "->",
adamc@1104 480 space,
adamc@1104 481 p_typ env t]
adamc@271 482
adamc@707 483 | DTable (s, xts, pe, ce) => box [string "(* SQL table ",
adamc@707 484 string s,
adamc@707 485 space,
adamc@707 486 string ":",
adamc@707 487 space,
adamc@707 488 p_list (fn (x, t) => box [string x,
adamc@707 489 space,
adamc@707 490 string ":",
adamc@707 491 space,
adamc@707 492 p_typ env t]) xts,
adamc@707 493 space,
adamc@707 494 string "keys",
adamc@707 495 space,
adamc@707 496 p_exp env pe,
adamc@707 497 space,
adamc@707 498 string "constraints",
adamc@707 499 space,
adamc@707 500 p_exp env ce,
adamc@707 501 space,
adamc@707 502 string "*)"]
adamc@338 503 | DSequence s => box [string "(* SQL sequence ",
adamc@338 504 string s,
adamc@338 505 string "*)"]
adamc@754 506 | DView (s, _, e) => box [string "(* SQL view ",
adamc@754 507 string s,
adamc@754 508 space,
adamc@754 509 string "as",
adamc@754 510 space,
adamc@754 511 p_exp env e,
adamc@754 512 string "*)"]
adamc@687 513 | DDatabase {name, expunge, initialize} => box [string "database",
adamc@687 514 space,
adamc@687 515 string name,
adamc@687 516 space,
adamc@687 517 string "(",
adamc@687 518 p_enamed env expunge,
adamc@687 519 string ",",
adamc@687 520 space,
adamc@687 521 p_enamed env initialize,
adamc@687 522 string ")"]
adamc@569 523 | DJavaScript s => box [string "JavaScript(",
adamc@569 524 string s,
adamc@569 525 string ")"]
adamc@569 526
adamc@725 527 | DCookie s => box [string "cookie",
adamc@725 528 space,
adamc@725 529 string s]
adamc@720 530 | DStyle s => box [string "style",
adamc@720 531 space,
adamc@720 532 string s]
adamc@1075 533 | DTask (e1, e2) => box [string "task",
adamc@1073 534 space,
adamc@1075 535 p_exp env e1,
adamc@1075 536 space,
adamc@1075 537 string "=",
adamc@1075 538 space,
adamc@1075 539 p_exp env e2]
adamc@1199 540 | DPolicy p => box [string "policy",
adamc@1199 541 space,
adamc@1199 542 p_policy env p]
adam@1294 543 | DOnError _ => string "ONERROR"
adamc@100 544
adam@1845 545 fun p_file env (file, _) =
adamc@25 546 let
adamc@31 547 val (pds, _) = ListUtil.foldlMap (fn (d, env) =>
adamc@31 548 (p_decl env d,
adamc@31 549 E.declBinds env d))
adamc@25 550 env file
adamc@25 551 in
adamc@25 552 p_list_sep newline (fn x => x) pds
adamc@25 553 end
adamc@25 554
adamc@25 555 end