[LON-CAPA-cvs] cvs: capa /capa51/pProj capaCommon.c

albertel lon-capa-cvs@mail.lon-capa.org
Fri, 20 Sep 2002 21:27:49 -0000


albertel		Fri Sep 20 17:27:49 2002 EDT

  Modified files:              
    /capa/capa51/pProj	capaCommon.c 
  Log:
  - allows 34*10^1 now along with 34x10^1 and 34X10^1 BUG#765
  
  
Index: capa/capa51/pProj/capaCommon.c
diff -u capa/capa51/pProj/capaCommon.c:1.21 capa/capa51/pProj/capaCommon.c:1.22
--- capa/capa51/pProj/capaCommon.c:1.21	Wed Jun 26 13:26:09 2002
+++ capa/capa51/pProj/capaCommon.c	Fri Sep 20 17:27:49 2002
@@ -2499,7 +2499,7 @@
     while( isspace(buf[idx]) ) { idx++; }
     sscanf(num_str, "%lg", &result);  /* put the numerical value into a double variable */
     errcode = errcode | 1;
-  } else if( buf[idx] == 'x' || buf[idx] == 'X') { /* optional x or X part */
+  } else if( buf[idx] == 'x' || buf[idx] == 'X' || buf[idx] == '*') { /* optional x or X part */
     idx++; /* skip x or X */
     while( isspace(buf[idx]) ) { idx++; }