[Firebird-checkins] CVS: interbase/dsql dsql.c,1.2,1.3

[Patrick J. P. G. <pat...@us...>]

Update of /cvsroot/firebird/interbase/dsql
In directory slayer.i.sourceforge.net:/tmp/cvs-serv9359/interbase/dsql

Modified Files:
	dsql.c 
Log Message:
10/13/2000
Fix for bug #113708.

COBOL programs, as well as some other non-c languages, 
do not use null terminated strings and will encounter 
random -502 CURSOR ALREADY DEFINED messages.

With the introduction of dialect 3, the cursor name parsing routine 
was modified to accept cursor names that include spaces.  COBOL programs, 
using dialect 1, which pass a space-terminated cursor name may have 
adjacent binary data included as a part of the cursor name.

This fix changes the parse routine for dialect 1 processing 
to stop on either the first space or the first null character.

…pat
...pat


Index: dsql.c
===================================================================
RCS file: /cvsroot/firebird/interbase/dsql/dsql.c,v
retrieving revision 1.2
retrieving revision 1.3
diff -C2 -r1.2 -r1.3
*** dsql.c	2000/08/15 18:40:55	1.2
--- dsql.c	2000/10/13 06:00:19	1.3
***************
*** 990,995 ****
      {
      USHORT i;
!     length = name_length (input_cursor);
!     for (i=0; i<length && i< sizeof(cursor)-1; i++)
  	cursor [i] = UPPER7 (input_cursor [i]);
      cursor [i] = '\0';
--- 990,996 ----
      {
      USHORT i;
!     for (i=0; i < sizeof(cursor)-1		/* PJPG 20001013 */
!               && input_cursor[i]		/* PJPG 20001013 */
!               && input_cursor[i] != ' '; i++)	/* PJPG 20001013 */
  	cursor [i] = UPPER7 (input_cursor [i]);
      cursor [i] = '\0';