xref: /trunk/main/solenv/bin/fix_def_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 def results
24
25*/
26
27lmax = 0
28smax = ''
29ordinal = 1
30
31do while( lines())
32
33	l = strip(linein())
34	l = strip(l,,X2C(9))
35	l = strip(l,,";")
36	if LEFT( l,4) \= 'Java' THEN l = '_'l
37
38	/* remove comments */
39	if POS(';', l) > 0 then l = LEFT( l, POS(';', l)-1)
40	if POS('#', l) > 0 then l = LEFT( l, POS('#', l)-1)
41	/* remove wildcards */
42	if POS('*', l) > 0 then l = ''
43
44	/* remove empty lines */
45	if l = '_' then l = ''
46
47	/* remove component_getDescriptionFunc, since it is already added by tg_def */
48	if l = '_component_getDescriptionFunc' then l = ''
49	if l = '_GetVersionInfo' then l = ''
50
51	/* remove GLOBAL symbols */
52/*
53	if POS('_GLOBAL_', l) > 0 then l = ';'l
54	if POS('_ZN4_STL', l) > 0 then l = ';'l
55	if POS('_ZNK4_STL', l) > 0 then l = ';'l
56*/
57	/* if LENGTH(l) > 254 then l = ';(>254)'left(l,100)*/
58
59	IF LENGTH(l)>0 THEN DO
60	  say l
61  	  ordinal = ordinal + 1
62	END
63
64	if LENGTH(l)>lmax then do
65          lmax = LENGTH(l)
66          smax = l
67        end
68
69end
70
71say ';lmax='lmax
72say ';smax='smax
73