xref: /aoo41x/main/solenv/bin/fix_shl.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
23will return a 8.3 conformant name for modname.
24
2521/02/2006 Actually this is a simple truncation, seems nothing more needed.
26
27*/
28
29parse arg modname
30if pos('.',modname)>0 then modname = left(modname, pos('.',modname)-1)
31say strip(left(modname,8))
32