/*
  Criado por: Anderson Vieira
  Data......: 25/11/2010
  Linguagem.: xharbour 0.99 32bits
  Empresa...: www.nsi-sp.com
*/

procedure main()
parameters operacao,nc,nl,retorno

local ret, mensagem
if pcount()#4
    cls
    ? "Criado por: Anderson Vieira"
    ? "Data......: 25/11/2010     "
    ? "Linguagem.: xharbour 0.99 32bits"
    ? "Empresa...: www.nsi-sp.com"
    ? "--------------------------------"
    ?
    ? "Objetivo..: permitir que aplicacoes que NAO gerem nomes de arquivos"
    ? "            longos no padrao do windows, passem a converter nomes"
    ? "            curtos (8x3) em nomes longos." 
    ?
    ? "Sintaxe: ncTOnl operacao, arqori, arqlongo, arqret"
    ?
    ? "Onde:"
    ?
    ? " operacao:  R = Renomear   C =  Copiar"
    ? " arqori  :  nome do arquivo curto no padrao do DOS 8x3"
    ? " arqlongo:  nome do arquivo de destino, nome longo maior que 8x3"
    ? " arqret  :  nome do arquivo que contera o retorno da operacao"
    ? "            para ser analisado pelo aplicativo chamador"
    ?
endif
if empty(operacao).or.!upper(operacao)$"RC"
    memowrit(retorno,"ERRO NO TIPO DE OPERACAO PASSADA"+chr(13)+chr(10)+"Informe R=Renomear  ou  C=Copiar"+chr(13)+chr(10))
    return 
endif
if empty(nc).or.!file(nc)
   mensagem= "ERRO PARAMETRO 1: Falta Nome do Arquivo de Origem a ser renomeado."+chr(13)+chr(10)
   mensagem+="                  ou arquivo informado nao existe."+chr(13)+chr(10)
endif
if empty(nl).or.!file(nl)
   mensagem= "ERRO PARAMETRO 2: Falta Nome do Arquivo de Destino."+chr(13)+chr(10)
   mensagem+="                  ou arquivo informado nao existe."+chr(13)+chr(10)
endif
if operacao="R"
   if frename(nc, nl)=0
      mensagem="OK"
   else
      mensagem+=chr(13)+chr(10)+"ERRO A NIVEL DO DOS: "+str(ferror())+chr(13)+chr(10)
   endif
else
   if fileCopy(nc, nl)>0
      mensagem="OK"
   else
      mensagem+=chr(13)+chr(10)+"ERRO A NIVEL DO DOS: "+str(ferror())+chr(13)+chr(10)
   endif
endif
if !empty(retorno)
  memowrit(retorno,mensagem)
endif
return ret