| blob | 8fc82d96d53af9935521a8526dcd783af49587cd |
1 '/*************************************************************************\r
2 ' *\r
3 ' * DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER.\r
4 ' * \r
5 ' * Copyright 2008 by Sun Microsystems, Inc.\r
6 ' *\r
7 ' * OpenOffice.org - a multi-platform office productivity suite\r
8 ' *\r
9 ' * $RCSfile: CreateDriverDocs.wsf,v $\r
10 ' * $Revision: 1.2.140.3 $\r
11 ' *\r
12 ' * This file is part of OpenOffice.org.\r
13 ' *\r
14 ' * OpenOffice.org is free software: you can redistribute it and/or modify\r
15 ' * it under the terms of the GNU Lesser General Public License version 3\r
16 ' * only, as published by the Free Software Foundation.\r
17 ' *\r
18 ' * OpenOffice.org is distributed in the hope that it will be useful,\r
19 ' * but WITHOUT ANY WARRANTY; without even the implied warranty of\r
20 ' * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the\r
21 ' * GNU Lesser General Public License version 3 for more details\r
22 ' * (a copy is included in the LICENSE file that accompanied this code).\r
23 ' *\r
24 ' * You should have received a copy of the GNU Lesser General Public License\r
25 ' * version 3 along with OpenOffice.org. If not, see\r
26 ' * http://www.openoffice.org/license.html\r
27 ' * for a copy of the LGPLv3 License.\r
28 ' *\r
29 ' ************************************************************************/\r
30 '### Build Support Module for running commands to export and import\r
31 '### modules from Word, Excel and PowerPoint Document Analysis driver documents\r
32 \r
33 \r
34 <job id="DocAnalysisBuildCmd" error="true" debug="true">\r
35 <script language="VBScript" src="DocAnalysisRunMacro.vbs"/>\r
36 <script language="VBScript">\r
37 \r
38 Const CTITLE = "Document Analysis Command"\r
39 \r
40 Const CWORD_DRIVER = "_OOoDocAnalysisWordDriver.doc"\r
41 Const CEXCEL_DRIVER = "_OOoDocAnalysisExcelDriver.xls"\r
42 Const CPP_DRIVER = "_OOoDocAnalysisPPTDriver.ppt"\r
43 Const CStub = "Stripped"\r
44 \r
45 Const CUTIL_APPNAME_WORD = "Word"\r
46 Const CUTIL_APPNAME_EXCEL = "Excel"\r
47 Const CUTIL_APPNAME_POWERPOINT = "Powerpoint"\r
48 \r
49 Const CDIAG_STD_DELAY = 2\r
50 \r
51 Const CDEFAULT_SOURCE_DIR = ".\sources\"\r
52 Const CDEFAULT_TARGET_DIR = "."\r
53 \r
54 Const CSOURCE_DIR_ARG = "X"\r
55 Const CTARGET_DIR_ARG = "T"\r
56 Const CUSAGE_ARG = "?"\r
57 \r
58 Const CSTR_PAW = "\PAW\"\r
59 \r
60 '######### Doc Analysis Build - Main Script Body ############# \r
61 Dim mArgsNamed, mArgsUnnamed\r
62 Dim mSourceDir\r
63 Dim mTargetDir\r
64 \r
65 On Error Resume Next\r
66 \r
67 '### Process Arguments ###\r
68 Set mArgsNamed = WScript.Arguments.Named\r
69 Set mArgsUnnamed = WScript.Arguments.Unnamed\r
70 \r
71 If mArgsNamed.Exists(CUSAGE_ARG) Then\r
72 Usage\r
73 FinalExit\r
74 End If\r
75 \r
76 '# Source Dir\r
77 if mArgsNamed.Exists(CSOURCE_DIR_ARG) Then\r
78 mSourceDir = mArgsNamed.Item(CSOURCE_DIR_ARG)\r
79 Else\r
80 mSourceDir = CDEFAULT_SOURCE_DIR\r
81 End If\r
82 \r
83 '# Target Dir\r
84 if mArgsNamed.Exists(CTARGET_DIR_ARG ) Then\r
85 mTargetDir = mArgsNamed.Item(CTARGET_DIR_ARG )\r
86 Else\r
87 mTargetDir = CDEFAULT_TARGET_DIR\r
88 End If\r
89 \r
90 mSourceDir = daFso.GetAbsolutePathName(mSourceDir )\r
91 mTargetDir = daFso.GetAbsolutePathName(mTargetDir ) \r
92 \r
93 '# Check source and target dirs exist\r
94 If Not daFso.FolderExists(mSourceDir) Then\r
95 DAErrMsg "Source directory does not exist: " & mSourceDir, CDA_ERR_STD_DELAY \r
96 FinalExit\r
97 End If\r
98 If Not daFso.FolderExists(mTargetDir) Then\r
99 DAErrMsg "Target directory does not exist: " & mTargetDir, CDA_ERR_STD_DELAY \r
100 FinalExit\r
101 End If\r
102 \r
103 Set mArgsNamed = Nothing\r
104 Set mArgsUnnamed = Nothing\r
105 \r
106 '#### then continue with PAW\r
107 ImportAll mTargetDir & CSTR_PAW\r
108 \r
109 '# Cleanup\r
110 FinalExit\r
111 \r
112 \r
113 '######### End - Main Script Body ############# \r
114 \r
115 \r
116 '#### Doc Analysis Build - Support Functions ####\r
117 \r
118 Sub Usage()\r
119 DAdiagMsg "Build command line tool to create Document Analysis driver documents" & vbLf & vbLf &_\r
120 "DocAnalysisBuildCmd [/X:<sourceDir>] [/T:<targetDir>]" & vbLf & vbLf &_\r
121 "/X:<sourceDir> base <source> directory " & vbLf & _\r
122 " The <sourceDir> is the base dir under which all the " & vbLf & _\r
123 " _res.bas files are located to import from" & vbLf & vbLf & _\r
124 "/T:<targetDir> target directory " & vbLf & _\r
125 " <targetDir> is where the new Driver docs" & vbLf & _\r
126 " will be created", 30\r
127 End Sub\r
128 \r
129 '######################\r
130 Sub FinalExit()\r
131 DACleanUp\r
132 wscript.quit\r
133 End Sub\r
134 \r
135 '######################\r
136 Sub ImportAll( aTargetDir )\r
137 \r
138 '#### Create automation servers ####\r
139 DAsetupWrdServer\r
140 DAsetupExcelServer\r
141 DAsetupPPServer\r
142 \r
143 If Not daFso.FolderExists( aTargetDir ) Then\r
144 daFso.CreateFolder( aTargetDir )\r
145 End If\r
146 \r
147 BackupDrivers aTargetDir\r
148 \r
149 DAOpenWrdDriver mSourceDir & "\" & CSTUB & CWORD_DRIVER \r
150 DAOpenExcelDriver mSourceDir & "\" & CSTUB & CEXCEL_DRIVER\r
151 DAOpenPPDriver mSourceDir & "\" & CSTUB & CPP_DRIVER\r
152 \r
153 DASetTitle CTITLE & " - Import"\r
154 \r
155 ImportSelectedProjectFiles mSourceDir, CUTIL_APPNAME_WORD\r
156 ImportSelectedProjectFiles mSourceDir, CUTIL_APPNAME_EXCEL\r
157 ImportSelectedProjectFiles mSourceDir, CUTIL_APPNAME_POWERPOINT\r
158 \r
159 DAsaveWrdDriver aTargetDir & "\" & CWORD_DRIVER\r
160 DAsaveExcelDriver aTargetDir & "\" & CEXCEL_DRIVER\r
161 DAsavePPDriver aTargetDir & "\" & CPP_DRIVER\r
162 \r
163 DACloseApps\r
164 End Sub\r
165 \r
166 '######################\r
167 Sub BackupDrivers(importdir)\r
168 On Error Resume Next\r
169 \r
170 Dim wrdPath\r
171 Dim xlsPath\r
172 Dim ppPath\r
173 \r
174 wrdPath = daFso.GetAbsolutePathName(importdir & "\" & CWORD_DRIVER)\r
175 xlsPath= daFso.GetAbsolutePathName(importdir & "\" & CEXCEL_DRIVER) \r
176 ppPath= daFso.GetAbsolutePathName(importdir & "\" & CPP_DRIVER) \r
177 \r
178 If daFso.FileExists( wrdPath ) Then daFso.CopyFile wrdPath, wrdPath & ".bak"\r
179 If daFso.FileExists( xlsPath ) Then daFso.CopyFile xlsPath, xlsPath & ".bak"\r
180 If daFso.FileExists( ppPath ) Then daFso.CopyFile ppPath, ppPath & ".bak"\r
181 End Sub\r
182 \r
183 '######################\r
184 Sub ImportSelectedProjectFiles(dir, app_name)\r
185 On Error Resume Next\r
186 \r
187 Dim base\r
188 Dim lcApp_name\r
189 lcApp_name = LCase(app_name)\r
190 \r
191 'Driver Specific\r
192 base = dir & "\" & lcApp_name & "\"\r
193 \r
194 DAImportFile base & "ApplicationSpecific.bas", "ApplicationSpecific", app_name\r
195 DAImportFile base & "MigrationAnalyser.cls", "MigrationAnalyser", app_name\r
196 \r
197 DAImportFile base & "Preparation.bas", "Preparation", app_name\r
198 \r
199 'app resource\r
200 DAImportFile base & lcApp_name & "_res.bas", lcApp_name & "_res", app_name\r
201 \r
202 'Common\r
203 base = dir & "\"\r
204 DAImportFile base & "AnalysisDriver.bas", "AnalysisDriver", app_name\r
205 DAImportFile base & "CommonMigrationAnalyser.bas", "CommonMigrationAnalyser", app_name\r
206 DAImportFile base & "CollectedFiles.cls", "CollectedFiles", app_name\r
207 DAImportFile base & "DocumentAnalysis.cls", "DocumentAnalysis", app_name\r
208 DAImportFile base & "FileTypeAssociation.cls", "FileTypeAssociation", app_name\r
209 DAImportFile base & "IssueInfo.cls", "IssueInfo", app_name\r
210 DAImportFile base & "PrepareInfo.cls", "PrepareInfo", app_name\r
211 DAImportFile base & "StringDataManager.cls", "StringDataManager", app_name\r
212 DAImportFile base & "LocalizeResults.bas", "LocalizeResults", app_name\r
213 \r
214 DAImportFile base & "CommonPreparation.bas", "CommonPreparation", app_name\r
215 \r
216 'common resource\r
217 DAImportFile base & "common_res.bas", "common_res", app_name\r
218 DAImportFile base & "results_res.bas", "results_res", app_name\r
219 \r
220 End Sub\r
221 \r
222 </script>\r
223 </job>\r
224 \r