home *** CD-ROM | disk | FTP | other *** search
/ The Utilities Experience / The Utilities Experience - Volume 1.iso / software / workbench+shell / q-z / wbpi / source / mod / filenames.e
Encoding:
Text File  |  1995-08-06  |  507 b   |  24 lines
  1. OPT MODULE
  2.  
  3. EXPORT PROC splitname(str1,str2,str3)
  4.   DEF filestart,pathlen,stt[5]:STRING
  5.     filestart:=FilePart(str1)
  6.     pathlen:=filestart-str1
  7.     IF pathlen
  8.         StrCopy(str2,str1,pathlen)
  9.         MidStr(stt,str2,StrLen(str2)-1,1)
  10.         IF StrCmp(stt,'/',ALL)
  11.             MidStr(str2,str2,0,StrLen(str2)-1)
  12.         ENDIF        
  13.         StrCopy(str3,filestart,ALL)
  14.     ELSE
  15.         StrCopy(str2,'',ALL)
  16.         StrCopy(str3,str1,ALL)
  17.     ENDIF
  18. ENDPROC
  19.  
  20. EXPORT PROC eaddpart(estring,string,maxbuf)
  21.     AddPart(estring,string,maxbuf)
  22.     SetStr(estring,StrLen(estring))
  23. ENDPROC
  24.