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

Allow one to three digits in octal coded characters. 

2007-10-22  Kevin Cozens  <kcozens@cvs.gnome.org>

	* plug-ins/script-fu/tinyscheme/scheme.c: Allow one to three
	digits in octal coded characters.

svn path=/trunk/; revision=23908
This commit is contained in:
Kevin Cozens 2007-10-22 16:12:49 +00:00 committed by Kevin Cozens
parent fdd1c1fa4c
commit 19ba673b2f
2 changed files with 14 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
ChangeLog
View File

@ -1,3 +1,8 @@
2007-10-22 Kevin Cozens <kcozens@cvs.gnome.org>
* plug-ins/script-fu/tinyscheme/scheme.c: Allow one to three
digits in octal coded characters.
2007-10-22 Sven Neumann <sven@gimp.org>
* plug-ins/gflare/gflare.c (plugin_do_non_asupsample): fixed
@ -23,7 +28,7 @@
2007-10-21 Simon Budig <simon@gimp.org>
* plg-ins/script-fu/scheme-wrapper.c: Add comment regarding
* plg-ins/script-fu/scheme-wrapper.c: Add comment regarding
the safe-foreign issue.
2007-10-21 Kevin Cozens <kcozens@cvs.gnome.org>

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

@ -1719,6 +1719,10 @@ static pointer readstrexp(scheme *sc) {
case '1':
case '2':
case '3':
case '4':
case '5':
case '6':
case '7':
state=st_oct1;
c1=g_unichar_digit_value(c);
break;
@ -1766,15 +1770,16 @@ static pointer readstrexp(scheme *sc) {
case st_oct2: /* State when handling third octal digit */
if (!g_unichar_isdigit(c) || g_unichar_digit_value(c) > 7)
{
if (state==st_oct1)
return sc->F;
*p++=c1;
backchar(sc, c);
state=st_ok;
}
else
{
/* Is value of three character octal too big for a byte? */
if (state==st_oct2 && c1 >= 32)
return sc->F;
c1=(c1<<3)+g_unichar_digit_value(c);
if (state == st_oct1)