X-Git-Url: https://jxself.org/git/?p=open-adventure.git;a=blobdiff_plain;f=main.c;h=0eab6e8d19bacb4b49d0e89a655fed530f4633e9;hp=17a5e4371ebdf6a66315b23991d9953669999342;hb=87c6d3fb1e583e4d2fa6fd9532287b34b3948d77;hpb=24d102781c2ec6fef8246b53250dc7590e71fff7

diff --git a/main.c b/main.c
index 17a5e43..0eab6e8 100644
--- a/main.c
+++ b/main.c
@@ -1059,10 +1059,22 @@ Lclearobj:
             return false;
 
 #ifdef GDEBUG
-	printf("Preserve: type1 = %u, id1 = %ld, type2 = %u, id2 = %ld\n",
-	       preserve.word[0].type, preserve.word[0].id, preserve.word[1].type, preserve.word[1].id);
-	printf("Command: type1 = %u, id1 = %ld, type2 = %u, id2 = %ld\n",
-	       command.word[0].type, command.word[0].id, command.word[1].type, command.word[1].id);
+	/* Needs to stay synced with enum word_type_t */
+	const char *types[] = {"NO_WORD_TYPE", "MOTION", "OBJECT", "ACTION", "NUMERIC"};
+	/* needs to stay synced with enum speechpart */
+	const char *roles[] = {"unknown", "intransitive", "transitive"};
+	printf("Preserve: role = %s type1 = %s, id1 = %ld, type2 = %s, id2 = %ld\n",
+	       roles[preserve.part],
+	       types[preserve.word[0].type],
+	       preserve.word[0].id,
+	       types[preserve.word[1].type],
+	       preserve.word[1].id);
+	printf("Command: role = %s type1 = %s, id1 = %ld, type2 = %s, id2 = %ld\n",
+	       roles[command.part],
+	       types[command.word[0].type],
+	       command.word[0].id,
+	       types[command.word[1].type],
+	       command.word[1].id);
 #endif
 
 	/* Handle of objectless action followed by actionless object */
@@ -1109,18 +1121,30 @@ Lclearobj:
                     command.word[0].id = ENTRANCE;
                 }
             }
-            if (!((command.word[0].id != WATER && command.word[0].id != OIL) || (command.word[1].id != PLANT && command.word[1].id != DOOR))) {
+            if ((command.word[0].id == WATER || command.word[0].id == OIL) && (command.word[1].id == PLANT || command.word[1].id == DOOR)) {
                 if (AT(command.word[1].id)) {
-                    command.word[1].id = POUR;
-                    command.word[1].type = ACTION;
-                    strncpy(command.word[1].raw, "POUR", LINESIZE - 1);
+		    memcpy(&command.word[1], &command.word[0],
+			   sizeof(command_word_t));
+		    command.word[0].id = POUR;
+                    command.word[0].type = ACTION;
+                    strncpy(command.word[0].raw, "pour", LINESIZE - 1);
                 }
             }
             if (command.word[0].id == CAGE && command.word[1].id == BIRD && HERE(CAGE) && HERE(BIRD)) {
                 command.word[0].id = CARRY;
                 command.word[0].type = ACTION;
-                strncpy(command.word[1].raw, "CATCH", LINESIZE - 1);
             }
+
+	    /* From OV to VO form */
+	    if (command.word[0].type==OBJECT && command.word[1].type==ACTION) {
+		command_word_t stage;
+		memcpy(&stage, &command.word[0],
+			   sizeof(command_word_t));
+		memcpy(&command.word[0], &command.word[1],
+			   sizeof(command_word_t));
+		memcpy(&command.word[1], &stage,
+			   sizeof(command_word_t));
+	    }
         }
 
 Lookup:
@@ -1167,6 +1191,9 @@ Lookup:
         case GO_TOP:
             continue;	/* back to top of main interpreter loop */
         case GO_WORD2:
+#ifdef GDEBUG
+	    printf("Word shift\n");
+#endif /* GDEBUG */
             /* Get second word for analysis. */
   	    command.word[0] = command.word[1];
 	    command.word[1] = empty_command_word;