Add \n\ to ends of documentation lines.

diff --git a/v7/src/microcode/starbase.c b/v7/src/microcode/starbase.c
index da351611e3adc2f58138ca427b35ffd1760b427a..2596fd6ef43b4db3856d622e42ecf06d6b727fee 100644 (file)
--- a/v7/src/microcode/starbase.c
+++ b/v7/src/microcode/starbase.c
@@ -1,6 +1,6 @@
 /* -*-C-*-
 
-$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/microcode/Attic/starbase.c,v 1.1 1989/06/21 10:22:07 cph Exp $
+$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/microcode/Attic/starbase.c,v 1.2 1989/06/21 11:46:20 cph Rel $
 
 Copyright (c) 1989 Massachusetts Institute of Technology
 
@@ -137,8 +137,8 @@ DEFINE_PRIMITIVE ("STARBASE-FLUSH", Prim_starbase_flush, 1, 1, 0)
 }
 
 DEFINE_PRIMITIVE ("STARBASE-CLEAR", Prim_starbase_clear, 1, 1,
-  "(STARBASE-CLEAR DEVICE)
-Clear the graphics section of the screen.
+  "(STARBASE-CLEAR DEVICE)\n\
+Clear the graphics section of the screen.\n\
 Uses the Starbase CLEAR_VIEW_SURFACE procedure.")
 {
   PRIMITIVE_HEADER (1);
@@ -148,9 +148,9 @@ Uses the Starbase CLEAR_VIEW_SURFACE procedure.")
 }
 
 DEFINE_PRIMITIVE ("STARBASE-DRAW-POINT", Prim_starbase_draw_point, 3, 3,
-  "(STARBASE-DRAW-POINT DEVICE X Y)
-Draw one point at the given coordinates.
-Subsequently move the graphics cursor to those coordinates.
+  "(STARBASE-DRAW-POINT DEVICE X Y)\n\
+Draw one point at the given coordinates.\n\
+Subsequently move the graphics cursor to those coordinates.\n\
 Uses the starbase procedures `move2d' and `draw2d'.")
 {
   int descriptor;
@@ -166,8 +166,8 @@ Uses the starbase procedures `move2d' and `draw2d'.")
 }
 \f
 DEFINE_PRIMITIVE ("STARBASE-MOVE-CURSOR", Prim_starbase_move_cursor, 3, 3,
-  "(STARBASE-MOVE-CURSOR DEVICE X Y)
-Move the graphics cursor to the given coordinates.
+  "(STARBASE-MOVE-CURSOR DEVICE X Y)\n\
+Move the graphics cursor to the given coordinates.\n\
 Uses the starbase procedure `move2d'.")
 {
   int descriptor;
@@ -182,9 +182,9 @@ Uses the starbase procedure `move2d'.")
 }
 
 DEFINE_PRIMITIVE ("STARBASE-DRAG-CURSOR", Prim_starbase_drag_cursor, 3, 3,
-  "(STARBASE-DRAG-CURSOR DEVICE X Y)
-Draw a line from the graphics cursor to the given coordinates.
-Subsequently move the graphics cursor to those coordinates.
+  "(STARBASE-DRAG-CURSOR DEVICE X Y)\n\
+Draw a line from the graphics cursor to the given coordinates.\n\
+Subsequently move the graphics cursor to those coordinates.\n\
 Uses the starbase procedure `draw2d'.")
 {
   int descriptor;
@@ -199,9 +199,9 @@ Uses the starbase procedure `draw2d'.")
 }
 
 DEFINE_PRIMITIVE ("STARBASE-DRAW-LINE", Prim_starbase_draw_line, 5, 5,
-  "(STARBASE-DRAW-LINE DEVICE X-START Y-START X-END Y-END)
-Draw a line from the start coordinates to the end coordinates.
-Subsequently move the graphics cursor to the end coordinates.
+  "(STARBASE-DRAW-LINE DEVICE X-START Y-START X-END Y-END)\n\
+Draw a line from the start coordinates to the end coordinates.\n\
+Subsequently move the graphics cursor to the end coordinates.\n\
 Uses the starbase procedures `move2d' and `draw2d'.")
 {
   int descriptor;
@@ -219,9 +219,9 @@ Uses the starbase procedures `move2d' and `draw2d'.")
 }
 
 DEFINE_PRIMITIVE ("STARBASE-SET-LINE-STYLE", Prim_starbase_set_line_style, 2, 2,
-  "(STARBASE-SET-LINE-STYLE DEVICE STYLE)
-Changes the line drawing style.
-The STYLE argument is an integer in the range 0-7 inclusive.
+  "(STARBASE-SET-LINE-STYLE DEVICE STYLE)\n\
+Changes the line drawing style.\n\
+The STYLE argument is an integer in the range 0-7 inclusive.\n\
 See the description of the starbase procedure `line_type'.")
 {
   PRIMITIVE_HEADER (2);
@@ -231,9 +231,9 @@ See the description of the starbase procedure `line_type'.")
 }
 
 DEFINE_PRIMITIVE ("STARBASE-SET-DRAWING-MODE", Prim_starbase_set_drawing_mode, 2, 2,
-  "(STARBASE-SET-DRAWING-MODE DEVICE MODE)
-Changes the replacement rule used when drawing.
-The MODE argument is an integer in the range 0-15 inclusive.
+  "(STARBASE-SET-DRAWING-MODE DEVICE MODE)\n\
+Changes the replacement rule used when drawing.\n\
+The MODE argument is an integer in the range 0-15 inclusive.\n\
 See the description of the starbase procedure `drawing_mode'.")
 {
   PRIMITIVE_HEADER (2);
@@ -280,7 +280,7 @@ DEFINE_PRIMITIVE ("STARBASE-SET-VDC-EXTENT", Prim_starbase_set_vdc_extent, 5, 5,
 }
 
 DEFINE_PRIMITIVE ("STARBASE-RESET-CLIP-RECTANGLE", Prim_starbase_reset_clip_rectangle, 1, 1,
-  "(STARBASE-RESET-CLIP-RECTANGLE DEVICE)
+  "(STARBASE-RESET-CLIP-RECTANGLE DEVICE)\n\
 Undo the clip rectangle.  Subsequently, clipping is not affected by it.")
 {
   int descriptor;
@@ -293,7 +293,7 @@ Undo the clip rectangle.  Subsequently, clipping is not affected by it.")
 }
 
 DEFINE_PRIMITIVE ("STARBASE-SET-CLIP-RECTANGLE", Prim_starbase_set_clip_rectangle, 5, 5,
-  "(STARBASE-SET-CLIP-RECTANGLE X-LEFT Y-BOTTOM X-RIGHT Y-TOP)
+  "(STARBASE-SET-CLIP-RECTANGLE X-LEFT Y-BOTTOM X-RIGHT Y-TOP)\n\
 Restrict the graphics drawing primitives to the area in the given rectangle.")
 {
   int descriptor;
@@ -385,9 +385,9 @@ DEFINE_PRIMITIVE ("STARBASE-COLOR-MAP-SIZE", Prim_starbase_color_map_size, 1, 1,
 }
 
 DEFINE_PRIMITIVE ("STARBASE-DEFINE-COLOR", Prim_starbase_define_color, 5, 5,
-  "(STARBASE-DEFINE-COLOR COLOR-INDEX RED GREEN BLUE)
-COLOR-INDEX must be a valid index for the current device's color map.
-RED, GREEN, and BLUE must be numbers between 0 and 1 inclusive.
+  "(STARBASE-DEFINE-COLOR COLOR-INDEX RED GREEN BLUE)\n\
+COLOR-INDEX must be a valid index for the current device's color map.\n\
+RED, GREEN, and BLUE must be numbers between 0 and 1 inclusive.\n\
 Changes the color map, defining COLOR-INDEX to be the given RGB color.")
 {
   int descriptor;
@@ -407,9 +407,9 @@ Changes the color map, defining COLOR-INDEX to be the given RGB color.")
 }
 
 DEFINE_PRIMITIVE ("STARBASE-SET-LINE-COLOR", Prim_starbase_set_line_color, 2, 2,
-  "(STARBASE-SET-LINE-COLOR DEVICE COLOR-INDEX)
-COLOR-INDEX must be a valid index for the current device's color map.
-Changes the color used for drawing most things.
+  "(STARBASE-SET-LINE-COLOR DEVICE COLOR-INDEX)\n\
+COLOR-INDEX must be a valid index for the current device's color map.\n\
+Changes the color used for drawing most things.\n\
 Does not take effect until the next starbase output operation.")
 {
   int descriptor;
@@ -426,9 +426,9 @@ Does not take effect until the next starbase output operation.")
 static void print_graphics ();
 
 DEFINE_PRIMITIVE ("STARBASE-WRITE-IMAGE-FILE", Prim_starbase_write_image_file, 3, 3,
-  "(STARBASE-WRITE-IMAGE-FILE DEVICE FILENAME INVERT?)
-Write a file containing an image of the DEVICE's screen, in a format
-suitable for printing on an HP laserjet printer.
+  "(STARBASE-WRITE-IMAGE-FILE DEVICE FILENAME INVERT?)\n\
+Write a file containing an image of the DEVICE's screen, in a format\n\
+suitable for printing on an HP laserjet printer.\n\
 If INVERT? is not #F, invert black and white in the output.")
 {
   PRIMITIVE_HEADER (3);

diff --git a/v7/src/microcode/starbasx.c b/v7/src/microcode/starbasx.c
index d6f6165bcd9f87c3983f0d8cd56a85c2dd7995c5..161af586f5a02f7eb574e16c61912c0ab372c015 100644 (file)
--- a/v7/src/microcode/starbasx.c
+++ b/v7/src/microcode/starbasx.c
@@ -1,6 +1,6 @@
 /* -*-C-*-
 
-$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/microcode/Attic/starbasx.c,v 1.1 1989/06/21 10:22:19 cph Exp $
+$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/microcode/Attic/starbasx.c,v 1.2 1989/06/21 11:46:12 cph Rel $
 
 Copyright (c) 1989 Massachusetts Institute of Technology
 
@@ -40,7 +40,7 @@ MIT in each case. */
 #include <starbase.c.h>
 
 DEFINE_PRIMITIVE ("X11-WINDOW-STARBASE-FILENAME", Prim_x11_window_starbase_filename, 1, 1,
-  "Given a window, returns the name of a file which can be opened
+  "Given a window, returns the name of a file which can be opened\n\
 as a Starbase graphics device.")
 {
   struct xwindow * xw;

diff --git a/v7/src/microcode/x11graph.c b/v7/src/microcode/x11graph.c
index 68a0b17b407ad978da6dd7698a29d072ab8a4ec7..d05d30fa79e8bfb3c0eaea148c6dbadca5fc675d 100644 (file)
--- a/v7/src/microcode/x11graph.c
+++ b/v7/src/microcode/x11graph.c
@@ -1,6 +1,6 @@
 /* -*-C-*-
 
-$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/microcode/x11graph.c,v 1.1 1989/06/21 10:18:51 cph Exp $
+$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/microcode/x11graph.c,v 1.2 1989/06/21 11:44:39 cph Exp $
 
 Copyright (c) 1989 Massachusetts Institute of Technology
 
@@ -257,7 +257,7 @@ process_events (xw)
 }
 \f
 DEFINE_PRIMITIVE ("X-GRAPHICS-SET-VDC-EXTENT", Prim_x_graphics_set_vdc_extent, 5, 5,
-  "(X-GRAPHICS-SET-VDC-EXTENT WINDOW X-MIN Y-MIN X-MAX Y-MAX)
+  "(X-GRAPHICS-SET-VDC-EXTENT WINDOW X-MIN Y-MIN X-MAX Y-MAX)\n\
 Set the virtual device coordinates to the given values.")
 {
   struct xwindow * xw;
@@ -309,7 +309,7 @@ DEFINE_PRIMITIVE ("X-GRAPHICS-RESET-CLIP-RECTANGLE", Prim_x_graphics_reset_clip_
 }
 
 DEFINE_PRIMITIVE ("X-GRAPHICS-SET-CLIP-RECTANGLE", Prim_x_graphics_set_clip_rectangle, 5, 5,
-  "(X-GRAPHICS-SET-CLIP-RECTANGLE WINDOW X-LEFT Y-BOTTOM X-RIGHT Y-TOP)
+  "(X-GRAPHICS-SET-CLIP-RECTANGLE WINDOW X-LEFT Y-BOTTOM X-RIGHT Y-TOP)\n\
 Set the clip rectangle to the given coordinates.")
 {
   struct xwindow * xw;
@@ -366,9 +366,9 @@ wm_set_size_hint (xw, flags, x, y)
 }
 \f
 DEFINE_PRIMITIVE ("X-GRAPHICS-OPEN-WINDOW", Prim_x_graphics_open_window, 3, 3,
-  "(X-GRAPHICS-OPEN-WINDOW DISPLAY GEOMETRY SUPPRESS-MAP?)
-Open a window on DISPLAY using GEOMETRY.
-If GEOMETRY is false map window interactively.
+  "(X-GRAPHICS-OPEN-WINDOW DISPLAY GEOMETRY SUPPRESS-MAP?)\n\
+Open a window on DISPLAY using GEOMETRY.\n\
+If GEOMETRY is false map window interactively.\n\
 If third argument SUPPRESS-MAP? is true, do not map the window immediately.")
 {
   Display * display;
@@ -470,8 +470,8 @@ If third argument SUPPRESS-MAP? is true, do not map the window immediately.")
 }
 \f
 DEFINE_PRIMITIVE ("X-GRAPHICS-DRAW-LINE", Prim_x_graphics_draw_line, 5, 5,
-  "(X-GRAPHICS-DRAW-LINE WINDOW X-START Y-START X-END Y-END)
-Draw a line from the start coordinates to the end coordinates.
+  "(X-GRAPHICS-DRAW-LINE WINDOW X-START Y-START X-END Y-END)\n\
+Draw a line from the start coordinates to the end coordinates.\n\
 Subsequently move the graphics cursor to the end coordinates.")
 {
   struct xwindow * xw;
@@ -498,7 +498,7 @@ Subsequently move the graphics cursor to the end coordinates.")
 }
 
 DEFINE_PRIMITIVE ("X-GRAPHICS-MOVE-CURSOR", Prim_x_graphics_move_cursor, 3, 3,
-  "(X-GRAPHICS-MOVE-CURSOR WINDOW X Y)
+  "(X-GRAPHICS-MOVE-CURSOR WINDOW X Y)\n\
 Move the graphics cursor to the given coordinates.")
 {
   struct xwindow * xw;
@@ -511,8 +511,8 @@ Move the graphics cursor to the given coordinates.")
 }
 
 DEFINE_PRIMITIVE ("X-GRAPHICS-DRAG-CURSOR", Prim_x_graphics_drag_cursor, 3, 3,
-  "(X-GRAPHICS-DRAG-CURSOR WINDOW X Y)
-Draw a line from the graphics cursor to the given coordinates.
+  "(X-GRAPHICS-DRAG-CURSOR WINDOW X Y)\n\
+Draw a line from the graphics cursor to the given coordinates.\n\
 Subsequently move the graphics cursor to those coordinates.")
 {
   struct xwindow * xw;
@@ -539,8 +539,8 @@ Subsequently move the graphics cursor to those coordinates.")
 }
 \f
 DEFINE_PRIMITIVE ("X-GRAPHICS-DRAW-POINT", Prim_x_graphics_draw_point, 3, 3,
-  "(X-GRAPHICS-DRAW-POINT WINDOW X Y)
-Draw one point at the given coordinates.
+  "(X-GRAPHICS-DRAW-POINT WINDOW X Y)\n\
+Draw one point at the given coordinates.\n\
 Subsequently move the graphics cursor to those coordinates.")
 {
   struct xwindow * xw;
@@ -559,7 +559,7 @@ Subsequently move the graphics cursor to those coordinates.")
 }
 
 DEFINE_PRIMITIVE ("X-GRAPHICS-DRAW-STRING", Prim_x_graphics_draw_string, 4, 4,
-  "(X-GRAPHICS-DRAW-STRING WINDOW X Y STRING)
+  "(X-GRAPHICS-DRAW-STRING WINDOW X Y STRING)\n\
 Draw characters in the current font at the given coordinates.")
 {
   struct xwindow * xw;