home *** CD-ROM | disk | FTP | other *** search
/ Dream 57 / Amiga_Dream_57.iso / Amiga / Programmation / e / Modules / AmiTCP_beta.lha / Src / Other / setprogname.e < prev   
Encoding:
Text File  |  1996-08-12  |  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