This section shows how to declare a nested structure in HP
C, HP Pascal, and HP Fortran 90.
HP C Nested Structure
struct x { char y [3]; short z; char w [5]; }; struct q { char n; struct x v [2]; double u; char t; } a; struct u{ union { int x; char y[4]; } uval; };
|
HP Pascal Nested Structure
TYPE x = RECORD y : PACKED ARRAY [1 .. 3] OF CHAR; z : SHORTINT; w : PACKED ARRAY [1 .. 5] OF CHAR; END; q = RECORD n : CHAR; v : PACKED ARRAY [1 .. 2] OF x; u : LONGREAL; t : CHAR; END; u = RECORD CASE Boolean OF TRUE : (x : INTEGER); FALSE: (y : ARRAY[1..4] of CHAR); END; VAR a:q;
|
HP Fortran 90 Nested Structure
program main structure /x/ character*3 y integer*2 z character*5 w end structure structure /q/ character n record /x/ v(2) real*8 u character t end structure structure /u/ union map integer*4 x end map map character*4 y end map end union end structure
|