romfast/foxbin2prg
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Bug fix

Browse Source 
RedirectClassType = 2 mixed up PATH
RedirectClassType = 2, UseClassPerFile = 2 failed
This commit is contained in:
Lutz
2021-03-05 22:57:50 +01:00
parent aec92e8d0f
commit 99574addba
4 changed files with 13 additions and 6 deletions
Download Patch File Download Diff File Expand all files Collapse all files

7
foxbin2prg.prg
View File

@@ -246,7 +246,10 @@
* generates classlib.class.vcx and tries to recompile classlib.vcx
* fails silent if classlib.vcx exists (compiles wrong lib), with message if not.
* 04/03/2021 LScheffler v1.19.56 Enhancement: New value for RedirectClassType = 2, just process the single class of classlib.class.vc2
* 04/03/2021 LScheffler v1.19.57 Bug Fix: For RedirectClassType = 2, Path was set wrong
* 05/03/2021 LScheffler v1.19.57 Bug Fix: For RedirectClassType = 2, Path was set wrong
* xx/03/2021 LScheffler v1.19.5x Bug Fix: For RedirectClassType = 2, Path was set wrong
* xx/03/2021 LScheffler v1.19.5x Doc: Improved, Better description of ClassPerFileCheck.
* xx/03/2021 LScheffler v1.19.5x Bug Fix: RedirectClassType = 2, UseClassPerFile = 2 failed.
* </HISTORIAL DE CAMBIOS Y NOTAS IMPORTANTES>
@@ -3275,7 +3278,7 @@ Define Class c_foxbin2prg As Session
*remove class
tc_InputFile = Lower( JustPath( m.tc_InputFile ) + '\' + Juststem( Juststem( m.tc_InputFile ) ) + '.' + Justext( m.tc_InputFile ) )
*remove baseclass
If .n_UseClassPerFile = 0
If .n_UseClassPerFile = 2
*remove baseclass
tc_InputFile = Lower( JustPath( m.tc_InputFile ) + '\' + Juststem( Juststem( m.tc_InputFile ) ) + '.' + Justext( m.tc_InputFile ) )
Endif