mirror of
https://git.FreeBSD.org/ports.git
synced 2024-10-20 20:09:11 +00:00
- fix API change of guile
- drop incomplete patchset
This commit is contained in:
parent
b31beba8fc
commit
3f94295b9a
Notes:
svn2git
2021-03-31 03:12:20 +00:00
svn path=/head/; revision=209631
@ -34,6 +34,8 @@ PLIST_SUB+= GUILE_VER="${GUILE_VER}"
|
||||
|
||||
MAN1= greg.1
|
||||
|
||||
FIXME= Library/gg_class.m ScriptKit/Library/GuileInterpreter.m
|
||||
|
||||
.if defined(WITHOUT_X11)
|
||||
NOX11_SUFFIX?= -nox11
|
||||
USE_GNUSTEP_BASE= yes
|
||||
@ -52,6 +54,12 @@ GUILE_VER!= (cd ${PORTSDIR}/lang/guile && make -V GUILE_VER)
|
||||
post-patch:
|
||||
${REINPLACE_CMD} -e 's|echo aout|echo elf|' \
|
||||
${WRKSRC}/Greg/configure
|
||||
.for i in ${FIXME}
|
||||
${REINPLACE_CMD} -e 's|scm_catch_body_t|scm_t_catch_body|' \
|
||||
-e 's|scm_catch_handler_t|scm_t_catch_handler|' \
|
||||
-e 's|scm_intern|scm_c_define|' \
|
||||
${WRKSRC}/${i}
|
||||
.endfor
|
||||
|
||||
pre-configure:
|
||||
${TOUCH} ${WRKSRC}/Greg/ac_nonexistent.h
|
||||
|
@ -1,13 +0,0 @@
|
||||
--- Library/gg_class.m.orig 2008-03-02 14:19:31.000000000 -0500
|
||||
+++ Library/gg_class.m 2008-03-02 14:20:22.000000000 -0500
|
||||
@@ -414,8 +414,8 @@ gstep_send_msg_to_guile(id rcv, SEL sel,
|
||||
data.selname = gh_str02scm((char*)selname);
|
||||
data.argslist = argsList;
|
||||
|
||||
- val = gh_catch(SCM_BOOL_T, (scm_catch_body_t)proc_wrapper, (void*)&data,
|
||||
- (scm_catch_handler_t)proc_error, (void*)procname);
|
||||
+ val = gh_catch(SCM_BOOL_T, (scm_t_catch_body)proc_wrapper, (void*)&data,
|
||||
+ (scm_t_catch_handler)proc_error, (void*)procname);
|
||||
|
||||
/*
|
||||
* Now decode the Guile return value into the correct ObjectiveC
|
@ -1,26 +0,0 @@
|
||||
--- ScriptKit/Library/GuileInterpreter.m.orig 2008-03-16 01:31:01.000000000 -0400
|
||||
+++ ScriptKit/Library/GuileInterpreter.m 2008-03-16 01:31:26.000000000 -0400
|
||||
@@ -349,9 +349,9 @@ add_let_script(NSMutableString * script,
|
||||
NS_DURING
|
||||
{
|
||||
ret = gh_catch (SCM_BOOL_T,
|
||||
- (scm_catch_body_t) eval_str_wrapper,
|
||||
+ (scm_t_catch_body) eval_str_wrapper,
|
||||
c_script,
|
||||
- (scm_catch_handler_t) gopenstep_batch_handler,
|
||||
+ (scm_t_catch_handler) gopenstep_batch_handler,
|
||||
// Pass a script as nsstring to the handler
|
||||
script);
|
||||
}
|
||||
@@ -365,9 +365,9 @@ add_let_script(NSMutableString * script,
|
||||
{
|
||||
// Only print message
|
||||
ret = gh_catch (SCM_BOOL_T,
|
||||
- (scm_catch_body_t) eval_str_wrapper,
|
||||
+ (scm_t_catch_body) eval_str_wrapper,
|
||||
c_script,
|
||||
- (scm_catch_handler_t) gopenstep_interactive_handler,
|
||||
+ (scm_t_catch_handler) gopenstep_interactive_handler,
|
||||
// Pass a script as cstring to the handler
|
||||
c_script);
|
||||
}
|
Loading…
Reference in New Issue
Block a user