ftp.nice.ch/pub/next/unix/audio/fugue.s.tar.gz#/fugue/tableint.c

This is tableint.c in view mode; [Download] [Up]

/* tableint.c -- interface to  table.h */

#include "xlisp.h"

extern LVAL true;
#define cvboolean(i) ((i) ? true : NIL)

extern LVAL RSLT_sym;


#include "table.h"

/* xlc_xform -- interface to C routine xform */
/**/
LVAL xlc_xform()
{
    SoundPtr arg1 = getsound(xlgasound());
    SoundPtr arg2 = getsound(xlgasound());
    SoundPtr result;

    xllastarg();
    result = xform(arg1, arg2);
    return cvsound(result);
}


/* xlc_s_amosc -- interface to C routine s_amosc */
/**/
LVAL xlc_s_amosc()
{
    SoundPtr arg1 = getsound(xlgasound());
    double arg2 = getflonum(xlgaflonum());
    double arg3 = getflonum(xlgaflonum());
    double arg4 = getflonum(xlgaflonum());
    SoundPtr arg5 = getsound(xlgasound());
    double arg6 = getflonum(xlgaflonum());
    int arg7 = getfixnum(xlgafixnum());
    SoundPtr result;

    xllastarg();
    result = s_amosc(arg1, arg2, arg3, arg4, arg5, arg6, arg7);
    return cvsound(result);
}


/* xlc_s_fmosc -- interface to C routine s_fmosc */
/**/
LVAL xlc_s_fmosc()
{
    SoundPtr arg1 = getsound(xlgasound());
    double arg2 = getflonum(xlgaflonum());
    double arg3 = getflonum(xlgaflonum());
    double arg4 = getflonum(xlgaflonum());
    SoundPtr arg5 = getsound(xlgasound());
    double arg6 = getflonum(xlgaflonum());
    int arg7 = getfixnum(xlgafixnum());
    SoundPtr result;

    xllastarg();
    result = s_fmosc(arg1, arg2, arg3, arg4, arg5, arg6, arg7);
    return cvsound(result);
}


/* xlc_s_lp -- interface to C routine s_lp */
/**/
LVAL xlc_s_lp()
{
    SoundPtr arg1 = getsound(xlgasound());
    double arg2 = getflonum(xlgaflonum());
    SoundPtr result;

    xllastarg();
    result = s_lp(arg1, arg2);
    return cvsound(result);
}


/* xlc_s_hp -- interface to C routine s_hp */
/**/
LVAL xlc_s_hp()
{
    SoundPtr arg1 = getsound(xlgasound());
    double arg2 = getflonum(xlgaflonum());
    SoundPtr result;

    xllastarg();
    result = s_hp(arg1, arg2);
    return cvsound(result);
}


/* xlc_s_bp -- interface to C routine s_bp */
/**/
LVAL xlc_s_bp()
{
    SoundPtr arg1 = getsound(xlgasound());
    double arg2 = getflonum(xlgaflonum());
    double arg3 = getflonum(xlgaflonum());
    SoundPtr result;

    xllastarg();
    result = s_bp(arg1, arg2, arg3);
    return cvsound(result);
}


/* xlc_s_lp_var -- interface to C routine s_lp_var */
/**/
LVAL xlc_s_lp_var()
{
    SoundPtr arg1 = getsound(xlgasound());
    SoundPtr arg2 = getsound(xlgasound());
    double arg3 = getflonum(xlgaflonum());
    SoundPtr result;

    xllastarg();
    result = s_lp_var(arg1, arg2, arg3);
    return cvsound(result);
}


/* xlc_s_hp_var -- interface to C routine s_hp_var */
/**/
LVAL xlc_s_hp_var()
{
    SoundPtr arg1 = getsound(xlgasound());
    SoundPtr arg2 = getsound(xlgasound());
    double arg3 = getflonum(xlgaflonum());
    SoundPtr result;

    xllastarg();
    result = s_hp_var(arg1, arg2, arg3);
    return cvsound(result);
}


/* xlc_s_bp_var -- interface to C routine s_bp_var */
/**/
LVAL xlc_s_bp_var()
{
    SoundPtr arg1 = getsound(xlgasound());
    SoundPtr arg2 = getsound(xlgasound());
    double arg3 = getflonum(xlgaflonum());
    double arg4 = getflonum(xlgaflonum());
    SoundPtr result;

    xllastarg();
    result = s_bp_var(arg1, arg2, arg3, arg4);
    return cvsound(result);
}


/* xlc_s_white_noise -- interface to C routine s_white_noise */
/**/
LVAL xlc_s_white_noise()
{
    double arg1 = getflonum(xlgaflonum());
    double arg2 = getflonum(xlgaflonum());
    SoundPtr result;

    xllastarg();
    result = s_white_noise(arg1, arg2);
    return cvsound(result);
}

These are the contents of the former NiCE NeXT User Group NeXTSTEP/OpenStep software archive, currently hosted by Netfuture.ch.