/*  DescAdder v1.1;  To be used together with CrashAnnounce
    (c) 1996  Fredrik Bennison (lomaxx@dalnet.se, 2:205/324)

    $VER: DescAdder 1.1 (19.04.96)

    This ARexx-script takes the outfile created by CrashAnnounce and adds
    descriptions to the new echo-areas.

    Syntax:  rx DescAdder <infile> <outfile> <forward> [forward ...]

                                                    */

IF ~SHOW(Libraries,'rexxsupport.library') THEN
   IF ~ADDLIB("rexxsupport.library",0,-30,0) THEN EXIT

parse arg infile ' ' outfile ' ' fwdfile

f = 1
slask = ''

do until slask = ''
   parse var fwdfile fwd.f ' ' slask
   f = f+1
   fwdfile = slask
end

f = f-1

do i = 1 to f
   ffile.i = 'ffile' || i
end

call open('ifile', infile, 'R')
call open('ofile', outfile, 'W')

do i = 1 to f
   call open(ffile.i, fwd.i, 'R')
end

do a = 1 to 3
   str = readln('ifile')
   writeln('ofile', str)
end

do while ~eof('ifile')
   found = false
   str = readln('ifile')
   str = strip(str, 'T')
   if length(str) = 0 then
      break
   do i = 1 to f
      descstr = readln(ffile.i)
      do while ~eof(ffile.i)
         if index(descstr, str)=0 then
            descstr = readln(ffile.i)
         else do
            parse var descstr str ' ' desc
            writeln('ofile', str)
            writeln('ofile', '   - ' || desc)
            do j = 1 to f
               seek(ffile.j,0,'B')
            end
            found = true
         end
         if found = true then
            break
      end
      if found = true then
         break
   end
   if found = false then do
      writeln('ofile', str)
      writeln('ofile', '   - <No description>')
      do j = 1 to f
         seek(ffile.j,0,'B')
      end
   end
end

call close('ifile')
call close('ofile')

do i = 1 to f
   call close(ffile.i)
end