* posixmodule.c: added set{uid,gid}.

gvanrossum · gvanrossum · commit a3d78fb268da · 1993-11-10T09:23:53.000Z
* {tuple,list,mapping,array}object.c: call printobject with 0 for flags
* compile.c (parsestr): use quote instead of '\'' at one crucial point
* arraymodule.c (array_getattr): Added __members__ attribute
diff --git a/Modules/arraymodule.c b/Modules/arraymodule.c
@@ -993,6 +993,18 @@ array_getattr(a, name)
 	if (strcmp(name, "itemsize") == 0) {
 		return newintobject((long)a->ob_descr->itemsize);
 	}
+	if (strcmp(name, "__members__") == 0) {
+		object *list = newlistobject(2);
+		if (list) {
+			setlistitem(list, 0, newstringobject("typecode"));
+			setlistitem(list, 1, newstringobject("itemsize"));
+			if (err_occurred()) {
+				DECREF(list);
+				list = NULL;
+			}
+		}
+		return list;
+	}
 	return findmethod(array_methods, (object *)a, name);
 }
 
@@ -1013,7 +1025,7 @@ array_print(a, fp, flags)
 	if (a->ob_descr->typecode == 'c') {
 		fprintf(fp, "array('c', ");
 		v = array_tostring(a, (object *)NULL);
-		ok = printobject(v, fp, flags);
+		ok = printobject(v, fp, 0);
 		XDECREF(v);
 		fprintf(fp, ")");
 		return ok;
@@ -1023,7 +1035,7 @@ array_print(a, fp, flags)
 		if (i > 0)
 			fprintf(fp, ", ");
 		v = (a->ob_descr->getitem)(a, i);
-		ok = printobject(v, fp, flags);
+		ok = printobject(v, fp, 0);
 		XDECREF(v);
 	}
 	fprintf(fp, "])");
diff --git a/Modules/posixmodule.c b/Modules/posixmodule.c
@@ -865,6 +865,34 @@ posix_popen(self, args)
 	return newopenfileobject(fp, name, mode, pclose);
 }
 
+static object *
+posix_setuid(self, args)
+	object *self;
+	object *args;
+{
+	int uid;
+	if (!getargs(args, "i", &uid))
+		return NULL;
+	if (setuid(uid) < 0)
+		return posix_error();
+	INCREF(None);
+	return None;
+}
+
+static object *
+posix_setgid(self, args)
+	object *self;
+	object *args;
+{
+	int gid;
+	if (!getargs(args, "i", &gid))
+		return NULL;
+	if (setgid(gid) < 0)
+		return posix_error();
+	INCREF(None);
+	return None;
+}
+
 static object *
 posix_waitpid(self, args)
 	object *self;
@@ -1288,6 +1316,8 @@ static struct methodlist posix_methods[] = {
 	{"getuid",	posix_getuid},
 	{"kill",	posix_kill},
 	{"popen",	posix_popen},
+	{"setuid",	posix_setuid},
+	{"setgid",	posix_setgid},
 	{"setpgrp",	posix_setpgrp},
 	{"wait",	posix_wait},
 	{"waitpid",	posix_waitpid},
diff --git a/Objects/dictobject.c b/Objects/dictobject.c
@@ -395,10 +395,10 @@ mapping_print(mp, fp, flags)
 		if (ep->me_value != NULL) {
 			if (any++ > 0)
 				fprintf(fp, ", ");
-			if (printobject((object *)ep->me_key, fp, flags) != 0)
+			if (printobject((object *)ep->me_key, fp, 0) != 0)
 				return -1;
 			fprintf(fp, ": ");
-			if (printobject(ep->me_value, fp, flags) != 0)
+			if (printobject(ep->me_value, fp, 0) != 0)
 				return -1;
 		}
 	}
diff --git a/Objects/listobject.c b/Objects/listobject.c
@@ -200,7 +200,7 @@ list_print(op, fp, flags)
 	for (i = 0; i < op->ob_size; i++) {
 		if (i > 0)
 			fprintf(fp, ", ");
-		if (printobject(op->ob_item[i], fp, flags) != 0)
+		if (printobject(op->ob_item[i], fp, 0) != 0)
 			return -1;
 	}
 	fprintf(fp, "]");
diff --git a/Objects/mappingobject.c b/Objects/mappingobject.c
@@ -395,10 +395,10 @@ mapping_print(mp, fp, flags)
 		if (ep->me_value != NULL) {
 			if (any++ > 0)
 				fprintf(fp, ", ");
-			if (printobject((object *)ep->me_key, fp, flags) != 0)
+			if (printobject((object *)ep->me_key, fp, 0) != 0)
 				return -1;
 			fprintf(fp, ": ");
-			if (printobject(ep->me_value, fp, flags) != 0)
+			if (printobject(ep->me_value, fp, 0) != 0)
 				return -1;
 		}
 	}
diff --git a/Objects/tupleobject.c b/Objects/tupleobject.c
@@ -167,7 +167,7 @@ tupleprint(op, fp, flags)
 	for (i = 0; i < op->ob_size; i++) {
 		if (i > 0)
 			fprintf(fp, ", ");
-		if (printobject(op->ob_item[i], fp, flags) != 0)
+		if (printobject(op->ob_item[i], fp, 0) != 0)
 			return -1;
 	}
 	if (op->ob_size == 1)
diff --git a/Python/compile.c b/Python/compile.c
@@ -529,7 +529,7 @@ parsestr(s)
 		return newsizedstringobject(s, len);
 	v = newsizedstringobject((char *)NULL, len);
 	p = buf = getstringvalue(v);
-	while (*s != '\0' && *s != '\'') {
+	while (*s != '\0' && *s != quote) {
 		if (*s != '\\') {
 			*p++ = *s++;
 			continue;

Original file line number	Diff line number	Diff line change
`@@ -395,10 +395,10 @@ mapping_print(mp, fp, flags)`
`395`	`395`	`if (ep->me_value != NULL) {`
`396`	`396`	`if (any++ > 0)`
`397`	`397`	`fprintf(fp, ", ");`
`398`		`- if (printobject((object *)ep->me_key, fp, flags) != 0)`
	`398`	`+ if (printobject((object *)ep->me_key, fp, 0) != 0)`
`399`	`399`	`return -1;`
`400`	`400`	`fprintf(fp, ": ");`
`401`		`- if (printobject(ep->me_value, fp, flags) != 0)`
	`401`	`+ if (printobject(ep->me_value, fp, 0) != 0)`
`402`	`402`	`return -1;`
`403`	`403`	`}`
`404`	`404`	`}`
Original file line number	Diff line number	Diff line change
`@@ -200,7 +200,7 @@ list_print(op, fp, flags)`
`200`	`200`	`for (i = 0; i < op->ob_size; i++) {`
`201`	`201`	`if (i > 0)`
`202`	`202`	`fprintf(fp, ", ");`
`203`		`- if (printobject(op->ob_item[i], fp, flags) != 0)`
	`203`	`+ if (printobject(op->ob_item[i], fp, 0) != 0)`
`204`	`204`	`return -1;`
`205`	`205`	`}`
`206`	`206`	`fprintf(fp, "]");`
Original file line number	Diff line number	Diff line change
`@@ -167,7 +167,7 @@ tupleprint(op, fp, flags)`
`167`	`167`	`for (i = 0; i < op->ob_size; i++) {`
`168`	`168`	`if (i > 0)`
`169`	`169`	`fprintf(fp, ", ");`
`170`		`- if (printobject(op->ob_item[i], fp, flags) != 0)`
	`170`	`+ if (printobject(op->ob_item[i], fp, 0) != 0)`
`171`	`171`	`return -1;`
`172`	`172`	`}`
`173`	`173`	`if (op->ob_size == 1)`