--  file    : replace.ex
--  author  : jiri babor & easy modify RittyNT
--  email   : jbabor@paradise.net.nz, baramount@gmail.com
--  project : search & replace
--  tool    : euphoria 2.1 & 3.1.1
--  date    : 99-11-27, MMX
--  version : 1.10 to 1.10b
--  modify  : file list (*.???) and subdirectory

----------------------------------------------------------------------
--  Usage:[ex] replace old_text new_text file1 file2 file3
--  or
--  Usage:[ex] replace @[Script file] files(s)  --  (*.???)
--  or
--  Usage:[ex] replace <@[Script file] [!]files(s)  all subdirectory
----------------------------------------------------------------------
--  Replace [case sensitive] all occurances of old_text string with new_text string  --
--  in all specified files.                                         --
--  Strings containing spaces must be enclosed in quotation marks!  --
----------------------------------------------------------------------
--  **************  Play safe! Back up your files!  **************  --
----------------------------------------------------------------------

include file.e
include get.e

sequence buffer, cl, filename, files, new_text, old_text,tmp,
	 line,fn,data,xpath,dirs,file
integer f1,f0,view,flag
object  xx

function ListDirs(sequence startpath)
    sequence y
    object x
    integer z, SLASH
    SLASH = '\\'
    if startpath[length(startpath)] != SLASH then
	startpath = startpath & SLASH
    end if
    x = {}
    y = {startpath}
    z = 1
    while z <= length(y) do
	x = dir(y[z])
	if not atom(x) then
	    for i = 1 to length(x) do
		if find('d',x[i][D_ATTRIBUTES]) then
		    if compare(x[i][D_NAME], ".") != 0 then
			if compare(x[i][D_NAME],"..") != 0 then
			    y = y & {y[z] & x[i][D_NAME] & SLASH}
			end if
		    end if
		end if
	    end for
	end if
	z = z + 1
    end while
    return y[2..length(y)]  -- fixed by Travis May, Dec. 29, 2001
end function

function DIR(object wrk)
object w0
sequence w1
     w0 = dir(wrk)
     if atom(w0) then
        w1 = ""
       else
        w1 = w0
     end if
    return w1
end function

function TRIM(sequence wrk)
integer j
    for i = length(wrk) to 1 by -1 do
        j = i
        if wrk[i] > 32 then
            exit
        end if
    end for
    if (j > 0) then
       return wrk[1..j]
      else
       return wrk
    end if
end function

procedure help(sequence message)
    clear_screen()
    puts(1,"REPLACE Ver:1.10b")
    puts(1," (c)Jiri Babor & RittyNT \n")
    puts(1,"\n")
    puts(1,"Easy modify Find & [case sensitive]Replace program \n")
    puts(1,"\n")
    puts(1,"[ex] REPLACE old_text new_text [file1] [file2].. \n")
    puts(1," or \n")
    puts(1,"[ex] REPLACE old_text new_text <*.???> \n")
    puts(1," or \n")
    puts(1,"[ex] REPLACE old_text new_text <[!]*.???> all subdir \n")
    puts(1," or \n")
    puts(1,"[ex] REPLACE @<script> <[!]*.???> all subdir \n")
    puts(1," \n")
    puts(1,"script = 2 record phrases [include space(s)] xchange \n")
    f0 = wait_key()
    abort(1)
end procedure

procedure read()
    integer f, len, n
    f=open(filename,"rb")
    if f=-1 then
        help("Couldn't open " & filename & " !\n")
    end if
    n=seek(f, -1)               -- go to end of input file
    len=where(f)                -- get length of input file in bytes
    n=seek(f, 0)                -- go back to beginning of input file
    buffer = repeat(0, len)     -- init buffer
    for i=1 to len do
        buffer[i] = getc(f)     -- read file into buffer
    end for
    close(f)
end procedure -- read

procedure replace_and_write()
    integer f, i, lo, ln

    f=open(filename,"wb")       -- open output file
    lo = length(old_text)
    ln = length(new_text)

    i = match(old_text, buffer)
    while i do
        puts(f, buffer[1..i-1])
        puts(f, new_text)
        buffer = buffer[i+lo..length(buffer)]
        i = match(old_text, buffer)
    end while
    puts(f, buffer)
    close(f)                    -- close output file
end procedure -- replace_and_write


-- main ------------------------------------------------------------------------

cl=command_line()

if length(cl) < 4 then
    help("Insufficient number of arguments!\n")
    abort(1)
end if

view = 1
f0   = 0

data = {}
line = {}
flag = 0
with trace
trace(0)
fn = cl[3]
if match("@",fn) > 0 then
   file = fn[2..$]
--   f1 = wait_key()
   f1 = open(file,"r")
   if f1 = -1 then
      puts(1, "Couldn't open scriptfile \n")
      abort(1)
   end if
   data = {}
-- trace(1)
   while 1 do
      xx = gets(f1)
      if atom(xx) then
         exit -- -1 is returned at end of file
      end if
    data = append(data, TRIM(xx))
   end while
   close(f1)
   old_text = data[1]
   new_text = data[2]
   tmp = cl[4]
  else
   if length(cl) > 4 then
      old_text = cl[3]
      new_text = cl[4]
      tmp      = cl[5]
    else
      puts(1, "Missing filename or skeleton \n")
      abort(1)
   end if
end if

xpath = current_dir() & "\\"

if match("!",tmp) then
    dirs = {}
    dirs = ListDirs(xpath)
    dirs = prepend(dirs,xpath)
    f0 = 1
end if
if (match("*",tmp) or match("?",tmp)) then
   if f0 = 1 then
      for j=1  to length(dirs) do
	files = DIR(dirs[j] & tmp[2..$])
	-- puts(1, dirs[1] & tmp)
	for i=1 to length(files) do
          filename = dirs[j] & files[i][1]
	  if view = 1 then
             puts(1,filename)
             puts(1,"\n")
          end if
	  read()
	  replace_and_write()
	end for
      end for
    else
      files = DIR(xpath & tmp)
      for i=1 to length(files) do
        filename = files[i][1]
	if view = 1 then
           puts(1,files[i][1])
           puts(1,"\n")
        end if
	read()
	replace_and_write()
      end for
    end if
  else
    if flag = 1 then
       files	= cl[4..$]
      else
       files	= cl[5..$]
    end if
    for i=1 to length(files) do
      filename = files[i]
	if view = 1 then
           puts(1,filename)
           puts(1,"\n")
        end if
      read()
      replace_and_write()
    end for
end if

puts(1, "Done!\n")