rev 614 - in trunk: . src

Author: mark
Date: 2004-06-12 20:15:06 -0400 (Sat, 12 Jun 2004)
New Revision: 614

Modified:
   trunk/STATUS.txt
   trunk/src/prothon.y
Log:
changed octal constant format to 0o377

Modified: trunk/STATUS.txt
===================================================================
--- trunk/STATUS.txt	2004-06-12 23:25:39 UTC (rev 613)
+++ trunk/STATUS.txt	2004-06-13 00:15:06 UTC (rev 614)
@@ -4,12 +4,15 @@
 --- add int.str_(spec), float.str_(spec), and vars_ default for str.fmt()
 --- support list and dictionary object params in string.fmt() ???
 
+--- add \u0000 \U00000000 and \N{name} esc sequences
+
 --- unicode module
 		mask off top 3 bits
 		http://www.prothon.org/pipermail/prothon-user/2004-June/001913.html
 		http://www.prothon.org/pipermail/prothon-user/2004-June/001895.html
+		http://www.prothon.org/pipermail/prothon-user/2004-June/001918.html
 		http://www.unicode.org/versions/Unicode4.0.0/ch05.pdf
-		
+
 --- add Object.data_ (builtins-databytes.c)
 
 --- Complete File/Dir objects

Modified: trunk/src/prothon.y
===================================================================
--- trunk/src/prothon.y	2004-06-12 23:25:39 UTC (rev 613)
+++ trunk/src/prothon.y	2004-06-13 00:15:06 UTC (rev 614)
@@ -1195,11 +1195,11 @@
 			while ( ((c=getch(state)) >= '0' && c <= '9')				             ||
 				    (hex_flag && ((c >= 'a' && c <= 'f') || (c >= 'A' && c <= 'F'))) ||
 			        (str_index == 1 && str_ptr[0] == '0' && (c == 'x' || c == 'X'))	 ||
-			        (str_index == 1 && str_ptr[0] == '0' && (c == 'c' || c == 'C'))	 ||
-			                                       c == 'j' || c == 'J' || c == '_' ) {
+			        (str_index == 1 && str_ptr[0] == '0' &&  c == 'o')	             ||
+			         c == 'j' || c == 'J' || c == '_'                                  ) {
 			    if (c != '_')
 					add_string(c, &str_ptr, &str_index, &cur_size);
-				if (c == 'c' || c == 'C')
+				if (c == 'o')
 					octal_flag = 1;
 				else if (c == 'x' || c == 'X')
 					hex_flag = 1;