From mboxrd@z Thu Jan  1 00:00:00 1970
Received: from postman.osf.org ([130.105.1.152]) by hawkwind.utcs.utoronto.ca with SMTP id <24133>; Thu, 8 Dec 1994 11:53:57 -0500
Received: from sulphur.osf.org (sulphur.osf.org [130.105.5.36]) by postman.osf.org (8.6.9/8.6.x) with SMTP
	id LAA08641; Thu, 8 Dec 1994 11:53:54 -0500
From:	Rich Salz <rsalz@osf.org>
Received: by sulphur.osf.org (1.37.109.4/4.7) id AA06397; Thu, 8 Dec 94 11:50:24 -0500
Date:	Thu, 8 Dec 1994 11:50:24 -0500
Message-Id: <9412081650.AA06397@sulphur.osf.org>
To:	arnold@cc.gatech.edu, sam-fans@hawkwind.utcs.toronto.edu
Subject: Re: sam and varios mail programs

I modified sam so that when creating the fifo it first did
	getenv("sampipe")
and if that existed it used that as the name of the pipe.  I set that
variable in my .rcrc which is sourced by my X startup stuff.

For editing I set VISUAL to $home/bin/callsam, which is this:
#! /bin/rc
~ $#* 1 || {
    echo Usage: `{basename $0} file >[1=2]
    exit 1
}

~ $#sampipe 0 && {
    sampipe=$home/.sam.$USER
    ! ~ $#DISPLAY 0 && sampipe=$sampipe.$DISPLAY
}
! test -r $sampipe && {
    echo `{basename $0} ^ ': No pipe "' ^ $sampipe ^ '" to sam' >[1=2]
    exit 1
}

{ switch ($1) {
case /*
    echo B $1
case *
    echo B `{builtin pwd} ^ / ^ $1
} }>$sampipe

echo Type EOF when done:
cat
# Could use "sed 1q" to get just a newline but I prefer the EOF.