view release on metacpan or  search on metacpan

siod.html  view on Meta::CPAN

<TR><TD>Microsoft</TD>
    <TD>Windows 95</TD></TR>
</TABLE>

<A name="releasenotes"></a><H2>Release Notes</H2>

<UL>
<LI><B>1.0</B> April 1988.
Initial release. 
<LI><B>1.1</B> April 1988.
Macros, predicates, load. Better number recognizer in read,
provided siod.scm file.
<LI><B>1.2</B> April 1988.
Name changes as requested by JAR@AI.AI.MIT.EDU, plus some bug fixes.
<LI><B>1.3</B> May 1988.
Changed env to use frames instead of alist. define now works properly.
<LI><B>1.4</B> November 1989.
This release is functionally the same as release 1.3 but has been
remodularized in response to people who have been encorporating SIOD
as an interpreted extension language in other systems.
<LI><B>1.5</B> November 1989.
Added the -g flag to enable mark-and-sweep garbage collection.
The default is stop-and-copy. (Note: changed default to mark-and-sweep)
<LI><B>2.0</B> December 1989.
Set_Repl_Hooks, catch & throw. 
<LI><B>2.1</B> December 1989.
Additions to SIOD.SCM: Backquote, cond.
<LI><B>2.2</B> December 1989.
User Type extension. Read-Macros. (From C-programmer level).
<LI><B>2.3</B> December 1989.
save-forms. load with argument t, comment character, faster intern.
-o flag gives obarray size. default 100.
<LI><B>2.4</B> April 1990.
speed up arithmetic and the evaluator. fixes to siod.scm. no_interrupt
around calls to C I/O. gen_readr.
<LI><B>2.5</B> September 1990.
numeric arrays in siod.c
<LI><B>2.6</B> March 1992.
remodularize .h files, procedure prototypes. gc, eval, print hooks

siod_wrap.c  view on Meta::CPAN

#ifndef pTHX_
#define pTHX_
#endif

#include <string.h>
#ifdef __cplusplus
}
#endif

/* Macro to call an XS function */

#ifdef PERL_OBJECT 
#  define SWIG_CALLXS(_name) _name(cv,pPerl) 
#else 
#  ifndef MULTIPLICITY 
#    define SWIG_CALLXS(_name) _name(cv) 
#  else 
#    define SWIG_CALLXS(_name) _name(PERL_GET_THX, cv) 
#  endif 
#endif 

siod_wrap.c  view on Meta::CPAN

}

static void
SWIG_Perl_SetErrorf(const char *fmt, ...) {
  va_list args;
  va_start(args, fmt);
  sv_vsetpvfn(perl_get_sv("@", TRUE), fmt, strlen(fmt), &args, Null(SV**), 0, Null(bool*));
  va_end(args);
}

/* Macros for low-level exception handling */
#define SWIG_fail       goto fail
#define SWIG_croak(x)   { SWIG_SetError(x); goto fail; }
#define SWIG_croakSV(x) { SWIG_SetErrorSV(x); goto fail; }
/* most preprocessors do not support vararg macros :-( */
/* #define SWIG_croakf(x...) { SWIG_SetErrorf(x); goto fail; } */


typedef XS(SwigPerlWrapper);
typedef SwigPerlWrapper *SwigPerlWrapperPtr;