dist/U/mboxchar.U

   1 ?RCS: $Id: mboxchar.U 1 2006-08-24 12:32:52Z rmanfredi $
   2 ?RCS:
   3 ?RCS: Copyright (c) 1991-1997, 2004-2006, Raphael Manfredi
   4 ?RCS:
   5 ?RCS: You may redistribute only under the terms of the Artistic Licence,
   6 ?RCS: as specified in the README file that comes with the distribution.
   7 ?RCS: You may reuse parts of this distribution only within the terms of
   8 ?RCS: that same Artistic Licence; a copy of which may be found at the root
   9 ?RCS: of the source tree for dist 4.0.
  10 ?RCS:
  11 ?RCS: $Log: mboxchar.U,v $
  12 ?RCS: Revision 3.0.1.2  1995/07/25  14:13:12  ram
  13 ?RCS: patch56: ensure ctrl-A characters are visible in prompt (WED)
  14 ?RCS:
  15 ?RCS: Revision 3.0.1.1  1994/05/06  15:11:22  ram
  16 ?RCS: patch23: added support for MMDF mailboxes (WED)
  17 ?RCS:
  18 ?RCS: Revision 3.0  1993/08/18  12:09:15  ram
  19 ?RCS: Baseline for dist 3.0 netwide release.
  20 ?RCS:
  21 ?MAKE:mboxchar: cat package shsharp Myread Oldconfig
  22 ?MAKE:  -pick add $@ %<
  23 ?S:mboxchar:
  24 ?S:     This variable contains the eventual value of the MBOXCHAR symbol,
  25 ?S:     which is how a C program can identify a file as a mailbox.
  26 ?S:.
  27 ?C:MBOXCHAR:
  28 ?C:     This symbol contains a character which will match the beginning
  29 ?C:     of a mailbox file.
  30 ?C:.
  31 ?H:#define MBOXCHAR '$mboxchar'         /**/
  32 ?H:.
  33 ?T:CTRLA
  34 ?INIT:CTRLA=`echo a | tr a '\001'`
  35 : determine how to determine when a file is a mailbox
  36 case "$mboxchar" in
  37 '') dflt=F;;
  38 ?X: The following ^A is two-chars to ensure it will print out -- WED
  39 "$CTRLA") dflt='^A';;
  40 *)  dflt="$mboxchar";;
  41 esac
  42 $cat <<EOM
  43
  44 In saving articles, $package wants to differentiate between saving to
  45 mailbox format files and normal files.  It does this by examining the
  46 first character of the file in question.  On most systems the first line
  47 starts with "From ...", so the first character is an F.  Other systems
  48 use magic cookies like control codes between articles, so one of those
  49 would be first.  For example, MMDF messages are separated with lines of
  50 four control-A's (you may specify one as ^A, i.e. caret A).
  51
  52 EOM
  53 rp="What's the first character of a mailbox file?"
  54 . ./myread
  55 mboxchar="$ans"
  56 case "$mboxchar" in
  57 'F') ;;
  58 "$CTRLA") ;;
  59 '^A'|'^a') mboxchar="$CTRLA";;
  60 *)  cat <<'EOM'
  61
  62 You will need to edit the shell script mbox.saver to properly append an
  63 article to a mailbox.  The arguments to the script are documented in
  64 EOM
  65         case "$shsharp" in
  66         false) echo "comments in mbox.saver.std.";;
  67         true) echo "comments in the shell script itself.";;
  68         esac
  69 esac
  70