From mboxrd@z Thu Jan  1 00:00:00 1970
Received: from relay2.UU.NET ([192.48.96.7]) by hawkwind.utcs.toronto.edu with SMTP id <2221>; Thu, 13 May 1993 14:13:17 -0400
Received: from spool.uu.net (via LOCALHOST.UU.NET) by relay2.UU.NET with SMTP 
	(5.61/UUNET-internet-primary) id AA25818; Thu, 13 May 93 14:13:06 -0400
Received: from srg.UUCP by spool.uu.net with UUCP/RMAIL
	(queueing-rmail) id 141148.23305; Thu, 13 May 1993 14:11:48 EDT
Received: from ceres.srg.af.mil by srg.srg.af.mil
	id aa25030; Thu, 13 May 93 14:06:58 EDT
From:	culliton@srg.af.mil (Tom Culliton x2278)
X-Mailer: SCO System V Mail (version 3.2)
To:	rc@hawkwind.utcs.toronto.edu
Subject: An extra patch for trip.rc
Date:	Thu, 13 May 1993 14:07:23 -0400
Message-Id: <9305131407.aa20335@ceres.srg.af.mil>

Just to make life a bit easier here is the patch to trip.rc which fixes
the "~! should be !~" bug.

Tom

----------8<--------------------CUT HERE--------------------8<----------
*** trip.rc	Wed Apr 21 19:10:23 1993
--- trip.rc2	Wed Apr 21 18:29:53 1993
***************
*** 237,243 ****
  
  if (~ `{echo -n} ?)
  	fail echo -n
! if (~! `` '' {echo --} $nl)
  	fail echo --
  
  pwd=`/bin/pwd cdpath=/ { # some local assignments
--- 237,243 ----
  
  if (~ `{echo -n} ?)
  	fail echo -n
! if (!~ `` '' {echo --} $nl)
  	fail echo --
  
  pwd=`/bin/pwd cdpath=/ { # some local assignments
***************
*** 409,415 ****
  echo hi
  eof
  
! prompt=';' if (~! `` '' {. -i /tmp/dot.$pid>[2=1]} ';hi'^$nl';')
  	fail dot -i
  submatch .' '/tmp/dot.$pid hi dot
  
--- 409,415 ----
  echo hi
  eof
  
! prompt=';' if (!~ `` '' {. -i /tmp/dot.$pid>[2=1]} ';hi'^$nl';')
  	fail dot -i
  submatch .' '/tmp/dot.$pid hi dot
  
***************
*** 457,463 ****
  ~ $* bar || fail restore of '$*' after local group
  ~ `{exec>[2=1];$rc -xc 'foo=()'} 'foo=()' || fail -x echo of variable deletion
  
! fn_ff='{' prompt='' if (~! `` $nl {$rc -cff>[2=1]} 'line 1: '*' error near eof')
  	fail 'bogus function in environment'
  
  #
--- 457,463 ----
  ~ $* bar || fail restore of '$*' after local group
  ~ `{exec>[2=1];$rc -xc 'foo=()'} 'foo=()' || fail -x echo of variable deletion
  
! fn_ff='{' prompt='' if (!~ `` $nl {$rc -cff>[2=1]} 'line 1: '*' error near eof')
  	fail 'bogus function in environment'
  
  #
***************
*** 517,523 ****
  #
  
  fn prompt {echo hi}
! prompt=() if (~! `{$rc -i /dev/null>[2]/dev/null} hi) fail fn prompt
  fn prompt
  
  #
--- 517,523 ----
  #
  
  fn prompt {echo hi}
! prompt=() if (!~ `{$rc -i /dev/null>[2]/dev/null} hi) fail fn prompt
  fn prompt
  
  #