scsh-0.5/scsh/rdelim.c

/* This is an Scheme48/C interface file, 
** automatically generated by cig.
*/

#include <stdio.h>
#include <stdlib.h> /* For malloc. */
#include "libcig.h"

#include <sys/types.h>

/* Make sure foreign-function stubs interface to the C funs correctly: */
#include "fdports1.h"

scheme_value df_read_delim(long nargs, scheme_value *args)
{
    extern scheme_value read_delim(const char *, char *, int , scheme_value , int , int , int *);
    scheme_value ret1;
    scheme_value r1;
    int r2;

    cig_check_nargs(7, nargs, "read_delim");
    r1 = read_delim(cig_string_body(args[6]), cig_string_body(args[5]), EXTRACT_BOOLEAN(args[4]), args[3], EXTRACT_FIXNUM(args[2]), EXTRACT_FIXNUM(args[1]), &r2);
    ret1 = r1;
    VECTOR_REF(*args,0) = ENTER_FIXNUM(r2);
    return ret1;
    }

scheme_value df_skip_chars(long nargs, scheme_value *args)
{
    extern scheme_value skip_chars(const char *, scheme_value , int *);
    scheme_value ret1;
    scheme_value r1;
    int r2;

    cig_check_nargs(3, nargs, "skip_chars");
    r1 = skip_chars(cig_string_body(args[2]), args[1], &r2);
    ret1 = r1;
    VECTOR_REF(*args,0) = ENTER_FIXNUM(r2);
    return ret1;
    }