From schoenfr@ibr.cs.tu-bs.de Mon Sep 26 07:52:45 1994
Received: from ra.ibr.cs.tu-bs.de by locke.ccil.org (8.6.8.1/8.6.5) with SMTP id HAA00507; Mon, 26 Sep 1994 07:52:27 -0400
Received: from data by ra.ibr.cs.tu-bs.de (5.65/1.341)
	id AA02442; Mon, 26 Sep 94 12:51:51 +0100
Received: by data (4.1/SMI-4.1N)
	id AA17240; Mon, 26 Sep 94 12:51:51 +0100
Date: Mon, 26 Sep 94 12:51:51 +0100
From: schoenfr@ibr.cs.tu-bs.de (Erik Schoenfelder)
Message-Id: <9409261151.AA17240@data>
To: cowan@locke.ccil.org
Cc: esr@locke.ccil.org
In-Reply-To: <199409231739.NAA05065@locke.ccil.org> (message from John Cowan on Fri, 23 Sep 1994 13:39:32 -0400 (EDT))
Subject: Re: Algol 60 interpreter
Reply-To: schoenfr@ibr.cs.tu-bs.de
Status: OR

Hi!

I appreciate your diff very much. Thank you for the corrections and
the explanations. And I guess, your rusty old German ist better than
my pidgin NetNews English :)

I have a small fix for the scanner module, which was not in the
ftp-able version:


diff -c a60-0.17.1/ChangeLog a60-0.17.2/ChangeLog
*** a60-0.17.1/ChangeLog	Thu Jul  9 15:01:45 1992
--- a60-0.17.2/ChangeLog	Mon Sep 26 11:47:01 1994
***************
*** 1,3 ****
--- 1,7 ----
+ Mon Sep 26 11:46:49 1994  Erik Schoenfelder  <schoenfr@data>
+ 
+ 	* a60-scan.c: small fix for end-delim search. 
+ 
  Thu Jul  9 14:54:06 1992  Erik Schoenfelder  (schoenfr@helios)
  
  	* version upgraded to 0.17 for first ftp-accessible version.
diff -c a60-0.17.1/a60-scan.c a60-0.17.2/a60-scan.c
*** a60-0.17.1/a60-scan.c	Thu Jul  9 14:58:34 1992
--- a60-0.17.2/a60-scan.c	Mon Sep 26 11:47:38 1994
***************
*** 1146,1152 ****
   
  	for (ptr = e_delim; ptr && *ptr && **ptr; ptr++) {
  		str_ptr = str + str_len - strlen (*ptr);
! 		if (! strncmp (str_ptr, *ptr, strlen (*ptr))) {
  #ifdef DEBUG
  			if (do_debug)
  				printf (" found %s.\n", *ptr);
--- 1146,1153 ----
   
  	for (ptr = e_delim; ptr && *ptr && **ptr; ptr++) {
  		str_ptr = str + str_len - strlen (*ptr);
! 		if (str_ptr >= str && 
! 		    ! strncmp (str_ptr, *ptr, strlen (*ptr))) {
  #ifdef DEBUG
  			if (do_debug)
  				printf (" found %s.\n", *ptr);


							Erik