Changeset 1220

Show
Ignore:
Timestamp:
11/18/08 16:40:37 (5 years ago)
Author:
mösi
Message:

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.

Location:
windows/neo-vars/src
Files:
1 removed
3 modified

Legend:

Unmodified
Added
Removed

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

    r1198 r1220  
    55; Revision Information (don't moun) 
    66#include *i source\_subwcrev1.generated.ahk 
    7 #include *i source\_subwcrev1.ahk 
    87 
    98; die Compose-Definitionen 

  • windows/neo-vars/src/source

    • Property svn:ignore

      •  

        old new  
        11_subwcrev1.bat 
        2 _subwcrev1.ahk 
         2_subwcrev1.generated.ahk 
         3_svnversion.generated.txt 
        34_subwcrev2.bat 
        45Compose-tainted.generated.ahk 

  • windows/neo-vars/src/source/initialize.ahk

    r1186 r1220  
     1if (A_IsCompiled) { 
     2; Revisionsinformation bereits verf�gbar 
     3} else { 
     4; Revisionsinformation nicht verf�gbar oder nicht zuverl�ssig, neu generieren 
     5  if (FileExist(".svn")<>False) { 
     6    ; .svn existiert, scheint also ausgecheckt worden zu sein 
     7    RegRead,TSVNPath,HKLM,SOFTWARE\TortoiseSVN,Directory 
     8    RegRead,SVNPath,HKLM,SOFTWARE\CollabNet\Subversion\1.5.4\Client,Install Location 
     9    if (TSVNPath<>"") { 
     10      ; fein, TSVN ist installiert! 
     11      RunWait, "%TSVNPath%bin\SubWCRev.exe" "." "Source\_subwcrev1.tmpl.ahk" "Source\_subwcrev1.generated.ahk",,Hide 
     12      FileRead,TSVNRevFull,Source\_subwcrev1.generated.ahk 
     13      RegExMatch(TSVNRevFull,"""(.*)""",SubPat) 
     14      Revision := SubPat1 
     15    } else if (SVNPath<>"") { 
     16      ; fein, CollabNet-SVN-Client ist installiert! 
     17      RunWait, %comspec% /c ""%SVNPath%\svnversion.exe" "." >"Source\_svnversion.generated.txt"",,Hide 
     18      FileRead,SVNRevFull,Source\_svnversion.generated.txt 
     19      RegExMatch(SVNRevFull,"(.*)$",SubPat) 
     20      Revision := SubPat1 
     21    } else { 
     22      ; nichts installiert. Was jetzt? 
     23      Revision := "<unknown>" 
     24    } 
     25  } else { 
     26    ; kein .svn-Verzeichnis. Was jetzt? 
     27    Revision := "<unknown>" 
     28  } 
     29} 
     30 
    131name=Neo 2.0 r%Revision%-r%CompRevision% (%A_ScriptName%) 
    232enable=Aktiviere %name%