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

Minor changes to quiet the compiler. 

* plug-ins/script-fu/re/re.c: Minor changes to quiet the compiler.

	* plug-ins/script-fu/tinyscheme/CHANGES: Updated to version from
	the 1.38 version of TinyScheme.

	* plug-ins/script-fu/tinyscheme/scheme.c: Added some changes from the
	1.38 version of TinyScheme. Added fix for bug #1589701 (reported on
	SourceForge.net).

	* plug-ins/script-fu/tinyscheme/scheme.h: Added a prototype to quiet
	the compiler. Added one change from the 1.38 version of TinyScheme.
This commit is contained in:
Kevin Cozens 2006-12-07 18:57:10 +00:00
parent 6ded475a12
commit 04a45e41dc
5 changed files with 54 additions and 22 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
ChangeLog
View File

@ -1,3 +1,17 @@
2006-12-07 Kevin Cozens <kcozens@cvs.gnome.org>
* plug-ins/script-fu/re/re.c: Minor changes to quiet the compiler.
* plug-ins/script-fu/tinyscheme/CHANGES: Updated to version from
the 1.38 version of TinyScheme.
* plug-ins/script-fu/tinyscheme/scheme.c: Added some changes from the
1.38 version of TinyScheme. Added fix for bug #1589701 (reported on
SourceForge.net).
* plug-ins/script-fu/tinyscheme/scheme.h: Added a prototype to quiet
the compiler. Added one change from the 1.38 version of TinyScheme.
2006-12-07 Michael Natterer <mitch@gimp.org>
* app/core/gimpbrush.c (gimp_brush_class_init)

9
plug-ins/script-fu/re/re.c
View File

@ -14,6 +14,10 @@
/* Since not exported */
#define T_STRING 1
pointer foreign_re_match(scheme *sc, pointer args);
EXPORT void init_re(scheme *sc);
static void set_vector_elem(pointer vec, int ielem, pointer newel) {
int n=ielem/2;
if(ielem%2==0) {
@ -68,7 +72,6 @@ pointer foreign_re_match(scheme *sc, pointer args) {
set_vector_elem(third_arg, i,
sc->vptr->cons(sc, sc->vptr->mk_integer(sc, pmatch[i].rm_so),
sc->vptr->mk_integer(sc, pmatch[i].rm_eo)));
}
}
free(pmatch);
@ -87,6 +90,7 @@ pointer foreign_re_match(scheme *sc, pointer args) {
return(retval);
}
#if 0
static char* utilities=";; return the substring of STRING matched in MATCH-VECTOR, \n"
";; the Nth subexpression match (default 0).\n"
"(define (re-match-nth string match-vector . n)\n"
@ -100,8 +104,9 @@ static char* utilities=";; return the substring of STRING matched in MATCH-VECTO
" (let ((n (if (pair? n) (car n) 0)))\n"
" (substring string (cdr (vector-ref match-vector n))\n"
" (string-length string))))\n";
#endif
EXPORT void init_re(scheme *sc) {
void init_re(scheme *sc) {
sc->vptr->scheme_define(sc,sc->global_env,sc->vptr->mk_symbol(sc,"re-match"),sc->vptr->mk_foreign_func(sc, foreign_re_match));
/* sc->vptr->load_string(sc,utilities);*/
}

6
plug-ins/script-fu/tinyscheme/CHANGES
View File

@ -1,12 +1,16 @@
Change Log
----------
Version 1.38
Interim release until the rewrite, mostly incorporating modifications from
Kevin Cozens. Small addition for Cygwin in the makefile, and modifications
by Andrew Guenther for Apple platforms.
Version 1.37
Joe Buehler submitted reserve_cells.
Version 1.36
Joe Buehler fixed a patch in the allocator.
Alexander Shendi moved the comment handling in the scanner, which
fixed an obscure bug for which Mike E had provided a patch as well.
Kevin Kozens has submitted some fixes and modifications which have not
Kevin Cozens has submitted some fixes and modifications which have not
been incorporated yet in their entirety.
Version 1.35
Todd Showalter discovered that the number of free cells reported

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

@ -74,6 +74,9 @@
#include <string.h>
#include <stdlib.h>
#ifndef __APPLE__
# include <malloc.h>
#endif
#define stricmp utf8_stricmp
@ -1497,6 +1500,8 @@ static gunichar inchar(scheme *sc) {
file_pop(sc);
if(sc->nesting!=0) {
return EOF;
} else {
return '\n';
}
goto again;
}
@ -4687,7 +4692,7 @@ void scheme_call(scheme *sc, pointer func, pointer args) {
#if STANDALONE
#if defined(macintosh) && !defined (OSX)
#if defined(__APPLE__) && !defined (OSX)
int main(int argc, char **argv)
{
extern MacTS_main(int argc, char **argv);

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

@ -14,6 +14,9 @@
#endif
#ifndef _MSC_VER
# ifndef USE_STRLWR
# define USE_STRLWR 1
# endif
# define SCHEME_EXPORT
#else
# define USE_STRLWR 0
@ -138,6 +141,7 @@ pointer mk_string(scheme *sc, const char *str);
pointer mk_counted_string(scheme *sc, const char *str, int len);
pointer mk_character(scheme *sc, gunichar c);
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);