rev 609 - trunk/src

Author: mark
Date: 2004-06-12 15:49:51 -0400 (Sat, 12 Jun 2004)
New Revision: 609

Modified:
   trunk/src/console.c
   trunk/src/init.pth
   trunk/src/object.h
   trunk/src/sys.c
Log:
changed Sys to sys, changed sys.ps1, sys.ps2 to 
sys.cons.ps1, sys.cons.ps2

Modified: trunk/src/console.c
===================================================================
--- trunk/src/console.c	2004-06-12 19:44:17 UTC (rev 608)
+++ trunk/src/console.c	2004-06-12 19:49:51 UTC (rev 609)
@@ -87,7 +87,7 @@
 
 char* ps1(isp ist){
 	obj_p prompt;
-	if (!sys) sys = get_attr(ist, OBJ(OBJECT), sym(ist, "Sys"));
+	if (!sys) sys = get_attr(ist, OBJ(OBJECT), sym(ist, "sys"));
 	prompt = get_attr(ist, sys, sym(ist, "cons"));
 	prompt = get_attr(ist, prompt, sym(ist, "ps1"));
 	return pr2c_strptr(ist, prompt);
@@ -95,7 +95,7 @@
 
 char* ps2(isp ist){
 	obj_p prompt;
-	if (!sys) sys = get_attr(ist, OBJ(OBJECT), sym(ist, "Sys"));
+	if (!sys) sys = get_attr(ist, OBJ(OBJECT), sym(ist, "sys"));
 	prompt = get_attr(ist, sys, sym(ist, "cons"));
 	prompt = get_attr(ist, prompt, sym(ist, "ps2"));
 	return pr2c_strptr(ist, prompt);

Modified: trunk/src/init.pth
===================================================================
--- trunk/src/init.pth	2004-06-12 19:44:17 UTC (rev 608)
+++ trunk/src/init.pth	2004-06-12 19:49:51 UTC (rev 609)
@@ -3,7 +3,7 @@
 
 # This is loaded automatically whenever prothon loads
 
-# these are added to Sys.path
+# these are added to sys.path
 
 c:\prothon\modules\re\debug
 c:\prothon\modules\prosist\debug
Modified: trunk/src/object.h
===================================================================
--- trunk/src/object.h	2004-06-12 19:44:17 UTC (rev 608)
+++ trunk/src/object.h	2004-06-12 19:49:51 UTC (rev 609)
@@ -168,7 +168,7 @@
 
 obj_p load_sys_module(isp ist, char* prog_path, obj_p argv_obj);
 #define get_sys_path_list()  \
-	get_attr(ist, get_attr(ist, OBJ(MODULES), sym(ist, "Sys")), sym(ist, "path"))
+	get_attr(ist, get_attr(ist, OBJ(MODULES), sym(ist, "sys")), sym(ist, "path"))
 
 // common exit point for debug breakpoints
 void pr_exit(int n);

Modified: trunk/src/sys.c
===================================================================
--- trunk/src/sys.c	2004-06-12 19:44:17 UTC (rev 608)
+++ trunk/src/sys.c	2004-06-12 19:49:51 UTC (rev 609)
@@ -88,7 +88,7 @@
 static obj_p sys_exit(isp ist, obj_p self, int pcnt, obj_p* parms, obj_p dlocals) {
 	apr_thread_t* apr_thread;
 	if (!has_proto(ist, parms[1], OBJ(INT_PROTO))) {
-		raise_exception(ist, OBJ(TYPE_EXC), "Sys.exit parameter must be an integer");
+		raise_exception(ist, OBJ(TYPE_EXC), "sys.exit parameter must be an integer");
 		return NULL;
 	}
 	main_threads_running--;
@@ -145,9 +145,9 @@
 
 	sys_path = NEW_LIST(10);
 	sys_module = NEW_OBJ(OBJ(OBJECT));
-	set_attr(ist, OBJ(MODULES),sym(ist, "Sys"), sys_module);
-	set_attr(ist, OBJ(OBJECT), sym(ist, "Sys"), sys_module);
-	set_obj_doc(sys_module, "Sys: a built-in module of system attributes");
+	set_attr(ist, OBJ(MODULES),sym(ist, "sys"), sys_module);
+	set_attr(ist, OBJ(OBJECT), sym(ist, "sys"), sys_module);
+	set_obj_doc(sys_module, "sys: a built-in module of system attributes");
 	add_path(ist, sys_path, "."); if_exc_return NULL;
 #ifdef PROTHON_DEFAULT_MODDIR
 	add_path(ist, sys_path, PROTHON_DEFAULT_MODDIR); if_exc_return NULL;