-
Notifications
You must be signed in to change notification settings - Fork 102
/
GenMultiLang.bat
195 lines (191 loc) · 13.9 KB
/
GenMultiLang.bat
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
@ECHO OFF
REM 注意 Package 和 Test 下的工程都不需要 dof、cfg 等设置搜索路径,因为所需源码全在 Source 目录里
CD ..
DEL /S /Q cnmultilang
RMDIR /Q cnmultilang /S
MKDIR cnmultilang
CD cnmultilang
COPY ..\cnvcl\License.chs.txt .\License.txt
COPY ..\cnvcl\Doc\Develop\CnMultiLang_README.md .\README.md
COPY ..\cnvcl\CleanInplace.bat .\Clean.bat
COPY ..\cnvcl\.gitignore .
MKDIR Source
CD Source
COPY ..\..\cnvcl\Source\Crypto\CnNative.pas .
COPY ..\..\cnvcl\Source\Common\*.inc .
COPY ..\..\cnvcl\Source\Common\CnClasses.pas .
COPY ..\..\cnvcl\Source\Common\CnCommon.pas .
COPY ..\..\cnvcl\Source\Common\CnCompAboutFrm.pas .
COPY ..\..\cnvcl\Source\Common\CnCompAboutFrm.dfm .
COPY ..\..\cnvcl\Source\Common\CnConsts.pas .
COPY ..\..\cnvcl\Source\Common\CnFloat.pas .
COPY ..\..\cnvcl\Source\Common\CnGB18030.pas .
COPY ..\..\cnvcl\Source\Common\CnHashMap.pas .
COPY ..\..\cnvcl\Source\Common\CnIni.pas .
COPY ..\..\cnvcl\Source\Common\CnIniStrUtils.pas .
COPY ..\..\cnvcl\Source\Common\CnOTAUtils.pas .
COPY ..\..\cnvcl\Source\Common\CnStream.pas .
COPY ..\..\cnvcl\Source\Common\CnStrings.pas .
COPY ..\..\cnvcl\Source\Common\CnWideStrings.pas .
COPY ..\..\cnvcl\Source\Common\CnPack.dcr .
COPY ..\..\cnvcl\Source\Graphics\CnHexEditor.pas .
COPY ..\..\cnvcl\Source\MultiLang\*.pas .
COPY ..\..\cnvcl\Source\MultiLang\*.dfm .
COPY ..\..\cnvcl\Source\MultiLang\*.inc .
CD ..
MKDIR Package
CD Package
CALL :PRINTHEAD CnMultiLang.dpk
ECHO package CnMultiLang; >> CnMultiLang.dpk
ECHO. >> CnMultiLang.dpk
ECHO {$R *.res} >> CnMultiLang.dpk
ECHO {$IFDEF IMPLICITBUILDING This IFDEF should not be used by users} >> CnMultiLang.dpk
ECHO {$ALIGN 8} >> CnMultiLang.dpk
ECHO {$ASSERTIONS ON} >> CnMultiLang.dpk
ECHO {$BOOLEVAL OFF} >> CnMultiLang.dpk
ECHO {$DEBUGINFO OFF} >> CnMultiLang.dpk
ECHO {$EXTENDEDSYNTAX ON} >> CnMultiLang.dpk
ECHO {$IMPORTEDDATA ON} >> CnMultiLang.dpk
ECHO {$IOCHECKS ON} >> CnMultiLang.dpk
ECHO {$LOCALSYMBOLS ON} >> CnMultiLang.dpk
ECHO {$LONGSTRINGS ON} >> CnMultiLang.dpk
ECHO {$OPENSTRINGS ON} >> CnMultiLang.dpk
ECHO {$OPTIMIZATION OFF} >> CnMultiLang.dpk
ECHO {$OVERFLOWCHECKS OFF} >> CnMultiLang.dpk
ECHO {$RANGECHECKS OFF} >> CnMultiLang.dpk
ECHO {$REFERENCEINFO ON} >> CnMultiLang.dpk
ECHO {$SAFEDIVIDE OFF} >> CnMultiLang.dpk
ECHO {$STACKFRAMES ON} >> CnMultiLang.dpk
ECHO {$TYPEDADDRESS OFF} >> CnMultiLang.dpk
ECHO {$VARSTRINGCHECKS ON} >> CnMultiLang.dpk
ECHO {$WRITEABLECONST OFF} >> CnMultiLang.dpk
ECHO {$MINENUMSIZE 1} >> CnMultiLang.dpk
ECHO {$IMAGEBASE $400000} >> CnMultiLang.dpk
ECHO {$ENDIF IMPLICITBUILDING} >> CnMultiLang.dpk
ECHO {$DESCRIPTION 'CnPack Multi-Language Package'} >> CnMultiLang.dpk
ECHO {$RUNONLY} >> CnMultiLang.dpk
ECHO {$IMPLICITBUILD OFF} >> CnMultiLang.dpk
ECHO. >> CnMultiLang.dpk
ECHO requires >> CnMultiLang.dpk
ECHO vcl, // If in Delphi 5 or C++Builder 5, please change to vcl50 >> CnMultiLang.dpk
ECHO vclx; // If in Delphi 5 or C++Builder 5, please change to vclx50 >> CnMultiLang.dpk
ECHO. >> CnMultiLang.dpk
ECHO contains >> CnMultiLang.dpk
CALL :PRINTFILES CnMultiLang.dpk
ECHO. >> CnMultiLang.dpk
ECHO end. >> CnMultiLang.dpk
ECHO. >> CnMultiLang.dpk
CALL :PRINTHEAD dclCnMultiLang.dpk
ECHO package dclCnMultiLang; >> dclCnMultiLang.dpk
ECHO. >> dclCnMultiLang.dpk
ECHO {$R *.res} >> dclCnMultiLang.dpk
ECHO {$R '..\Source\CnPack.dcr'} >> dclCnMultiLang.dpk
ECHO {$ALIGN 8} >> dclCnMultiLang.dpk
ECHO {$ASSERTIONS ON} >> dclCnMultiLang.dpk
ECHO {$BOOLEVAL OFF} >> dclCnMultiLang.dpk
ECHO {$DEBUGINFO ON} >> dclCnMultiLang.dpk
ECHO {$EXTENDEDSYNTAX ON} >> dclCnMultiLang.dpk
ECHO {$IMPORTEDDATA ON} >> dclCnMultiLang.dpk
ECHO {$IOCHECKS ON} >> dclCnMultiLang.dpk
ECHO {$LOCALSYMBOLS ON} >> dclCnMultiLang.dpk
ECHO {$LONGSTRINGS ON} >> dclCnMultiLang.dpk
ECHO {$OPENSTRINGS ON} >> dclCnMultiLang.dpk
ECHO {$OPTIMIZATION ON} >> dclCnMultiLang.dpk
ECHO {$OVERFLOWCHECKS OFF} >> dclCnMultiLang.dpk
ECHO {$RANGECHECKS OFF} >> dclCnMultiLang.dpk
ECHO {$REFERENCEINFO ON} >> dclCnMultiLang.dpk
ECHO {$SAFEDIVIDE OFF} >> dclCnMultiLang.dpk
ECHO {$STACKFRAMES OFF} >> dclCnMultiLang.dpk
ECHO {$TYPEDADDRESS OFF} >> dclCnMultiLang.dpk
ECHO {$VARSTRINGCHECKS ON} >> dclCnMultiLang.dpk
ECHO {$WRITEABLECONST ON} >> dclCnMultiLang.dpk
ECHO {$MINENUMSIZE 1} >> dclCnMultiLang.dpk
ECHO {$IMAGEBASE $400000} >> dclCnMultiLang.dpk
ECHO {$DESCRIPTION 'CnPack Multi-Language Designtime Package'} >> dclCnMultiLang.dpk
ECHO {$DESIGNONLY} >> dclCnMultiLang.dpk
ECHO {$IMPLICITBUILD OFF} >> dclCnMultiLang.dpk
ECHO. >> dclCnMultiLang.dpk
ECHO requires >> dclCnMultiLang.dpk
ECHO vcl, // If in Delphi 5 or C++Builder 5, please change to vcl50 >> dclCnMultiLang.dpk
ECHO designide, >> dclCnMultiLang.dpk
ECHO CnMultiLang; >> dclCnMultiLang.dpk
ECHO. >> dclCnMultiLang.dpk
ECHO contains >> dclCnMultiLang.dpk
CALL :PRINTDCLFILES dclCnMultiLang.dpk
ECHO. >> dclCnMultiLang.dpk
ECHO end. >> dclCnMultiLang.dpk
ECHO. >> dclCnMultiLang.dpk
CD ..
MKDIR Doc
CD Doc
COPY ..\..\cnvcl\Doc\Develop\CnPack多语组件帮助文档.doc .
COPY ..\..\cnvcl\Doc\Design\MultiLang\CnPack多语组件包概要设计说明书.doc .
CD ..
MKDIR Example
CD Example
MKDIR VCL\MultiLang\
CD VCL\MultiLang\
COPY ..\..\..\..\cnvcl\Example\VCL\Multilang\ .
CD ..\..\
MKDIR FMX\MultiLang\
CD FMX\MultiLang\
COPY ..\..\..\..\cnvcl\Example\FMX\Multilang\ .
CD ..\..\..
GOTO END
:PRINTHEAD
ECHO {******************************************************************************} > %1
ECHO { CnPack For Delphi/C++Builder } >> %1
ECHO { 中国人自己的开放源码第三方开发包 } >> %1
ECHO { (C)Copyright 2001-2024 CnPack 开发组 } >> %1
ECHO { ------------------------------------ } >> %1
ECHO { } >> %1
ECHO { 本开发包是开源的自由软件,您可以遵照 CnPack 的发布协议来修 } >> %1
ECHO { 改和重新发布这一程序。 } >> %1
ECHO { } >> %1
ECHO { 发布这一开发包的目的是希望它有用,但没有任何担保。甚至没有 } >> %1
ECHO { 适合特定目的而隐含的担保。更详细的情况请参阅 CnPack 发布协议。 } >> %1
ECHO { } >> %1
ECHO { 您应该已经和开发包一起收到一份 CnPack 发布协议的副本。如果 } >> %1
ECHO { 还没有,可访问我们的网站: } >> %1
ECHO { } >> %1
ECHO { 网站地址:https://www.cnpack.org } >> %1
ECHO { 电子邮件:[email protected] } >> %1
ECHO { } >> %1
ECHO {******************************************************************************} >> %1
ECHO. >> %1
GOTO :EOF
:PRINTFILES
ECHO CnFloat in '..\Source\CnFloat.pas', >> %1
ECHO CnNative in '..\Source\CnNative.pas', >> %1
ECHO CnConsts in '..\Source\CnConsts.pas', >> %1
ECHO CnClasses in '..\Source\CnClasses.pas', >> %1
ECHO CnHashMap in '..\Source\CnHashMap.pas', >> %1
ECHO CnCommon in '..\Source\CnCommon.pas', >> %1
ECHO CnIni in '..\Source\CnIni.pas', >> %1
ECHO CnIniStrUtils in '..\Source\CnIniStrUtils.pas', >> %1
ECHO CnWideStrings in '..\Source\CnWideStrings.pas', >> %1
ECHO CnStream in '..\Source\CnStream.pas', >> %1
ECHO CnStrings in '..\Source\CnStrings.pas', >> %1
ECHO CnGB18030 in '..\Source\CnGB18030.pas', >> %1
ECHO CnHexEditor in '..\Source\CnHexEditor.pas', >> %1
ECHO CnHashIniFile in '..\Source\CnHashIniFile.pas', >> %1
ECHO CnHashLangStorage in '..\Source\CnHashLangStorage.pas', >> %1
ECHO CnIniLangFileStorage in '..\Source\CnIniLangFileStorage.pas', >> %1
ECHO CnLangCollection in '..\Source\CnLangCollection.pas', >> %1
ECHO CnLangConsts in '..\Source\CnLangConsts.pas', >> %1
ECHO CnLangMgr in '..\Source\CnLangMgr.pas', >> %1
ECHO CnLangStorage in '..\Source\CnLangStorage.pas', >> %1
ECHO CnLangTranslator in '..\Source\CnLangTranslator.pas', >> %1
ECHO CnLangUtils in '..\Source\CnLangUtils.pas'; >> %1
GOTO :EOF
:PRINTDCLFILES
ECHO CnOTAUtils in '..\Source\CnOTAUtils.pas', >> %1
ECHO CnCompAboutFrm in '..\Source\CnCompAboutFrm.pas' {CnCompAboutForm}, >> %1
ECHO CnLangEditors in '..\Source\CnLangEditors.pas', >> %1
ECHO CnLangReg in '..\Source\CnLangReg.pas', >> %1
ECHO CnTransEditor in '..\Source\CnTransEditor.pas' {FrmTransEditor}, >> %1
ECHO CnTransFilter in '..\Source\CnTransFilter.pas' {FrmTransFilter}; >> %1
GOTO :EOF
:END
ECHO CnMultiLang is Ready!
PAUSE