xref: /aoo41x/main/solenv/bin/fix_exp_file.cmd (revision 5b501c92)
1/**************************************************************
2 *
3 * Licensed to the Apache Software Foundation (ASF) under one
4 * or more contributor license agreements.  See the NOTICE file
5 * distributed with this work for additional information
6 * regarding copyright ownership.  The ASF licenses this file
7 * to you under the Apache License, Version 2.0 (the
8 * "License"); you may not use this file except in compliance
9 * with the License.  You may obtain a copy of the License at
10 *
11 *   http://www.apache.org/licenses/LICENSE-2.0
12 *
13 * Unless required by applicable law or agreed to in writing,
14 * software distributed under the License is distributed on an
15 * "AS IS" BASIS, WITHOUT WARRANTIES OR CONDITIONS OF ANY
16 * KIND, either express or implied.  See the License for the
17 * specific language governing permissions and limitations
18 * under the License.
19 *
20 *************************************************************/
21/* os2 build scripts
22
23this script is used to process emxexp results
24
25*/
26
27lmax = 0
28ordinal = 1
29
30do while( lines())
31
32	l = strip(linein())
33	if POS(';', l) > 0 then l = LEFT(l,POS(';', l)-1)
34
35	l = strip(translate(l,'','"'))
36	l = strip(l,,X2C(9))
37
38	/* remove empty lines */
39	if l = '_' then l = ''
40
41	/* remove component_getDescriptionFunc, since it is already added by tg_def */
42	if l = '_component_getDescriptionFunc' then l = ''
43	if l = '_GetVersionInfo' then l = ''
44
45
46	/* remove GLOBAL symbols */
47	if POS('_GLOBAL_', l) > 0 then l = ';'l
48/*
49	if POS('!', l) > 0 then l = ';'l
50	if POS('_ZN4_STL', l) > 0 then l = ';'l
51	if POS('_ZNK4_STL', l) > 0 then l = ';'l
52	if POS('ImplClass', l) > 0 then l = ';'l
53	if POS('ImplHelper', l) > 0 then l = ';'l
54	if POS('UsageHelper', l) > 0 then l = ';'l
55	if POS('com3sun4star3', l) > 0 then l = ';'l
56*/
57	/* if LENGTH(l) > 254 then l = ';(>254)'left(l,100) */
58
59	if POS(';', l) > 0 then l = LEFT(l,POS(';', l)-1)
60
61	IF LENGTH(l)>0 THEN DO
62	  say l
63  	  ordinal = ordinal + 1
64	END
65
66	if LENGTH(l)>lmax then do
67          lmax = LENGTH(l)
68          smax = l
69        end
70
71end
72
73say ';lmax='lmax
74say ';smax='smax
75