- tutte le chiamate a EgtGetSourceDir() sostituite con EgtGetCurrMachineDir()

- aggiunto compile

Beam/BeamData.lua

@@ -65,7 +65,7 @@ local BeamData = {
 
 -- Aggiornamento con dati da TechnoEssetre7
 local sTs3Data = EgtGetStringFromIni( 'Beam', 'DATA_DIR', "C:\\TechnoEssetre7\\EgtData", EgtGetIniFile()).."\\Essetre-TURN.qqq.data"
-local sData = EgtGetSourceDir().."\\Ts3Data.qqq.lua"
+local sData = EgtGetCurrMachineDir().."\\Beam\\Ts3Data.qqq.lua"
 if EgtExistsFile( sTs3Data) then
    EgtCopyFile( sTs3Data, sData)
    local sTs3DataOld = sTs3Data..'.old'

Compile.bat

@@ -0,0 +1,36 @@
+
+REM Compilazione degli script macchina Egaltech                         2024.02.22
+REM Per togliere info di debug aggiungere flag -s prima del nome del file di input
+
+REM Compilazione 32 bit e copia file da non compilare
+
+@echo off
+
+REM chiedo all'utente la versione da assegnare alla macchina da compilare
+set /p "machineVersion=Inserisci versione: "
+
+REM variabili per costruire i percorsi delle cartelle
+set "machineName=Essetre-TURN"
+set "deployFolder=C:\MachinesDeploy"
+set "machinePath=%deployFolder%\%machineName%\"
+set "fullPathSource=%deployFolder%\%machineName%\%machineVersion%\%machineName%"
+set "fullPathZip=%deployFolder%\%machineName%\%machineVersion%"
+
+REM elimino eventuale cartella esistente
+rmdir /s /Q %fullPathZip%
+
+REM copio i sorgenti nel percorso di destinazione
+ROBOCOPY . %fullPathSource%\ /E /XF "Compile.bat" /XF ".gitignore" /XD ".git" /XF "UpdateLog.txt"
+REM copio i sorgenti nel percorso temporaneo per i compilati
+ROBOCOPY . %fullPathSource%\bin\%machineName%\ /E /XF "Compile.bat" /XF ".gitignore" /XD ".git" /XF "UpdateLog.txt"
+
+REM copio i file compilati nel percorso temporaneo per i compilati
+\EgtProg\Dll32\luac54 -o %fullPathSource%\bin\%machineName%\Essetre-TURN.mlpe     		 	           Essetre-TURN.mlpe    
+\EgtProg\Dll32\luac54 -o %fullPathSource%\bin\%machineName%\Essetre-TURN.mlse                        Essetre-TURN.mlse    
+\EgtProg\Dll32\luac54 -o %fullPathSource%\bin\%machineName%\Essetre-TURN.NUM.mlpe                    Essetre-TURN.NUM.mlpe
+
+REM comprimo i file compilati in uno zip pronto per essere distribuito
+tar.exe acvf %fullPathZip%\%machineName%.zip -C %fullPathSource%\bin\ %machineName%\*.*
+
+REM elimino il percorso temporaneo
+rmdir /s /Q %fullPathSource%\bin\

Essetre-TURN.mlde

@@ -20,11 +20,12 @@
 -- 2023/09/25 DS ver 2.5i1 Aggiunta gestione T25, T26, T27 e T28 per punte lunghe. Modifica calcolo offset testa 2 rispetto a testa 1.
 -- 2023/09/26 DS ver 2.5i2 Corretta emissione G114 per modifica precedente.
 -- 2024/02/19 LM ver 2.6b1 In BeamData aggiunta funzione GetBlockedAxis che sostituisce la GetChainSawBlockedAxis.
+-- 2024/02/27 LM ver 2.6b2 Tutte le chiamate a EgtGetSourceDir() sostituite con EgtGetCurrMachineDir(). Aggiunto compile.
 
 require( 'EmtGenerator')
 EgtEnableDebug( false)
 
-PP_VER = '2.6b1'
+PP_VER = '2.6b2'
 
 -- Parametri macchina
 NumericalControl = 'NUM'                                      -- solo NUM
@@ -94,7 +95,7 @@ BIG_TOOL_DIAM = 300
 CoeffVM = 0.5
 
 -- Aggiornamento con dati da BeamData.lua
-local sBeamData = EgtGetSourceDir().."\\Beam\\BeamData.lua"
+local sBeamData = EgtGetCurrMachineDir().."\\Beam\\BeamData.lua"
 if EgtExistsFile( sBeamData) then
    local BD = dofile( sBeamData)
    if BD then
@@ -104,7 +105,7 @@ end
 
 -- Aggiornamento con dati da TechnoEssetre7
 local sTs3Data = EgtGetStringFromIni( 'Beam', 'DATA_DIR', "C:\\TechnoEssetre7\\EgtData", EgtGetIniFile()).."\\Essetre-TURN.data"
-local sData = EgtGetSourceDir().."\\Beam\\Ts3Data.lua"
+local sData = EgtGetCurrMachineDir().."\\Beam\\Ts3Data.lua"
 if EgtExistsFile( sTs3Data) then
    EgtCopyFile( sTs3Data, sData)
    local sTs3DataOld = sTs3Data..'.old'

Essetre-TURN.mlpe

@@ -8,9 +8,9 @@ EgtEnableDebug( false)
 ---------------------------------------------------------------------
 -- *** GENERATION ***
 ---------------------------------------------------------------------
-local sBaseDir = EgtGetSourceDir()
+local sBaseDir = EgtGetCurrMachineDir()
 if NumericalControl == 'NUM' then
-   dofile( sBaseDir .. 'Essetre-TURN.NUM.mlpe')
+   dofile( sBaseDir .. '\\Essetre-TURN.NUM.mlpe')
 elseif NumericalControl == 'TPA' then
    error( 'Numerical Control error : TPA not yet managed')
 else

Essetre-TURN.mlse

@@ -7,8 +7,8 @@ require( 'EmtGenerator')
 EgtEnableDebug( false)
 
 -- Carico i dati globali
-local sBaseDir = EgtGetSourceDir()
-local BD = dofile( sBaseDir .. 'Beam\\BeamData.lua')
+local sBaseDir = EgtGetCurrMachineDir()
+local BD = dofile( sBaseDir .. '\\Beam\\BeamData.lua')
 
 EgtOutLog ( '** Essetre-TURN '..PP_VER..' **', 1)