/* Adds /ALIAS's to Amirc prefs */

parse arg cfg

if ~show('l','rexxreqtools.library') then call addlib('rexxreqtools.library',0,-30,0)

call open(ih,cfg)
call open(oh,'T:Default.AmIRCfg',W)
at=0
alias0=0

  do while ~eof(ih)
  ln = readln(ih);

    if at=="a" then do
       if ln=="" then do;
       at="e" ; call checkalias()
       end
       else do
       alias0=alias0+1
       alias.alias0=ln
       end
    end

     if at==0 then do
     if ln=="# Alias list" then at="a"
     call writeln(oh,ln)
     end

  if at=="e" then call writeln(oh,ln)

  end

call close(ih)
call close(oh)

rq=0
call req('AmIRSay install','Default.AmIRCfg Will be Changed.' || '0A'X || '' || '0A'X || 'Backup: Default.AmIRCfg' || '0A'X || '    As: Default.AmIRCfg.bak ?','_YES|_NO|_Abort')
if rq == 0 then call deteteit()
if rq == 1 then address command 'copy clone "'cfg'" "'cfg'.bak"'

address command 'copy clone T:Default.AmIRCfg "'cfg'"'

deleteit:
address command 'delete <>nil: T:Default.AmIRCfg'
exit(0)


checkalias:

do c=1 to alias0
wd=upper(word(alias.c,2))

if wd=="SAYS" | wd=='SAYV' | wd=='SAYN' | wd=='SAY#' | wd=="SAYG" | wd=="SAYQ" | wd=="SAYU" | wd=="SAY?" | wd=="SAYH" | wd=='SAYH' | wd=="SAYHELP" then nop
else; call writeln(oh,alias.c)

end

call writeln(oh,'ALIAS SAYS /rx AmIRSay %p')
call writeln(oh,'ALIAS SAYG /rx AmIRSay SAYG')
call writeln(oh,'ALIAS SAYV /rx AmIRSay SAYV')
call writeln(oh,'ALIAS SAYN /rx AmIRSay SAYN')
call writeln(oh,'ALIAS SAYQ /rx AmIRSay SAYQ %p')
call writeln(oh,'ALIAS SAY# /rx AmIRSay SAY# %p')
call writeln(oh,'ALIAS SAY? /rx AmIRSay SAY?')
return


req:
 rq = rtezrequest(arg(2),arg(3),arg(1),'rt_reqpos = reqpos_centerscr   rt_leftoffset = 120')
return

ps: if arg(1)>1 then return 's'; return ''