学步园

在WINCE做MULTIBIN＋XIP方式的启动映像文件时，往往需要分两步走：第一步、生成映像文件；第二步、修改ce.bib然后再romimage一次，以前的做法是手动修改极不方便，后来在网上找到了一些办法并整合到一起就能够做到一步到位。

1、做一个批处理放在BSP的Files/premake目录下供PB调用，文件内容如下：echo.<br /> echo %_TGTPLAT%-preri processing...<br /> echo.<br /> if "%IMGMULTIXIP%"=="1" cd %_TARGETPLATROOT%/Files/premake<br /> if "%IMGMULTIXIP%"=="1" copy %_FLATRELEASEDIR%/ce.bib %_TARGETPLATROOT%/Files/premake<br /> if "%IMGMULTIXIP%"=="1" copy ce.bib ce_orig.bib<br /> if "%IMGMULTIXIP%"=="1" oembibhelper multibin.txt ce_orig.bib ce.bib<br /> if "%IMGMULTIXIP%"=="1" copy ce.bib %_FLATRELEASEDIR%<br /> if "%IMGMULTIXIP%"=="1" cd %_FLATRELEASEDIR%<br /> if "%IMGMULTIXIP%"=="1" romimage ce.bib
2、oembibhelper.vbs脚本的内容如下：
'<br /> ' Copyright (c) Microsoft Corporation. All rights reserved.<br /> '<br /> '<br /> ' Use of this sample source code is subject to the terms of the Microsoft<br /> ' license agreement under which you licensed this sample source code. If<br /> ' you did not accept the terms of the license agreement, you are not<br /> ' authorized to use this sample source code. For the terms of the license,<br /> ' please see the license agreement between you and Microsoft or, if applicable,<br /> ' see the LICENSE.RTF on your install media or the root of your tools installation.<br /> ' THE SAMPLE SOURCE CODE IS PROVIDED "AS IS", WITH NO WARRANTIES.<br /> '</p> <p>' Modified this bibhelper.vbs to modify the bib to implement the Multi-Bin<br /> ' For example: "nk.exe @XIPKERN" of config file will make nk.exe packed into XIPKERN.bin<br /> '<br /> Public Function SplitEx(InputText,Delimiter)</p> <p>' This function splits the sentence in InputText into<br /> ' words and returns a string array of the words. Each<br /> ' element of the array contains one word.</p> <p> ' This constant contains punctuation and characters<br /> ' that should be filtered from the input string.<br /> Dim strReplacedText<br /> Dim intIndex</p> <p> ' Replace tab characters with space characters.<br /> ' Replace tab characters with space characters.<br /> strReplacedText = Trim(Replace(InputText, vbTab, " "))</p> <p> ' Loop until all consecutive space characters are<br /> ' replaced by a single space character.<br /> Do While InStr(strReplacedText, " ")<br /> strReplacedText = Replace(strReplacedText, " ", " ")<br /> Loop</p> <p> ' Split the sentence into an array of words and return<br /> ' the array. If a delimiter is specified, use it.<br /> 'MsgBox "String:" & strReplacedText<br /> If Len(Delimiter) = 0 Then<br /> SplitEx = Split(strReplacedText)<br /> Else<br /> SplitEx = Split(strReplacedText, Delimiter)<br /> End If<br /> End Function</p> <p>Private Function LoadConfigFile(Filename)<br /> Const ForReading = 1, ForWriting = 2, ForAppending = 8<br /> Dim LCArray()<br /> LoopVal = 0<br /> Set fs = CreateObject("Scripting.FileSystemObject")<br /> Set a = fs.OpenTextFile(Filename,ForReading,False)<br /> Do While Not a.AtEndOfStream<br /> FileLine = a.ReadLine()<br /> if Left(FileLine,1) = ";" Then<br /> 'Wscript.Echo "Skip ; for comments"'<br /> Else<br /> SubStrings = SplitEx(FileLine," ")<br /> If UBound(SubStrings) = 1 Then<br /> ReDim Preserve LCArray(LoopVal)<br /> LCArray(LoopVal) = SubStrings<br /> LoopVal = LoopVal + 1<br /> Else<br /> 'Wscript.Echo "Skip blank lines"'<br /> End If<br /> End If<br /> Loop<br /> a.Close<br /> LoadConfigFile = LCArray<br /> End Function</p> <p>Private Function CalcRegionString(InString, ConfigArrayElement)<br /> CalcRegionString = InString<br /> For LoopVal = 1 To UBound(ConfigArrayElement)<br /> If Left(ConfigArrayElement(LoopVal), 1) = "@" Then<br /> CalcRegionString = Right(ConfigArrayElement(LoopVal), Len(ConfigArrayElement(LoopVal))-1)<br /> End If<br /> Next<br /> End Function</p> <p>Private Function FindReplaceStrings(SubStrings, ConfigArray, StringToReplace, ReplaceString)<br /> FindReplaceStrings = False<br /> LoopVal = 0<br /> For LoopVal = 0 To UBound(ConfigArray)<br /> If SubStrings(0) = ConfigArray(LoopVal)(0) Then</p> <p> If UBound(SubStrings) = 2 Then<br /> TypeString = CalcRegionString("", ConfigArray(LoopVal))<br /> StringToReplace = SubStrings(1)<br /> ReplaceString = SubStrings(2) + " " + TypeString<br /> FindReplaceStrings = True<br /> End If</p> <p> If UBound(SubStrings) = 3 Then<br /> TypeString = CalcRegionString(SubStrings(3), ConfigArray(LoopVal))<br /> StringToReplace = SubStrings(2)<br /> ReplaceString = TypeString<br /> FindReplaceStrings = True<br /> End If</p> <p>End If<br /> Next<br /> End Function</p> <p>' Main Function<br /> '<br /> '<br /> ' Read Program Arguments<br /> Set Args = Wscript.Arguments</p> <p>if Args.count <> 3 then<br /> Wscript.Echo "Error: Invalid Number of arguments"<br /> Wscript.Echo ""<br /> Wscript.Echo "Usage: cscript bibhelper.vbs configfile inbibfile outbibfile"<br /> Wscript.Quit<br /> End if</p> <p>' Read the Configuration File to determine what modules need to be changed and how<br /> ConfigArray = LoadConfigFile(Args(0))</p> <p>'Open in and out bib files</p> <p>Const ForReading = 1, ForWriting = 2, ForAppending = 8</p> <p>Set fs = CreateObject("Scripting.FileSystemObject")<br /> Set inbibfile = fs.OpenTextFile(Args(1),ForReading,False)<br /> Set outbibfile = fs.OpenTextFile(Args(2),ForWriting,True)</p> <p>' Loop through lines in bib file<br /> Do While Not inbibfile.AtEndOfStream<br /> ' Read in current bib file line<br /> FileLine = inbibfile.ReadLine()<br /> SubStrings = SplitEx(FileLine," ")<br /> ' Determine if current in bib file line needs to be changed<br /> ChangeLine = False<br /> If UBound(SubStrings) > -1 Then ChangeLine = FindReplaceStrings(SubStrings, ConfigArray, StringToReplace, ReplaceString)<br /> ' Change in file line if necessary<br /> If ChangeLine Then<br /> ReplaceStartPos = InStr(1, FileLine, SubStrings(1), vbTextCompare) + Len(SubStrings(1))<br /> FileLine = Left(FileLine, ReplaceStartPos-1) + Replace(FileLine, StringToReplace, ReplaceString, ReplaceStartPos)<br /> End If<br /> ' Write in file line to out bib file<br /> outbibfile.WriteLine (FileLine)<br /> Loop</p> <p>' Close bib files<br /> inbibfile.Close<br /> outbibfile.Close
3、multibin.txt是需要加入XIP的文件，可根据需要修改，内容如下仅供参考
; This file is input for oembibhelper.vbs.<br /> ; It only support the pairs like "nk.exe @XIPKERN"<br /> ; Besides that, it supports blank lines and comments start with ";" as first char of the line.</p> <p> nk.exe @XIPKERNEL<br /> osaxst0.dll @XIPKERNEL<br /> hd.dll @XIPKERNEL<br /> coredll.dll @XIPKERNEL<br /> filesys.exe @XIPKERNEL<br /> fatfsd.dll @XIPKERNEL<br /> diskcache.dll @XIPKERNEL<br /> fatutil.dll @XIPKERNEL<br /> binfs.dll @XIPKERNEL<br /> fsdmgr.dll @XIPKERNEL<br /> mspart.dll @XIPKERNEL<br /> ;smflash.dll @XIPKERNEL<br /> bibdrv.dll @XIPKERNEL<br /> camera.dll @XIPKERNEL<br /> ;ondisk.dll @XIPKERNEL<br /> boot.hv @XIPKERNEL<br /> ;default.hv @XIPKERNEL<br /> ;user.hv @XIPKERNEL
4、在PB的“Platform”-"Settings"-"Custom Build Actions"-"Post-Make Image"加入如下规则
%_TARGETPLATROOT%/Files/premake/S80-preri.bat