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

Added the DevInfo conversion for file registers of the PJX

Browse Source
This commit is contained in:
fdbozzo
2017-04-14 01:07:17 +02:00
parent 05c6aa80f5 fb9bb50721
commit 5b5a7432b8
1 changed files with 11 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files

14
foxbin2prg.prg
View File

@@ -8581,7 +8581,8 @@ DEFINE CLASS c_conversor_prg_a_bin AS c_conversor_base
, RESERVED6 ; , RESERVED6 ;
, RESERVED7 ; , RESERVED7 ;
, RESERVED8 ; , RESERVED8 ;
, USER) ; , USER ;
, DEVINFO ) ;
VALUES ; VALUES ;
( 'WINDOWS' ; ( 'WINDOWS' ;
, toObjeto._UniqueID ; , toObjeto._UniqueID ;
@@ -8604,7 +8605,8 @@ DEFINE CLASS c_conversor_prg_a_bin AS c_conversor_base
, '' ; , '' ;
, '' ; , '' ;
, '' ; , '' ;
, STRCONV(toObjeto._User,14) ) , STRCONV(toObjeto._User,14) ;
, STRCONV(toObjeto._DevInfo,14) )
ENDIF ENDIF
ENDWITH && THIS ENDWITH && THIS
@@ -11102,6 +11104,7 @@ DEFINE CLASS c_conversor_prg_a_pjx AS c_conversor_prg_a_bin
, TIMESTAMP ; , TIMESTAMP ;
, OBJREV ; , OBJREV ;
, USER ; , USER ;
, DEVINFO ;
, KEY ) ; , KEY ) ;
VALUES ; VALUES ;
( loFile._Name + CHR(0) ; ( loFile._Name + CHR(0) ;
@@ -11115,6 +11118,7 @@ DEFINE CLASS c_conversor_prg_a_pjx AS c_conversor_prg_a_bin
, loFile._TimeStamp ; , loFile._TimeStamp ;
, loFile._ObjRev ; , loFile._ObjRev ;
, STRCONV(loFile._User,14) ; , STRCONV(loFile._User,14) ;
, STRCONV(loFile._DevInfo,14) ;
, UPPER(JUSTSTEM(loFile._Name)) ) , UPPER(JUSTSTEM(loFile._Name)) )
ENDFOR ENDFOR
@@ -11288,6 +11292,7 @@ DEFINE CLASS c_conversor_prg_a_pjx AS c_conversor_prg_a_bin
loFile._ID = .get_ValueByName_FromListNamesWithValues( 'ID', 'I', @laPropsAndValues ) loFile._ID = .get_ValueByName_FromListNamesWithValues( 'ID', 'I', @laPropsAndValues )
loFile._ObjRev = .get_ValueByName_FromListNamesWithValues( 'ObjRev', 'I', @laPropsAndValues ) loFile._ObjRev = .get_ValueByName_FromListNamesWithValues( 'ObjRev', 'I', @laPropsAndValues )
loFile._User = .get_ValueByName_FromListNamesWithValues( 'User', 'C', @laPropsAndValues ) loFile._User = .get_ValueByName_FromListNamesWithValues( 'User', 'C', @laPropsAndValues )
loFile._DevInfo = .get_ValueByName_FromListNamesWithValues( 'DevInfo', 'C', @laPropsAndValues )
toProject.ADD( loFile, loFile._Name ) toProject.ADD( loFile, loFile._Name )
@@ -16067,6 +16072,7 @@ DEFINE CLASS c_conversor_pjx_a_prg AS c_conversor_bin_a_prg
ID="<<INT( loReg.ID )>>" ID="<<INT( loReg.ID )>>"
ObjRev="<<INT( loReg.OBJREV )>>" ObjRev="<<INT( loReg.OBJREV )>>"
User="<<STRCONV(loReg.USER,13)>>" User="<<STRCONV(loReg.USER,13)>>"
DevInfo="<<STRCONV(loReg.DEVINFO,13)>>"
<<C_FILE_META_F>> <<C_FILE_META_F>>
ENDTEXT ENDTEXT
@@ -16326,7 +16332,7 @@ DEFINE CLASS c_conversor_pjx_a_prg AS c_conversor_bin_a_prg
*-- Escaneo el proyecto *-- Escaneo el proyecto
SCAN ALL FOR NOT INLIST(TYPE, 'H','W','i' ) SCAN ALL FOR NOT INLIST(TYPE, 'H','W','i' )
loReg = NULL loReg = NULL
SCATTER FIELDS NAME,TYPE,EXCLUDE,COMMENTS,CPID,TIMESTAMP,ID,OBJREV,USER MEMO NAME loReg SCATTER FIELDS NAME,TYPE,EXCLUDE,COMMENTS,CPID,TIMESTAMP,ID,OBJREV,USER,DEVINFO MEMO NAME loReg
IF toFoxBin2Prg.l_NoTimestamps IF toFoxBin2Prg.l_NoTimestamps
loReg.TIMESTAMP = 0 loReg.TIMESTAMP = 0
@@ -24867,6 +24873,7 @@ DEFINE CLASS CL_PROJ_FILE AS CL_CUS_BASE
+ [<memberdata name="_timestamp" display="_Timestamp"/>] ; + [<memberdata name="_timestamp" display="_Timestamp"/>] ;
+ [<memberdata name="_type" display="_Type"/>] ; + [<memberdata name="_type" display="_Type"/>] ;
+ [<memberdata name="_user" display="_User"/>] ; + [<memberdata name="_user" display="_User"/>] ;
+ [<memberdata name="_devinfo" display="_DevInfo"/>] ;
+ [</VFPData>] + [</VFPData>]
_Name = '' _Name = ''
@@ -24878,6 +24885,7 @@ DEFINE CLASS CL_PROJ_FILE AS CL_CUS_BASE
_ObjRev = 0 _ObjRev = 0
_TimeStamp = 0 _TimeStamp = 0
_User = '' _User = ''
_DevInfo = ''
ENDDEFINE ENDDEFINE