El codigo anterior es un ejemplo que usa "viewcode.prg" y genera un archivo temporal luego de aplicar beautify. Puedes usarlo como base para aplicarle el beautify a todos los fuentes de un proyecto, con las opciones que desees.

Para que funcione correctamente, debes poner en ruta la ubicacion de beautify.app

Por ejemplo:

  *-- add vfp home to path
  newpath = set("path")+";"+home()
  set path to (newpath)

Para aplicarle beautify a un proyecto completo (prg, scx, vcx), podrias combinar el ejemplo anterior con este codigo:

select 0
Use (cprojectfile) Alias cproj Exclusive
*-- scan for prg, vcx, scx (P,V,K)
Scan for type$'PVK'
    cname = chrtran(name, chr(0), '')
    if type='P'
        *-- is a prg
        coutputfile = Beautify(cname, coptions)
        *-- copy temporary file over original file
        copy file (coutputfile) to (cname)
        erase (coutputfile)
    else
        *- is a vcx or scx
        select 0
        use (cname) alias cx exclusive
        scan for !empty(methods)
            strtofile(methods, ctmpname)
            coutputfile = Beautify(ctmpname, coptions)
            select cx
            replace methods with filetostr(coutputfile)
            erase (coutputfile)
        endscan
        use in cx
    endif
    select cproj
endscan

use in cproj
build project (cprojectfile) recompile

>Cuando ejecuto el código me dice que no existe beautify.prg.
>¿Es correcto que lo ejecute desde un prg que no está en el mismo directorio del beautify.app?