Language-Haskell
view release on metacpan or search on metacpan
hugs98-Nov2003/fptools/libraries/OpenGL/include/HsOpenGLTypes.h view on Meta::CPAN
/* -----------------------------------------------------------------------------
*
* Module : Macros for basic GL types to get better Haddock documentation
* Copyright : (c) Sven Panne 2003
* License : BSD-style (see the file libraries/OpenGL/LICENSE)
*
* Maintainer : sven_panne@yahoo.com
* Stability : provisional
* Portability : portable
*
* This header should only define preprocessor macros!
*
* -------------------------------------------------------------------------- */
hugs98-Nov2003/fptools/libraries/base/cbits/regex/WHATSNEW view on Meta::CPAN
to put NULs in either the RE or the target string, using (resp.) a new
REG_PEND flag and the old REG_STARTEND flag. The REG_NOSPEC flag to
regcomp() makes all characters ordinary, so you can match a literal
string easily (this will become more useful when performance improves!).
There are now primitives to match beginnings and ends of words, although
the syntax is disgusting and so is the implementation. The REG_ATOI
debugging interface has changed a bit. And there has been considerable
internal cleanup of various kinds.
New in alpha2.3: Split change list out of README, and moved flags notes
into Makefile. Macro-ized the name of regex(7) in regex(3), since it has
to change for 4.4BSD. Cleanup work in engine.c, and some new regression
tests to catch tricky cases thereof.
New in alpha2.2: Out-of-date manpages updated. Regerror() acquires two
small extensions -- REG_ITOA and REG_ATOI -- which avoid debugging kludges
in my own test program and might be useful to others for similar purposes.
The regression test will now compile (and run) without REDEBUG. The
BRE \$ bug is fixed. Most uses of "uchar" are gone; it's all chars now.
Char/uchar parameters are now written int/unsigned, to avoid possible
portability problems with unpromoted parameters. Some unsigned casts have
hugs98-Nov2003/fptools/libraries/base/cbits/regex/regcomp.c view on Meta::CPAN
#define THERE() (p->slen - 1)
#define THERETHERE() (p->slen - 2)
#define DROP(n) (p->slen -= (n))
#ifndef NDEBUG
static int never = 0; /* for use in asserts; shuts lint up */
#else
#define never 0 /* some <assert.h>s have bugs too */
#endif
/* Macro used by computejump()/computematchjump() */
#define MIN(a,b) ((a)<(b)?(a):(b))
/*
- regcomp - interface for parser and compilation
= extern int regcomp(regex_t *, const char *, int);
= #define REG_BASIC 0000
= #define REG_EXTENDED 0001
= #define REG_ICASE 0002
= #define REG_NOSUB 0004
= #define REG_NEWLINE 0010
hugs98-Nov2003/fptools/libraries/base/include/Typeable.h view on Meta::CPAN
/* ----------------------------------------------------------------------------
* Macros to help make Typeable instances.
* -------------------------------------------------------------------------- */
#define INSTANCE_TYPEABLE0(tycon,tcname,str) \
tcname = mkTyCon str; \
instance Typeable tycon where { typeOf _ = mkAppTy tcname [] }
#define INSTANCE_TYPEABLE1(tycon,tcname,str) \
tcname = mkTyCon str; \
instance Typeable a => Typeable (tycon a) where { \
typeOf x = mkAppTy tcname [typeOf ((undefined :: tycon a -> a) x) ] }
hugs98-Nov2003/src/builtin.h view on Meta::CPAN
* $Revision: 1.5 $
* $Date: 2003/10/14 13:56:21 $
* ------------------------------------------------------------------------*/
#ifndef __BUILTIN_H__
#define __BUILTIN_H__
extern String evalName Args((Cell));
extern Cell mkIOError Args((Cell,Name,String,String,Cell));
/* --------------------------------------------------------------------------
* Macros used to define primitives:
* ------------------------------------------------------------------------*/
#define PROTO_PRIM(name) static Void name Args((StackPtr))
#define EXT_PROTO_PRIM(name) extern Void name Args((StackPtr))
#define primFun(name) static Void name(root) StackPtr root;
#define extPrimFun(name) Void name(StackPtr root)
#define primCAF(name) static Void name(root) StackPtr root HUGS_unused;
#define primArg(n) stack(root+n)
/* IMPORTANT: the second element of an update must be written first.
hugs98-Nov2003/src/dotnet/HugsServ.cpp view on Meta::CPAN
* void entryPoint(arg1, arg2, result)
* T1 arg1;
* T2 arg2;
* T3 *result;
* {
* protect(doNothing(),
* ...
* );
* }
*
* Macro decomposed into BEGIN_PROTECT and END_PROTECT pieces so that i
* can be used on some compilers (Mac?) that have limits on the size of
* macro arguments.
*/
#define BEGIN_PROTECT \
if (NULL == lastError) { \
Cell dummy; \
CStackBase = &dummy; /* Save stack base for use in gc */ \
consGC = TRUE; /* conservative GC is the default */ \
if (1) {
#define END_PROTECT \
hugs98-Nov2003/src/machdep.c view on Meta::CPAN
unsigned int maxLen = 0;
unsigned int strLength = 0; /* length of component */
String component;
FILETIME ft; /* just to satisfy RegEnumKeyEx() */
char sepString[2];
sepString[0] = PATHSEP;
sepString[1] = '\0';
/* Macro which appends a NUL terminated string to 'resPath', taking
* care of (re)allocating the string buffer, so that it'll fit.
*/
#define APPEND_STRING__(x) \
if (x) {\
if ( (strLength = strlen(x)) > resRoom || (resRoom == 0 && (x) != NULL) ) { \
maxLen = max(strLength, strIncrement); \
if (resPath == NULL) { \
if ( (resPath = (String)malloc(sizeof(char) * maxLen)) == NULL) { \
return NULL; \
} \
hugs98-Nov2003/src/prelude.h view on Meta::CPAN
extern char *appName;
extern HWND hWndText; /* text output window handle */
extern HWND hWndMain; /* main window handle */
#if HUGS_FOR_WINDOWS
#include "winhugs\wintext.h"
#endif
#endif
/*---------------------------------------------------------------------------
* Macros used in declarations:
* function prototypes
* local/far declarations
* HUGS_noreturn/HUGS_unused (prevent spurious warnings)
* result type of main
* dynamic linking declarations
*-------------------------------------------------------------------------*/
#if HAVE_PROTOTYPES /* To enable use of prototypes whenever possible */
#define Args(x) x
#else
hugs98-Nov2003/src/server.c view on Meta::CPAN
* void entryPoint(arg1, arg2, result)
* T1 arg1;
* T2 arg2;
* T3 *result;
* {
* protect(doNothing(),
* ...
* );
* }
*
* Macro decomposed into BEGIN_PROTECT and END_PROTECT pieces so that i
* can be used on some compilers (Mac?) that have limits on the size of
* macro arguments.
*/
#define BEGIN_PROTECT \
if (NULL == lastError) { \
Cell dummy; \
CStackBase = &dummy; /* Save stack base for use in gc */ \
consGC = TRUE; /* conservative GC is the default */ \
if (!setjmp(catch_error)) {
#define END_PROTECT \
hugs98-Nov2003/src/unix/aclocal.m4 view on Meta::CPAN
dnl ################################################################
dnl Macros
dnl (hard-core autoconf hackers only)
dnl ################################################################
dnl Like AC_SUBST but with a default value in case var is undefined
dnl typically usage from cshell: env EXE=".exe" ./configure
dnl AC_SUBST_DEF(varname,defaultvalue)
AC_DEFUN(AC_SUBST_DEF,[
$1=${$1=$2}
hugs98-Nov2003/src/unix/acx_pthread.m4 view on Meta::CPAN
dnl Available from the GNU Autoconf Macro Archive at:
dnl http://www.gnu.org/software/ac-archive/htmldoc/acx_pthread.html
dnl
AC_DEFUN([ACX_PTHREAD], [
AC_REQUIRE([AC_CANONICAL_HOST])
AC_LANG_SAVE
AC_LANG_C
acx_pthread_ok=no
# We used to check for pthread.h first, but this fails if pthread.h
# requires special compiler flags (e.g. on True64 or Sequent).
hugs98-Nov2003/src/winhugs/winhugs.c view on Meta::CPAN
#define DEFAULT_DOC_DIR "{Hugs}\\docs"
#define HASKELL_REPORT "report\\index.html"
#define HASKELL_LIBS "library\\index.html"
#define HASKELL_GENTLE "tutorial\\index.html"
#define HUGS_EXTS "libs\\libs.html"
#define HUGS_DOCS "hugsman\\index.html"
#define HASKELL_ORG "http:\\\\haskell.org"
#define HUGS_HELP_FILE "hugs.hlp"
/* --------------------------------------------------------------------------
* Local Macros:
* ------------------------------------------------------------------------*/
#define DlgSendMessage(h,c,w,l) SendMessage((h),(c),MAKEWPARAM(w,(HIWORD(l))),(LOWORD(l)))
#define AbortInterpreter input(BREAK); WinPuts(hWndText, "\n")
#define GotoInterpreter longjmp(catch_error, 1);
/* --------------------------------------------------------------------------
* Local Variables:
* ------------------------------------------------------------------------*/
#if DOS
hugs_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
hugs_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;
( run in 0.314 second using v1.01-cache-2.11-cpan-3cd7ad12f66 )