changeset 17753 | f84b032417ac |
child 17757 | 87a9b1d48e25 |
17752:a92cda068ad8 | 17753:f84b032417ac |
---|---|
1 (* Title: Pure/ML-Systems/polyml-4.1.4-patch.ML |
|
2 ID: $Id$ |
|
3 Author: Makarius |
|
4 |
|
5 Patch for PolyML 4.1.4 to make it work with Isabelle2005. We commit |
|
6 this into ML_dbase! |
|
7 *) |
|
8 |
|
9 structure Posix = |
|
10 struct |
|
11 open Posix; |
|
12 structure IO = |
|
13 struct |
|
14 open IO; |
|
15 val mkReader = mkTextReader; |
|
16 val mkWriter = mkTextWriter; |
|
17 end; |
|
18 end; |
|
19 |
|
20 structure TextIO = |
|
21 struct |
|
22 open TextIO; |
|
23 fun inputLine is = Option.getOpt (TextIO.inputLine is, ""); |
|
24 end; |