home *** CD-ROM | disk | FTP | other *** search
/ Club Amiga de Montreal - CAM / CAM_CD_1.iso / files / 308.lha / treewalk / rootname.ftw < prev    next >
Encoding:
Text File  |  1980-12-05  |  170 b   |  9 lines
  1. /*
  2.  * Simple routine to return the rootname for files.rexx
  3.  */
  4. name = arg(2)
  5. dot = lastpos('.', name)
  6. if dot < 2 then say name
  7. else say substr(name, 1, dot - 1)
  8. return 1
  9.