comp.lang.ada
 help / color / mirror / Atom feed
From: rgelb@csulb.edu (Robert Gelb)
Subject: Help to translate from ADA 2 C/C++
Date: 1996/04/08
Date: 1996-04-08T00:00:00+00:00	[thread overview]
Message-ID: <4ka02c$d2d@hatathli.csulb.edu> (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;





             reply	other threads:[~1996-04-08  0:00 UTC|newest]

Thread overview: 6+ messages / expand[flat|nested]  mbox.gz  Atom feed  top
1996-04-08  0:00 Robert Gelb [this message]
1996-04-08  0:00 ` Help to translate from ADA 2 C/C++ Bob Kitzberger
1996-04-08  0:00   ` Robert Dewar
1996-04-13  0:00     ` Michael Feldman
1996-04-08  0:00 ` Robert Dewar
1996-04-14  0:00 ` AJW
replies disabled

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