/* seqext.c -- seq extensions for xlisp *//*This file extends xlisp with the data type SEQ, including functionsto print and free SEQ type objects. *//* (c) Copyright Carnegie Mellon University 1991, 1994 * For a statement of limited permission to use, see Permission.doc *//* CHANGE LOG * -------------------------------------------------------------------- * 28Apr03  dm  portability fix: use %p instead of %lx */#include "stdio.h"#include "xlisp.h"#include "cext.h"#include "userio.h"#include "midifns.h"#include "timebase.h"#include "seq.h"#include "moxc.h"#include "seqread.h"#include "seqext.h"#include "extern.h"LVAL s_seq;xtype_desc seq_desc;static void xlseq_print();void nop() {}boolean seqp(s)  LVAL s;{    return exttypep(s, s_seq);}/* xlseq_free gets called by xlisp when the GC frees a seq object. * seq_free is a macro, so here we make it into a function pointer. */static void xlseq_free(sequence)seq_type sequence;{   seq_free(sequence);}static void xlseq_print(fptr, sequence)  LVAL fptr;  seq_type sequence;{    char s[32];    sprintf(s, "#<SEQ:0x%p>", sequence);    xlputstr(fptr, s);}static void xlseq_save(fp, sequence)  FILE *fp;  seq_type sequence;{    errputstr("xlseq_save called\n");}static unsigned char *xlseq_restore(fp)  FILE *fp;{   errputstr("xlseq_restore called\n");   return 0;}void seqext_init(){/*    printf("localinit called\n"); */    seq_desc = create_desc("SEQ", xlseq_free, xlseq_print, xlseq_save,                            xlseq_restore, NULL);    moxcinit(0, (char **) NULL);}void seqext_symbols(){        s_seq = xlenter("SEQ");}