1 /* BEGIN INCLUDE FILE ... probe_data_type_names.incl.pl1
 2 
 3    Extracted from psi.pl1 by JRDavis 15 Sept 79
 4    This crude gem is used by probe_print_arglist_
 5    algol68 type names added 7/31/81 by MBW
 6    Added pascal data type names 10/18/83 S. Herbst
 7    Added hex floating point, extended, and generic types 02/08/84 S. Herbst
 8 
 9 */
10 
11 dcl  type_name (0:80) char (40) static options (constant) init (
12      "bad type 0",                                          /* 0 */
13      "fixed bin",                                           /* 1 */
14      "fixed bin",                                           /* 2 */
15      "float bin",                                           /* 3 */
16      "float bin",                                           /* 4 */
17      "complex fixed bin",                                   /* 5 */
18      "complex fixed bin",                                   /* 6 */
19      "complex float bin",                                   /* 7 */
20      "complex float bin",                                   /* 8 */
21      "fixed dec",                                           /* 9 */
22      "float dec",                                           /* 10 */
23      "complex fixed dec",                                   /* 11 */
24      "complex float dec",                                   /* 12 */
25      "pointer",                                             /* 13 */
26      "offset",                                              /* 14 */
27      "label variable",                                      /* 15 */
28      "entry variable",                                      /* 16 */
29      "structure",                                           /* 17 */
30      "area",                                                /* 18 */
31      "bit",                                                 /* 19 */
32      "varying bit",                                         /* 20 */
33      "char",                                                /* 21 */
34      "varying char",                                        /* 22 */
35      "file",                                                /* 23 */
36      "label constant",                                      /* 24 */
37      "internal entry ",                                     /* 25 */
38      "external entry",                                      /* 26 */
39      "external procedure",                                  /* 27 */
40      "bad type 28",                                         /* 28 */
41      "overpunched ls",                                      /* 29 */
42      "overpunched ts",                                      /* 30 */
43      "bad type 31",                                         /* 31 */
44      "bad type 32",                                         /* 32 */
45      "unsigned binary",                                     /* 33 */
46      "unsigned binary",                                     /* 34 */
47      "unsigned dec",                                        /* 35 */
48      "fixed dec ts",                                        /* 36 */
49      "bad type 37",                                         /* 37 */
50      "fixed dec digit uns",                                 /* 38 */
51      "fixed dec digit ts",                                  /* 39 */
52      "bad type 40",                                         /* 40 */
53      "fixed dec  digit ls",                                 /* 41 */
54      "float dec digit",                                     /* 42 */
55      "fixed dec byte",                                      /* 43 */
56      "float dec byte ",                                     /* 44 */
57      "cmplx fixed dec byte",                                /* 45 */
58      "cmplx float dec byte",                                /* 46 */
59      "float hex",                                           /* 47 */
60      "float hex",                                           /* 48 */
61      "complex float hex",                                   /* 49 */
62      "complex float hex",                                   /* 50 */
63      "bad type 51",                                         /* 51 */
64      "bad type 52",                                         /* 52 */
65      "bad type 53",                                         /* 53 */
66      "bad type 54",                                         /* 54 */
67      "bad type 55",                                         /* 55 */
68      "bad type 56",                                         /* 56 */
69      "bad type 57",                                         /* 57 */
70      "bad type 58",                                         /* 58 */
71      "algol68 straight",                                    /* 59 */
72      "algol68 format",                                      /* 60 */
73      "algol68 array descriptor",                            /* 61 */
74      "algol68 union",                                       /* 62 */
75      "picture",                                             /* 63 */
76      "pascal typed pointer type",                           /* 64 */
77      "pascal char",                                         /* 65 */
78      "pascal boolean",                                      /* 66 */
79      "pascal record file type",                             /* 67 */
80      "pascal record type",                                  /* 68 */
81      "pascal set type",                                     /* 69 */
82      "pascal enumerated type",                              /* 70 */
83      "pascal enumerated type element",                      /* 71 */
84      "pascal enumerated type instance",                     /* 72 */
85      "pascal user defined type",                            /* 73 */
86      "pascal user defined type instance",                   /* 74 */
87      "pascal text file",                                    /* 75 */
88      "pascal procedure type",                               /* 76 */
89      "pascal variable formal parameter",                    /* 77 */
90      "pascal value formal parameter",                       /* 78 */
91      "pascal entry formal parameter",                       /* 79 */
92      "pascal parameter procedure"                           /* 80 */
93      );
94 
95 
96 /* END INCLUDE FILE probe_data_type_names.incl.pl1 */