xemacs-beta: src/print.c comparison

comparison src/print.c @ 20:859a2309aef8 r19-15b93

Import from CVS: tag r19-15b93

author	cvs
date	Mon, 13 Aug 2007 08:50:05 +0200
parents	0293115a14e9
children	4103f0995bd7

comparison

equal deleted inserted replaced

-:ac1f612d5250
+:859a2309aef8
 /* This function can GC */
 write_string_1 ((CONST Bufbyte *) str, strlen (str), stream);
 }
-DEFUN ("write-char", Fwrite_char, Swrite_char, 1, 2, 0 /*
+DEFUN ("write-char", Fwrite_char, 1, 2, 0, /*
 Output character CH to stream STREAM.
 STREAM defaults to the value of `standard-output' (which see).
-*/ )
+*/
-(ch, stream)
+(ch, stream))
-Lisp_Object ch, stream;
 {
 /* This function can GC */
 Bufbyte str[MAX_EMCHAR_LEN];
 Bytecount len;
 UNGCPRO;
 return unbind_to (speccount, arg);
 }
-DEFUN ("with-output-to-temp-buffer", Fwith_output_to_temp_buffer, Swith_output_to_temp_buffer,
+DEFUN ("with-output-to-temp-buffer", Fwith_output_to_temp_buffer, 1, UNEVALLED, 0, /*
-1, UNEVALLED, 0 /*
 Bind `standard-output' to buffer BUFNAME, eval BODY, then show that buffer.
 The buffer is cleared out initially, and marked as unmodified when done.
 All output done by BODY is inserted in that buffer by default.
 The buffer is displayed in another window, but not selected.
 The value of the last form in BODY is returned.
 If BODY does not finish normally, the buffer BUFNAME is not displayed.
 If variable `temp-buffer-show-function' is non-nil, call it at the end
 to get the buffer displayed.  It gets one argument, the buffer to display.
-*/ )
+*/
-(args)
+(args))
-Lisp_Object args;
 {
 /* This function can GC */
 struct gcpro gcpro1;
 Lisp_Object name;
 int speccount = specpdl_depth ();
 return unbind_to (speccount, val);
 }
 #endif /* not standalone */
-DEFUN ("terpri", Fterpri, Sterpri, 0, 1, 0 /*
+DEFUN ("terpri", Fterpri, 0, 1, 0, /*
 Output a newline to STREAM.
 If STREAM is omitted or nil, the value of `standard-output' is used.
-*/ )
+*/
-(stream)
+(stream))
-Lisp_Object stream;
 {
 /* This function can GC */
 Bufbyte str[1];
 str[0] = '\n';
 output_string (canonicalize_printcharfun (stream), str, Qnil, 0, 1);
 return Qt;
 }
-DEFUN ("prin1", Fprin1, Sprin1, 1, 2, 0 /*
+DEFUN ("prin1", Fprin1, 1, 2, 0, /*
 Output the printed representation of OBJECT, any Lisp object.
 Quoting characters are printed when needed to make output that `read'
 can handle, whenever this is possible.
 Output stream is STREAM, or value of `standard-output' (which see).
-*/ )
+*/
-(object, stream)
+(object, stream))
-Lisp_Object object, stream;
 {
 /* This function can GC */
 Lisp_Object the_stream = Qnil;
 struct gcpro gcpro1, gcpro2, gcpro3;
 }
 /* a buffer which is used to hold output being built by prin1-to-string */
 Lisp_Object Vprin1_to_string_buffer;
-DEFUN ("prin1-to-string", Fprin1_to_string, Sprin1_to_string, 1, 2, 0 /*
+DEFUN ("prin1-to-string", Fprin1_to_string, 1, 2, 0, /*
 Return a string containing the printed representation of OBJECT,
 any Lisp object.  Quoting characters are used when needed to make output
 that `read' can handle, whenever this is possible, unless the optional
 second argument NOESCAPE is non-nil.
-*/ )
+*/
-(object, noescape)
+(object, noescape))
-Lisp_Object object, noescape;
 {
 /* This function can GC */
 Lisp_Object old = Fcurrent_buffer ();
 struct buffer *out = XBUFFER (Vprin1_to_string_buffer);
 Lisp_Object stream = Qnil;
 Fset_buffer (old);
 UNGCPRO;
 return (object);
 }
-DEFUN ("princ", Fprinc, Sprinc, 1, 2, 0 /*
+DEFUN ("princ", Fprinc, 1, 2, 0, /*
 Output the printed representation of OBJECT, any Lisp object.
 No quoting characters are used; no delimiters are printed around
 the contents of strings.
 Output stream is STREAM, or value of standard-output (which see).
-*/ )
+*/
-(obj, stream)
+(obj, stream))
-Lisp_Object obj, stream;
 {
 /* This function can GC */
 Lisp_Object the_stream = Qnil;
 struct gcpro gcpro1, gcpro2, gcpro3;
 print_finish (the_stream);
 UNGCPRO;
 return (obj);
 }
-DEFUN ("print", Fprint, Sprint, 1, 2, 0 /*
+DEFUN ("print", Fprint, 1, 2, 0, /*
 Output the printed representation of OBJECT, with newlines around it.
 Quoting characters are printed when needed to make output that `read'
 can handle, whenever this is possible.
 Output stream is STREAM, or value of `standard-output' (which see).
-*/ )
+*/
-(obj, stream)
+(obj, stream))
-Lisp_Object obj, stream;
 {
 /* This function can GC */
 Lisp_Object the_stream = Qnil;
 struct gcpro gcpro1, gcpro2, gcpro3;
 int alternate_do_pointer;
 char alternate_do_string[5000];
-DEFUN ("alternate-debugging-output", Falternate_debugging_output,
+DEFUN ("alternate-debugging-output", Falternate_debugging_output, 1, 1, 0, /*
-Salternate_debugging_output, 1, 1, 0 /*
 Append CHARACTER to the array `alternate_do_string'.
 This can be used in place of `external-debugging-output' as a function
 to be passed to `print'.  Before calling `print', set `alternate_do_pointer'
 to 0.
-*/ )
+*/
-(character)
+(character))
-Lisp_Object character;
 {
 Bufbyte str[MAX_EMCHAR_LEN];
 Bytecount len;
 int extlen;
 CONST Extbyte *extptr;
 alternate_do_pointer += extlen;
 alternate_do_string[alternate_do_pointer] = 0;
 return character;
 }
-DEFUN ("external-debugging-output", Fexternal_debugging_output,
+DEFUN ("external-debugging-output", Fexternal_debugging_output, 1, 3, 0, /*
-Sexternal_debugging_output, 1, 3, 0 /*
 Write CHAR-OR-STRING to stderr or stdout.
 If optional arg STDOUT-P is non-nil, write to stdout; otherwise, write
 to stderr.  You can use this function to write directly to the terminal.
 This function can be used as the STREAM argument of Fprint() or the like.
 If you have opened a termscript file (using `open-termscript'), then
 the output also will be logged to this file.
-*/ )
+*/
-(char_or_string, stdout_p, device)
+(char_or_string, stdout_p, device))
-Lisp_Object char_or_string, stdout_p, device;
 {
 FILE *file = 0;
 struct console *con = 0;
 if (NILP (device))
 }
 return char_or_string;
 }
-DEFUN ("open-termscript", Fopen_termscript, Sopen_termscript,
+DEFUN ("open-termscript", Fopen_termscript, 1, 1, "FOpen termscript file: ", /*
-1, 1, "FOpen termscript file: " /*
 Start writing all terminal output to FILE as well as the terminal.
 FILE = nil means just close any termscript file currently open.
-*/ )
+*/
-(file)
+(file))
-Lisp_Object file;
 {
 /* This function can GC */
 if (termscript != 0)
 fclose (termscript);
 termscript = 0;
 #endif
 defsymbol (&Qprint_length, "print-length");
 defsymbol (&Qprint_string_length, "print-string-length");
-defsubr (&Sprin1);
+DEFSUBR (Fprin1);
-defsubr (&Sprin1_to_string);
+DEFSUBR (Fprin1_to_string);
-defsubr (&Sprinc);
+DEFSUBR (Fprinc);
-defsubr (&Sprint);
+DEFSUBR (Fprint);
-defsubr (&Sterpri);
+DEFSUBR (Fterpri);
-defsubr (&Swrite_char);
+DEFSUBR (Fwrite_char);
-defsubr (&Salternate_debugging_output);
+DEFSUBR (Falternate_debugging_output);
 defsymbol (&Qalternate_debugging_output, "alternate-debugging-output");
-defsubr (&Sexternal_debugging_output);
+DEFSUBR (Fexternal_debugging_output);
-defsubr (&Sopen_termscript);
+DEFSUBR (Fopen_termscript);
 defsymbol (&Qexternal_debugging_output, "external-debugging-output");
 #ifndef standalone
-defsubr (&Swith_output_to_temp_buffer);
+DEFSUBR (Fwith_output_to_temp_buffer);
 #endif /* not standalone */
 }
 void
 lstream_type_create_print (void)

Mercurial > hg > xemacs-beta

comparison src/print.c @ 20:859a2309aef8 r19-15b93