solenv/bin/fix_shl.cmd

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