words/words-1.97F_3/line_stuff.adb

26     TRAN : TRANSLATION_RECORD := NULL_TRANSLATION_RECORD;  variable
79    TRANSLATION_RECORD_IO.GET(LINE(LL+1..L), TRAN, LLL);
131                                     PT, TRAN, MEAN), DICT(FC1));
135                                      PT, TRAN, MEAN), DICT(FC2) );
138         DICT(FC1) := new DICTIONARY_ITEM'((STS, PT, TRAN, MEAN),
149                                     PT, TRAN, MEAN), DICT(FC1));
153                                      PT, TRAN, MEAN), DICT(FC2) );
156           DICT(FC1) := new DICTIONARY_ITEM'((STS, PT, TRAN, MEAN),
175              TRAN, MEAN), DICT(FC1));
180             TRAN, MEAN), DICT(FC2) );
185            TRAN, MEAN), DICT(FC3));
190            TRAN, MEAN), DICT(FC4));
196                              (ADJ, (PT.ADJ.DECL, POS)), TRAN, MEAN),
201                              (ADJ, (PT.ADJ.DECL, POS)), TRAN, MEAN),
207                        (ADJ, (PT.ADJ.DECL, COMP)), TRAN, MEAN),
213                               (ADJ, (PT.ADJ.DECL, SUPER)), TRAN, MEAN),
218           DICT(FC1) := new DICTIONARY_ITEM'((STS, PT, TRAN, MEAN),
233                              (ADV, (CO => POS)), TRAN, MEAN), DICT(FC1));
237                              (ADV, (CO => COMP)), TRAN, MEAN), DICT(FC2));
241                             (ADV, (CO => SUPER)), TRAN, MEAN), DICT(FC3));
247                              (ADV, (CO => POS)), TRAN, MEAN),
253                      (ADV, (CO => COMP)), TRAN, MEAN),
259                             (ADV, (CO => SUPER)), TRAN, MEAN),
263           DICT(FC1) := new DICTIONARY_ITEM'((STS, PT, TRAN, MEAN),
280                            PT, TRAN, MEAN), DICT(FC1) );
284                            PT, TRAN, MEAN), DICT(FC2));
288                           PT, TRAN, MEAN), DICT(FC3));
292                           PT, TRAN, MEAN), DICT(FC4));
295           DICT(FC1) := new DICTIONARY_ITEM'((STS, PT, TRAN, MEAN),
306                              (NUM, (PT.NUM.DECL, CARD, VALUE)), TRAN, MEAN),
314                        (NUM, ((0, 0), ORD, VALUE)), TRAN, MEAN),
322                               (NUM, (PT.NUM.DECL, DIST, VALUE)), TRAN, MEAN),
330                           (NUM, (PT.NUM.DECL, ADVERB, VALUE)), TRAN, MEAN),
337                              (NUM, (PT.NUM.DECL, CARD, VALUE)), TRAN, MEAN),
343                      (NUM, (PT.NUM.DECL, ORD, VALUE)), TRAN, MEAN),
349                             (NUM, (PT.NUM.DECL, DIST, VALUE)), TRAN, MEAN),
355                         (NUM, (PT.NUM.DECL, ADVERB, VALUE)), TRAN, MEAN),
361         DICT(FC1) := new DICTIONARY_ITEM'((STS, PT, TRAN, MEAN),
784       GET(F, UE.TRAN);
798       GET(P.TRAN);
809       PUT(F, P.TRAN);
820       PUT(P.TRAN);
837       GET(S(L+1..S'LAST), P.TRAN, LAST);
858       PUT(S(L+1..M), P.TRAN);
881     TRAN : TRANSLATION_RECORD := NULL_TRANSLATION_RECORD;  variable
910       AGE_TYPE_IO.GET(LINE(L+1..LAST), TRAN.AGE, L);
911       AREA_TYPE_IO.GET(LINE(L+1..LAST), TRAN.AREA, L);
912       GEO_TYPE_IO.GET(LINE(L+1..LAST), TRAN.GEO, L);
913       FREQUENCY_TYPE_IO.GET(LINE(L+1..LAST), TRAN.FREQ, L);
914       SOURCE_TYPE_IO.GET(LINE(L+1..LAST), TRAN.SOURCE, L);
950         UNIQUE_DE.TRAN  :=  TRAN;