Ticket #56381: 2nd_macports_append_history.patch

src/pextlib1.0/readline.c

@@ -267 +267 @@
                 add line
                 read filename
                 write filename
+                append filename
                 stifle max
                 unstifle
 */
@@ -277 +278 @@
         char* s = NULL;
         int i = 0;
         Tcl_Obj *tcl_result;
+        FILE *hist_file;
 #endif
 
         if (objc < 2) {
@@ -309 +311 @@
                 }
                 s = Tcl_GetString(objv[2]);
                 write_history(s);
+        }  else if (0 == strcmp("append", action)) {
+                if (objc != 3) {
+                        Tcl_WrongNumArgs(interp, 1, objv, "append filename");
+                        return TCL_ERROR;
+                }
+                s = Tcl_GetString(objv[2]);
+
+                hist_file = fopen(s, "a");
+                fprintf(hist_file, "%s\n", current_history()->line);
+                fclose(hist_file);
         } else if (0 == strcmp("stifle", action)) {
                 if (objc != 3) {
                         Tcl_WrongNumArgs(interp, 1, objv, "stifle maxlines");

src/port/port.tcl

@@ -4802 +4802 @@
 }
 
 
-proc get_next_cmdline { in out use_readline prompt linename } {
+proc get_next_cmdline { in out use_readline prompt linename history_file } {
     upvar $linename line
 
     set line ""
@@ -4828 +4828 @@
         set line [string trim $line]
 
         if { $use_readline && $line ne "" } {
+            # Create macports user directory if it does not exist yet
+            if {![file isdirectory $macports::macports_user_dir]} {
+                file mkdir $macports::macports_user_dir
+
+                # Also write the history file if this is the case (this sets
+                # the cookie at the top of the file and perhaps other things)
+                rl_history write $history_file
+            }
+
+            # Add history item to memory...
             rl_history add $line
+            # ... and then append that item to the history file
+            rl_history append $history_file
         }
     }
 
@@ -4870 +4882 @@
         }
 
         # Get a command line
-        if { [get_next_cmdline $in stdout $use_readline $prompt line] <= 0  } {
+        if { [get_next_cmdline $in stdout $use_readline $prompt line $history_file] <= 0  } {
             puts ""
             break
         }
@@ -4885 +4897 @@
         }
     }
 
-    # Create macports user directory if it does not exist yet
-    if {$use_readline && ![file isdirectory $macports::macports_user_dir]} {
-        file mkdir $macports::macports_user_dir
-    }
-    # Save readine history
-    if {$use_readline && [file isdirectory $macports::macports_user_dir]} {
-        rl_history write $history_file
-    }
-
     # Say goodbye
     if { $noisy } {
         puts "Goodbye"