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