Call foxbin2prg.exe to create text / binary files in Visual FoxPro, and use it with Git/SVN

dob2p.prg

LPARAMETERS lp_cPJM
LOCAL l_cPJX, l_cRun, l_cParam
? "Run foxbin2prg.exe..."
IF EMPTY(lp_cPJM)
     IF NOT (TYPE("_vfp.ActiveProject")="O" AND NOT ISNULL(_vfp.ActiveProject))
          ? "Error. Project file must be open!"
          RETURN .F.
     ENDIF
     l_cPJX = _vfp.ActiveProject.Name
     _vfp.ActiveProject.Close()
     l_cParam = l_cPJX
ELSE
     l_cParam = lp_cPJM
     l_cPJX = FORCEEXT(lp_cPJM, "pjx")
ENDIF


l_cRun = [RUN foxbin2prg.exe "] + l_cParam + [" "*"]

&l_cRun

IF NOT EMPTY(l_cPJX) AND FILE(l_cPJX)
     MODIFY PROJECT (l_cPJX) NOWAIT
ELSE
     ? "Error. No PJX file found!"
ENDIF

? "Done."