summaryrefslogtreecommitdiffstats
path: root/windows/neo-vars/src/source/initialize.ahk
diff options
context:
space:
mode:
authormösi <mösi@b9310e46-f624-0410-8ea1-cfbb3a30dc96>2008-11-18 15:40:37 +0000
committermösi <mösi@b9310e46-f624-0410-8ea1-cfbb3a30dc96>2008-11-18 15:40:37 +0000
commitd4487ddb52deb48475285045f6f7f7149221b0b5 (patch)
tree4497750319728fd5e2705a4fd18bad11dca985a4 /windows/neo-vars/src/source/initialize.ahk
parent90e060e90f5742b9cf2e61f71675cee42e6f0d2d (diff)
Build-Prozess wieder in Ordnung gebracht: die generierte _subwcrev1.generated.ahk, die dort nur eingecheckt war, damit auch im AHK-Skript eine Revision angezeigt wird und nicht nur im .EXE, wurde wieder entfernt. Nach Möglichkeit werden zwei SVN-Clients gesucht: TortoiseSVN und CollabNet-SVN-CLI, und mit deren Bordmitteln wird beim AHK-Skript dynamisch die aktuelle Revision und der Consistentcy State eruiert (der Output der beiden Tools ist unterschiedlich, aber das stört im Moment kaum). Was fehlt ist eine sinnvolle Lösung für den Anwender, der sich die einzelnen AHK-Sourcefiles ohne Subversion runterlädt oder einen anderen SVN-Client verwendet. In diesen Fällen wird derzeit „r<unknown>“ ausgegeben. Nicht hübsch, aber immerhin etwas.
git-svn-id: https://svn.neo-layout.org@1220 b9310e46-f624-0410-8ea1-cfbb3a30dc96
Diffstat (limited to '')
-rw-r--r--windows/neo-vars/src/source/initialize.ahk30
1 files changed, 30 insertions, 0 deletions
diff --git a/windows/neo-vars/src/source/initialize.ahk b/windows/neo-vars/src/source/initialize.ahk
index 976afcf..48cecd5 100644
--- a/windows/neo-vars/src/source/initialize.ahk
+++ b/windows/neo-vars/src/source/initialize.ahk
@@ -1,3 +1,33 @@
+if (A_IsCompiled) {
+; Revisionsinformation bereits verfügbar
+} else {
+; Revisionsinformation nicht verfügbar oder nicht zuverlässig, neu generieren
+ if (FileExist(".svn")<>False) {
+ ; .svn existiert, scheint also ausgecheckt worden zu sein
+ RegRead,TSVNPath,HKLM,SOFTWARE\TortoiseSVN,Directory
+ RegRead,SVNPath,HKLM,SOFTWARE\CollabNet\Subversion\1.5.4\Client,Install Location
+ if (TSVNPath<>"") {
+ ; fein, TSVN ist installiert!
+ RunWait, "%TSVNPath%bin\SubWCRev.exe" "." "Source\_subwcrev1.tmpl.ahk" "Source\_subwcrev1.generated.ahk",,Hide
+ FileRead,TSVNRevFull,Source\_subwcrev1.generated.ahk
+ RegExMatch(TSVNRevFull,"""(.*)""",SubPat)
+ Revision := SubPat1
+ } else if (SVNPath<>"") {
+ ; fein, CollabNet-SVN-Client ist installiert!
+ RunWait, %comspec% /c ""%SVNPath%\svnversion.exe" "." >"Source\_svnversion.generated.txt"",,Hide
+ FileRead,SVNRevFull,Source\_svnversion.generated.txt
+ RegExMatch(SVNRevFull,"(.*)$",SubPat)
+ Revision := SubPat1
+ } else {
+ ; nichts installiert. Was jetzt?
+ Revision := "<unknown>"
+ }
+ } else {
+ ; kein .svn-Verzeichnis. Was jetzt?
+ Revision := "<unknown>"
+ }
+}
+
name=Neo 2.0 r%Revision%-r%CompRevision% (%A_ScriptName%)
enable=Aktiviere %name%
disable=Deaktiviere %name%