jyapayne/swig
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Added contract support

Browse source 
git-svn-id: https://swig.svn.sourceforge.net/svnroot/swig/trunk@5269 626c5289-ae23-0410-ae9c-e8d60b6d4f22
This commit is contained in:
Dave Beazley 2003-11-05 21:58:39 +00:00
commit 2e614a8424
1 changed files with 13 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

13
SWIG/Lib/tcl/swigtcl8.swg
View file

@ -795,6 +795,19 @@ typedef struct {
char * (*set)(ClientData, Tcl_Interp *, char *, char *, int);
} swig_var_info;
/* Contract support */
#define SWIG_preassert(expr, msg) if (!(expr)) { Tcl_SetResult(interp, (char *) msg #expr, TCL_STATIC ); goto fail; } else
#define SWIG_postassert(expr, msg) if (!(expr)) { Tcl_SetResult(interp, (char *) msg #expr, TCL_STATIC ); goto fail; } else
#define SWIG_inherit_preassert(expr, msg) if (!(expr)) { Tcl_SetResult(interp, (char *) msg #expr, TCL_STATIC ); goto fail; } else
#define SWIG_inherit_postassert(expr, msg) if (!(expr)) { Tcl_SetResult(interp, (char *) msg #expr, TCL_STATIC ); goto fail; } else
#define SWIG_invariant(expr, msg) if (!(expr)) { Tcl_SetResult(interp, (char *) msg #expr, TCL_STATIC ); goto fail; } else
#define SWIG_invariant_begin(expr, msg) if (!(expr)) { Tcl_SetResult(interp, (char *) msg #expr, TCL_STATIC ); goto fail; } else
#define SWIG_invariant_end(expr, msg) if (!(expr)) { Tcl_SetResult(interp, (char *) msg #expr, TCL_STATIC ); goto fail; } else
#ifdef __cplusplus
}
#endif