Cross Reference: /ast/src/cmd/mam/shmam.awk

Lines Matching +refs:val +refs:length
118 	val[1]=""
127 	val[iLINT]=""
321 			val[iLINT]=val[iLINT] " " nbasename(any2ln(tar))
660 #invar[VAR] = val
827 #gsf#	if ((val[CMD] != "") && (COMD[ldep[i]] != 1))
830 	if ((var[1] == PAT) && (val[1] != "") ) {  
853 	if (val[iLINT]!="")  {
881 		rdep[iDEP] = val[i+1] #KLUDGE : i+1 is libfiles.
956 			if (val[i] != "" ) # print nonnull fields
957 				printf("setv %s %s\n", var[i], val[i]) 
980 		val[iVAR]  = "lib" blib ".a"
985 		val[iVAR] = cdep[tar]	
999 			val[CMD] = val[CMD] " " tar
1002 			val[CMD] = val[CMD] " " compress(nm "/"base)
1009 		#val[iVAR] = cdep[tar]	
1443 # to be printed at the begining. we will use var[], val[] arrays.
1468 			#also put it in var/val list so that it gets 
1478 				val[iVAR] = defval
1633 	val[1] = val[1] " " name".p"
1683 	if (val[i] == command) {
1706 		val[iVAR] = svalue
1794 function v2n(val, pwd, e, i, j, k, tmp, arr, val1)
1797 nm=subinvar(val)
1798 if (val != nm ) {
1799 	#print "found a sub " val ":" nm
1802 #print "v2n: " "val=" val"<" " pwd=" pwd " fv2n=" fv2n"<"
1804 	print "shell: " fv2n " "val
1805 	fv2n " "val " "KLU++ | getline e
1809 		val1 = val"/"
1865 function compress(xval, i, val)
1869 val=xval
1872 		gsub(/\/\//, "/", val) 
1874 	if (val == "/" )  {
1877 		return(val);
1879 	gsub(/\/$/, "", val);
1880 return(val);
1895 	if (length(yval) < match_length) #we do not want a smaller match!
1904 	#print i "-" s "/" length(s) "-" yval "/"length(yval)
1905 	r=substr(s, length(yval)+1 )	
1914 		#print yvar " val=" yval "len=" length(yval)
1915 		r=substr(s, length(yval)+1 )	
1926 		match_length=length(yval)
1936 	if (length(yval) < match_length) #we do not want a smaller match!
1946 		#print yvar " val=" yval "len=" length(yval)
1947 		r=substr(s, length(yval)+1 )	
1958 		match_length=length(yval)