fix_shl.cmd (cdf0e10c) fix_shl.cmd (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 *************************************************************/
1/* os2 build scripts
2
3will return a 8.3 conformant name for modname.
4
521/02/2006 Actually this is a simple truncation, seems nothing more needed.
6
7*/
8
9parse arg modname
10if pos('.',modname)>0 then modname = left(modname, pos('.',modname)-1)
11say strip(left(modname,8))
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))