Searched refs:STEM_IO (Results 1 – 7 of 7) sorted by relevance
| /dports/textproc/words/words-1.97F_3/ |
| H A D | word_support_package.adb | 58 return STEM_IO.COUNT is
72 return STEM_IO.COUNT is
115 use STEM_IO;
118 INDEX_LAST : STEM_IO.COUNT := 0;
133 OPEN(STEM_FILE(D_K), STEM_IO.IN_FILE,
173 OPEN(STEM_FILE(D_K), STEM_IO.IN_FILE,
211 use STEM_IO;
214 M, N : STEM_IO.COUNT;
216 NUMBER_OF_NON_BLANK_STEMS : STEM_IO.COUNT := 0;
220 function MAX(A, B : STEM_IO.COUNT) return STEM_IO.COUNT is
[all …]
|
| H A D | word_support_package.ads | 19 package STEM_IO is new DIRECT_IO(DICTIONARY_STEM); packspec
20 package COUNT_IO is new TEXT_IO.INTEGER_IO(STEM_IO.COUNT);
25 STEM_FILE : array (DICTIONARY_FILE_KIND) of STEM_IO.FILE_TYPE;
38 DICTIONARY_FILE_KIND range <>) of STEM_IO.COUNT;
60 return STEM_IO.COUNT;
64 return STEM_IO.COUNT;
|
| H A D | makestem.adb | 13 use STEM_IO;
20 I : STEM_IO.COUNT := 0;
23 M : STEM_IO.Positive_Count := 1;
|
| H A D | list_package.adb | 1417 use STEM_IO;
1420 J, J1, J2, JJ : STEM_IO.COUNT := 0;
1423 INDEX_FIRST, INDEX_LAST : STEM_IO.COUNT := 0;
1469 OPEN(STEM_FILE(D_K), STEM_IO.IN_FILE,
1480 J1 := STEM_IO.COUNT(INDEX_FIRST); --######################
1481 J2 := STEM_IO.COUNT(INDEX_LAST);
1506 SET_INDEX(STEM_FILE(D_K), STEM_IO.COUNT(J));
1517 SET_INDEX(STEM_FILE(D_K), STEM_IO.COUNT(I));
1530 SET_INDEX(STEM_FILE(D_K), STEM_IO.COUNT(I));
1546 J2 := STEM_IO.COUNT(INDEX_LAST);
|
| H A D | word_package.adb | 342 STEM_IO.OPEN(STEM_FILE(D_K), STEM_IO.IN_FILE,
371 use STEM_IO;
374 J, J1, J2, JJ : STEM_IO.COUNT := 0;
377 INDEX_FIRST, INDEX_LAST : STEM_IO.COUNT := 0;
465 J1 := STEM_IO.COUNT(INDEX_FIRST); --######################
466 J2 := STEM_IO.COUNT(INDEX_LAST);
477 SET_INDEX(STEM_FILE(D_K), STEM_IO.COUNT(J));
513 SET_INDEX(STEM_FILE(D_K), STEM_IO.COUNT(J));
557 J2 := STEM_IO.COUNT(INDEX_LAST);
577 use STEM_IO;
[all …]
|
| H A D | parse.adb | 1138 STEM_IO.OPEN(STEM_FILE(LOCAL), STEM_IO.IN_FILE,
1142 if STEM_IO.IS_OPEN(STEM_FILE(LOCAL)) then
1143 STEM_IO.DELETE(STEM_FILE(LOCAL));
|
| H A D | line_stuff.adb | 390 use STEM_IO;
392 I : STEM_IO.COUNT := 1;
|