xref: /AOO41X/main/solenv/bin/fix_def_file.cmd (revision 54628ca40d27d15cc98fe861da7fff7e60c2f7d6)
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