PACKAGE STANDARD IS
-- predefined enumeration types:
TYPE BOOLEAN IS (FALSE, TRUE) ;
TYPE BIT IS ('0', '1') ;
TYPE CHARACTER IS (NUL, SOH, STX, ETX, EOT, ENQ, ACK, BEL,
BS, HT, LF, VT, FF, CR, SO, SI,
DLE, DC1, DC2, DC3, DC4, NAK, SYN, ETB,
CAN, EM, SUB, ESC, FSP, GSP, RSP, USP,
' ', '!', '"', '#', '$', '%', '&', ''',
'(', ')', '*', '+', ',', '-', '.', '/',
'0', '1', '2', '3', '4', '5', '6', '7',
'8', '9', ':', ';', '<', '=', '>', '?',
'@', 'A', 'B', 'C', 'D', 'E', 'F', 'G',
'H', 'I', 'J', 'K', 'L', 'M', 'N', 'O',
'P', 'Q', 'R', 'S', 'T', 'U', 'V', 'W',
'X', 'Y', 'Z', '[', '\', ']', '^', '_',
'`', 'a', 'b', 'c', 'd', 'e', 'f', 'g',
'h', 'i', 'j', 'k', 'l', 'm', 'n', 'o',
'p', 'q', 'r', 's', 't', 'u', 'v', 'w',
'x', 'y', 'z', '{', '|', '}', '~', DEL ) ;
TYPE SEVERITY_LEVEL IS (NOTE, WARNING, ERROR, FAILURE) ;
-- predefined numeric types:
-- These limits were obtained from page F-10 of DEC Ada Reference Manual.
TYPE INTEGER IS RANGE -2147483648 TO 2147483647 ;
TYPE REAL IS RANGE -16#0.7FFF_FF8#e+32 TO 16#0.7FFF_FF8#e+32 ;
-- predefined type TIME and related functions:
TYPE TIME IS RANGE -9223372036854775808 TO 9223372036854775806
-- -2**63 to 2**63-2
UNITS
fs ; -- femtosecond
ps = 1000 fs ; -- picosecond
ns = 1000 ps ; -- nanosecond
us = 1000 ns ; -- microsecond
ms = 1000 us ; -- millisecond
sec = 1000 ms ; -- second
min = 60 sec ; -- minute
hr = 60 min ; -- hour
END UNITS ;
-- predefined functions:
FUNCTION NOW RETURN TIME;
-- predefined numeric subtypes:
SUBTYPE NATURAL IS INTEGER RANGE 0 TO INTEGER'HIGH;
SUBTYPE POSITIVE IS INTEGER RANGE 1 TO INTEGER'HIGH;
-- predefined array types:
TYPE STRING IS ARRAY (POSITIVE RANGE <>) OF CHARACTER;
TYPE BIT_VECTOR IS ARRAY (NATURAL RANGE <>) OF BIT;
END STANDARD;