Patch Racket manifest file too.

This commit is contained in:
Eli Barzilay 2010-11-30 05:14:20 -05:00
parent f11e53c68c
commit 8903d1b5c9
2 changed files with 9 additions and 7 deletions

View File

@ -3,8 +3,8 @@
exec racket -um "$0" "$@"
|#
#lang scheme/base
(require version/utils scheme/file)
#lang racket/base
(require version/utils racket/file)
(define (patches)
;; no grouping parens in regexps
@ -21,7 +21,9 @@ exec racket -um "$0" "$@"
(concat "\r\n *VALUE \"FileVersion\", *\""commas
"(?:\\\\0)?\"")
(concat "\r\n *VALUE \"ProductVersion\", *\""commas
"(?:\\\\0)?\""))])
"(?:\\\\0)?\""))]
[manifest-patch (list (concat "assemblyIdentity *\r\n *version *"
"= *\""periods"\" *\r\n"))])
`([#t ; only verify that it has the right contents
"src/racket/src/schvers.h"
,(concat "\n#define MZSCHEME_VERSION \"<1>.<2>"
@ -35,9 +37,9 @@ exec racket -um "$0" "$@"
"0" (format "<~a>" (cadr x+n)))))]
["src/worksp/racket/racket.rc" ,@rc-patch]
["src/worksp/gracket/gracket.rc" ,@rc-patch]
["src/worksp/starters/start.rc" ,@rc-patch]
["src/worksp/gracket/gracket.manifest"
,(concat "assemblyIdentity *\r\n *version *= *\""periods"\" *\r\n")]
["src/worksp/starters/start.rc" ,@rc-patch]
["src/worksp/racket/racket.manifest" ,@manifest-patch]
["src/worksp/gracket/gracket.manifest" ,@manifest-patch]
["src/worksp/mzcom/mzobj.rgs"
,(concat "MzCOM.MzObj."periods" = s 'MzObj Class'")
,(concat "CurVer = s 'MzCOM.MzObj."periods"'")

View File

@ -1,7 +1,7 @@
<?xml version="1.0" encoding="UTF-8" standalone="no"?>
<assembly xmlns="urn:schemas-microsoft-com:asm.v1" manifestVersion="1.0">
<assemblyIdentity
version="5.0.1.6"
version="5.0.99.3"
processorArchitecture="X86"
name="Org.PLT-Scheme.Racket"
type="win32"