/* seqext.c -- seq extensions for xlisp */
/*
This file extends xlisp with the data type SEQ, including functions
to 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");
}