Hi
Function mzvim_apply(...) defined in src/if_mzsch.c is not used
anywhere. I assume it can be removed, or am I missing something?
Attached patch removes it. Removing it also allows to remove
function do_apply(...) in if_mzsch.c and struct Apply_Info.
Regards
-- Dominique
--~--~---------~--~----~------------~-------~--~----~
You received this message from the "vim_dev" maillist.
For more information, visit http://www.vim.org/maillist.php
-~----------~----~----~----~------~----~------~--~---
Index: src/if_mzsch.c
===================================================================
RCS file: /cvsroot/vim/vim7/src/if_mzsch.c,v
retrieving revision 1.24
diff -c -r1.24 if_mzsch.c
*** src/if_mzsch.c 11 Sep 2009 10:21:41 -0000 1.24
--- src/if_mzsch.c 25 Nov 2009 21:16:39 -0000
***************
*** 70,83 ****
Scheme_Object *port;
} Port_Info;
- /* info for do_apply */
- typedef struct
- {
- Scheme_Object *proc;
- int argc;
- Scheme_Object **argv;
- } Apply_Info;
-
/*
*========================================================================
* Vim-Control Commands
--- 70,75 ----
***************
*** 160,166 ****
static Scheme_Object *extract_exn_message(Scheme_Object *v);
static Scheme_Object *do_eval(void *, int noargc, Scheme_Object **noargv);
static Scheme_Object *do_load(void *, int noargc, Scheme_Object **noargv);
- static Scheme_Object *do_apply(void *, int noargc, Scheme_Object **noargv);
static void register_vim_exn(void);
static vim_mz_buffer *get_buffer_arg(const char *fname, int argnum,
int argc, Scheme_Object **argv);
--- 152,157 ----
***************
*** 1056,1062 ****
MZ_GC_REG();
config = scheme_config;
MZ_GC_CHECK();
! /* recreate ports each call effectivelly clearing these ones */
curout = scheme_make_string_output_port();
MZ_GC_CHECK();
curerr = scheme_make_string_output_port();
--- 1047,1053 ----
MZ_GC_REG();
config = scheme_config;
MZ_GC_CHECK();
! /* recreate ports each call effectively clearing these ones */
curout = scheme_make_string_output_port();
MZ_GC_CHECK();
curerr = scheme_make_string_output_port();
***************
*** 1196,1231 ****
}
}
- /*
- * apply MzScheme procedure with arguments,
- * handling errors
- */
- Scheme_Object *
- mzvim_apply(Scheme_Object *proc, int argc, Scheme_Object **argv)
- {
- if (mzscheme_init())
- return FAIL;
- else
- {
- Apply_Info data = {NULL, 0, NULL};
- Scheme_Object *ret = NULL;
-
- MZ_GC_DECL_REG(5);
- MZ_GC_VAR_IN_REG(0, ret);
- MZ_GC_VAR_IN_REG(1, data.proc);
- MZ_GC_ARRAY_VAR_IN_REG(2, data.argv, argc);
- MZ_GC_REG();
-
- data.proc = proc;
- data.argc = argc;
- data.argv = argv;
-
- eval_with_exn_handling(&data, do_apply, &ret);
- MZ_GC_UNREG();
- return ret;
- }
- }
-
static Scheme_Object *
do_load(void *data, int noargc, Scheme_Object **noargv)
{
--- 1187,1192 ----
***************
*** 1257,1263 ****
MZ_GC_CHECK();
}
! /* errors will be caught in do_mzscheme_comamnd and ex_mzfile */
scheme_close_input_port(pinfo->port);
MZ_GC_CHECK();
pinfo->port = NULL;
--- 1218,1224 ----
MZ_GC_CHECK();
}
! /* errors will be caught in do_mzscheme_command and ex_mzfile */
scheme_close_input_port(pinfo->port);
MZ_GC_CHECK();
pinfo->port = NULL;
***************
*** 1348,1360 ****
return scheme_eval_string_all((char *)s, environment, TRUE);
}
- static Scheme_Object *
- do_apply(void *a, int noargc, Scheme_Object **noargv)
- {
- Apply_Info *info = (Apply_Info *)a;
- return scheme_apply(info->proc, info->argc, info->argv);
- }
-
/*
*========================================================================
* 3. MzScheme I/O Handlers
--- 1309,1314 ----
***************
*** 2128,2134 ****
static Scheme_Object *
set_buffer_line(void *data, int argc, Scheme_Object **argv)
{
! /* First of all, we check the the of the supplied MzScheme object.
* There are three cases:
* 1. #f - this is a deletion.
* 2. A string - this is a replacement.
--- 2082,2088 ----
static Scheme_Object *
set_buffer_line(void *data, int argc, Scheme_Object **argv)
{
! /* First of all, we check the value of the supplied MzScheme object.
* There are three cases:
* 1. #f - this is a deletion.
* 2. A string - this is a replacement.
***************
*** 2428,2434 ****
/*
* (insert-buff-line-list {linenr} {string/string-list} [buffer])
*
! * Insert a number of lines into the specified buffer after the specifed line.
* The line number is in Vim format (1-based). The lines to be inserted are
* given as an MzScheme list of string objects or as a single string. The lines
* to be added are checked for validity and correct format. Errors are
--- 2382,2388 ----
/*
* (insert-buff-line-list {linenr} {string/string-list} [buffer])
*
! * Insert a number of lines into the specified buffer after the specified line.
* The line number is in Vim format (1-based). The lines to be inserted are
* given as an MzScheme list of string objects or as a single string. The lines
* to be added are checked for validity and correct format. Errors are
Index: src/proto/if_mzsch.pro
===================================================================
RCS file: /cvsroot/vim/vim7/src/proto/if_mzsch.pro,v
retrieving revision 1.3
diff -c -r1.3 if_mzsch.pro
*** src/proto/if_mzsch.pro 26 May 2009 20:58:47 -0000 1.3
--- src/proto/if_mzsch.pro 25 Nov 2009 21:16:39 -0000
***************
*** 13,20 ****
void mzvim_check_threads __ARGS((void));
void mzvim_reset_timer __ARGS((void));
void *mzvim_eval_string __ARGS((char_u *str));
- struct Scheme_Object *mzvim_apply __ARGS((struct Scheme_Object *, int argc,
- struct Scheme_Object **));
int mzthreads_allowed __ARGS((void));
void mzscheme_main __ARGS((void));
/* vim: set ft=c : */
--- 13,18 ----
