shithub: sl

Info  •  Files  •  Log  •  Branches

print_iostream: dump the filename as well, if any; make std* file names match their in-lisp symbols

--- a/ios.c

+++ b/ios.c

@@ -796,17 +796,17 @@

 {

 	ios_stdin = LLT_ALLOC(sizeof(ios_t));

 	ios_fd(ios_stdin, STDIN_FILENO, 0, 0);

-	ios_stdin->filename = LLT_STRDUP("<stdin>");

+	ios_stdin->filename = LLT_STRDUP("*stdin*");

 	ios_stdout = LLT_ALLOC(sizeof(ios_t));

 	ios_fd(ios_stdout, STDOUT_FILENO, 0, 0);

 	ios_stdout->bm = bm_line;

-	ios_stdout->filename = LLT_STRDUP("<stdout>");

+	ios_stdout->filename = LLT_STRDUP("*stdout*");

 	ios_stderr = LLT_ALLOC(sizeof(ios_t));

 	ios_fd(ios_stderr, STDERR_FILENO, 0, 0);

 	ios_stderr->bm = bm_none;

-	ios_stderr->filename = LLT_STRDUP("<stderr>");

+	ios_stderr->filename = LLT_STRDUP("*stderr*");

 }

 /* higher level interface */

--- a/iostream.c

+++ b/iostream.c

@@ -10,7 +10,12 @@

 print_iostream(value_t v, ios_t *f)

 {

 	USED(v);

-	fl_print_str("#<io stream>", f);

+	fl_print_str("#<io stream", f);

+	if(*f->filename){

+		fl_print_chr(' ', f);

+		fl_print_str(f->filename, f);

+	}

+	fl_print_chr('>', f);

 }

 static void

-- 

⑨