comp.lang.ada
 help / color / mirror / Atom feed
* Help to translate from ADA 2 C/C++
@ 1996-04-08  0:00 Robert Gelb
  1996-04-08  0:00 ` Robert Dewar
                   ` (2 more replies)
  0 siblings, 3 replies; 6+ messages in thread
From: Robert Gelb @ 1996-04-08  0:00 UTC (permalink / raw)


I am having a hell of a time trying to translate this ADA program into 
C/C++.  Maybe someone can help me.
Here is the program:

type person(sex:gender);
type car;
type person_name is access person;
type car_name is access car;

type car is 
	record
		number: integer;
		owner: person_name;
	end record;

type person(sex:gender) is 
	record
		name	:string(1..20);
		birth	:date;
		age	:integer range 0..130;
		vehicle	: car_name;
		case sex is
			when M =>
				wife: person_name(F);
			when F =>
				husband:person_name(M);
		end case;
	end record;





^ permalink raw reply	[flat|nested] 6+ messages in thread

end of thread, other threads:[~1996-04-14  0:00 UTC | newest]

Thread overview: 6+ messages (download: mbox.gz / follow: Atom feed)
-- links below jump to the message on this page --
1996-04-08  0:00 Help to translate from ADA 2 C/C++ Robert Gelb
1996-04-08  0:00 ` Robert Dewar
1996-04-08  0:00 ` Bob Kitzberger
1996-04-08  0:00   ` Robert Dewar
1996-04-13  0:00     ` Michael Feldman
1996-04-14  0:00 ` AJW

This is a public inbox, see mirroring instructions
for how to clone and mirror all data and code used for this inbox