From: seas.gwu.edu!mfeldman@uunet.uu.net (Michael Feldman)
Subject: Re: thoughts on "holey" enumerated types
Date: 12 Sep 93 21:51:23 GMT [thread overview]
Message-ID: <1993Sep12.215123.13604@seas.gwu.edu> (raw)
with UNCHECKED_CONVERSION;
with TEXT_IO;
procedure REPDEMO is
type INT_32 is range -2**31..2**31-1;
package MY_INT_IO is new TEXT_IO.INTEGER_IO(INT_32);
type DIRECTION is (UP, DOWN, LEFT, RIGHT);
type D_ARRAY is ARRAY(1..4) of DIRECTION;
type PD_ARRAY is new D_ARRAY; pragma PACK(PD_ARRAY);
-- to display values in integer form
function D_TO_INT is NEW UNCHECKED_CONVERSION
(SOURCE => D_ARRAY, TARGET => INT_32);
function PD_TO_INT is NEW UNCHECKED_CONVERSION
(SOURCE => PD_ARRAY, TARGET => INT_32);
type NEWDIRECTION is new DIRECTION;
for NEWDIRECTION use (1,2,4,8);
type N_ARRAY is ARRAY(1..4) of NEWDIRECTION;
type PN_ARRAY is new N_ARRAY; pragma PACK(PN_ARRAY);
-- to display values in integer form
function N_TO_INT is new UNCHECKED_CONVERSION
(SOURCE => N_ARRAY, TARGET => INT_32);
function PN_TO_INT is new UNCHECKED_CONVERSION
(SOURCE => PN_ARRAY, TARGET => INT_32);
DIR: DIRECTION := UP;
NEWDIR: DIRECTION := UP;
D: D_ARRAY := (UP, DOWN, LEFT, RIGHT);
N: N_ARRAY;
PD: PD_ARRAY;
PN: PN_ARRAY;
begin
N := (NEWDIRECTION(D(1)), NEWDIRECTION(D(2)),
NEWDIRECTION(D(3)), NEWDIRECTION(D(4)));
PD := PD_ARRAY(D);
PN := PN_ARRAY(N);
MY_INT_IO.PUT(D'SIZE); TEXT_IO.NEW_LINE;
MY_INT_IO.PUT(PD'SIZE); TEXT_IO.NEW_LINE;
MY_INT_IO.PUT(N'SIZE); TEXT_IO.NEW_LINE;
MY_INT_IO.PUT(PN'SIZE); TEXT_IO.NEW_LINE;
MY_INT_IO.PUT(DIR'SIZE); TEXT_IO.NEW_LINE;
MY_INT_IO.PUT(NEWDIR'SIZE); TEXT_IO.NEW_LINE;
-- display hex!
MY_INT_IO.PUT(ITEM => D_TO_INT(D),BASE=>16);
TEXT_IO.NEW_LINE;
MY_INT_IO.PUT(ITEM => PD_TO_INT(PD),BASE=>16);
TEXT_IO.NEW_LINE;
MY_INT_IO.PUT(ITEM => N_TO_INT(N),BASE=>16);
TEXT_IO.NEW_LINE;
MY_INT_IO.PUT(ITEM => PN_TO_INT(PN),BASE=>16);
TEXT_IO.NEW_LINE;
end REPDEMO;
next reply other threads:[~1993-09-12 21:51 UTC|newest]
Thread overview: 7+ messages / expand[flat|nested] mbox.gz Atom feed top
1993-09-12 21:51 Michael Feldman [this message]
-- strict thread matches above, loose matches on Subject: below --
1993-09-13 15:33 thoughts on "holey" enumerated types David Emery
1993-09-13 14:24 john r strohm
1993-09-12 21:45 Michael Feldman
1993-09-12 20:13 agate!howland.reston.ans.net!noc.near.net!inmet!bobduff
1993-09-12 18:02 agate!howland.reston.ans.net!usc!cs.utexas.edu!csc.ti.com!tilde.csc.ti.co
1993-09-11 23:23 cs.utexas.edu!utnut!utcsri!csri.toronto.edu!blaak
replies disabled
This is a public inbox, see mirroring instructions
for how to clone and mirror all data and code used for this inbox