From 70170e36b36f3a204ef73af0c4d989b0a7fc9eaf Mon Sep 17 00:00:00 2001 From: Dave Slattengren Date: Mon, 18 Apr 1983 22:44:28 -0800 Subject: [PATCH] DLS takeover SCCS-vsn: local/ditroff/ditroff.old.okeeffe/gremlin.aed/gremlin/gremlin.h 1.2 SCCS-vsn: local/ditroff/ditroff.old.okeeffe/gremlin.aed/gremlin/long1.c 1.2 SCCS-vsn: local/ditroff/ditroff.old.okeeffe/gremlin.aed/gremlin/long2.c 1.2 SCCS-vsn: local/ditroff/ditroff.old.okeeffe/gremlin.aed/gremlin/main.c 1.2 SCCS-vsn: local/ditroff/ditroff.old.okeeffe/gremlin.aed/gremlin/menu.c 1.2 SCCS-vsn: local/ditroff/ditroff.old.okeeffe/gremlin.aed/gremlin/path.c 1.2 SCCS-vsn: local/ditroff/ditroff.old.okeeffe/gremlin.aed/gremlin/point.c 1.2 SCCS-vsn: local/ditroff/ditroff.old.okeeffe/gremlin.aed/gremlin/short.c 1.2 --- .../gremlin.aed/gremlin/gremlin.h | 3 +- .../gremlin.aed/gremlin/long1.c | 39 +++++++++---------- .../gremlin.aed/gremlin/long2.c | 30 +++++++------- .../gremlin.aed/gremlin/main.c | 11 +++--- .../gremlin.aed/gremlin/menu.c | 13 +++---- .../gremlin.aed/gremlin/path.c | 11 +++--- .../gremlin.aed/gremlin/point.c | 3 +- .../gremlin.aed/gremlin/short.c | 37 +++++++++--------- 8 files changed, 69 insertions(+), 78 deletions(-) diff --git a/usr/src/local/ditroff/ditroff.old.okeeffe/gremlin.aed/gremlin/gremlin.h b/usr/src/local/ditroff/ditroff.old.okeeffe/gremlin.aed/gremlin/gremlin.h index b68b4cf8a3..ba45207e13 100644 --- a/usr/src/local/ditroff/ditroff.old.okeeffe/gremlin.aed/gremlin/gremlin.h +++ b/usr/src/local/ditroff/ditroff.old.okeeffe/gremlin.aed/gremlin/gremlin.h @@ -1,5 +1,4 @@ - -/* gremlin.h - +/* @(#)gremlin.h 1.2 %G% * * * This file contains standard definitions used by the gremlin program. diff --git a/usr/src/local/ditroff/ditroff.old.okeeffe/gremlin.aed/gremlin/long1.c b/usr/src/local/ditroff/ditroff.old.okeeffe/gremlin.aed/gremlin/long1.c index 5390dabd4c..1c938f5c02 100644 --- a/usr/src/local/ditroff/ditroff.old.okeeffe/gremlin.aed/gremlin/long1.c +++ b/usr/src/local/ditroff/ditroff.old.okeeffe/gremlin.aed/gremlin/long1.c @@ -1,5 +1,4 @@ - -/* long1.c - +/* @(#)long1.c 1.2 %G% * * Copyright -C- 1982 Barry S. Roitblat * @@ -93,7 +92,7 @@ extern int lnum[], fnum[]; int bang; - + /* The following are defined to allow creation of the command * lookup table. */ @@ -174,7 +173,7 @@ static (*(lrtns[]))() = { LGWrite, /* write file */ LGPoint}; /* create point from cursor */ - + int LGLookup(str, table, next) char str[]; /* Pointer to a string to be looked up */ @@ -259,7 +258,7 @@ int *next; } } - + LGCommand(command) char *command; @@ -293,7 +292,7 @@ char *command; if (index == -2) error("not a command."); } } - + static char badarg[10] = "bad args"; static char noset[15] = "no current set"; @@ -327,7 +326,7 @@ int *index; return(result); } /* end GetNumParm */ - + LGOpoint(line) char *line; /* @@ -361,7 +360,7 @@ char *line; LGPoint(line); } /* end LGOpoint */ - + LGPoint(line) char *line; /* @@ -423,7 +422,7 @@ CP() GRBlankPoints(); } /* end CP */ - + LGClearPoints(line) char *line; /* @@ -480,7 +479,7 @@ char *line; Consume = FALSE; } /* end DeletePoint */ - + LGShowPoints(line) char *line; /* @@ -514,7 +513,7 @@ char *line; Consume = FALSE; } /* end ShowPoints */ - + LGText(line) char *line; /* This routine implements the text commands. It first looks @@ -564,7 +563,7 @@ char *line; } /* end LGText */ - + LGBrush(line) char *line; /* @@ -598,7 +597,7 @@ char *line; } /* end LGBrush */ - + LGMBrush(line) char *line; /* @@ -642,7 +641,7 @@ char *line; CHANGED = TRUE; } /* end MBrush */ - + LGMFont(line) char *line; /* @@ -687,7 +686,7 @@ char *line; CHANGED = TRUE; } /* end MFont */ - + LGMSize(line) char *line; /* @@ -741,7 +740,7 @@ char *line; CHANGED = TRUE; } /* end MSize */ - + LGMText(line) char *line; /* This routine allows modification of text by replacing @@ -782,7 +781,7 @@ char *line; } /* end while */ CHANGED = TRUE; } /* end LGMText */ - + LGMPoint(line) char *line; /* @@ -839,7 +838,7 @@ char *line; } /* end if !DBNullelt */ } /* end MPOINT */ - + LGGripe(line) char *line; /* @@ -868,7 +867,7 @@ char *line; Consume = FALSE; } /* end Little Point */ - + SetOrient(orient) int orient; /* @@ -915,7 +914,7 @@ char *line; SHUpdate(); } /* end Orient */ - + LGSave(line) char *line; /* diff --git a/usr/src/local/ditroff/ditroff.old.okeeffe/gremlin.aed/gremlin/long2.c b/usr/src/local/ditroff/ditroff.old.okeeffe/gremlin.aed/gremlin/long2.c index 232c2da0c4..7ec14d8029 100644 --- a/usr/src/local/ditroff/ditroff.old.okeeffe/gremlin.aed/gremlin/long2.c +++ b/usr/src/local/ditroff/ditroff.old.okeeffe/gremlin.aed/gremlin/long2.c @@ -1,6 +1,4 @@ - - -/* long2.c - +/* @(#)long2.c 1.2 %G% * * Copyright -C- 1982 Barry S. Roitblat * @@ -107,7 +105,7 @@ char *Editfile; static char badarg[10] = "bad args"; - + LGFont(line) char *line; /* @@ -143,7 +141,7 @@ char *line; } } /* end LGFont */ - + LGJust(line) char *line; /* @@ -186,7 +184,7 @@ char *line; } } /* end LGJust */ - + LGSize(line) char *line; /* @@ -242,7 +240,7 @@ char *line; Consume = FALSE; } /* end LGAlign */ - + LGIncludeSet(line) char *line; /* @@ -284,7 +282,7 @@ char *line; } /* end LGIncludeSet */ - + LGMenu(line) char *line; /* @@ -336,7 +334,7 @@ char *line; CHANGED = TRUE; } /* end LGMenu */ - + LGRead(line) char *line; /* @@ -389,7 +387,7 @@ char *line; CHANGED = TRUE; } /* end LGRead */ - + LGEdit(line) char *line; /* @@ -478,7 +476,7 @@ static restorepoints() BACKPOINT = pl1; } /* end restorepoints */ - + LGUndo(line) char *line; /* @@ -557,7 +555,7 @@ char *line; Consume = FALSE; } /* LGUndo */ - + LGWrite(line) char *line; /* @@ -656,7 +654,7 @@ char *line; (void) fclose(fp); } /* end LGWrite */; - + LGQuit(line) char *line; /* @@ -701,7 +699,7 @@ LGHAdjust() Consume = FALSE; } - + LGVAdjust() /* * Vertical adjust - @@ -726,7 +724,7 @@ LGVAdjust() } - + static sign(x) float x; /* @@ -821,7 +819,7 @@ char *line; CHANGED = TRUE; } /* end LGMirror */ - + LGPath(line) char *line; /* diff --git a/usr/src/local/ditroff/ditroff.old.okeeffe/gremlin.aed/gremlin/main.c b/usr/src/local/ditroff/ditroff.old.okeeffe/gremlin.aed/gremlin/main.c index 9bade1fc8e..b23760344d 100644 --- a/usr/src/local/ditroff/ditroff.old.okeeffe/gremlin.aed/gremlin/main.c +++ b/usr/src/local/ditroff/ditroff.old.okeeffe/gremlin.aed/gremlin/main.c @@ -1,5 +1,4 @@ - -/* main.c - +/* @(#)main.c 1.2 %G% * * Copyright -C- 1982 Barry S. Roitblat * @@ -120,7 +119,7 @@ char *s; Consume = FALSE; } - + main(argc, argv) int argc; char *argv[]; @@ -373,7 +372,7 @@ char *argv[]; } /* end main */ - + OnStop(signo) int signo; @@ -396,7 +395,7 @@ int signo; SHRedis(); } - + OnCommand() /*----------------------------------------------------------------------------- @@ -473,7 +472,7 @@ OnCommand() else { TxLine(inline); - if (cmd != '\ ') putchar(cmd); + if (cmd != '\') putchar(cmd); (void) fflush(stdout); SHCommand(&cmd); } diff --git a/usr/src/local/ditroff/ditroff.old.okeeffe/gremlin.aed/gremlin/menu.c b/usr/src/local/ditroff/ditroff.old.okeeffe/gremlin.aed/gremlin/menu.c index 6dc555cad3..a58a5fd746 100644 --- a/usr/src/local/ditroff/ditroff.old.okeeffe/gremlin.aed/gremlin/menu.c +++ b/usr/src/local/ditroff/ditroff.old.okeeffe/gremlin.aed/gremlin/menu.c @@ -1,5 +1,4 @@ - -/* menu.c - +/* @(#)menu.c 1.2 %G% * * Copyright -C- 1982 Barry S. Roitblat * @@ -46,7 +45,7 @@ extern float PX, PY; /* X and Y of last points specified */ #define columns 2 #define border 395 - + /* bytewise definitions of menu symbols (special fonts), left to right, * top to bottom. See textcommand array for corresponding commands. */ @@ -206,7 +205,7 @@ MNIcon() (void) fflush(display); }; /* end Icon */ - + MNInitMenu(orientation) int orientation; /* orientation of work space */ /* @@ -259,7 +258,7 @@ int orientation; /* orientation of work space */ } /* end for */; } /* end initmenu */ - + MNDisplayMenu() /* * This routine displays the menu defined by initmenu @@ -310,7 +309,7 @@ MNDisplayMenu() GRVector(&bord1, &bord2, bordstyle); } /* end displaymenu */; - + char *MNFindMenuItem(x,y) int x, y; /* @@ -371,7 +370,7 @@ int sym; MNHighLt(sym, eraseany); } - + MNInterpretCursor(button, cx, cy) int cx, cy, button; /* diff --git a/usr/src/local/ditroff/ditroff.old.okeeffe/gremlin.aed/gremlin/path.c b/usr/src/local/ditroff/ditroff.old.okeeffe/gremlin.aed/gremlin/path.c index d3550f807c..21c13d3d23 100644 --- a/usr/src/local/ditroff/ditroff.old.okeeffe/gremlin.aed/gremlin/path.c +++ b/usr/src/local/ditroff/ditroff.old.okeeffe/gremlin.aed/gremlin/path.c @@ -1,5 +1,4 @@ - -/* path.c +/* @(#)path.c 1.2 %G% * * Copyright -C- 1982 Barry S. Roitblat * @@ -42,7 +41,7 @@ static char *realname[NTILDE] = {NULL, NULL, NULL, NULL, NULL, NULL, NULL, NULL, NULL, NULL}; static int discard = 0; - + int PConvertTilde(psource, pdest, size) char **psource; /* Pointer to a pointer to the source string */ @@ -158,7 +157,7 @@ int *size; /* Pointer to no. bytes available at pdest */ return TRUE; } - + int PSetPath(string) char *string; /* Pointer to a string that is to become @@ -220,7 +219,7 @@ char *string; /* Pointer to a string that is to become return result; } - + char * PGetPath() @@ -238,7 +237,7 @@ PGetPath() return path; } - + FILE * POpen(file, prealname, search) char *file; /* Name of the file to be opened. */ diff --git a/usr/src/local/ditroff/ditroff.old.okeeffe/gremlin.aed/gremlin/point.c b/usr/src/local/ditroff/ditroff.old.okeeffe/gremlin.aed/gremlin/point.c index 4abbded1ec..02d97341ab 100644 --- a/usr/src/local/ditroff/ditroff.old.okeeffe/gremlin.aed/gremlin/point.c +++ b/usr/src/local/ditroff/ditroff.old.okeeffe/gremlin.aed/gremlin/point.c @@ -1,5 +1,4 @@ - -/* point.c - +/* @(#)point.c 1.2 %G% * * Copyright -C- 1982 Barry S. Roitblat * diff --git a/usr/src/local/ditroff/ditroff.old.okeeffe/gremlin.aed/gremlin/short.c b/usr/src/local/ditroff/ditroff.old.okeeffe/gremlin.aed/gremlin/short.c index a08e4fa32b..cd49b8fa04 100644 --- a/usr/src/local/ditroff/ditroff.old.okeeffe/gremlin.aed/gremlin/short.c +++ b/usr/src/local/ditroff/ditroff.old.okeeffe/gremlin.aed/gremlin/short.c @@ -1,5 +1,4 @@ - -/* short.c - +/* @(#)short.c 1.2 %G% * * Copyright -C- 1982 Barry S. Roitblat * @@ -86,7 +85,7 @@ extern ELT arhead; /* arrow head template */ extern char *textpos[], *dispmode[];/* text positioning modes */ extern int textmode[]; /* text positioning */ - + extern SHUpdate(), SHDrawArc(), SHDrawCurve(), SHCopy(), SHRedis(), SHDefineSet(), SHErase(), SHSetArea(), SHGravity(), SHGrid(), SHRotate(), SHScale(), SHTranslate(), SHShellEsc(), @@ -123,7 +122,7 @@ static (*(shrtns[]))() = { SHBox, /* rectangle from two points */ SHMAdjust}; /* manhattan adjust */ - + int SHLookup(c, table) char c; /* Pointer to a char to be looked up */ @@ -159,7 +158,7 @@ char table[]; /* Pointer to an array of characters return(-1); } /* end SHLookup */ - + SHCommand(command) char *command; @@ -187,7 +186,7 @@ char *command; error("no such command"); } } /* end SHCommand */ - + static char nopnt[18] = "not enough points"; static char noset[15] = "no current set"; @@ -301,7 +300,7 @@ SHDrawArc() } } /* end SHDrawARc */ - + SHDrawCurve() /* * This routine creates and displays a curve using points previously @@ -365,7 +364,7 @@ SHErase() CHANGED = TRUE; } /* end SHErase */ - + SHGravity() /* * This routine toggles the gravity mode. @@ -406,7 +405,7 @@ SHGrid() Consume = FALSE; } /* end SHGrid */ - + SHMAdjust() /* * Manhattan Adjust - @@ -430,7 +429,7 @@ SHMAdjust() Consume = FALSE; } - + SHDefineSet() /* * This routine defines the current set based upon previously @@ -479,7 +478,7 @@ SHSetArea() } /* end while */ } /* end SHSetArea */ - + SHTranslate() /* * This routine translates the elements in the current set as defined @@ -519,7 +518,7 @@ SHTranslate() CHANGED = TRUE; } /* end SHTranslate */ - + SHCopy() /* * This routine copies the elements in the current set as defined @@ -573,7 +572,7 @@ SHCopy() CHANGED = TRUE; } /* end SHCopy */ - + SHRotate() /* * This routine rotates the elements in the current set as defined @@ -643,7 +642,7 @@ SHRotate() CHANGED = TRUE; } /* end SHRotate */ - + SHScale() /* * This routine scales the elements in the current set as defined @@ -718,7 +717,7 @@ SHScale() CHANGED = TRUE; } /* end SHScale */ - + SHUpdate() /* * This routine redraws the graphics screen by clearing the screen , @@ -752,7 +751,7 @@ SHUpdate() Consume = FALSE; } /* end SHUpdate */ - + SHRedis() /* * This routine is used to redisplay the text screen. @@ -792,7 +791,7 @@ SHRedis() Consume = FALSE; } /* end SHRedis */ - + SHShellEsc() /* * This routine performs a shell escape through the c 'system' @@ -812,7 +811,7 @@ SHShellEsc() SHRedis(); /* reclaim terminal */ } /* end ShellEsc */ - + static savemen(sym) int sym; /* @@ -895,7 +894,7 @@ SHSave4() } - + SHBox() /* * This routine creates and displays a rectangle whose diagonal is -- 2.20.1