home *** CD-ROM | disk | FTP | other *** search
/ The Best of Mecomp Multimedia 2 / MECOMP-CD-II.iso / amiga / programmieren / e / e_v3.3a / src.lha / Src / Tools / Useful / setprogname.e < prev    next >
Encoding:
Text File  |  1996-08-11  |  315 b   |  16 lines
  1. OPT MODULE, PREPROCESS
  2. OPT EXPORT
  3.  
  4. MODULE 'dos/dos',
  5.        'dos/dosextens'
  6.  
  7. PROC setprogname(p:PTR TO LONG)
  8.   DEF cli:PTR TO commandlineinterface, bstr
  9.   IF p[]=NIL
  10.     IF cli:=Cli()
  11.       bstr:=BADDR(cli.commandname)
  12.       p[]:=String(bstr[])
  13.       IF p[] THEN StrCopy(p[],bstr+1,bstr[])
  14.     ENDIF
  15.   ENDIF
  16. ENDPROC