Lines Matching full:then
26 $ on error then goto err_exit
63 $!!! if axp .or. ia64 then set proc/parse=extended
73 $ then
74 $ If F$Search ("Sys$System:MMS.EXE") .nes. "" Then Make = "MMS"
75 $ If F$Type (MMK) .eqs. "STRING" Then Make = "MMK"
94 $ then
97 $ then
99 $ then
111 $ then
117 $ then
118 $ if f$trnlnm("SYS").eqs."" then define sys sys$library:
131 $ if fname .eqs. "#" then goto AMISS_ERR
133 $ then
143 $ then
145 $ then
171 $ if f$search("''th'") .nes. "" then delete 'th';*
176 $ then
177 $ if (f$search( "example.obj;*") .nes. "") then delete example.obj;*
178 $ if (f$search( "minigzip.obj;*") .nes. "") then delete minigzip.obj;*
263 $ If F$Search(P1) .Eqs. "" Then Goto Makeit
268 $ If Argument .Eqs. "" Then Goto Exit
272 $ If File .Eqs. " " Then Goto Endl
277 $ If AFile .Eqs. "" .Or. AFile .Eqs. OFile Then Goto NextEl
278 $ If F$CvTime(F$File(AFile,"RDT")) .Ges. Time Then Goto Makeit
285 $ If arg .Le. 8 Then Goto Loop
294 $ If V Then Set Verify
308 $ then
314 $ then
316 $ then
321 $ then
326 then s_case = true
328 $ if cparm .eqs. "LINK" then linkonly = true
330 $ then
336 $ then
343 $ then
347 $ if cc_com .eqs. "DECC" then its_decc = true
348 $ if cc_com .eqs. "VAXC" then its_vaxc = true
349 $ if cc_com .eqs. "GNUC" then its_gnuc = true
353 $ then
358 $ then
365 $ if cparm .eqs. "HELP" then gosub bhelp
382 $ then
391 $ then goto CC_ERR
394 $ then
397 $ then
402 $ if its_vaxc then write sys$output "CC compiler check ... VAX C"
404 $ then
406 $ if f$trnlnm(topt) then write topt "gnu_cc:[000000]gcclib.olb/lib"
407 $ if f$trnlnm(optf) then write optf "gnu_cc:[000000]gcclib.olb/lib"
410 $ if f$trnlnm(topt) then write topt "sys$share:vaxcrtl.exe/share"
411 $ if f$trnlnm(optf) then write optf "sys$share:vaxcrtl.exe/share"
491 $ if src_check .eqs. "#" then goto mrloop
492 $ if (f$extract(0,6,rec) .nes. src_check) then goto src_check_loop
495 $ if (f$element(1,"\",rec) .eqs. "\") then goto mrloop
499 $ if (f$element(1,"\",rec) .nes. "\") then goto mrsloop
514 $ then
529 $ if (f$extract(0,1,rec) .nes. "#") then goto hloop
531 $ if f$element(0," ",rec) .nes. "define" then goto hloop
533 $ then
547 $ then
555 $ then
559 $ then
574 $ then
610 $ if f$search(th) .eqs. "" then create 'th'
612 $ on error then continue
614 $ if .not. ($status) then cc_prop = false
615 $ on error then continue
618 $ if .not. ($status) then cc_prop = false
620 $ on error then goto err_exit
624 $ then
627 $ then
629 then call write_config f$fao("#define !AS !UL",cdef,'cdef_val'_yes)
631 then call write_config f$fao("#define !AS !AS",cdef,'cdef_val'_yes)
636 (cdef .eqs. "_LARGEFILE64_SOURCE") then -
641 $ then
645 $ then
647 then call write_config f$fao("#define !AS !UL",cdef,'cdef_val'_no)
649 then call write_config f$fao("#define !AS !AS",cdef,'cdef_val'_no)
669 $ then
671 $ on error then continue
673 $ if .not. ($status) then cc_prop = false
674 $ on error then continue
677 $ if .not. ($status) then cc_prop = false
679 $ on error then goto err_exit
682 $ then
685 then call write_config f$fao("#define !AS !UL",cdef,mdef_'i')
687 then call write_config f$fao("#define !AS !AS",cdef,mdef_'i')
698 $ then
731 $ THEN
736 $ THEN
747 $ then
755 $ then
760 $ then
774 $ then
778 $ if f$locate("}",line).lt. f$length(line) then proc = false
779 $ if f$locate("local:", line) .lt. f$length(line) then proc = false
781 $ then
784 $ if chop_semi .lt. f$length(shared_proc) then -
807 $ then
808 $ if (sv.nes."") then write libopt sv
819 $ then
824 $ then
829 $ then
842 $ then
846 $ if f$locate("}",line).lt. f$length(line) then proc = false
847 $ if f$locate("local:", line) .lt. f$length(line) then proc = false
849 $ then
852 $ if chop_semi .lt. f$length(shared_proc) then -