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

windows/neo-vars/src/neo20-all.ahk

@@ -4,7 +4,6 @@ SetWorkingDir, %A_ScriptDir%
 
 ; Revision Information (don't moun)
 #include *i source\_subwcrev1.generated.ahk
-#include *i source\_subwcrev1.ahk
 
 ; die Compose-Definitionen
 #include *i source\compose.generated.ahk

windows/neo-vars/src/source/_subwcrev1.generated.ahk

@@ -1 +0,0 @@
-Revision:="1209"

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%