25 lines
933 B
C
25 lines
933 B
C
|
/************************************************************************/
|
|||
|
|
/* C Equivalents for Scheme List Operations */
|
|||
|
|
/* */
|
|||
|
|
/* Copyright 1985 by Texas Instruments Incorporated. */
|
|||
|
|
/* All Rights Reserved. */
|
|||
|
|
/* */
|
|||
|
|
/* Date Written: 29 March 1985 */
|
|||
|
|
/* Last Modification: 1 April 1985 */
|
|||
|
|
/************************************************************************/
|
|||
|
|
|
|||
|
|
/* copy contents of one "register" to another */
|
|||
|
|
#define mov_reg(dest,src) dest[C_PAGE]=src[C_PAGE]; dest[C_DISP]=src[C_DISP]
|
|||
|
|
|
|||
|
|
/* test equality (eq? -ness) of two registers */
|
|||
|
|
#define eq(r1,r2) (r1[C_DISP] == r2[C_DISP] && r1[C_PAGE] == r2[C_PAGE])
|
|||
|
|
|
|||
|
|
/* take caar of a "register" */
|
|||
|
|
#define take_caar(reg) take_car(reg); take_car(reg)
|
|||
|
|
|
|||
|
|
/* take cadr of a "register" */
|
|||
|
|
#define take_cadr(reg) take_cdr(reg); take_car(reg)
|
|||
|
|
|
|||
|
|
/* take cddr of a "register" */
|
|||
|
|
#define take_cddr(reg) take_cdr(reg); take_cdr(reg)
|
|||
|
|
|