Sophie

Sophie

distrib > Fedora > 16 > i386 > by-pkgid > e83180f844c64415366c9ea173b8d729 > files > 67

gauche-devel-0.9.2-1.fc16.i686.rpm

/*
 * @@extname@@.c
 */

#include "@@extname@@.h"

/*
 * The following function is a dummy one; replace it for
 * your C function definitions.
 */

ScmObj test_@@extname@@(void)
{
    return SCM_MAKE_STR("@@extname@@ is working");
}

/*
 * Module initialization function.
 */
extern void Scm_Init_@@extname@@lib(ScmModule*);

void Scm_Init_@@extname@@(void)
{
    ScmModule *mod;

    /* Register this DSO to Gauche */
    SCM_INIT_EXTENSION(@@extname@@);

    /* Create the module if it doesn't exist yet. */
    mod = SCM_MODULE(SCM_FIND_MODULE("@@modname@@", TRUE));

    /* Register stub-generated procedures */
    Scm_Init_@@extname@@lib(mod);
}