head	1.2;
access;
symbols
	RELEASE_5_1_0:1.1.1.1
	RELEASE_4_8_0:1.1.1.1
	RELEASE_5_0_0:1.1.1.1
	RELEASE_4_7_0:1.1.1.1
	RELEASE_4_6_2:1.1.1.1
	RELEASE_4_6_1:1.1.1.1
	RELEASE_4_6_0:1.1.1.1
	RELEASE_5_0_DP1:1.1.1.1
	RELEASE_4_5_0:1.1.1.1
	RELEASE_4_4_0:1.1.1.1
	RELEASE_4_3_0:1.1.1.1
	RELEASE_4_2_0:1.1.1.1
	RELEASE_4_1_1:1.1.1.1
	RELEASE_4_1_0:1.1.1.1
	RELEASE_3_5_0:1.1.1.1
	RELEASE_4_0_0:1.1.1.1
	RELEASE_3_4_0:1.1.1.1
	v2_22:1.1.1.1
	WGHICKS:1.1.1;
locks; strict;
comment	@# @;


1.2
date	2003.06.05.20.35.12;	author obraun;	state dead;
branches;
next	1.1;

1.1
date	99.11.01.03.46.48;	author steve;	state Exp;
branches
	1.1.1.1;
next	;

1.1.1.1
date	99.11.01.03.46.48;	author steve;	state Exp;
branches;
next	;


desc
@@


1.2
log
@* Upgrade to 2.23.
* Remove BROKEN.

PR:		ports/52922
Submitted by:	Volker Stolz <stolz@@i2.informatik.rwth-aachen.de>
@
text
@--- src/debugger.c.orig	Sun Dec 18 12:15:55 1994
+++ src/debugger.c	Tue Sep 14 04:16:44 1999
@@@@ -278,7 +278,15 @@@@
 
 #define Y_Storing_Invoc_Nb(e)   (Y(e,3))                   /* see call.pl */
 
+static void mygets(char *str, int size)
+{
+	char *p;
+	fgets(str,size,stdin);
 
+	p = index(str, '\n');
+	if(p)
+		*p = '\0';
+}
 
 
 
@@@@ -959,7 +967,7 @@@@
  Lib1(printf," ? ");
 
  *str='\0';
- Lib1(gets,str);
+ Lib2(mygets,str,sizeof(str) - 1);
  if (*str=='\0')
      Lib2(strcpy,str,"creep");
 
@@@@ -2047,7 +2055,7 @@@@
      Lib1(printf,"\nNew value: ");
 
      *str='\0';
-     Lib1(gets,str);
+     Lib2(mygets,str,sizeof(str) - 1);
      if (*str=='\0')
          return;
 
@


1.1
log
@Initial revision
@
text
@@


1.1.1.1
log
@Initial import of wamcc version 2.22.
A Prolog-to-C translator from Inria.

PR:		13745
Submitted by:	W. Gerald Hicks <wghicks@@bellsouth.net>
@
text
@@
