*************************************************************************************
*    prekopiruje soubory ze zdrojoveho adresare do aktualniho foodovskeho (\food600 nebo foodman)
*    a provede v nich nahrady cest
*
*   2015-10-17  
*
*************************************************************************************


#DEFINE SOURCE_DIR    ".\to_be_relocated\"
#DEFINE MAKRO_DIR     "\makro"
***#DEFINE MAKRO_DIR_UNX "/makro"
#DEFINE MAKRO_DIR_UNX STRTRAN("/makro", "\", "/")


food600_disk_new    = JUSTDRIVE(m.gcini_path)
food600_dir_new     = SUBSTR(LEFT(m.gcini_path, LEN(m.gcini_path)-1), 3)
food600_dir_unx_new = STRTRAN(m.food600_dir_new, "\", "/")


rel_pocet = ADIR(rel_soubory, SOURCE_DIR + "*.*") 
FOR rel_iii = 1 TO m.rel_pocet
    jmeno_souboru = LOWER(rel_soubory(rel_iii, 1))
    obsah_souboru = FILETOSTR(SOURCE_DIR + m.jmeno_souboru)

    obsah_souboru = STRTRAN(m.obsah_souboru, "[food600_dir]"    , m.food600_dir_new)
    obsah_souboru = STRTRAN(m.obsah_souboru, "[food600_dir_unx]", m.food600_dir_new)
    obsah_souboru = STRTRAN(m.obsah_souboru, "[food600_disk]"   , m.food600_disk_new)
    obsah_souboru = STRTRAN(m.obsah_souboru, "[makro_dir]"      , MAKRO_DIR)
    obsah_souboru = STRTRAN(m.obsah_souboru, "[makro_dir_unx]"  , MAKRO_DIR_UNX)

*    obsah_souboru = STRTRAN(m.obsah_souboru, "[]", )

    STRTOFILE(m.obsah_souboru, m.gcini_path + m.jmeno_souboru)
ENDFOR 
