dnrops
/
gimp
mirror of https://github.com/GNOME/gimp.git
1
0
Fork 0
Code Issues Packages Projects Releases Wiki Activity

to make it compile with msvc redefine stricmp after including <string.h> 

2007-01-14  Hans Breuer  <hans@breuer.org>

        * plug-ins/script-fu/tinyscheme/scheme.[ch] : to make it compile with
        msvc redefine stricmp after including <string.h> and protect gccism
        #warning with #ifdef __GNUC__, also some more exports
	* plug-ins/script-fu/scheme-wrapper.c : simple 'extern' does not work
	to get variables across modules boundaries for msvc, use SCHEME_EXPORT
	Together fixes bug #396268


svn path=/trunk/; revision=21707
This commit is contained in:
Hans Breuer 2007-01-14 13:57:59 +00:00 committed by Hans Breuer
parent 74e189e9c7
commit b2ebab0b29
4 changed files with 16 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
ChangeLog
View File

@ -1,3 +1,12 @@
2007-01-14 Hans Breuer <hans@breuer.org>
* plug-ins/script-fu/tinyscheme/scheme.[ch] : to make it compile with
msvc redefine stricmp after including <string.h> and protect gccism
#warning with #ifdef __GNUC__, also some more exports
* plug-ins/script-fu/scheme-wrapper.c : simple 'extern' does not work
to get variables across modules boundaries for msvc, use SCHEME_EXPORT
Together fixes bug #396268
2007-01-13 Hans Breuer <hans@breuer.org>
* **/makefile.msc app/gimpcore.def : updated

2
plug-ins/script-fu/scheme-wrapper.c
View File

@ -49,7 +49,7 @@
static int ts_console_mode;
extern void *ts_output_routine;
SCHEME_EXPORT void *ts_output_routine;
#undef cons

8
plug-ins/script-fu/tinyscheme/scheme.c
View File

@ -46,8 +46,6 @@
#include "scheme-private.h"
#define stricmp g_ascii_strcasecmp
/* Used for documentation purposes, to signal functions in 'interface' */
#define INTERFACE
@ -76,6 +74,8 @@
#include <string.h>
#include <stdlib.h>
#define stricmp g_ascii_strcasecmp
#define min(a, b) ((a <= b) ? a : b)
@ -129,7 +129,7 @@ enum scheme_types {
#define MARK 32768 /* 1000000000000000 */
#define UNMARK 32767 /* 0111111111111111 */
void (*ts_output_routine) (FILE *, char *, int);
SCHEME_EXPORT void (*ts_output_routine) (FILE *, char *, int);
static num num_add(num a, num b);
static num num_mul(num a, num b);
@ -2093,7 +2093,9 @@ static int eqv(pointer a, pointer b) {
#if !defined(USE_ALIST_ENV) || !defined(USE_OBJECT_LIST)
#ifdef __GNUC__
#warning FIXME: Update hash_fn() to handle UTF-8 coded keys
#endif
static int hash_fn(const char *key, int table_size)
{
unsigned int hashed = 0;

2
plug-ins/script-fu/tinyscheme/scheme.h
View File

@ -144,7 +144,7 @@ pointer mk_foreign_func(scheme *sc, foreign_func f);
void putcharacter(scheme *sc, gunichar c);
void putstr(scheme *sc, const char *s);
void set_safe_foreign (scheme *sc, pointer data);
SCHEME_EXPORT void set_safe_foreign (scheme *sc, pointer data);
#if USE_INTERFACE
struct scheme_interface {