--- parser3/src/main/execute.C	2001/02/23 11:39:58	1.25
+++ parser3/src/main/execute.C	2001/02/23 12:03:51	1.27
@@ -1,5 +1,5 @@
 /*
-  $Id: execute.C,v 1.25 2001/02/23 11:39:58 paf Exp $
+  $Id: execute.C,v 1.27 2001/02/23 12:03:51 paf Exp $
 */
 
 #include "pa_array.h" 
@@ -33,7 +33,7 @@ char *opcode_name[]={
 void dump(int level, const Array& ops) {
 	if(0){
 		int size=ops.size();
-		printf("size=%d\n", size);
+		//printf("size=%d\n", size);
 		for(int i=0; i<size; i++) {
 			Operation op;
 			op.cast=ops.quick_get(i);
@@ -42,7 +42,7 @@ void dump(int level, const Array& ops) {
 	}
 
 	int size=ops.size();
-	printf("size=%d\n", size);
+	//printf("size=%d\n", size);
 	for(int i=0; i<size; i++) {
 		Operation op;
 		op.cast=ops.quick_get(i);
@@ -69,7 +69,7 @@ void Request::execute(Array& ops) {
 	}
 
 	int size=ops.size();
-	printf("size=%d\n", size);
+	//printf("size=%d\n", size);
 	for(int i=0; i<size; i++) {
 		Operation op;
 		op.cast=ops.quick_get(i);
@@ -155,6 +155,25 @@ void Request::execute(Array& ops) {
 				break;
 			}
 			
+		case OP_CREATE_RWPOOL:
+			{
+				Value *ncontext=POP();
+				PUSH(rcontext);
+				rcontext=ncontext;
+				PUSH(wcontext);
+				wcontext=NEW WContext(pool(), ncontext);
+				break;
+			}
+		case OP_REDUCE_RWPOOL:
+			{
+				String *string=wcontext->get_string();
+				Value *value=NEW VString(string);
+				wcontext=static_cast<WContext *>(POP());
+				rcontext=POP();
+				PUSH(value);
+				break;
+			}
+
 		default:
 			printf("\tTODO");
 			break;
@@ -170,8 +189,6 @@ Value *Request::get_element() {
 	// name бывает имя junction, тогда или оставляет в покое, или вычисляет в зависимости от флага АВТОВЫЧИСЛЯТЬ
 
 	if(!value) {
-//		value=NEW VHash(pool());
-//		ncontext->put_element(*name, value);
 		value=NEW VUnknown(pool());
 		value->set_name(name);
 	}