Versie controle
Door jasperdg opJan 16, 2007 | InComputers
In een multi-user omgeving levert het compileren van een nieuwe versie altijd problemen op omdat het programma in gebruik zal zijn. Na jaren van frustratie dan maar een oplossing bedenken: de starter.
Het programma checkt welke versie het programma-origineel heeft, kijkt of er een benoemde kopie van is en maakt deze eventueel aan en roept dan de kopie aan in plaats van het origineel. Zodoende merken gebruikers niets van de aanpassing, hoeft niet iedereen het programma te stoppen en krijgt men bij de volgende aanroep automatisch de nieuwste versie.
lcProgramma = [q:\synplan.exe]
AGETFILEVERSION(laVersie, lcProgramma)
lcVersie = laVersie(11)
lcDoel = ADDBS(JUSTPATH(lcProgramma))+;
JUSTSTEM(lcProgramma)+;
lcVersie+[.]+;
JUSTEXT(lcProgramma)
IF !FILE(lcDoel)
COPY FILE (lcProgramma) TO (lcDoel)
ENDIF
DO (lcDoel) && [ WITH parameters] | « 2 dagen zonder internet | Online GIF Toolbox » |
