home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
OS/2 Shareware BBS: 10 Tools
/
10-Tools.zip
/
adav313.zip
/
gnat-3_13p-os2-bin-20010916.zip
/
emx
/
gnat
/
examples
/
society.ads
< prev
next >
Wrap
Text File
|
2000-07-19
|
517b
|
22 lines
--::::::::::
--society.ads
--::::::::::
package Society is
-- Dining Philosophers - Ada 95 edition
-- Society gives unique ID's to people, and registers their names
-- Michael B. Feldman, The George Washington University,
-- July, 1995.
subtype Unique_DNA_Codes is Positive range 1..5;
Name_Register : array(Unique_DNA_Codes) of String(1..18) :=
("Edsger Dijkstra ",
"Bjarne Stroustrup ",
"Chris Anderson ",
"Tucker Taft ",
"Jean Ichbiah ");
end Society;