github.com/Interlisp.maiko
1
0
Fork 0
mirror of https://github.com/Interlisp/maiko.git synced 2026-04-30 13:52:23 +00:00
Code Issues Projects Releases Wiki Activity

Remove CLX support. (#90)

Browse Source 
CLX is a Common Lisp implementation of the X client library.

It has some code in C, which was present here as `src/socket.c`
and `src/socdvr.c`, exposed via opcodes in `src/subr.c`. This code
had been removed (with prejudice apparently) by commenting out
the code in `src/subr.c` with `#if NEVER`.

This code would've been used by the Medley system images, but
that code doesn't appear to be present. (There may or may not
be something related in `XMAS` in the Medley repository.)
This commit is contained in:
Bruce Mitchener
2020-12-20 10:59:41 +07:00
committed by GitHub
parent ecaf50c015
commit 942b22886e
12 changed files with 7 additions and 458 deletions
Download Patch File Download Diff File Expand all files Collapse all files

30
src/subr.c
View File

@@ -704,36 +704,6 @@ void OP_subrcall(int subr_no, int argnum) {
TopOfStack = ATOM_T;
break;
}
/*******************/
/* CLX Support ops */
/*******************/
#ifdef NEVER /* CLX */
case sb_OPEN_SOCKET: {
POP_SUBR_ARGS;
TopOfStack = Open_Socket(args);
break;
}
case sb_CLOSE_SOCKET: {
TopOfStack = Close_Socket();
break;
}
case sb_READ_SOCKET: {
POP_SUBR_ARGS;
TopOfStack = Read_Socket(args);
break;
}
case sb_WRITE_SOCKET: {
POP_SUBR_ARGS;
TopOfStack = Write_Socket(args);
break;
}
case 0244: /* KB_TRANSITION */
{
POP_SUBR_ARGS;
TopOfStack = Kbd_Transition(args);
break;
}
#endif /* CLX */
#ifndef NOFORN
/*****************************************/