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))
12