Lines Matching full:then
7 $! then this procedure will search for several common names of the file.
51 $on control_y then goto control_y
52 $on warning then goto general_error
53 $!on warning then set ver
78 $then
90 $if f$search(configure_script) .nes. "" then delete 'configure_script';*
95 $then
110 $then
115 $ then
118 $ then
121 $ then
124 $ then
132 $then
135 $ then
138 $ then
141 $ then
144 $ then
152 $then
158 $ then
170 $ then
189 $if f$search(dchfile) .nes. "" then delete 'dchfile';*
190 $if f$search(tfile1) .nes. "" then delete 'tfile1';*
200 $ if key1 .eqs. " " .or. key1 .eqs. "" then goto rtldef_loop1
201 $ if key2 .nes. " " .and. key2 .nes. "" then goto rtldef_loop1
205 $if f$trnlnm("tf1","lnm$process",,"SUPERVISOR") .nes. "" then close tf1
206 $if f$trnlnm("tf2","lnm$process",,"SUPERVISOR") .nes. "" then close tf2
207 $if f$search(tfile1) .nes. "" then delete 'tfile1';*
211 $if f$search(starhfile) .nes. "" then delete 'starhfile';*
212 $if f$search(tfile1) .nes. "" then delete 'tfile1';*
222 $ if key1 .eqs. " " .or. key1 .eqs. "" then goto stardef_loop1
223 $ if key2 .nes. " " .and. key2 .nes. "" then goto stardef_loop1
227 $if f$trnlnm("tf1","lnm$process",,"SUPERVISOR") .nes. "" then close tf1
228 $if f$trnlnm("tf2","lnm$process",,"SUPERVISOR") .nes. "" then close tf2
229 $if f$search(tfile1) .nes. "" then delete 'tfile1';*
246 $ then
256 $ then
260 $ if key .eqs. "*/" then do_comment = 0
274 $ if key2_t .eqs. "_TYPE" then key2_h = "_T"
276 $ if f$locate("64", xline) .lt. xlen then key64 = 1
283 $ then
285 $ if keyif .eqs. "#en" then if_block = 0
292 $ then
299 $ then
303 $ then
317 $ then
327 $ then
329 $ if (key2c .eqs. "_") .or. (key2c .eqs. "H") then key2c = ""
331 $ if (key2d .eqs. "_") .or. (key2d .eqs. "H") then key2d = ""
333 $ if (key2e .eqs. "_") .or. (key2e .eqs. "H") then key2e = ""
335 $ then
337 $ then
349 $ then
359 $ then
369 $ then
371 $ then
383 $ then
391 $ then
399 $ then
407 $ then
415 $ then
423 $ then
431 $ then
443 $ then
455 $ then
463 $ then
471 $ then
479 $ then
487 $ then
495 $ then
505 $! then
515 $! then
525 $! then
533 $ then
541 $ then
549 $ then
557 $ then
565 $ then
573 $ then
581 $ then
589 $ then
597 $ then
605 $ then
613 $ then
621 $ then
629 $ then
637 $ then
645 $ then
653 $ then
661 $ then
669 $ then
677 $ then
685 $ then
693 $ then
701 $ then
709 $ then
717 $ then
726 $! then
734 $ then
742 $ then
750 $ then
758 $ then
766 $ then
774 $ then
782 $ then
790 $ then
794 $ then
796 $ then
807 $ then
815 $ then
826 $ then
837 $ then
851 $ then
856 $ then
862 $ then
871 $ then
876 $ if key2c .nes. "" then headf = headf + "_" + key2c
877 $ if key2d .nes. "" then headf = headf + "_" + key2d
885 $ then
887 $ then
889 $ if key2d .nes. "" then headf = key2c + "_" + key2d
896 $ then
901 $ then
904 $ then
911 $ then
925 $ then
941 $ then
942 $ if key64 then write tf "#ifndef __VAX"
945 $if p2 .nes. "" then write sys$output "''dchfile' - #define ''key2' 1"
947 $ if key64 then write tf "#endif"
959 $ then
960 $ if key64 then write tf "#ifndef __VAX"
963 $if p2 .nes. "" then write sys$output "''starfile' - #define ''key2' 1"
965 $ if key64 then write tf "#endif"
973 $ then
977 $ then
989 $ then
994 $ then
1009 $ then
1012 $ then
1023 $ then
1025 $ then
1031 $ then
1037 $ then
1044 $ if key2c .nes. "" then keysym = keysym + "_" + key2c
1045 $ if key2d .nes. "" then keysym = keysym + "_" + key2d
1046 $ if key2e .nes. "" then keysym = keysym + "_" + key2e
1052 $ then
1054 $ then
1062 $ then
1067 $ then
1069 $ then
1076 $ then
1090 $ then
1095 $ then
1104 $ then
1116 $ then
1125 $ then
1137 $ then
1146 $ then
1160 $ then
1168 $ then
1176 $ then
1184 $ then
1192 $ then
1205 $ then
1218 $ then
1231 $ then
1244 $ then
1255 $ then
1267 $ then
1270 $if p2 .nes. "" then write sys$output "''decc_shr' #define ''keysym' 1"
1275 $ if keysym .eqs. "HERRNO" then keysym = "h_errno"
1276 $ if keysym .eqs. "UTIMBUF" then keysym = "utimbuf"
1278 $ then
1282 $ then
1284 $ then
1293 $ if f$search(tfile1) .nes. "" then delete 'tfile1';*
1298 $ then
1305 $ then
1309 $ then
1325 $ then
1336 $ then
1347 $ then
1348 $ if key64 then write tf "#ifndef __VAX"
1351 $if p2 .nes. "" then write sys$output "''decc_shr' #define ''key2' 1"
1353 $ if key64 then write tf "#endif"
1357 $ if f$search(tfile1) .nes. "" then delete 'tfile1';*
1367 $ then
1368 $ if key64 then write tf "#ifndef __VAX"
1371 $if p2 .nes. "" then write sys$output "''decc_rtldef' #define ''key2' 1"
1373 $ if key64 then write tf "#endif"
1380 $ then
1383 $ then
1400 $ then
1402 $ then
1413 $ then
1424 $ then
1435 $ then
1445 $ then
1456 $ then
1463 $ then
1470 $ then
1477 $ then
1484 $ then
1486 $ then
1506 $ then
1508 $ then
1521 $ then
1535 $ then
1537 $ then
1544 $ then
1551 $ then
1558 $ then
1565 $ then
1576 $ then
1578 $ then
1585 $ then
1592 $ then
1599 $ then
1606 $ then
1617 $ then
1619 $ then
1626 $ then
1633 $ then
1640 $ then
1647 $ then
1654 $ then
1666 $! then
1674 $ then
1684 $ then
1694 $ then
1704 $ then
1714 $ then
1725 $ if f$search(tfile1) .nes. "" then delete 'tfile1';*
1728 $! if f$locate("FILE", key2) .lt. key2_len then pflag = 1
1729 $! if f$locate("DIR", key2) .eq. key2_len - 3 then pflag = 1
1730 $! if f$locate("PATH", key2) .eq. key2_len - 4 then pflag = 1
1735 $ then
1742 $ then
1751 $ then
1761 $ then
1763 $! then
1776 $ then
1778 $! then
1794 $ then
1798 $ then
1803 $ then
1809 $ then
1820 $! then
1830 $ then
1833 $ if f$search(tfile1) .nes. "" then delete 'tfile1';*
1834 $ if set_flag .eq. 1 then goto cfgh_in_loop1
1859 $if f$trnlnm("sf","lnm$process",,"SUPERVISOR") .nes. "" then close sf
1860 $if f$trnlnm("tf","lnm$process",,"SUPERVISOR") .nes. "" then close tf
1861 $if f$trnlnm("inf","lnm$process",,"SUPERVISOR") .nes. "" then close inf
1862 $if f$trnlnm("tf1","lnm$process",,"SUPERVISOR") .nes. "" then close tf1
1863 $if f$trnlnm("tf2","lnm$process",,"SUPERVISOR") .nes. "" then close tf2
1864 $if f$trnlnm("tfcv","lnm$process",,"SUPERVISOR") .nes. "" then close tfcv
1866 $then
1867 $ if f$search(tfile1) .nes. "" then delete 'tfile1';*
1870 $then
1871 $ if f$search(dchfile) .nes. "" then delete 'dchfile';*
1874 $then
1875 $ if f$search(starhfile) .nes. "" then delete 'starhfile';*
1878 $then
1879 $ if f$search(configure_script) .nes. "" then delete 'configure_script';*