From mboxrd@z Thu Jan  1 00:00:00 1970
X-Spam-Checker-Version: SpamAssassin 3.4.4 (2020-01-24) on polar.synack.me
X-Spam-Level: *
X-Spam-Status: No, score=1.4 required=5.0 tests=BAYES_50,INVALID_MSGID
	autolearn=no autolearn_force=no version=3.4.4
X-Google-Language: ENGLISH,ASCII-7-bit
X-Google-Thread: 103376,ccae02744f89b883,start
X-Google-Attributes: gid103376,public
From: rgelb@csulb.edu (Robert Gelb)
Subject: Help to translate from ADA 2 C/C++
Date: 1996/04/08
Message-ID: <4ka02c$d2d@hatathli.csulb.edu>#1/1
X-Deja-AN: 146306018
organization: Cal State Long Beach
newsgroups: comp.lang.ada
Date: 1996-04-08T00:00:00+00:00
List-Id: <comp.lang.ada>

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;