#!/usr/bin/rexx
 
input_file = arg(1)
if input_file = '' then do
   say "You need to specify an input file, e.g. WO.tr.bug.list.fixed"
   exit
end
 
output_file = input_file".with.size"
size_file = 'badname.size'
 
parse value stream(size_file,'C','open read') with filestate
if left(filestate,5)<>"READY" then do /* file didn't open             */
  say 'Error opening' size_file'.  Please fix.'
  exit
end
 
line_count=0
do while lines(size_file)=1
  line_count=line_count + 1
  line=linein(size_file)
  if line_count // 1000000 = 0 then say "I read line" line_count", which is" line
 
  parse var line this_patn this_size
 
  size.this_patn=this_size
end
 
exit
 
line_count=0
do while lines(input_file)=1
  line_count=line_count + 1
  line=linein(size_file)
  if line_count // 10000 = 0 then say "I read line" line_count", which is" line
 
  parse var line . . . . badname
 
  say "Before:" line 
  say " After:" line size.badname
  say " "
  if line_count = 10 then exit
end