[MAILER@CUNYVM.CUNY.EDU: Undelivered mail]

[Kalman Reti <Reti@SCRC-STONY-BROOK.ARPA>]

Date: Sat, 11 Feb 89 23:39 EST
From: Network Mailer <MAILER@CUNYVM.CUNY.EDU>
Subject: Undelivered mail
To: Reti@STONY-BROOK.SCRC.Symbolics.COM

Your mail was not delivered to some or all of its
intended recipients for the following reason(s):

RSCS rejected mail w/tag: ULKYVX04 VKCHAW0.... Is the hostname misspelled?

--------------------RETURNED MAIL FILE--------------------
Received: by CUNYVM (Mailer R2.01) id 2707; Sat, 11 Feb 89 23:39:30 EST
Received: from CUNYVM by CUNYVM.BITNET (Mailer R2.01) with BSMTP id 2699; Sat,
 11 Feb 89 23:39:27 EST
Received: from IU.AI.SRI.COM by CUNYVM.CUNY.EDU (IBM VM SMTP R1.1) with TCP;
 Sat, 11 Feb 89 23:38:48 EST
Received: from Warbucks.AI.SRI.COM by IU.AI.SRI.COM via SMTP with TCP;
      Sat, 11 Feb 89 20:29:49-PST
Received: from STONY-BROOK.SCRC.Symbolics.COM by Warbucks.AI.SRI.COM
      with INTERNET ; Sat, 11 Feb 89 20:26:48 PST
Received: from CORD.SCRC.Symbolics.COM by
      STONY-BROOK.SCRC.Symbolics.COM via INTERNET with SMTP id
      537627; 11 Feb 89 16:57:29 EST
Date: Sat, 11 Feb 89 16:59 EST
From: Reti@STONY-BROOK.SCRC.Symbolics.COM (Kalman Reti)
Subject: Carry tape
To: barmar@Think.COM, slug@Warbucks.AI.SRI.COM
In-Reply-To: <19890211195353.2.BARMAR@OCCAM.THINK.COM>
Message-ID: <19890211215952.7.RETI@CORD.SCRC.Symbolics.COM>

    Date: Sat, 11 Feb 89 14:53 EST
    From: barmar@Think.COM (Barry Margolin)

    Has anyone modified Read Carry Tape so that it doesn't ask so many
    questions?  We'd like to be able to write a carry tape containing a
    hierarchy with lots of subdirectories, and then when we read it at the
    destination we would like to be able to specify the new directory that
    corresponds to the original top-level directory, rather than getting
    queried (three times -- once to answer "O", a second time to allow the
    directory to be created, and again to answer "A" for the remaining files
    in the directory) for each directory.

    For example, currently a tape containing a directory and its
    subdirectory results in the following:
                :
                :
    I'd like to be able to answer one question about the translation of the
    directory name, perhaps a single question about creating the new
    top-level directory, and then not be bothered until it encounters a file
    that wasn't in that hierarchy.

    If anyone can think of an existing mechanism in Genera that allows this
    kind of pathname translation, but uses a different tape format, that
    would be good, too.  We're trying to use this for our software
    distribution tape (our software isn't organized using DEFSYSTEM,
    although in the past we've used a DEFSYSTEM-based kludge for the tapes),
    and it would be preferable if the customer didn't need to load something
    just to be able to read the tape.

                            barmar

Unfortunately, every time I've ever wanted something like this, I also needed
 slightly
different rules for coercing the pathname-string stored on the carry tape into a
 pathname
than the last time I wanted it, so I never wrote a general-purpose function.

I take the approach of calling CARRY-LOAD wrapped in an application-specific
 replacement
for the system's TAPE:CARRY-LOAD-TARGET-PATHNAME, each time I use it, viz.:

(letf ((#'tape:carry-load-target-pathname #'my-replacement))
  (tape:carry-load ...))

where my-replacement might be something along the lines of:

(defun my-replacement (plist)
  (let* (pathname
     (pathname-string (si:get plist :pathname)) ;misnomer, this isn't a pathname
     (pathname-as-if-to-local-host
       (fs:parse-pathname (string-append (send neti:*local-host*
 :name-as-file-computer)
                         ":" pathname-string))))

    (setq pathname
      ... ; the appropriate merging of the pathname on tape and the desired
 default
      )
     ))

Usually my-replacement is simple enough that I can type it into the machine as I
 need it,
only maybe twice out of a dozen times were the coercion requirements tricky
 enough that
I had to type it into an editor buffer and debug it before deploying.

Note that the replacement function should either return the pathname you want
 the tape
file copied to, or NIL to skip the file.  Of course, if you want to prompt the
 user for
the pathname,your version could call (accept 'fs:pathname) along the way.