Lines Matching full:then
9 $! then this procedure will search for several common names of the file.
60 $on control_y then goto control_y
61 $on warning then goto general_error
62 $!on warning then set ver
87 $then
99 $if f$search(configure_script) .nes. "" then delete 'configure_script';*
104 $then
119 $then
124 $ then
127 $ then
130 $ then
133 $ then
141 $then
144 $ then
147 $ then
150 $ then
153 $ then
161 $then
167 $ then
179 $ then
198 $if f$search(dchfile) .nes. "" then delete 'dchfile';*
199 $if f$search(tfile1) .nes. "" then delete 'tfile1';*
209 $ if key1 .eqs. " " .or. key1 .eqs. "" then goto rtldef_loop1
210 $ if key2 .nes. " " .and. key2 .nes. "" then goto rtldef_loop1
214 $if f$trnlnm("tf1","lnm$process",,"SUPERVISOR") .nes. "" then close tf1
215 $if f$trnlnm("tf2","lnm$process",,"SUPERVISOR") .nes. "" then close tf2
216 $if f$search(tfile1) .nes. "" then delete 'tfile1';*
220 $if f$search(starhfile) .nes. "" then delete 'starhfile';*
221 $if f$search(tfile1) .nes. "" then delete 'tfile1';*
231 $ if key1 .eqs. " " .or. key1 .eqs. "" then goto stardef_loop1
232 $ if key2 .nes. " " .and. key2 .nes. "" then goto stardef_loop1
236 $if f$trnlnm("tf1","lnm$process",,"SUPERVISOR") .nes. "" then close tf1
237 $if f$trnlnm("tf2","lnm$process",,"SUPERVISOR") .nes. "" then close tf2
238 $if f$search(tfile1) .nes. "" then delete 'tfile1';*
255 $ then
265 $ then
269 $ if key .eqs. "*/" then do_comment = 0
283 $ if key2_t .eqs. "_TYPE" then key2_h = "_T"
285 $ if f$locate("64", xline) .lt. xlen then key64 = 1
292 $ then
294 $ if keyif .eqs. "#en" then if_block = 0
301 $ then
308 $ then
312 $ then
326 $ then
336 $ then
338 $ if (key2c .eqs. "_") .or. (key2c .eqs. "H") then key2c = ""
340 $ if (key2d .eqs. "_") .or. (key2d .eqs. "H") then key2d = ""
342 $ if (key2e .eqs. "_") .or. (key2e .eqs. "H") then key2e = ""
344 $ then
346 $ then
358 $ then
368 $ then
378 $ then
380 $ then
392 $ then
400 $ then
408 $ then
416 $ then
424 $ then
432 $ then
440 $ then
452 $ then
464 $ then
472 $ then
480 $ then
488 $ then
496 $ then
504 $ then
514 $! then
524 $! then
534 $! then
542 $ then
550 $ then
558 $ then
566 $ then
574 $ then
582 $ then
590 $ then
598 $ then
606 $ then
614 $ then
622 $ then
630 $ then
638 $ then
646 $ then
654 $ then
662 $ then
670 $ then
678 $ then
686 $ then
694 $ then
702 $ then
710 $ then
718 $ then
726 $ then
735 $! then
743 $ then
751 $ then
759 $ then
767 $ then
775 $ then
783 $ then
791 $ then
799 $ then
807 $ then
809 $ then
815 $ then
829 $ then
831 $ then
842 $ then
846 $ then
848 $ then
859 $ then
867 $ then
878 $ then
889 $ then
903 $ then
908 $ then
914 $ then
923 $ then
928 $ if key2c .nes. "" then headf = headf + "_" + key2c
929 $ if key2d .nes. "" then headf = headf + "_" + key2d
937 $ then
939 $ then
941 $ if key2d .nes. "" then headf = key2c + "_" + key2d
948 $ then
953 $ then
956 $ then
963 $ then
977 $ then
993 $ then
994 $ if key64 then write tf "#ifndef __VAX"
997 $if p2 .nes. "" then write sys$output "''dchfile' - #define ''key2' 1"
999 $ if key64 then write tf "#endif"
1011 $ then
1012 $ if key64 then write tf "#ifndef __VAX"
1015 $if p2 .nes. "" then write sys$output "''starfile' - #define ''key2' 1"
1017 $ if key64 then write tf "#endif"
1025 $ then
1029 $ then
1041 $ then
1046 $ then
1061 $ then
1064 $ then
1075 $ then
1077 $ then
1083 $ then
1089 $ then
1096 $ if key2c .nes. "" then keysym = keysym + "_" + key2c
1097 $ if key2d .nes. "" then keysym = keysym + "_" + key2d
1098 $ if key2e .nes. "" then keysym = keysym + "_" + key2e
1104 $ then
1106 $ then
1114 $ then
1119 $ then
1121 $ then
1128 $ then
1142 $ then
1147 $ then
1156 $ then
1168 $ then
1177 $ then
1189 $ then
1198 $ then
1212 $ then
1220 $ then
1228 $ then
1236 $ then
1244 $ then
1257 $ then
1270 $ then
1283 $ then
1296 $ then
1307 $ then
1319 $ then
1322 $if p2 .nes. "" then write sys$output "''decc_shr' #define ''keysym' 1"
1327 $ if keysym .eqs. "HERRNO" then keysym = "h_errno"
1328 $ if keysym .eqs. "UTIMBUF" then keysym = "utimbuf"
1330 $ then
1334 $ then
1336 $ then
1345 $ if f$search(tfile1) .nes. "" then delete 'tfile1';*
1350 $ then
1357 $ then
1361 $ then
1377 $ then
1388 $ then
1399 $ then
1400 $ if key64 then write tf "#ifndef __VAX"
1403 $if p2 .nes. "" then write sys$output "''decc_shr' #define ''key2' 1"
1405 $ if key64 then write tf "#endif"
1409 $ if f$search(tfile1) .nes. "" then delete 'tfile1';*
1419 $ then
1420 $ if key64 then write tf "#ifndef __VAX"
1423 $if p2 .nes. "" then write sys$output "''decc_rtldef' #define ''key2' 1"
1425 $ if key64 then write tf "#endif"
1432 $ then
1435 $ then
1445 $ then
1447 $ then
1461 $ then
1463 $ then
1484 $ then
1486 $ then
1497 $ then
1508 $ then
1519 $ then
1529 $ then
1540 $ then
1547 $ then
1554 $ then
1561 $ then
1568 $ then
1570 $ then
1584 $ then
1597 $ then
1599 $ then
1612 $ then
1626 $ then
1628 $ then
1635 $ then
1642 $ then
1649 $ then
1656 $ then
1667 $ then
1669 $ then
1676 $ then
1683 $ then
1690 $ then
1697 $ then
1709 $ then
1711 $ then
1718 $ then
1725 $ then
1732 $ then
1739 $ then
1746 $ then
1753 $ then
1760 $ then
1771 $ then
1773 $ then
1780 $ then
1787 $ then
1794 $ then
1801 $ then
1808 $ then
1819 $ then
1821 $ then
1828 $ then
1835 $ then
1842 $ then
1849 $ then
1856 $ then
1868 $! then
1876 $ then
1886 $ then
1896 $ then
1906 $ then
1916 $ then
1926 $ then
1937 $ if f$search(tfile1) .nes. "" then delete 'tfile1';*
1940 $! if f$locate("FILE", key2) .lt. key2_len then pflag = 1
1941 $! if f$locate("DIR", key2) .eq. key2_len - 3 then pflag = 1
1942 $! if f$locate("PATH", key2) .eq. key2_len - 4 then pflag = 1
1947 $ then
1954 $ then
1963 $ then
1973 $ then
1975 $! then
1988 $ then
1990 $! then
2006 $ then
2010 $ then
2015 $ then
2021 $ then
2032 $! then
2042 $ then
2045 $ if f$search(tfile1) .nes. "" then delete 'tfile1';*
2046 $ if set_flag .eq. 1 then goto cfgh_in_loop1
2071 $if f$trnlnm("sf","lnm$process",,"SUPERVISOR") .nes. "" then close sf
2072 $if f$trnlnm("tf","lnm$process",,"SUPERVISOR") .nes. "" then close tf
2073 $if f$trnlnm("inf","lnm$process",,"SUPERVISOR") .nes. "" then close inf
2074 $if f$trnlnm("tf1","lnm$process",,"SUPERVISOR") .nes. "" then close tf1
2075 $if f$trnlnm("tf2","lnm$process",,"SUPERVISOR") .nes. "" then close tf2
2076 $if f$trnlnm("tfcv","lnm$process",,"SUPERVISOR") .nes. "" then close tfcv
2078 $then
2079 $ if f$search(tfile1) .nes. "" then delete 'tfile1';*
2082 $then
2083 $ if f$search(dchfile) .nes. "" then delete 'dchfile';*
2086 $then
2087 $ if f$search(starhfile) .nes. "" then delete 'starhfile';*
2090 $then
2091 $ if f$search(configure_script) .nes. "" then delete 'configure_script';*