Return-Path: Delivered-To: apmail-apr-cvs-archive@apr.apache.org Received: (qmail 994 invoked by uid 500); 20 Jan 2003 18:36:10 -0000 Mailing-List: contact cvs-help@apr.apache.org; run by ezmlm Precedence: bulk List-Post: List-Help: List-Unsubscribe: List-Subscribe: Reply-To: dev@apr.apache.org Delivered-To: mailing list cvs@apr.apache.org Received: (qmail 982 invoked from network); 20 Jan 2003 18:36:09 -0000 Date: 20 Jan 2003 18:36:09 -0000 Message-ID: <20030120183609.26109.qmail@icarus.apache.org> From: wrowe@apache.org To: apr-cvs@apache.org Subject: cvs commit: apr/build win32ver.awk X-Spam-Rating: daedalus.apache.org 1.6.2 0/1000/N wrowe 2003/01/20 10:36:09 Modified: build win32ver.awk Log: Allow the 'filename' to include extensions, observed by Mladen Turk. Revision Changes Path 1.5 +6 -1 apr/build/win32ver.awk Index: win32ver.awk =================================================================== RCS file: /home/cvs/apr/build/win32ver.awk,v retrieving revision 1.4 retrieving revision 1.5 diff -u -r1.4 -r1.5 --- win32ver.awk 1 Jan 2003 00:01:41 -0000 1.4 +++ win32ver.awk 20 Jan 2003 18:36:09 -0000 1.5 @@ -12,6 +12,11 @@ desc=ARGV[2]; rel_h=ARGV[3]; + filename = file; + if (match(file, /\./)) { + sub(/\.[^\.]*$/, "", file); + } + i = 4; while (length(ARGV[i])) { if (match(ARGV[i], /icon=/)) { @@ -93,7 +98,7 @@ print " VALUE \"InternalName\", \"" file "\\0\""; print " VALUE \"LegalCopyright\", \"Copyright � 2000-2003 "\ "The Apache Software Foundation.\\0\""; - print " VALUE \"OriginalFilename\", \"" file ".exe\\0\""; + print " VALUE \"OriginalFilename\", \"" filename "\\0\""; if (vendor) { print " VALUE \"PrivateBuild\", \"" vendor "\\0\""; }