scsh-conservatory
/
scx
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

+ Added tons of GC_PROTECTS, because s48_extract_integer() may GC with scsh

This commit is contained in:
eknauel 2003-10-21 15:32:22 +00:00
parent 9e23478bfd
commit 07025a27af
3 changed files with 108 additions and 28 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

107
c/libs/xft.c
View File

@ -52,9 +52,9 @@ s48_value scx_XftPatternGet(s48_value sxp, s48_value sobj, s48_value sid)
s48_value rv = S48_UNSPECIFIC;
s48_value rl = S48_UNSPECIFIC;
struct xft_pattern_property *tbl;
S48_DECLARE_GC_PROTECT(5);
S48_DECLARE_GC_PROTECT(2);
S48_GC_PROTECT_2(rl, rv);
S48_GC_PROTECT_5(rl, rv, sxp, sobj, sid);
p = scx_extract_xftpattern(sxp);
obj = s48_extract_integer(sobj);
i = (int) s48_extract_integer(sid);
@ -101,7 +101,9 @@ s48_value scx_XftPatternAdd(s48_value sxp, s48_value sobj,
int obj;
Bool append, rv;
struct xft_pattern_property *tbl;
S48_DECLARE_GC_PROTECT(4);
S48_GC_PROTECT_4(sxp, sobj, sval, sappend);
p = scx_extract_xftpattern(sxp);
obj = s48_extract_integer(sobj);
append = S48_TRUE_P(sappend);
@ -127,6 +129,7 @@ s48_value scx_XftPatternAdd(s48_value sxp, s48_value sobj,
}
rv = XftPatternAdd(p, tbl->name, v, append);
S48_GC_UNPROTECT();
return rv ? S48_TRUE : S48_FALSE;
}
@ -134,12 +137,15 @@ s48_value scx_XftFontMatch(s48_value sdpy, s48_value sscreenno, s48_value sxp)
{
XftPattern *p;
XftResult r;
S48_DECLARE_GC_PROTECT(3);
S48_GC_PROTECT_3(sdpy, sscreenno, sxp);
p = XftFontMatch((Display *) scx_extract_display(sdpy),
s48_extract_integer(sscreenno),
scx_extract_xftpattern(sxp),
&r);
S48_GC_UNPROTECT();
if (p == NULL)
return s48_list_2(S48_FALSE, S48_UNSPECIFIC);
else
@ -148,32 +154,47 @@ s48_value scx_XftFontMatch(s48_value sdpy, s48_value sscreenno, s48_value sxp)
s48_value scx_XftFontOpenPattern(s48_value sdpy, s48_value sxp)
{
return scx_enter_xftfont(XftFontOpenPattern(scx_extract_display(sdpy),
scx_extract_xftpattern(sxp)));
XftFont *xf;
S48_DECLARE_GC_PROTECT(2);
S48_GC_PROTECT_2(sdpy, sxp);
xf = XftFontOpenPattern(scx_extract_display(sdpy), scx_extract_xftpattern(sxp));
S48_GC_UNPROTECT();
return scx_enter_xftfont(xf);
}
s48_value scx_XftFontOpenName(s48_value sdpy, s48_value sscreenno, s48_value sname)
{
XftFont *xf;
S48_DECLARE_GC_PROTECT(3);
S48_GC_PROTECT_3(sdpy, sscreenno, sname);
xf = XftFontOpenName(scx_extract_display(sdpy), s48_extract_integer(sscreenno),
s48_extract_string(sname));
S48_GC_UNPROTECT();
return scx_enter_xftfont(xf);
}
s48_value scx_XftFontOpenXlfd(s48_value sdpy, s48_value sscreenno, s48_value sxlfd)
{
XftFont *xf;
S48_DECLARE_GC_PROTECT(3);
S48_GC_PROTECT_3(sdpy, sscreenno, sxlfd);
xf = XftFontOpenXlfd(scx_extract_display(sdpy), s48_extract_integer(sscreenno),
s48_extract_string(sxlfd));
S48_GC_UNPROTECT();
return scx_enter_xftfont(xf);
}
s48_value scx_XftFontClose(s48_value sdpy, s48_value sxf)
{
S48_DECLARE_GC_PROTECT(2);
S48_GC_PROTECT_2(sdpy, sxf);
XftFontClose(scx_extract_display(sdpy),
scx_extract_xftfont(sxf));
S48_GC_UNPROTECT();
return S48_UNSPECIFIC;
}
@ -181,29 +202,37 @@ s48_value scx_XftDrawCreate(s48_value sdpy, s48_value sdrawable,
s48_value svisual, s48_value scolormap)
{
XftDraw *d;
S48_DECLARE_GC_PROTECT(4);
S48_GC_PROTECT_4(sdpy, sdrawable, svisual, scolormap);
d = XftDrawCreate(scx_extract_display(sdpy),
scx_extract_drawable(sdrawable),
scx_extract_visual(svisual),
scx_extract_colormap(scolormap));
S48_GC_UNPROTECT();
return scx_enter_xftdraw(d);
}
s48_value scx_XftDrawCreateBitmap(s48_value sdpy, s48_value sdrawable)
{
XftDraw *d;
S48_DECLARE_GC_PROTECT(2);
S48_GC_PROTECT_2(sdpy, sdrawable);
d = XftDrawCreateBitmap(scx_extract_display(sdpy),
scx_extract_drawable(sdrawable));
S48_GC_UNPROTECT();
return scx_enter_xftdraw(d);
}
s48_value scx_XftDrawChange(s48_value sxd, s48_value sdrawable)
{
S48_DECLARE_GC_PROTECT(2);
S48_GC_PROTECT_2(sxd, sdrawable);
XftDrawChange(scx_extract_xftdraw(sxd),
scx_extract_drawable(sdrawable));
S48_GC_UNPROTECT();
return S48_UNSPECIFIC;
}
@ -253,13 +282,16 @@ s48_value scx_XftDrawDestroy(s48_value sxd)
s48_value scx_XftTextExtents8(s48_value sdpy, s48_value sxf, s48_value sstr)
{
XGlyphInfo *extents;
S48_DECLARE_GC_PROTECT(3);
S48_GC_PROTECT_3(sdpy, sxf, sstr);
XftTextExtents8(scx_extract_display(sdpy),
scx_extract_xftfont(sxf),
(XftChar8 *) s48_extract_string(sstr),
S48_STRING_LENGTH(sstr),
extents);
S48_GC_UNPROTECT();
return scx_enter_glyphinfo(extents);
}
@ -267,11 +299,15 @@ s48_value scx_XftDrawString8(s48_value sxd, s48_value sxc,
s48_value sxf, s48_value sx,
s48_value sy, s48_value sstr)
{
S48_DECLARE_GC_PROTECT(6);
S48_GC_PROTECT_6(sxd, sxc, sxf, sx, sy, sstr);
XftDrawString8(scx_extract_xftdraw(sxd), scx_extract_xftcolor(sxc),
scx_extract_xftfont(sxf),
s48_extract_integer(sx), s48_extract_integer(sy),
(XftChar8 *) s48_extract_string(sstr),
S48_STRING_LENGTH(sstr));
S48_GC_UNPROTECT();
return S48_UNSPECIFIC;
}
@ -279,16 +315,25 @@ s48_value scx_XftDrawRect(s48_value sxd, s48_value sxc,
s48_value sx, s48_value sy,
s48_value sw, s48_value sh)
{
S48_DECLARE_GC_PROTECT(6);
S48_GC_PROTECT_6(sxd, sxc, sx, sy, sw, sh);
XftDrawRect(scx_extract_xftdraw(sxd), scx_extract_xftcolor(sxc),
s48_extract_integer(sx), s48_extract_integer(sy),
s48_extract_integer(sw), s48_extract_integer(sh));
S48_GC_UNPROTECT();
return S48_UNSPECIFIC;
}
s48_value scx_XftDrawSetClip(s48_value sxd, s48_value sreg)
{
return (XftDrawSetClip(scx_extract_xftdraw(sxd), scx_extract_region(sreg))
? S48_TRUE : S48_FALSE);
Bool b;
S48_DECLARE_GC_PROTECT(2);
S48_GC_PROTECT_2(sxd, sreg);
b = XftDrawSetClip(scx_extract_xftdraw(sxd), scx_extract_region(sreg));
S48_GC_UNPROTECT();
return b ? S48_TRUE : S48_FALSE;
}
s48_value scx_XftObjectSetCreate(void)
@ -306,9 +351,12 @@ s48_value scx_XftObjectSetAdd(s48_value sxo, s48_value sobj)
{
struct xft_pattern_property *tbl;
Bool b;
S48_DECLARE_GC_PROTECT(2);
S48_GC_PROTECT_2(sxo, sobj);
tbl = lookup_pattern_property_by_id(s48_extract_integer(sobj));
b = XftObjectSetAdd(scx_extract_xftobjectset(sxo), tbl->name);
S48_GC_UNPROTECT();
return b ? S48_TRUE : S48_FALSE;
}
@ -316,12 +364,14 @@ s48_value scx_XftListFontsPatternObjects(s48_value sdpy, s48_value sscreenno,
s48_value sxp, s48_value sxo)
{
XftFontSet *fs;
S48_DECLARE_GC_PROTECT(4);
S48_GC_PROTECT_4(sdpy, sscreenno, sxp, sxo);
fs = XftListFontsPatternObjects(scx_extract_display(sdpy),
s48_extract_integer(sscreenno),
scx_extract_xftpattern(sxp),
scx_extract_xftobjectset(sxo));
S48_GC_UNPROTECT();
return scx_enter_xftfontset(fs);
}
@ -339,21 +389,24 @@ s48_value scx_XftFontSetDestroy(s48_value sxfs)
s48_value scx_XftFontSetAdd(s48_value sxfs, s48_value sxp)
{
Bool b;
S48_DECLARE_GC_PROTECT(2);
S48_GC_PROTECT_2(sxfs, sxp);
b = XftFontSetAdd(scx_extract_xftfontset(sxfs),
scx_extract_xftpattern(sxp));
S48_GC_UNPROTECT();
return b ? S48_TRUE : S48_FALSE;
}
s48_value scx_XftColorAllocName(s48_value sdpy, s48_value svisual,
s48_value scolormap, s48_value sname)
{
s48_value res;
s48_value res = S48_FALSE;
XftColor *xftcolor = NULL;
Bool b;
S48_DECLARE_GC_PROTECT(1);
S48_DECLARE_GC_PROTECT(5);
S48_GC_PROTECT_1(res);
S48_GC_PROTECT_5(res, sdpy, svisual, scolormap, sname);
b = XftColorAllocName(scx_extract_display(sdpy), scx_extract_visual(svisual),
scx_extract_colormap(scolormap), s48_extract_string(sname),
xftcolor);
@ -363,16 +416,37 @@ s48_value scx_XftColorAllocName(s48_value sdpy, s48_value svisual,
return res;
}
s48_value scx_XftColorAllocValue(s48_value sdpy, s48_value svisual,
s48_value scolormap, s48_value sxrendercolor)
{
s48_value res = S48_FALSE;
XftColor *xftcolor = NULL;
Bool b;
S48_DECLARE_GC_PROTECT(5);
S48_GC_PROTECT_5(res, sdpy, svisual, scolormap, sxrendercolor);
b = XftColorAllocValue(scx_extract_display(sdpy), scx_extract_visual(svisual),
scx_extract_colormap(scolormap),
scx_extract_xrendercolor(sxrendercolor),
xftcolor);
res = s48_list_2(b ? S48_TRUE : S48_FALSE,
b ? scx_enter_xftcolor(xftcolor) : S48_FALSE);
S48_GC_UNPROTECT();
return res;
}
s48_value scx_XftColorFree(s48_value sdpy, s48_value svisual,
s48_value scolormap, s48_value sxc)
{
S48_DECLARE_GC_PROTECT(4);
S48_GC_PROTECT_4(sdpy, svisual, scolormap, sxc);
XftColorFree(scx_extract_display(sdpy), scx_extract_visual(svisual),
scx_extract_colormap(scolormap), scx_extract_xftcolor(sxc));
S48_GC_UNPROTECT();
return S48_UNSPECIFIC;
}
/* TODO: XftColorAllocValue */
s48_value scx_XftPatternPrint(s48_value sxp)
{
XftPatternPrint(scx_extract_xftpattern(sxp));
@ -448,6 +522,7 @@ void scx_xft_init(void)
S48_EXPORT_FUNCTION(scx_XftFontSetAdd);
S48_EXPORT_FUNCTION(scx_XftColorAllocName);
S48_EXPORT_FUNCTION(scx_XftColorAllocValue);
S48_EXPORT_FUNCTION(scx_XftColorFree);
S48_EXPORT_FUNCTION(scx_XftPatternPrint);

22
c/libs/xrender.c
View File

@ -14,17 +14,18 @@ s48_value scx_enter_glyphinfo(XGlyphInfo *i)
return girec;
}
#define scx_extract_glyphinfo(x) \
((XGlyphInfo *) s48_extract_integer(s48_checked_record_ref(x, 0, scx_xrender_glyphinfo_record_type)))
#define XGLYPHINFO_GET(FUN, FN) \
s48_value FUN(s48_value sv) { \
return s48_enter_integer(scx_extract_glyphinfo(sv)->FN); \
}
#define XGLYPHINFO_SET(FUN, FN) \
s48_value FUN(s48_value sv, s48_value nv) { \
scx_extract_glyphinfo(sv)->FN = s48_enter_integer(nv); \
s48_value FUN(s48_value sv, s48_value nv) { \
S48_DECLARE_GC_PROTECT(2); \
\
S48_GC_PROTECT_2(sv, nv); \
scx_extract_glyphinfo(sv)->FN = s48_enter_integer(nv); \
S48_GC_UNPROTECT(); \
return S48_UNSPECIFIC; \
}
@ -56,17 +57,18 @@ s48_value scx_enter_xrendercolor(XRenderColor *xrc)
return rcrec;
}
#define scx_extract_xrendercolor(x) \
((XRenderColor *) s48_extract_integer(s48_checked_record_ref(x, 0, scx_xrender_xrendercolor_record_type)))
#define XRENDERCOLOR_GET(FUN, FN) \
s48_value FUN(s48_value sv) { \
return s48_enter_integer(scx_extract_xrendercolor(sv)->FN); \
}
#define XRENDERCOLOR_SET(FUN, FN) \
s48_value FUN(s48_value sv, s48_value nv) { \
scx_extract_xrendercolor(sv)->FN = s48_enter_integer(nv); \
s48_value FUN(s48_value sv, s48_value nv) { \
S48_DECLARE_GC_PROTECT(2); \
\
S48_GC_PROTECT_2(sv, nv); \
scx_extract_xrendercolor(sv)->FN = s48_enter_integer(nv); \
S48_GC_UNPROTECT(); \
return S48_UNSPECIFIC; \
}

7
c/libs/xrender.h
View File

@ -8,8 +8,11 @@ static s48_value scx_xrender_glyphinfo_record_type = S48_FALSE;
static s48_value scx_xrender_xrendercolor_record_type = S48_FALSE;
s48_value scx_enter_glyphinfo(XGlyphInfo *i);
XGlyphInfo* scx_extract_glyphinfo(s48_value v);
#define scx_extract_glyphinfo(x) \
((XGlyphInfo *) s48_extract_integer(s48_checked_record_ref(x, 0, scx_xrender_glyphinfo_record_type)))
s48_value scx_enter_xrendercolor(XRenderColor *xrc);
XRenderColor* scx_extract_xrendercolor(s48_value v);
#define scx_extract_xrendercolor(x) \
((XRenderColor *) s48_extract_integer(s48_checked_record_ref(x, 0, scx_xrender_xrendercolor_record_type)))