1(* Text Importer *)
2
3Begin["System`Convert`TextDump`"]
4
5
6DataImport[stream_]:=
7    Module[{data},
8        data = ReadList[stream, String];
9        {"Data" -> data}
10    ]
11
12LinesImport[stream_]:=
13    Module[{lines},
14        lines = ReadList[stream, String];
15        {"Lines" -> lines}
16    ]
17
18PlaintextImport[stream_]:=
19    Module[{plaintext},
20        plaintext = Read[stream, Record, RecordSeparators -> {}];
21        {"Plaintext" -> plaintext}
22    ]
23
24StringImport[stream_]:=
25    Module[{string},
26        string = Read[stream, Record, RecordSeparators -> {}];
27        {"String" -> string}
28    ]
29
30WordsImport[stream_]:=
31    Module[{words},
32        words = ReadList[stream, Word];
33        {"Words" -> words}
34    ]
35
36ImportExport`RegisterImport[
37    "Text",
38    {
39        "Data" :> System`Convert`TextDump`DataImport,
40        "Lines" :> System`Convert`TextDump`LinesImport,
41        "Plaintext" :> System`Convert`TextDump`PlaintextImport,
42        "String" :> System`Convert`TextDump`StringImport,
43        "Words" :> System`Convert`TextDump`WordsImport,
44        System`Convert`TextDump`PlaintextImport
45    },
46    {},
47	AvailableElements -> {"Data", "Lines", "Plaintext", "String", "Words"},
48	BinaryFormat -> True,
49	DefaultElement -> "Plaintext",
50    FunctionChannels -> {"Streams"},
51	Options -> {"CharacterEncoding"}
52]
53
54
55End[]
56