Fix typos. (#157)

waywardmonkeys · web-flow · commit fc3908f19abe · 2021-01-01T08:55:24.000-08:00
diff --git a/inc/inlnPS2.h b/inc/inlnPS2.h
@@ -47,7 +47,7 @@
 /*		ebx	tscache - the top-of-stack item.		*/
 /*									*/
 /*									*/
-/*	Rgister conventions within arithmetic functions in the files	*/
+/*	Register conventions within arithmetic functions in the files	*/
 /*	arith2.c - arith4.c, etc.:					*/
 /*									*/
 /*		esi	first argument to the function			*/
diff --git a/inc/inlndos.h b/inc/inlndos.h
@@ -47,7 +47,7 @@
 /*		ebx	tscache - the top-of-stack item.		*/
 /*									*/
 /*									*/
-/*	Rgister conventions within arithmetic functions in the files	*/
+/*	Register conventions within arithmetic functions in the files	*/
 /*	arith2.c - arith4.c, etc.:					*/
 /*									*/
 /*		esi	first argument to the function			*/
diff --git a/inc/lsptypes.h b/inc/lsptypes.h
@@ -369,7 +369,7 @@ typedef struct{
 	/****************************************************************/
 
 #define GETBYTE(base) (* (base))
-/* GETBASEWORD only works if base points to a 32-bit bounday */
+/* GETBASEWORD only works if base points to a 32-bit boundary */
 #define GETBASEWORD(base, offset) (* ((base)+(offset)))
   /* GETWORDBASEWORD works right with base on a 16-bit boundary. */
 #define GETWORDBASEWORD(base, offset) (* (((DLword *)(base))+(offset)))
@@ -572,7 +572,7 @@ typedef struct
 	/****************************************************************/
 
 #define GETBYTE(base) (* (unsigned char *) (3^(UNSIGNED)(base)))
-  /* GETBASEWORD only works if base points to a 32-bit bounday */
+  /* GETBASEWORD only works if base points to a 32-bit boundary */
 #define GETBASEWORD(base, offset) GETWORDBASEWORD((base),(offset))
 #define GETWORDBASEWORD(base, offset) (* (DLword *) (2^(UNSIGNED)((base)+(offset))))
 #define GETWORD(base) (* (DLword *) (2^(UNSIGNED)(base)))
@@ -625,7 +625,7 @@ typedef struct
 #define GetTypeEntry(address)      ( GETWORD(MDStypetbl+((address)>>9)) )
 
 #else
-	/* Because the 386i's code generator does bettter with them */
+	/* Because the 386i's code generator does better with them */
 	/* in this order (does an add, rather than mov-add) */
 	/* JDS 22-mar-90 */
 
diff --git a/src/dir.c b/src/dir.c
@@ -343,7 +343,7 @@ void print_finfo(FINFO *fp)
  *
  * Argument:	None.
  *
- * Value:	If suceed, returns 1, otherwise 0.
+ * Value:	If succeed, returns 1, otherwise 0.
  *
  * Side Effect:	FreeFinfoList will point to the alloced area.  MAXFINFO will hold
  *		the total number of allocated instances of FINFO structure.
@@ -386,7 +386,7 @@ int init_finfo() {
  *
  * Argument:	None.
  *
- * Value:	If suceed, returns the id of linked list of FINFO structures,
+ * Value:	If succeed, returns the id of linked list of FINFO structures,
  *		otherwise -1.
  *
  * Side Effect:	If needed, FinfoArray will be extended according to the value of
diff --git a/src/dsk.c b/src/dsk.c
@@ -3366,7 +3366,7 @@ static int get_versionless(FileName *varray, char *file, char *dir)
  *				to which the versionless file is hard linked will
  *				be stored.
  *		int	*highest_p
- *				If to_file is the highest versioned file in varrray,
+ *				If to_file is the highest versioned file in varray,
  *				highest_p will point to 1, otherwise, 0.
  *
  * Value:	If succeed, returns 1, otherwise, 0.
diff --git a/src/gcmain3.c b/src/gcmain3.c
@@ -27,7 +27,7 @@
 /*                                                                       */
 /*                                                                       */
 /*************************************************************************/
-/*           Descreption :                                               */
+/*           Description :                                               */
 /*                                                                       */
 /*************************************************************************/
 /*                                                               \Tomtom */
diff --git a/src/gcoflow.c b/src/gcoflow.c
@@ -21,7 +21,7 @@
 /*                       gcmaptable(arg);                                */
 /*                                                                       */
 /*************************************************************************/
-/*           Descreption :                                               */
+/*           Description :                                               */
 /*                                                                       */
 /*************************************************************************/
 /*                                                               \Tomtom */
diff --git a/src/gcr.c b/src/gcr.c
@@ -27,8 +27,8 @@
 /*	This function's role is  narrowing the gap between the		 */
 /*      contextswitch and the subrcall.					 */
 /*	In the original Lisp Source, as the contextswitch process may    */
-/*	clear the remain area to FSB,there is no problem in scannig stack*/
-/*	.But in the subrcall,there isn't such process.			 */
+/*	clear the remain area to FSB, there is no problem in scanning	 */
+/*	stack. But in the subrcall,there isn't such process.		 */
 /*	Therefore, the function is required to set the remain stack area */
 /*	 to FSB. And this function does so.				 */
 /*  dogc01()								 */
@@ -112,7 +112,7 @@ void gcarrangementstack(void) {
 /****************************************************************/
 /* The following function is the caller that is the reclaimer.  */
 /* And, this function is same as \DOGC1 in Lisp because in the  */
-/* C's implimentation the contextswitch is not required for the */
+/* C's implementation the contextswitch is not required for the */
 /* remaining the system status.					*/
 /****************************************************************/
 
diff --git a/src/gcrcell.c b/src/gcrcell.c
@@ -27,7 +27,7 @@
 /*                                                                       */
 /*                                                                       */
 /*************************************************************************/
-/*           Descreption :                                               */
+/*           Description :                                               */
 /*                                                                       */
 /*  The functions "gcreccell" and "freelistcell" are the translated 	 */
 /*  functions from the Lisp functions "\GCRECLAIMCELL" that is the UFN   */
diff --git a/src/gcscan.c b/src/gcscan.c
@@ -26,7 +26,7 @@
 /*                        gcscan2(probe)                                 */
 /*                                                                       */
 /*************************************************************************/
-/*           Descreption :                                               */
+/*           Description :                                               */
 /*                                                                       */
 /* The functions "gcscan1" and "gcscan2" are the translated functions    */
 /*  from the Lisp Functions "\GCSCAN1" & "\GCSCAN2".                     */
@@ -36,7 +36,7 @@
 /*  by OPCODES "GCSCAN1" & "GCSCAN2".                                    */
 /*                                                                       */
 /* gcscan1                                                               */
-/*    INPUT : probe (the startng offset in the HTmain table)             */
+/*    INPUT : probe (the starting offset in the HTmain table)            */
 /*    OUTPUT : the entry's offset or NIL (no more entry existing)        */
 /*                                                                       */
 /* gcscan2                                                               */
diff --git a/src/loopsops.c b/src/loopsops.c
@@ -352,7 +352,7 @@ LispPTR lcfuncall(register unsigned int atom_index, register int argnum, registe
   int rest; /* use for arignments */
   register CClosure *closure68k;
 
-  if (atom_index == 0xffffffff) error("Loops punt to nonexistant fn");
+  if (atom_index == 0xffffffff) error("Loops punt to nonexistent fn");
 
   /* Get Next Block offset from argnum */
   CURRENTFX->nextblock = (LADDR_from_68k(CurrentStackPTR) & 0x0ffff) - (argnum << 1) + 4 /* +3  */;
diff --git a/src/ocr.c b/src/ocr.c
@@ -292,7 +292,7 @@ int ocr_comm(LispPTR *args)
 /*
  * Subr OCR_COMM: comm = OCR_OPEN
  *
- * Fork OCR process and isssue 'O' command to open OCR device.
+ * Fork OCR process and issue 'O' command to open OCR device.
  */
 
 static int ocr_open() {
@@ -485,7 +485,7 @@ static void ocr_close() {
 /*
  * Subr OCR_COMM: comm = OCR_SCAN
  *
- * Issue 'S' command to start scanning.  'S' commmand returns immediatedly
+ * Issue 'S' command to start scanning.  'S' command returns immediately
  * without waiting device to finish scanning.
  */
 
@@ -525,7 +525,7 @@ static int ocr_scan(sp) struct ocr_scan_para *sp;
  * Subr OCR_COMM: comm = OCR_IMG_INFO
  *
  * Issue 'I' command to get an information about the image being uploaded.
- * 'I' commmand returns immediatedly without waiting OCR process to
+ * 'I' command returns immediately without waiting OCR process to
  * finish its work.
  */
 
@@ -642,7 +642,7 @@ static int ocr_clr_rpara() {
  * Subr OCR_COMM: comm = OCR_READ
  *
  * Issue 'R' command to start reading.
- * 'R' commmand returns immediatedly without waiting OCR process to
+ * 'R' command returns immediately without waiting OCR process to
  * finish its work.
  */
 
@@ -677,7 +677,7 @@ static int ocr_read() {
  * SIGUSR1 handler.
  *
  * If one of time consuming work is finished by OCR process, SIGUSR1 is signalled.
- * Accoding to the waiting reason, do appropriate work, then to notify Lisp.
+ * According to the waiting reason, do appropriate work, then to notify Lisp.
  */
 
 static void ocr_sig_handler(sig, code, scp) int sig, code;
@@ -811,7 +811,7 @@ static void ocr_read_finish() {
 }
 
 /*
- * Set up the interrupt stuff and issue a requst.
+ * Set up the interrupt stuff and issue a request.
  */
 
 static void ocr_irq() {
diff --git a/src/unixcomm.c b/src/unixcomm.c
@@ -321,7 +321,7 @@ int FindAvailablePty(char *Master, char *Slave) {
   grantpt(res);
   unlockpt(res);
   strcpy(Slave, ptsname(res));
-  DBPRINT(("slave pyt name is %s.\n", Slave));
+  DBPRINT(("slave pty name is %s.\n", Slave));
 #else
 
   /* From p to r */
diff --git a/src/uutils.c b/src/uutils.c
@@ -214,7 +214,7 @@ LispPTR unix_username(LispPTR *args) {
  * and so did PowerBook Macintosh systems.
  * "MACH" and "ARCH" both seem to be a mix of instruction set architecture and
  * system types (rs/6000 used PowerPC).
- * The only usage seems to be checking "ARCH" == "dos" and for the existance
+ * The only usage seems to be checking "ARCH" == "dos" and for the existence
  * of *any* result from the call, which indicates it's an emulated system.
  */
 LispPTR unix_getparm(LispPTR *args) {

Original file line number	Diff line number	Diff line change
`@@ -343,7 +343,7 @@ void print_finfo(FINFO *fp)`
`343`	`343`	`*`
`344`	`344`	`* Argument: None.`
`345`	`345`	`*`
`346`		`- * Value: If suceed, returns 1, otherwise 0.`
	`346`	`+ * Value: If succeed, returns 1, otherwise 0.`
`347`	`347`	`*`
`348`	`348`	`* Side Effect: FreeFinfoList will point to the alloced area. MAXFINFO will hold`
`349`	`349`	`* the total number of allocated instances of FINFO structure.`
`@@ -386,7 +386,7 @@ int init_finfo() {`
`386`	`386`	`*`
`387`	`387`	`* Argument: None.`
`388`	`388`	`*`
`389`		`- * Value: If suceed, returns the id of linked list of FINFO structures,`
	`389`	`+ * Value: If succeed, returns the id of linked list of FINFO structures,`
`390`	`390`	`* otherwise -1.`
`391`	`391`	`*`
`392`	`392`	`* Side Effect: If needed, FinfoArray will be extended according to the value of`
Original file line number	Diff line number	Diff line change
`@@ -3366,7 +3366,7 @@ static int get_versionless(FileName varray, char file, char *dir)`
`3366`	`3366`	`* to which the versionless file is hard linked will`
`3367`	`3367`	`* be stored.`
`3368`	`3368`	`* int *highest_p`
`3369`		`- * If to_file is the highest versioned file in varrray,`
	`3369`	`+ * If to_file is the highest versioned file in varray,`
`3370`	`3370`	`* highest_p will point to 1, otherwise, 0.`
`3371`	`3371`	`*`
`3372`	`3372`	`* Value: If succeed, returns 1, otherwise, 0.`