xref: /trunk/main/solenv/bin/fix_shl.cmd (revision cdf0e10c) 
1*cdf0e10cSrcweir/* os2 build scripts
2*cdf0e10cSrcweir
3*cdf0e10cSrcweirwill return a 8.3 conformant name for modname.
4*cdf0e10cSrcweir
5*cdf0e10cSrcweir21/02/2006 Actually this is a simple truncation, seems nothing more needed.
6*cdf0e10cSrcweir
7*cdf0e10cSrcweir*/
8*cdf0e10cSrcweir
9*cdf0e10cSrcweirparse arg modname
10*cdf0e10cSrcweirif pos('.',modname)>0 then modname = left(modname, pos('.',modname)-1)
11*cdf0e10cSrcweirsay strip(left(modname,8))
12