|
|
1.1 ! root 1: ... ! 2: ! 3: BEGIN ! 4: ! 5: PersonnelRecord ! 6: %{ char *Title; %} ! 7: ::= ! 8: [APPLICATION 0] ! 9: IMPLICIT SET { ! 10: Name ! 11: %{ ! 12: printf ("Name: %s %s. %s\n", ! 13: givenName, initial, familyName); ! 14: %}, ! 15: ! 16: title[0] ! 17: IA5String ! 18: [[s Title]] ! 19: %{ printf ("Title: %s\n", Title); %}, ! 20: ! 21: EmployeeNumber, ! 22: ! 23: dateOfHire[1] ! 24: Date ! 25: %{ printf ("Date of Hire: %s\n", Date); %}, ! 26: ! 27: nameOfSpouse[2] ! 28: Name ! 29: %{ ! 30: printf ("Name of Spouse: %s %s. %s\n", ! 31: givenName, initial, familyName); ! 32: %}, ! 33: ! 34: [3] ! 35: %{ ! 36: PE cc = prim2seq ($$); ! 37: if (cc) ! 38: printf ("Number of Children: %d\n", ! 39: cc -> pe_cardinal); ! 40: %} ! 41: IMPLICIT SEQUENCE OF ChildInformation ! 42: DEFAULT {} ! 43: } ! 44: %{ printf ("--------\n"); %} ! 45: ...
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.