jens
e17a1eefb5
git-svn-id: http://moon:8086/svn/vhdl/trunk@1073 cc03376c-175c-47c8-b038-4cd826a8556b
87 lines
2.7 KiB
VHDL
87 lines
2.7 KiB
VHDL
-- textio.vhdl
|
|
|
|
library std; use std.standard.all; -- needed for bootstrap mode
|
|
|
|
package TEXTIO is
|
|
|
|
-- Type Definitions for Text I/O
|
|
|
|
type LINE is access STRING; -- a line is a pointer to a STRING value
|
|
|
|
type TEXT is file of STRING; -- a file of variable-length ASCII records
|
|
|
|
type SIDE is (RIGHT, LEFT); -- for justifying output data within fields
|
|
|
|
subtype WIDTH is NATURAL; -- for specifying widths of output fields
|
|
|
|
-- Standard Text Files
|
|
|
|
file INPUT: TEXT open READ_MODE is "STD_INPUT";
|
|
|
|
file OUTPUT: TEXT open WRITE_MODE is "STD_OUTPUT";
|
|
|
|
-- Input Routines for Standard Types
|
|
|
|
procedure READLINE (file F: TEXT; L: inout LINE);
|
|
|
|
procedure READ (L: inout LINE; VALUE: out BIT; GOOD: out BOOLEAN);
|
|
procedure READ (L: inout LINE; VALUE: out BIT);
|
|
|
|
procedure READ (L: inout LINE; VALUE: out BIT_VECTOR; GOOD: out BOOLEAN);
|
|
procedure READ (L: inout LINE; VALUE: out BIT_VECTOR);
|
|
|
|
procedure READ (L: inout LINE; VALUE: out BOOLEAN; GOOD: out BOOLEAN);
|
|
procedure READ (L: inout LINE; VALUE: out BOOLEAN);
|
|
|
|
procedure READ (L: inout LINE; VALUE: out CHARACTER; GOOD: out BOOLEAN);
|
|
procedure READ (L: inout LINE; VALUE: out CHARACTER);
|
|
|
|
procedure READ (L: inout LINE; VALUE: out INTEGER; GOOD: out BOOLEAN);
|
|
procedure READ (L: inout LINE; VALUE: out INTEGER);
|
|
|
|
procedure READ (L: inout LINE; VALUE: out REAL; GOOD: out BOOLEAN);
|
|
procedure READ (L: inout LINE; VALUE: out REAL);
|
|
|
|
procedure READ (L: inout LINE; VALUE: out STRING; GOOD: out BOOLEAN);
|
|
procedure READ (L: inout LINE; VALUE: out STRING);
|
|
|
|
procedure READ (L: inout LINE; VALUE: out TIME; GOOD: out BOOLEAN);
|
|
procedure READ (L: inout LINE; VALUE: out TIME);
|
|
|
|
-- Output Routines for Standard Types
|
|
|
|
procedure WRITELINE (file F: TEXT; L: inout LINE);
|
|
|
|
procedure WRITE (L: inout LINE; VALUE: in BIT;
|
|
JUSTIFIED: in SIDE := RIGHT; FIELD: in WIDTH := 0);
|
|
|
|
procedure WRITE (L: inout LINE; VALUE: in BIT_VECTOR;
|
|
JUSTIFIED: in SIDE := RIGHT; FIELD: in WIDTH := 0);
|
|
|
|
procedure WRITE (L: inout LINE; VALUE: in BOOLEAN;
|
|
JUSTIFIED: in SIDE := RIGHT; FIELD: in WIDTH := 0);
|
|
|
|
procedure WRITE (L: inout LINE; VALUE: in CHARACTER;
|
|
JUSTIFIED: in SIDE := RIGHT; FIELD: in WIDTH := 0);
|
|
|
|
procedure WRITE (L: inout LINE; VALUE: in INTEGER;
|
|
JUSTIFIED: in SIDE := RIGHT; FIELD: in WIDTH := 0);
|
|
|
|
procedure WRITE (L: inout LINE; VALUE: in REAL;
|
|
JUSTIFIED: in SIDE := RIGHT; FIELD: in WIDTH := 0;
|
|
DIGITS: in NATURAL := 0);
|
|
|
|
procedure WRITE (L: inout LINE; VALUE: in STRING;
|
|
JUSTIFIED: in SIDE := RIGHT; FIELD: in WIDTH := 0);
|
|
|
|
procedure WRITE (L: inout LINE; VALUE: in TIME;
|
|
JUSTIFIED: in SIDE := RIGHT; FIELD: in WIDTH := 0;
|
|
UNIT: in TIME := ns);
|
|
|
|
-- File Position Predicates
|
|
|
|
function ENDLINE (L: in LINE) return BOOLEAN;
|
|
|
|
|
|
end TEXTIO;
|