octave-nkf: src/input.cc comparison

[project @ 2007-12-11 18:55:46 by jwe]

comparison

equal deleted inserted replaced

-:d45fc511fc5d
+:fb902b3b2a5d
 // TRUE if the plotting system has requested a call to drawnow at
 // the next user prompt.
 static bool Vdrawnow_requested = false;
+// TRUE if we are running in the Emacs GUD mode.
+static bool Vgud_mode = false;
 static void
 do_input_echo (const std::string& input_string)
 {
 int do_echo = reading_script_file ?
 (Vecho_executing_commands & ECHO_SCRIPTS)
 std::ostringstream buf;
 if (! nm.empty ())
 {
-buf << "stopped in " << nm;
+if (Vgud_mode)
+	{
-if (line > 0)
+	  static char ctrl_z = 'Z' & 0x1f;
-	buf << " at line " << line;
+	  buf << ctrl_z << ctrl_z << nm << ":" << line;
+	}
+else
+	{
+	  buf << "stopped in " << nm;
+	  if (line > 0)
+	    buf << " at line " << line;
+	}
 }
 std::string msg = buf.str ();
 if (! msg.empty ())
-message ("keyboard", msg.c_str ());
+message (Vgud_mode ? 0 : "keyboard", msg.c_str ());
 std::string prompt = "debug> ";
 if (nargin > 0)
 {
 print_usage ();
 return retval;
 }
+DEFUN (__gud_mode__, args, ,
+"-*- texinfo -*-\n\
+@deftypefn {Built-in Function} {} __gud_mode__ ()\n\
+Undocumented internal function.\n\
+@end deftypefn")
+{
+octave_value retval;
+int nargin = args.length ();
+if (nargin == 0)
+retval = Vgud_mode;
+else if (nargin == 1)
+Vgud_mode = args(0).bool_value ();
+else
+print_usage ();
+return retval;
+}
 /*
 ;;; Local Variables: ***
 ;;; mode: C++ ***
 ;;; End: ***
 */

Mercurial > octave-nkf