;;; -*- Mode:Lisp; Readtable:CL; Package:USER; Base:10; Patch-File:T -*-
;;; Patch file for System version 124.47
;;; Reason:
;;;  Certain User FTP commands (pwd, mkdir, rmdir) have official protocol
;;;  commands (which are tried first) and older commands that are tried if
;;;  the official ones failed.  If the Official ones worked, FTP-ACCESS
;;;  thought the command failed.
;;; Written 10-Jun-88 17:30:55 by pld (Peter L. DeWolf) at site Gigamos Cambridge
;;; while running on Cthulhu from band 1
;;; with Experimental System 124.44, Experimental Local-File 74.1, Experimental File-Server 23.1, Experimental Unix-Interface 12.0, Experimental ZMail 72.0, Experimental Tape 23.6, Experimental Lambda-Diag 16.1, microcode 1756, SDU Boot Tape 3.14, SDU ROM 8, the old ones.



; From modified file DJ: L.NETWORK.IP-TCP.USER; FTP.LISP#52 at 10-Jun-88 17:31:15
#10R FTP#: 
(COMPILER-LET ((*PACKAGE* (GLOBAL:PKG-FIND-PACKAGE "FTP")))
  (COMPILER::PATCH-SOURCE-FILE "SYS: NETWORK; IP-TCP; USER; FTP  "

	    
(defcmd cmd-pwd () t
  "print working directory on remote machine"
  (or (commandp (sym complete) "PWD")
      (commandp (sym complete) "XPWD")))

))

; From modified file DJ: L.NETWORK.IP-TCP.USER; FTP.LISP#52 at 10-Jun-88 17:31:18
#10R FTP#: 
(COMPILER-LET ((*PACKAGE* (GLOBAL:PKG-FIND-PACKAGE "FTP")))
  (COMPILER::PATCH-SOURCE-FILE "SYS: NETWORK; IP-TCP; USER; FTP  "


(defcmd cmd-mkdir (remote-directory) t
   "make a directory on remote machine"
   (or (commandp (sym complete) "MKD ~A" remote-directory)
       (commandp (sym complete) "XMKD ~A" remote-directory)))

))

; From modified file DJ: L.NETWORK.IP-TCP.USER; FTP.LISP#52 at 10-Jun-88 17:31:22
#10R FTP#: 
(COMPILER-LET ((*PACKAGE* (GLOBAL:PKG-FIND-PACKAGE "FTP")))
  (COMPILER::PATCH-SOURCE-FILE "SYS: NETWORK; IP-TCP; USER; FTP  "


(defcmd cmd-rmdir (remote-directory) t
  "remove a directory on remote machine"
  (or (commandp (sym complete) "RMD ~A" remote-directory)
      (commandp (sym complete) "XRMD ~A" remote-directory)))

))

; From modified file DJ: L.NETWORK.IP-TCP.USER; FTP.LISP#52 at 10-Jun-88 17:31:24
#10R FTP#: 
(COMPILER-LET ((*PACKAGE* (GLOBAL:PKG-FIND-PACKAGE "FTP")))
  (COMPILER::PATCH-SOURCE-FILE "SYS: NETWORK; IP-TCP; USER; FTP  "


(defcmd cmd-expunge (remote-directory) t
  "expunge the contents of a directory"
  (when (commandp (sym complete) "XPNG ~A" remote-directory)
    (let* ((reply (last-reply))
	   (start (and reply (string-search-char #\space reply)))
	   (blocks-freed (and start (parse-integer reply :start start :junk-allowed t))))
      (or blocks-freed 0))))

;;; file hacking commands

))