mirror of
https://github.com/Interlisp/maiko.git
synced 2026-01-13 23:27:12 +00:00
Fix typos. (#226)
This commit is contained in:
Bruce Mitchener
GitHub
parent
373f66c855
commit
3480ee9711
12
inc/return.h
12
inc/return.h
@ -36,23 +36,23 @@
|
||||
#ifndef ISC
|
||||
#define FastRetCALL \
|
||||
{ \
|
||||
/* Get IVar from Retunee's IVAR offset slot(BF) */ \
|
||||
/* Get IVar from Returnee's IVAR offset slot(BF) */ \
|
||||
IVar = Addr68k_from_LADDR(STK_OFFSET | GETWORD((DLword *)CURRENTFX -1)); \
|
||||
/* Get FuncObj from Retunee's FNHEAD slot in FX */ \
|
||||
/* Get FuncObj from Returnee's FNHEAD slot in FX */ \
|
||||
FuncObj = (struct fnhead *) \
|
||||
Addr68k_from_LADDR(FX_FNHEADER); \
|
||||
/* Get PC from Retunee's pc slot in FX */ \
|
||||
/* Get PC from Returnee's pc slot in FX */ \
|
||||
PC = (ByteCode *)FuncObj + CURRENTFX->pc ; \
|
||||
}
|
||||
#else
|
||||
#define FastRetCALL \
|
||||
{ \
|
||||
/* Get IVar from Retunee's IVAR offset slot(BF) */ \
|
||||
/* Get IVar from Returnee's IVAR offset slot(BF) */ \
|
||||
IVar = Addr68k_from_LADDR(STK_OFFSET | GETWORD((DLword *)CURRENTFX -1)); \
|
||||
/* Get FuncObj from Retunee's FNHEAD slot in FX */ \
|
||||
/* Get FuncObj from Returnee's FNHEAD slot in FX */ \
|
||||
FuncObj = (struct fnhead *) \
|
||||
Addr68k_from_LADDR(FX_FNHEADER); \
|
||||
/* Get PC from Retunee's pc slot in FX */ \
|
||||
/* Get PC from Returnee's pc slot in FX */ \
|
||||
PC = (ByteCode *)FuncObj + CURRENTFX->pc ; \
|
||||
if (!(FuncObj->byteswapped)) \
|
||||
{ \
|
||||
|
||||
@ -74,7 +74,7 @@
|
||||
- FRAMESIZE); \
|
||||
IVARL = (DLword *) \
|
||||
Addr68k_from_StkOffset(GETWORD((DLword *)returnFX -1)); \
|
||||
/* Get PC from Retunee's pc slot in FX */ \
|
||||
/* Get PC from Returnee's pc slot in FX */ \
|
||||
PCMACL = returnFX->pc + (ByteCode *) \
|
||||
(FuncObj = (struct fnhead *) \
|
||||
Addr68k_from_LADDR(SWAP_FNHEAD(returnFX->fnheader) & POINTERMASK)) + 1;\
|
||||
|
||||
@ -923,8 +923,8 @@ MNXdestroyW(LispArgs args)
|
||||
}
|
||||
|
||||
/************************************************************************/
|
||||
/* MNXdestroyDisplay */
|
||||
/* Closeing down the screen means that we have to invalidate all window */
|
||||
/* MNXdestroyDisplay */
|
||||
/* Closing down the screen means that we have to invalidate all window */
|
||||
/* handles. When a window is opened (in Medley) we test the windows */
|
||||
/* handle. If it is NIL we have to reexternalize it before we open it. */
|
||||
/* */
|
||||
@ -1263,7 +1263,7 @@ showtitle(win) LispPTR win;
|
||||
bitmap = (BITMAP *)Cptr(dd->ddpilotbbt);
|
||||
MakeScratchImageFromBM(dspif, bitmap);
|
||||
|
||||
/* Clear the window of prewious gunk. */
|
||||
/* Clear the window of previous gunk. */
|
||||
XClearWindow(dspif->handle, wif->blackframe);
|
||||
|
||||
/* Start text flush to the border */
|
||||
|
||||
@ -181,8 +181,8 @@ void mess_reset() {
|
||||
close(cons_tty);
|
||||
close(cons_pty);
|
||||
/* Try to make /dev/console be the real console again */
|
||||
/*** This sequence sometimes cause SunOs panic on SunOS4.0(and 4.0.1).
|
||||
TIOCCONS probelm ???
|
||||
/*** This sequence sometimes causes SunOS to panic on SunOS4.0(and 4.0.1).
|
||||
TIOCCONS problem ???
|
||||
if ((console_fd = open("/dev/console", 0)) >= 0) {
|
||||
ioctl(console_fd, TIOCCONS, 0);
|
||||
close(console_fd);
|
||||
@ -273,7 +273,7 @@ LispPTR mess_read(LispPTR *args)
|
||||
if (size > MESSAGE_BUFFER_SIZE)
|
||||
size = MESSAGE_BUFFER_SIZE;
|
||||
else
|
||||
logChanged = 0; /* only reset msg-pending flg if we cleaned it out! */
|
||||
logChanged = 0; /* only reset msg-pending flag if we cleaned it out! */
|
||||
TIMEOUT(i = lseek(log_id, previous_size, SEEK_SET));
|
||||
if (i == -1) {
|
||||
OSMESSAGE_PRINT(printf("seek err\n"));
|
||||
|
||||
12
src/rs232c.c
12
src/rs232c.c
@ -566,7 +566,7 @@ void check_params(int fd)
|
||||
check_parity(tos.c_cflag);
|
||||
check_oflag(tos.c_oflag);
|
||||
|
||||
check_cannon(&tos);
|
||||
check_canon(&tos);
|
||||
}
|
||||
|
||||
void check_brate(u_long cf)
|
||||
@ -589,7 +589,7 @@ void check_brate(u_long cf)
|
||||
case B9600: b = 9600; break;
|
||||
case B19200: b = 19200; break;
|
||||
case B38400: b = 384000; break;
|
||||
default: printf("Illeagal.\n");
|
||||
default: printf("Illegal.\n");
|
||||
}
|
||||
printf("%d bps.\n", b);
|
||||
}
|
||||
@ -603,7 +603,7 @@ void check_csize(u_long cf)
|
||||
case CS6: s = 6; break;
|
||||
case CS7: s = 7; break;
|
||||
case CS8: s = 8; break;
|
||||
default: printf("Illeagal.\n");
|
||||
default: printf("Illegal.\n");
|
||||
}
|
||||
printf("%d chars.\n", s);
|
||||
}
|
||||
@ -631,16 +631,16 @@ void check_parity(u_long cf)
|
||||
}
|
||||
}
|
||||
|
||||
void check_cannon(struct termios *tos)
|
||||
void check_canon(struct termios *tos)
|
||||
{
|
||||
u_long lf;
|
||||
|
||||
lf = tos->c_lflag;
|
||||
|
||||
if (lf & ICANON) {
|
||||
printf("Cannonical.\n");
|
||||
printf("Canonical.\n");
|
||||
} else {
|
||||
printf("Non-Cannonical.\n");
|
||||
printf("Non-Canonical.\n");
|
||||
printf("MIN : %d , TIME : %d\n", (tos->c_cc)[VMIN], (tos->c_cc)[VTIME]);
|
||||
}
|
||||
}
|
||||
|
||||
@ -450,7 +450,7 @@ void OP_subrcall(int subr_no, int argnum) {
|
||||
break;
|
||||
|
||||
#ifdef NATIVETRAN
|
||||
/* old load native (should be superceeded) */
|
||||
/* old load native (should be superseded) */
|
||||
case sb_OLD_COMPILE_LOAD_NATIVE:
|
||||
POP_SUBR_ARGS;
|
||||
{
|
||||
@ -688,7 +688,7 @@ void OP_subrcall(int subr_no, int argnum) {
|
||||
|
||||
case 0222: /* Cause an interrupt to occur. Used by */
|
||||
/* Lisp INTERRUPTED to re-set an interrupt */
|
||||
/* when it's uninterruptable. */
|
||||
/* when it's uninterruptible. */
|
||||
{
|
||||
POP_SUBR_ARGS;
|
||||
Irq_Stk_Check = Irq_Stk_End = 0;
|
||||
|
||||
@ -221,19 +221,19 @@ Dosclearbanks ENDP
|
||||
;; D O S C u r s o r V i s s i b l e
|
||||
;; arg1: dsp (pointer to dsp struct)
|
||||
;; arg2: iop (pointer to IOPAGE struct
|
||||
;; Medley's cursor has no meaningfull mask. The mask
|
||||
;; Medley's cursor has no meaningful mask. The mask
|
||||
;; is just the invers of the map (sigh...). The function
|
||||
;; f(bg, map, curs) = bg*mask + (not mask)*curs thus
|
||||
;; collapses to bg*(not curs) + curs. Since the medley
|
||||
;; bitmaps have the invers meaning of the vesa bitmaps
|
||||
;; bitmaps have the inverse meaning of the vesa bitmaps
|
||||
;; (ie. they are pre inverted for your convenience!)
|
||||
;; the expression turns out to be:
|
||||
;; bg*curs + (not curs)
|
||||
;;
|
||||
;; The general idea here is that we blit the cursor
|
||||
;; directly to the screen instead of to the displayregion.
|
||||
;; this saves a whole bunch of time since takeing the
|
||||
;; mouse down is just a matter of updateing the screen.
|
||||
;; this saves a whole bunch of time since taking the
|
||||
;; mouse down is just a matter of updating the screen.
|
||||
;; since this operation has to be done every charblt
|
||||
;; we save bunches of time. /jarl
|
||||
;;
|
||||
@ -300,7 +300,7 @@ DOSCursorVisible ENDP
|
||||
;;
|
||||
;; Bitblits the image stored in buffer to the display
|
||||
;; buffer. Assumption: buffer and the displaybuffer
|
||||
;; are equaly large and thus left, top etc. pertains
|
||||
;; are equally large and thus left, top etc. pertains
|
||||
;; to the same offsets.
|
||||
;;
|
||||
;;
|
||||
@ -406,7 +406,7 @@ startpoint:
|
||||
mov eax, [edx.Disp.RegWidth]
|
||||
imul eax, top[ebp]
|
||||
add eax, left[ebp]
|
||||
sar eax, 5 ; Make it a byte address on dword boundrys.
|
||||
sar eax, 5 ; Make it a byte address on dword boundaries.
|
||||
sal eax, 2
|
||||
|
||||
;; Set dst and src start
|
||||
@ -424,7 +424,7 @@ startpoint:
|
||||
sar ebx, 5
|
||||
sub eax, ebx
|
||||
mov width32[ebp], eax ; width32 is width in dwords
|
||||
sal eax, 2 ; Make width32 a byteadr on dword boundrys.
|
||||
sal eax, 2 ; Make width32 a byteadr on dword boundaries.
|
||||
mov ebx, [edx.Disp.RegWidth]
|
||||
sar ebx, 3
|
||||
sub ebx, eax
|
||||
@ -478,7 +478,7 @@ Dosbbt1 ENDP
|
||||
;;
|
||||
;; Bitblits the image stored in buffer to the display
|
||||
;; buffer. ASSUMPTION: buffer and the displaybuffer
|
||||
;; are equaly large and thus left, top etc. pertains
|
||||
;; are equally large and thus left, top etc. pertains
|
||||
;; to the same offsets.
|
||||
;;
|
||||
;; Medley has a packed bitmap structure. Dosbbt2 assumes
|
||||
@ -590,7 +590,7 @@ startpt:
|
||||
mov eax, [edx.Disp.RegWidth]
|
||||
imul eax, top[ebp]
|
||||
add eax, left[ebp]
|
||||
sar eax, 5 ; Make it a byte address on dword boundrys.
|
||||
sar eax, 5 ; Make it a byte address on dword boundaries.
|
||||
sal eax, 2
|
||||
|
||||
;; Calculate which bank to start in.
|
||||
@ -616,7 +616,7 @@ startpt:
|
||||
sar ebx, 5
|
||||
sub eax, ebx
|
||||
mov width32[ebp], eax ; width32 is width in dwords
|
||||
sal eax, 2 ; Make width32 a byteadr on dword boundrys.
|
||||
sal eax, 2 ; Make width32 a byteadr on dword boundaries.
|
||||
mov ebx, [edx.Disp.RegWidth]
|
||||
sar ebx, 3
|
||||
sub ebx, eax
|
||||
@ -709,7 +709,7 @@ Dosbbt2 ENDP
|
||||
;;
|
||||
;; Bitblits the image stored in buffer to the display
|
||||
;; buffer. ASSUMPTION: buffer and the displaybuffer
|
||||
;; are equaly large and thus left, top etc. pertains
|
||||
;; are equally large and thus left, top etc. pertains
|
||||
;; to the same offsets.
|
||||
;;
|
||||
;; Medley has a packed bitmap structure. Dosbbt3 assumes
|
||||
@ -745,11 +745,11 @@ Dosbbt3 PROC NEAR
|
||||
;;; Set up the dsp in edx
|
||||
mov edx, dsp[ebp]
|
||||
|
||||
;;; Adjust left to be a byte offset at a dword boundry
|
||||
;;; - Not needed. We shovle bytes at byte boundrys
|
||||
;;; Adjust left to be a byte offset at a dword boundary
|
||||
;;; - Not needed. We shove bytes at byte boundaries
|
||||
|
||||
;;; Adjust width to be a byte offset at a dword boundry
|
||||
;;; - Not needed. We shovle bytes at byte boundrys
|
||||
;;; Adjust width to be a byte offset at a dword boundary
|
||||
;;; - Not needed. We shove bytes at byte boundaries
|
||||
|
||||
;;; Calculate start index for src
|
||||
mov eax, top[ebp]
|
||||
@ -809,9 +809,9 @@ Newline3:
|
||||
|
||||
;; End of bank ?
|
||||
cmp ax, 0
|
||||
jge Newline3 ; No. Blitt a new line.
|
||||
jge Newline3 ; No. Blit a new line.
|
||||
mov edi, esi ; Yes. Reload edi,
|
||||
jmp Newbank3 ; and blitt a new line.
|
||||
jmp Newbank3 ; and blit a new line.
|
||||
|
||||
QuitThis:
|
||||
pop edi
|
||||
|
||||
@ -129,7 +129,7 @@ void print_Xusage(const char *prog)
|
||||
fprintf(stderr, " -icontitle <string> | -it <string> -text for the medley icon\n");
|
||||
fprintf(stderr, " -iconbitmap <path> | -ibm <path> -bitmap for the medley icon\n");
|
||||
fprintf(stderr,
|
||||
" -xsync -turn XSyncronize on. (default is off)\n\n");
|
||||
" -xsync -turn XSynchronize on. (default is off)\n\n");
|
||||
fprintf(stderr, "Please refer to the manual for further information.\n\n");
|
||||
exit(0);
|
||||
} /* end print_Xusage() */
|
||||
@ -221,13 +221,13 @@ void read_Xoption(int *argc, char *argv[])
|
||||
/* This is just temporary. We'll need this display struct to open the */
|
||||
/* main databases for medley. After it is used the display will be */
|
||||
/* closed and the opening of the other displays will follow the standard */
|
||||
/* protocoll. */
|
||||
/* protocol. */
|
||||
|
||||
if (XrmGetResource(commandlineDB, "ldex.display", "Ldex.Display", str_type, &value) == True) {
|
||||
(void)strncpy(Display_Name, value.addr, (int)value.size);
|
||||
} else if (getenv("DISPLAY") == (char *)NULL) {
|
||||
fprintf(stderr, "Can't find a display. Either set the shell\n");
|
||||
fprintf(stderr, "variabel DISPLAY to an appropriate display\n");
|
||||
fprintf(stderr, "variable DISPLAY to an appropriate display\n");
|
||||
fprintf(stderr, "or provide a -display argument.\n");
|
||||
print_Xusage(argv[0]);
|
||||
} else {
|
||||
@ -268,7 +268,7 @@ void read_Xoption(int *argc, char *argv[])
|
||||
(void)strncpy(sysout_name, value.addr, (int)value.size);
|
||||
}
|
||||
if (sysout_name[0] == '\0') {
|
||||
fprintf(stderr, "Coudn't find a sysout to run;\n");
|
||||
fprintf(stderr, "Couldn't find a sysout to run;\n");
|
||||
print_Xusage(argv[0]);
|
||||
}
|
||||
|
||||
|
||||
Loading…
x
Reference in New Issue
Block a user