mirror of
https://github.com/Interlisp/maiko.git
synced 2026-01-24 19:22:03 +00:00
3d9f090e70
Remove unused #define PERCENT_OF_SCREEN in MyWindow.h Move structures for dir.c to dirdefs.h where they are used Resolve S_CHAR vs S_CHARACTER in favor of S_CHARACTER and cleanup #defines Fix = vs == bug in FSDEBUG code in dir.c Eliminate duplicate/unused constant definitions in gcr.c Declare static internal function bytecmp in mkatom.c Update many source and include files to include headers for what they use
98 lines
3.0 KiB
C
98 lines
3.0 KiB
C
/* $Id: lisp2c.c,v 1.3 1999/05/31 23:35:37 sybalsky Exp $ (C) Copyright Venue, All Rights Reserved
|
|
*/
|
|
/* File containing the conversion functions between lisp and C */
|
|
/* -jarl */
|
|
|
|
/************************************************************************/
|
|
/* */
|
|
/* (C) Copyright 1989-95 Venue. All Rights Reserved. */
|
|
/* Manufactured in the United States of America. */
|
|
/* */
|
|
/************************************************************************/
|
|
|
|
#include "version.h"
|
|
|
|
#include <stdio.h> // for sprintf
|
|
#include <stdlib.h> // for abs
|
|
#include "adr68k.h" // for Addr68k_from_LADDR, LADDR_from_68k
|
|
#include "commondefs.h" // for error
|
|
#include "emlglob.h"
|
|
#include "lisp2cdefs.h" // for CIntToLispInt, LispIntToCInt, LispStringLength
|
|
#include "lispemul.h" // for LispPTR
|
|
#include "lispmap.h" // for S_NEGATIVE, S_POSITIVE
|
|
#include "lspglob.h"
|
|
#include "lsptypes.h" // for OneDArray, FAT_CHAR_TYPENUMBER, THIN_CHAR_TY...
|
|
#include "mkcelldefs.h" // for createcell68k
|
|
|
|
int LispStringP(LispPTR object) {
|
|
int type;
|
|
|
|
type = ((OneDArray *)Addr68k_from_LADDR(object))->typenumber;
|
|
return ((type == THIN_CHAR_TYPENUMBER) || (type == FAT_CHAR_TYPENUMBER));
|
|
}
|
|
|
|
int LispStringLength(LispPTR lispstring) {
|
|
OneDArray *arrayp;
|
|
|
|
arrayp = (OneDArray *)(Addr68k_from_LADDR(lispstring));
|
|
return (arrayp->fillpointer);
|
|
}
|
|
|
|
void LispStringToCStr(LispPTR lispstring, char *cstring) {
|
|
OneDArray *arrayp;
|
|
char *base;
|
|
short *sbase;
|
|
int i, Len;
|
|
|
|
arrayp = (OneDArray *)(Addr68k_from_LADDR((UNSIGNED)lispstring));
|
|
Len = arrayp->fillpointer;
|
|
|
|
switch (arrayp->typenumber) {
|
|
case THIN_CHAR_TYPENUMBER:
|
|
base = ((char *)(Addr68k_from_LADDR((UNSIGNED)arrayp->base))) + ((int)(arrayp->offset));
|
|
for (i = 0; i < Len; i++) cstring[i] = base[i];
|
|
cstring[Len] = '\0';
|
|
break;
|
|
|
|
case FAT_CHAR_TYPENUMBER:
|
|
sbase = ((short *)(Addr68k_from_LADDR((UNSIGNED)arrayp->base))) + ((int)(arrayp->offset));
|
|
base = (char *)sbase;
|
|
for (i = 0; i < Len * 2; i++) cstring[i] = base[i];
|
|
cstring[Len * 2] = '\0';
|
|
break;
|
|
|
|
default: error("Arg not Lisp string.\n");
|
|
}
|
|
}
|
|
|
|
int LispIntToCInt(LispPTR lispint) {
|
|
switch ((0xFFFF0000 & lispint)) {
|
|
case S_POSITIVE: return (lispint & 0xFFFF); break;
|
|
case S_NEGATIVE: return (lispint | 0xFFFF0000); break;
|
|
default:
|
|
if (GetTypeNumber(lispint) == TYPE_FIXP) {
|
|
return (*((int *)Addr68k_from_LADDR(lispint)));
|
|
} else {
|
|
char msg[200];
|
|
sprintf(msg, "Arg 0x%x isn't a lisp integer.", lispint);
|
|
error(msg);
|
|
/* NOTREACHED */
|
|
return(0);
|
|
}
|
|
break;
|
|
}
|
|
}
|
|
|
|
LispPTR CIntToLispInt(int cint) {
|
|
if (abs(cint) > 0xFFFF) { /* its a fixp! */
|
|
register LispPTR *wordp;
|
|
wordp = (LispPTR *)createcell68k(TYPE_FIXP);
|
|
*((int *)wordp) = cint;
|
|
return (LADDR_from_68k(wordp));
|
|
} else if (cint >= 0) { /* its a positive smallp! */
|
|
return (S_POSITIVE | cint);
|
|
} else { /* its a negative smallp! */
|
|
return (S_NEGATIVE | (0xFFFF & cint));
|
|
}
|
|
}
|