Hi viktor can you add a --xmate who create a xmate project file?
This is a way for integrate make system with hbmk2
Integration of editor will be intresting fir win user
FUNCTION CREA_XMATE(filechoice,libadditive)
local a_xmate:={},A
LOCAL X_LOG,X_MATE
AADD(A_XMATE,"[Version]")
AADD(A_XMATE,"Type=xMate")
AADD(A_XMATE,"Number=1.15")
AADD(A_XMATE,"")
AADD(A_XMATE,"[Info]")
AADD(A_XMATE,"Type=Executable")
AADD(A_XMATE,"Architecture=harbour")
AADD(A_XMATE,"Include=")
AADD(A_XMATE,"Define=")
AADD(A_XMATE,"")
AADD(A_XMATE,"[xMate]")
AADD(A_XMATE,"Create Map/List File=No")
AADD(A_XMATE,"")
AADD(A_XMATE,"[Project]")
AADD(A_XMATE,"Run=")
AADD(A_XMATE,"Params=")
AADD(A_XMATE,"Final Path=%HOME%")
AADD(A_XMATE,"Maintain LNK=Yes")
AADD(A_XMATE,"Default Type=1")
AADD(A_XMATE,"Error log=")
AADD(A_XMATE,"")
AADD(A_XMATE,"[Data Path]")
AADD(A_XMATE,"Dbf=")
AADD(A_XMATE,"")
AADD(A_XMATE,"[Editor]")
FOR A=1 TO LEN(FILECHOICE)
AADD(A_XMATE,ALLTRIM(FILECHOICE[A])+"="+STR(A)+",N,N")
NEXT
AADD(A_XMATE,"")
AADD(A_XMATE,"")
AADD(A_XMATE,"[Files]")
FOR A=1 TO LEN(FILECHOICE) // add each nomefile
AADD(A_XMATE,ALLTRIM(FILECHOICE[A])+"="+STR(A)+",.F.,0,0,")
NEXT
for a=1 to len(libadditive)
AADD(A_XMATE,"%HB_LIB_INSTALL%\"+libadditive[a]+"="+str(a)+",.T.,0,0,")
next a
xprjmate=aLltrim(filechoice[1])
xprjmate=substr(XPRJMATE,1,len(xPRJmate)-4) +".xhp"
if .not. file(XPRJMATE)
X_LOG=FCREATE(XPRJMATE)
FOR a=1 to len(A_XMATE)
FWRITE(X_LOG,A_XMATE[a]+CHR(13)+CHR(10))
NEXT
FCLOSE(X_LOG)
ENDIF
RUN(XPRJMATE)
--
Massimo Belgrano
_______________________________________________
Harbour mailing list
[email protected]
http://lists.harbour-project.org/mailman/listinfo/harbour
