1 dc794ede 2005-11-26 devnull # Summarize the installation log, printing errors along with
  2 dc794ede 2005-11-26 devnull # enough context to make sense of them.
  3 dc794ede 2005-11-26 devnull 
  4 dc794ede 2005-11-26 devnull BEGIN {
  5 dc794ede 2005-11-26 devnull #	print verbose 
  6 dc794ede 2005-11-26 devnull 	cd = ""
  7 5348a601 2005-12-15 devnull 	out = "/dev/stdout"
  8 32a580f4 2006-07-23 devnull 	statuslen = 0
  9 5348a601 2005-12-15 devnull 	debug = 0
 10 32a580f4 2006-07-23 devnull 	updates = "/dev/stderr"
 11 497cd6b4 2012-10-20 rsc 	if(ENVIRON["winid"] != "") # running in acme window
 12 497cd6b4 2012-10-20 rsc 		updates = ""
 13 dc794ede 2005-11-26 devnull }
 14 dc794ede 2005-11-26 devnull 
 15 7c8e7ef4 2008-12-06 rsc function myflush(f)
 16 32a580f4 2006-07-23 devnull {
 17 7c8e7ef4 2008-12-06 rsc 	# fflush is not available on sun, but system("") appears to work everywhere
 18 4a8429a2 2008-12-01 trisk 	system("")
 19 4a8429a2 2008-12-01 trisk }
 20 4a8429a2 2008-12-01 trisk 
 21 4a8429a2 2008-12-01 trisk function clearstatus(noflush, i)
 22 4a8429a2 2008-12-01 trisk {
 23 32a580f4 2006-07-23 devnull 	if(!updates)
 24 32a580f4 2006-07-23 devnull 		return
 25 32a580f4 2006-07-23 devnull 	for(i=0; i<statuslen; i++)
 26 32a580f4 2006-07-23 devnull 		printf("\b \b") >updates
 27 32a580f4 2006-07-23 devnull 	statuslen = 0
 28 5fa03291 2006-07-23 devnull 	if(!noflush)
 29 7c8e7ef4 2008-12-06 rsc 		myflush(updates)
 30 32a580f4 2006-07-23 devnull }
 31 32a580f4 2006-07-23 devnull 
 32 32a580f4 2006-07-23 devnull function status(s)
 33 32a580f4 2006-07-23 devnull {
 34 32a580f4 2006-07-23 devnull 	if(!updates)
 35 32a580f4 2006-07-23 devnull 		return
 36 5fa03291 2006-07-23 devnull 	clearstatus(1)
 37 32a580f4 2006-07-23 devnull 	printf("    %s ", s) >updates
 38 32a580f4 2006-07-23 devnull 	statuslen = length(s)+5
 39 7c8e7ef4 2008-12-06 rsc 	myflush(updates)
 40 32a580f4 2006-07-23 devnull }
 41 32a580f4 2006-07-23 devnull 
 42 5348a601 2005-12-15 devnull debug!=0 { print "# " $0 }
 43 dc794ede 2005-11-26 devnull 
 44 dc794ede 2005-11-26 devnull /^$/ { next }
 45 dc794ede 2005-11-26 devnull 
 46 6637b803 2005-11-28 devnull /^echo cd / { next }
 47 6637b803 2005-11-28 devnull /^\+\+ pwd/ { next }
 48 6637b803 2005-11-28 devnull 
 49 dc794ede 2005-11-26 devnull /^\* /{
 50 32a580f4 2006-07-23 devnull 	clearstatus()
 51 dc794ede 2005-11-26 devnull 	if(debug) print "% mark"
 52 dc794ede 2005-11-26 devnull 	print >out
 53 7c8e7ef4 2008-12-06 rsc 	myflush(out)
 54 32a580f4 2006-07-23 devnull 	if(copy){
 55 32a580f4 2006-07-23 devnull 		print >copy
 56 7c8e7ef4 2008-12-06 rsc 		myflush(copy)
 57 32a580f4 2006-07-23 devnull 	}
 58 dc794ede 2005-11-26 devnull 	cmd = ""
 59 dc794ede 2005-11-26 devnull 	printtabs = 1	# print indented lines immediately following
 60 dc794ede 2005-11-26 devnull 	errors = 0
 61 dc794ede 2005-11-26 devnull 	next
 62 dc794ede 2005-11-26 devnull }
 63 dc794ede 2005-11-26 devnull 
 64 5348a601 2005-12-15 devnull /^	/ && printtabs!=0 {
 65 32a580f4 2006-07-23 devnull 	clearstatus()
 66 dc794ede 2005-11-26 devnull 	print >out
 67 7c8e7ef4 2008-12-06 rsc 	myflush(out)
 68 32a580f4 2006-07-23 devnull 	if(copy){
 69 32a580f4 2006-07-23 devnull 		print >copy
 70 7c8e7ef4 2008-12-06 rsc 		myflush(copy)
 71 32a580f4 2006-07-23 devnull 	}
 72 dc794ede 2005-11-26 devnull 	next
 73 dc794ede 2005-11-26 devnull }
 74 dc794ede 2005-11-26 devnull 
 75 dc794ede 2005-11-26 devnull { printtabs = 0 }
 76 dc794ede 2005-11-26 devnull 
 77 77809fb0 2008-05-10 rsc /^(9a|9c|9l|9ar|9?install|cat pdf|cp|rm|mv|mk|9 yacc|9 lex|9 rc|do|for i|if|mk|gcc|cpp|cp|sh|cmp|rc|\.\/o)($|[^:])/ {
 78 dc794ede 2005-11-26 devnull 	if(debug) print "% start"
 79 dc794ede 2005-11-26 devnull 	errors = 0
 80 dc794ede 2005-11-26 devnull 	cmd = ""
 81 dc794ede 2005-11-26 devnull 	if(!verbose)
 82 dc794ede 2005-11-26 devnull 		cmd = cmd cd
 83 dc794ede 2005-11-26 devnull 	cmd = cmd $0 "\n"
 84 dc794ede 2005-11-26 devnull 	next
 85 dc794ede 2005-11-26 devnull }
 86 dc794ede 2005-11-26 devnull 
 87 5fa03291 2006-07-23 devnull /^cd .+; mk .+/ && !verbose {
 88 5fa03291 2006-07-23 devnull 	dir = $2
 89 5fa03291 2006-07-23 devnull 	sub(/;$/, "", dir)
 90 5fa03291 2006-07-23 devnull 	status(dir " mk " $4)
 91 5fa03291 2006-07-23 devnull }
 92 5fa03291 2006-07-23 devnull 
 93 dc794ede 2005-11-26 devnull /^cd / {
 94 dc794ede 2005-11-26 devnull 	if(debug) print "% cd"
 95 dc794ede 2005-11-26 devnull 	errors = 0
 96 dc794ede 2005-11-26 devnull 	if(verbose){
 97 dc794ede 2005-11-26 devnull 		print >out
 98 7c8e7ef4 2008-12-06 rsc 		myflush(out)
 99 32a580f4 2006-07-23 devnull 		if(copy){
100 32a580f4 2006-07-23 devnull 			print >copy
101 7c8e7ef4 2008-12-06 rsc 			myflush(copy)
102 32a580f4 2006-07-23 devnull 		}
103 dc794ede 2005-11-26 devnull 	}
104 dc794ede 2005-11-26 devnull 	cd = $0 "\n"
105 dc794ede 2005-11-26 devnull 	cmd = ""
106 dc794ede 2005-11-26 devnull 	next
107 dc794ede 2005-11-26 devnull }
108 dc794ede 2005-11-26 devnull 
109 dc794ede 2005-11-26 devnull {
110 dc794ede 2005-11-26 devnull 	cmd = cmd $0 "\n"
111 dc794ede 2005-11-26 devnull }
112 dc794ede 2005-11-26 devnull 
113 5348a601 2005-12-15 devnull errors != 0 {
114 32a580f4 2006-07-23 devnull 	clearstatus()
115 dc794ede 2005-11-26 devnull 	if(debug) print "% errors"
116 dc794ede 2005-11-26 devnull 	printf "%s", cmd >out
117 7c8e7ef4 2008-12-06 rsc 	myflush(out)
118 32a580f4 2006-07-23 devnull 	if(copy){
119 32a580f4 2006-07-23 devnull 		printf "%s", cmd >copy
120 7c8e7ef4 2008-12-06 rsc 		myflush(copy)
121 32a580f4 2006-07-23 devnull 	}
122 dc794ede 2005-11-26 devnull 	cmd = ""
123 dc794ede 2005-11-26 devnull 	next
124 dc794ede 2005-11-26 devnull }
125 dc794ede 2005-11-26 devnull 
126 dc794ede 2005-11-26 devnull /^(	|then|else|fi|done|[ar] - [^ ]*\.o$)/ {
127 dc794ede 2005-11-26 devnull 	next
128 dc794ede 2005-11-26 devnull }
129 dc794ede 2005-11-26 devnull 
130 5348a601 2005-12-15 devnull /^(conflicts:)/ {
131 dc794ede 2005-11-26 devnull 	if(debug) print "% skip1"
132 dc794ede 2005-11-26 devnull 	next
133 dc794ede 2005-11-26 devnull }
134 dc794ede 2005-11-26 devnull 
135 ad2d4950 2018-11-16 rsc /(up to date|nothing to see|assuming it will be|loop not entered|# WSYSTYPE)/ {
136 dc794ede 2005-11-26 devnull 	next
137 dc794ede 2005-11-26 devnull }
138 dc794ede 2005-11-26 devnull 
139 dc794ede 2005-11-26 devnull /(nodes\(%e\)|packed transitions)/ {
140 dc794ede 2005-11-26 devnull 	if(debug) print "% skip2"
141 dc794ede 2005-11-26 devnull 	next
142 dc794ede 2005-11-26 devnull }
143 dc794ede 2005-11-26 devnull 
144 dc794ede 2005-11-26 devnull { 
145 dc794ede 2005-11-26 devnull 	# unexpected line 
146 32a580f4 2006-07-23 devnull 	clearstatus()
147 dc794ede 2005-11-26 devnull 	if(debug) print "% errors1"
148 dc794ede 2005-11-26 devnull 	errors = 1
149 dc794ede 2005-11-26 devnull 	printf ">>> %s", cmd >out
150 7c8e7ef4 2008-12-06 rsc 	myflush(out)
151 32a580f4 2006-07-23 devnull 	if(copy){
152 32a580f4 2006-07-23 devnull 		printf ">>> %s", cmd >copy
153 7c8e7ef4 2008-12-06 rsc 		myflush(copy)
154 32a580f4 2006-07-23 devnull 	}
155 dc794ede 2005-11-26 devnull 	cmd = ""
156 dc794ede 2005-11-26 devnull }
157 dc794ede 2005-11-26 devnull