# HG changeset patch # User Christian Brabandt # Date 1454157004 -3600 # Node ID 744c66477ba968aa6cf50b98d453a941c3798466 # Parent 5e922781612600a1b492c34c094440e6c3062240 commit https://github.com/vim/vim/commit/4349c57543a98dc417b74da5a08c326337aa0bd3 Author: Bram Moolenaar Date: Sat Jan 30 13:28:28 2016 +0100 patch 7.4.1203 Problem: Still more files still using __ARGS. Solution: Remove __ARGS in really the last files. diff --git a/src/Makefile b/src/Makefile --- a/src/Makefile +++ b/src/Makefile @@ -1661,6 +1661,7 @@ PRO_AUTO = \ hangulin.pro \ if_cscope.pro \ if_lua.pro \ + if_mzsch.pro \ if_python.pro \ if_python3.pro \ if_ruby.pro \ @@ -1668,6 +1669,7 @@ PRO_AUTO = \ json.pro \ main.pro \ mark.pro \ + mbyte.pro \ memfile.pro \ memline.pro \ menu.pro \ @@ -1675,7 +1677,6 @@ PRO_AUTO = \ misc1.pro \ misc2.pro \ move.pro \ - mbyte.pro \ normal.pro \ ops.pro \ option.pro \ diff --git a/src/if_mzsch.c b/src/if_mzsch.c --- a/src/if_mzsch.c +++ b/src/if_mzsch.c @@ -29,6 +29,19 @@ * depend". */ #if defined(FEAT_MZSCHEME) || defined(PROTO) +#ifdef PROTO +typedef int Scheme_Object; +typedef int Scheme_Closed_Prim; +typedef int Scheme_Env; +typedef int Scheme_Hash_Table; +typedef int Scheme_Type; +typedef int Scheme_Thread; +typedef int Scheme_Closed_Prim; +typedef int mzshort; +typedef int Scheme_Prim; +typedef int HINSTANCE; +#endif + /* * scheme_register_tls_space is only available on 32-bit Windows until * racket-6.3. See @@ -248,7 +261,7 @@ static int window_fixup_proc(void *obj) # define BUFFER_REF(buf) (vim_mz_buffer *)((buf)->b_mzscheme_ref) #endif -#ifdef DYNAMIC_MZSCHEME +#if defined(DYNAMIC_MZSCHEME) || defined(PROTO) static Scheme_Object *dll_scheme_eof; static Scheme_Object *dll_scheme_false; static Scheme_Object *dll_scheme_void; @@ -406,6 +419,8 @@ static void (*dll_scheme_register_embedd static void (*dll_scheme_set_config_path)(Scheme_Object *p); # endif +#if defined(DYNAMIC_MZSCHEME) /* not when defined(PROTO) */ + /* arrays are imported directly */ # define scheme_eof dll_scheme_eof # define scheme_false dll_scheme_false @@ -539,6 +554,8 @@ scheme_external_get_thread_local_variabl # endif # endif +#endif + typedef struct { char *name; @@ -866,7 +883,7 @@ mzvim_check_threads(void) } #endif -#ifdef MZSCHEME_GUI_THREADS +#if defined(MZSCHEME_GUI_THREADS) || defined(PROTO) static void setup_timer(void); static void remove_timer(void); diff --git a/src/proto/gui_gtk_gresources.pro b/src/proto/gui_gtk_gresources.pro --- a/src/proto/gui_gtk_gresources.pro +++ b/src/proto/gui_gtk_gresources.pro @@ -1,5 +1,5 @@ /* auto/gui_gtk_gresources.c */ -GResource *gui_gtk_get_resource __ARGS((void)); -void gui_gtk_register_resource __ARGS((void)); -void gui_gtk_unregister_resource __ARGS((void)); +GResource *gui_gtk_get_resource(void); +void gui_gtk_unregister_resource(void); +void gui_gtk_register_resource(void); /* vim: set ft=c : */ diff --git a/src/proto/gui_mac.pro b/src/proto/gui_mac.pro --- a/src/proto/gui_mac.pro +++ b/src/proto/gui_mac.pro @@ -4,114 +4,114 @@ * Mac specific prototypes */ -pascal Boolean WaitNextEventWrp __ARGS((EventMask eventMask, EventRecord *theEvent, UInt32 sleep, RgnHandle mouseRgn)); -pascal void gui_mac_scroll_action __ARGS((ControlHandle theControl, short partCode)); +pascal Boolean WaitNextEventWrp(EventMask eventMask, EventRecord *theEvent, UInt32 sleep, RgnHandle mouseRgn); +pascal void gui_mac_scroll_action(ControlHandle theControl, short partCode); pascal void gui_mac_drag_thumb (ControlHandle theControl, short partCode); -void gui_mac_handle_event __ARGS((EventRecord *event)); -void gui_mac_doMouseDown __ARGS((EventRecord *theEvent)); -void gui_mac_do_key __ARGS((EventRecord *theEvent)); -void gui_mac_handle_menu __ARGS((long menuChoice)); -void gui_mac_focus_change __ARGS((EventRecord *event)); -void gui_mac_update __ARGS((EventRecord *event)); -short gui_mch_get_mac_menu_item_index __ARGS((vimmenu_T *menu, vimmenu_T *parent)); -void gui_mch_set_blinking __ARGS((long wait, long on, long off)); -void gui_mch_stop_blink __ARGS((void)); -void gui_mch_start_blink __ARGS((void)); -void gui_mch_getmouse __ARGS((int *x, int *y)); -void gui_mch_setmouse __ARGS((int x, int y)); -void gui_mch_prepare __ARGS((int *argc, char **argv)); -int gui_mch_init_check __ARGS((void)); -int gui_mch_init __ARGS((void)); -void gui_mch_new_colors __ARGS((void)); -int gui_mch_open __ARGS((void)); -void gui_mch_exit __ARGS((int)); -void gui_mch_set_winsize __ARGS((int width, int height, int min_width, int min_height, int base_width, int base_height)); -int gui_mch_get_winpos __ARGS((int *x, int *y)); -void gui_mch_set_winpos __ARGS((int x, int y)); -void gui_mch_set_shellsize __ARGS((int width, int height, int min_width, int min_height, int base_width, int base_height, int direction)); -void gui_mch_get_screen_dimensions __ARGS((int *screen_w, int *screen_h)); -void gui_mch_set_text_area_pos __ARGS((int x, int y, int w, int h)); -void gui_mch_enable_scrollbar __ARGS((scrollbar_T *sb, int flag)); -void gui_mch_set_scrollbar_thumb __ARGS((scrollbar_T *sb, long val, long size, long max)); -void gui_mch_set_scrollbar_pos __ARGS((scrollbar_T *sb, int x, int y, int w, int h)); -void gui_mch_create_scrollbar __ARGS((scrollbar_T *sb, int orient)); -void gui_mch_destroy_scrollbar __ARGS((scrollbar_T *sb)); -int gui_mch_adjust_charheight __ARGS((void)); -int gui_mch_init_font __ARGS((char_u *font_name, int fontset)); -GuiFont gui_mch_get_font __ARGS((char_u *name, int giveErrorIfMissing)); -char_u *gui_mch_get_fontname __ARGS((GuiFont font, char_u *name)); -GuiFont gui_mac_find_font __ARGS((char_u *font_name)); -void gui_mch_set_font __ARGS((GuiFont font)); -int gui_mch_same_font __ARGS((GuiFont f1, GuiFont f2)); -void gui_mch_free_font __ARGS((GuiFont font)); -guicolor_T gui_mch_get_color __ARGS((char_u *name)); -void gui_mch_set_fg_color __ARGS((guicolor_T color)); -void gui_mch_set_bg_color __ARGS((guicolor_T color)); -void gui_mch_set_sp_color __ARGS((guicolor_T color)); -void gui_mch_draw_string __ARGS((int row, int col, char_u *s, int len, int flags)); -int gui_mch_haskey __ARGS((char_u *name)); -void gui_mch_beep __ARGS((void)); -void gui_mch_flash __ARGS((int msec)); -void gui_mch_invert_rectangle __ARGS((int r, int c, int nr, int nc)); -void gui_mch_iconify __ARGS((void)); -void gui_mch_settitle __ARGS((char_u *title, char_u *icon)); -void gui_mch_draw_hollow_cursor __ARGS((guicolor_T color)); -void gui_mch_draw_part_cursor __ARGS((int w, int h, guicolor_T color)); -void gui_mch_update __ARGS((void)); -int gui_mch_wait_for_chars __ARGS((int wtime)); -void gui_mch_flush __ARGS((void)); -void gui_mch_clear_block __ARGS((int row1, int col1, int row2, int col2)); -void gui_mch_clear_all __ARGS((void)); -void gui_mch_delete_lines __ARGS((int row, int num_lines)); -void gui_mch_insert_lines __ARGS((int row, int num_lines)); -void gui_mch_enable_menu __ARGS((int flag)); -void gui_mch_set_menu_pos __ARGS((int x, int y, int w, int h)); -/*void gui_mch_add_menu __ARGS((vimmenu_T *menu, vimmenu_T *parent, int idx));*/ -void gui_mch_add_menu __ARGS((vimmenu_T *menu, int pos)); -/*void gui_mch_add_menu_item __ARGS((vimmenu_T *menu, vimmenu_T *parent, int idx));*/ -void gui_mch_add_menu_item __ARGS((vimmenu_T *menu, int idx)); -void gui_mch_show_popupmenu __ARGS((vimmenu_T *menu)); -void gui_mch_destroy_menu __ARGS((vimmenu_T *menu)); -void gui_mch_menu_grey __ARGS((vimmenu_T *menu, int grey)); -void gui_mch_menu_hidden __ARGS((vimmenu_T *menu, int hidden)); -void gui_mch_draw_menubar __ARGS((void)); -int gui_mch_get_lightness __ARGS((guicolor_T pixel)); -long_u gui_mch_get_rgb __ARGS((guicolor_T pixel)); -int gui_mch_get_mouse_x __ARGS((void)); -int gui_mch_get_mouse_y __ARGS((void)); -void gui_mch_setmouse __ARGS((int x, int y)); -void gui_mch_show_popupmenu __ARGS((vimmenu_T *menu)); -int gui_mch_dialog __ARGS((int type, char_u *title, char_u *message, char_u *buttons, int dfltbutton, char_u *textfield, int ex_cmd)); -char_u *gui_mch_browse __ARGS((int saving, char_u *title, char_u *dflt, char_u *ext, char_u *initdir, char_u *filter)); -void gui_mch_set_foreground __ARGS((void)); -void gui_mch_show_tabline __ARGS((int showit)); -int gui_mch_showing_tabline __ARGS((void)); -void gui_mch_update_tabline __ARGS((void)); -void gui_mch_set_curtab __ARGS((int nr)); +void gui_mac_handle_event(EventRecord *event); +void gui_mac_doMouseDown(EventRecord *theEvent); +void gui_mac_do_key(EventRecord *theEvent); +void gui_mac_handle_menu(long menuChoice); +void gui_mac_focus_change(EventRecord *event); +void gui_mac_update(EventRecord *event); +short gui_mch_get_mac_menu_item_index(vimmenu_T *menu, vimmenu_T *parent); +void gui_mch_set_blinking(long wait, long on, long off); +void gui_mch_stop_blink(void); +void gui_mch_start_blink(void); +void gui_mch_getmouse(int *x, int *y); +void gui_mch_setmouse(int x, int y); +void gui_mch_prepare(int *argc, char **argv); +int gui_mch_init_check(void); +int gui_mch_init(void); +void gui_mch_new_colors(void); +int gui_mch_open(void); +void gui_mch_exit(int); +void gui_mch_set_winsize(int width, int height, int min_width, int min_height, int base_width, int base_height); +int gui_mch_get_winpos(int *x, int *y); +void gui_mch_set_winpos(int x, int y); +void gui_mch_set_shellsize(int width, int height, int min_width, int min_height, int base_width, int base_height, int direction); +void gui_mch_get_screen_dimensions(int *screen_w, int *screen_h); +void gui_mch_set_text_area_pos(int x, int y, int w, int h); +void gui_mch_enable_scrollbar(scrollbar_T *sb, int flag); +void gui_mch_set_scrollbar_thumb(scrollbar_T *sb, long val, long size, long max); +void gui_mch_set_scrollbar_pos(scrollbar_T *sb, int x, int y, int w, int h); +void gui_mch_create_scrollbar(scrollbar_T *sb, int orient); +void gui_mch_destroy_scrollbar(scrollbar_T *sb); +int gui_mch_adjust_charheight(void); +int gui_mch_init_font(char_u *font_name, int fontset); +GuiFont gui_mch_get_font(char_u *name, int giveErrorIfMissing); +char_u *gui_mch_get_fontname(GuiFont font, char_u *name); +GuiFont gui_mac_find_font(char_u *font_name); +void gui_mch_set_font(GuiFont font); +int gui_mch_same_font(GuiFont f1, GuiFont f2); +void gui_mch_free_font(GuiFont font); +guicolor_T gui_mch_get_color(char_u *name); +void gui_mch_set_fg_color(guicolor_T color); +void gui_mch_set_bg_color(guicolor_T color); +void gui_mch_set_sp_color(guicolor_T color); +void gui_mch_draw_string(int row, int col, char_u *s, int len, int flags); +int gui_mch_haskey(char_u *name); +void gui_mch_beep(void); +void gui_mch_flash(int msec); +void gui_mch_invert_rectangle(int r, int c, int nr, int nc); +void gui_mch_iconify(void); +void gui_mch_settitle(char_u *title, char_u *icon); +void gui_mch_draw_hollow_cursor(guicolor_T color); +void gui_mch_draw_part_cursor(int w, int h, guicolor_T color); +void gui_mch_update(void); +int gui_mch_wait_for_chars(int wtime); +void gui_mch_flush(void); +void gui_mch_clear_block(int row1, int col1, int row2, int col2); +void gui_mch_clear_all(void); +void gui_mch_delete_lines(int row, int num_lines); +void gui_mch_insert_lines(int row, int num_lines); +void gui_mch_enable_menu(int flag); +void gui_mch_set_menu_pos(int x, int y, int w, int h); +/*void gui_mch_add_menu(vimmenu_T *menu, vimmenu_T *parent, int idx);*/ +void gui_mch_add_menu(vimmenu_T *menu, int pos); +/*void gui_mch_add_menu_item(vimmenu_T *menu, vimmenu_T *parent, int idx);*/ +void gui_mch_add_menu_item(vimmenu_T *menu, int idx); +void gui_mch_show_popupmenu(vimmenu_T *menu); +void gui_mch_destroy_menu(vimmenu_T *menu); +void gui_mch_menu_grey(vimmenu_T *menu, int grey); +void gui_mch_menu_hidden(vimmenu_T *menu, int hidden); +void gui_mch_draw_menubar(void); +int gui_mch_get_lightness(guicolor_T pixel); +long_u gui_mch_get_rgb(guicolor_T pixel); +int gui_mch_get_mouse_x(void); +int gui_mch_get_mouse_y(void); +void gui_mch_setmouse(int x, int y); +void gui_mch_show_popupmenu(vimmenu_T *menu); +int gui_mch_dialog(int type, char_u *title, char_u *message, char_u *buttons, int dfltbutton, char_u *textfield, int ex_cmd); +char_u *gui_mch_browse(int saving, char_u *title, char_u *dflt, char_u *ext, char_u *initdir, char_u *filter); +void gui_mch_set_foreground(void); +void gui_mch_show_tabline(int showit); +int gui_mch_showing_tabline(void); +void gui_mch_update_tabline(void); +void gui_mch_set_curtab(int nr); -char_u *C2Pascal_save __ARGS((char_u *Cstring)); -char_u *C2Pascal_save_and_remove_backslash __ARGS((char_u *Cstring)); -int_u EventModifiers2VimMouseModifiers __ARGS((EventModifiers macModifiers)); -char_u **new_fnames_from_AEDesc __ARGS((AEDesc *theList, long *numFiles, OSErr *error)); +char_u *C2Pascal_save(char_u *Cstring); +char_u *C2Pascal_save_and_remove_backslash(char_u *Cstring); +int_u EventModifiers2VimMouseModifiers(EventModifiers macModifiers); +char_u **new_fnames_from_AEDesc(AEDesc *theList, long *numFiles, OSErr *error); -void gui_request_selection __ARGS((void)); -void gui_mch_lose_selection __ARGS((void)); -int gui_mch_own_selection __ARGS((void)); -void gui_mch_clear_selection __ARGS((void)); +void gui_request_selection(void); +void gui_mch_lose_selection(void); +int gui_mch_own_selection(void); +void gui_mch_clear_selection(void); -void gui_win_new_height __ARGS((win_T *wp)); -void gui_win_comp_pos __ARGS((void)); -void gui_win_free __ARGS((win_T *wp)); -void gui_win_alloc __ARGS((win_T *wp)); +void gui_win_new_height(win_T *wp); +void gui_win_comp_pos(void); +void gui_win_free(win_T *wp); +void gui_win_alloc(win_T *wp); void mch_post_buffer_write (buf_T *buf); -void mch_errmsg __ARGS((char *str)); -void mch_display_error __ARGS((void)); -void clip_mch_lose_selection __ARGS((VimClipboard *cbd)); -void clip_mch_request_selection __ARGS((VimClipboard *cbd)); -void clip_mch_set_selection __ARGS((VimClipboard *cbd)); -int clip_mch_own_selection __ARGS((VimClipboard *cbd)); +void mch_errmsg(char *str); +void mch_display_error(void); +void clip_mch_lose_selection(VimClipboard *cbd); +void clip_mch_request_selection(VimClipboard *cbd); +void clip_mch_set_selection(VimClipboard *cbd); +int clip_mch_own_selection(VimClipboard *cbd); pascal OSErr FindProcessBySignature( const OSType targetType, const OSType targetCreator, ProcessSerialNumberPtr psnPtr ); @@ -129,17 +129,17 @@ pascal OSErr Handle_KAHL_MOD_AE (const pascal OSErr Handle_KAHL_GTTX_AE (const AppleEvent *theAEvent, AppleEvent *theReply, long refCon); void Send_KAHL_MOD_AE (buf_T *buf); -void gui_mac_doInContentClick __ARGS((EventRecord *theEvent, WindowPtr whichWindow)); -void gui_mac_doInDragClick __ARGS((Point where, WindowPtr whichWindow)); -void gui_mac_doInGrowClick __ARGS((Point where, WindowPtr whichWindow)); -void gui_mac_doUpdateEvent __ARGS((EventRecord *event)); -void gui_mac_doActivateEvent __ARGS((EventRecord *event)); -void gui_mac_doSuspendEvent __ARGS((EventRecord *event)); -void gui_mac_doKeyEvent __ARGS((EventRecord *theEvent)); -void gui_mac_doMouseDownEvent __ARGS((EventRecord *theEvent)); -void gui_mac_doMouseMovedEvent __ARGS((EventRecord *event)); -void gui_mac_doMouseUpEvent __ARGS((EventRecord *theEvent)); -void gui_mch_mousehide __ARGS((int hide)); +void gui_mac_doInContentClick(EventRecord *theEvent, WindowPtr whichWindow); +void gui_mac_doInDragClick(Point where, WindowPtr whichWindow); +void gui_mac_doInGrowClick(Point where, WindowPtr whichWindow); +void gui_mac_doUpdateEvent(EventRecord *event); +void gui_mac_doActivateEvent(EventRecord *event); +void gui_mac_doSuspendEvent(EventRecord *event); +void gui_mac_doKeyEvent(EventRecord *theEvent); +void gui_mac_doMouseDownEvent(EventRecord *theEvent); +void gui_mac_doMouseMovedEvent(EventRecord *event); +void gui_mac_doMouseUpEvent(EventRecord *theEvent); +void gui_mch_mousehide(int hide); int C2PascalString (char_u *CString, Str255 *PascalString); int GetFSSpecFromPath ( char_u *file, FSSpec *fileFSSpec); diff --git a/src/proto/if_mzsch.pro b/src/proto/if_mzsch.pro --- a/src/proto/if_mzsch.pro +++ b/src/proto/if_mzsch.pro @@ -1,20 +1,17 @@ /* if_mzsch.c */ -int mzscheme_enabled __ARGS((int verbose)); -void mzscheme_end __ARGS((void)); -void ex_mzscheme __ARGS((exarg_T *eap)); -void ex_mzfile __ARGS((exarg_T *eap)); -void mzscheme_buffer_free __ARGS((buf_T *buf)); -void mzscheme_window_free __ARGS((win_T *win)); -char *mzscheme_version __ARGS((void)); +int mzscheme_enabled(int verbose); +void mzvim_check_threads(void); +void mzvim_reset_timer(void); +void mzscheme_end(void); +int mzscheme_main(int argc, char **argv); +void mzscheme_buffer_free(buf_T *buf); +void mzscheme_window_free(win_T *win); +void ex_mzscheme(exarg_T *eap); +void ex_mzfile(exarg_T *eap); +void do_mzeval(char_u *str, typval_T *rettv); void raise_vim_exn(const char *add_info); -void raise_if_error __ARGS((void)); -buf_T *get_valid_buffer __ARGS((void *)); -win_T *get_valid_window __ARGS((void *)); -void mzvim_check_threads __ARGS((void)); -void mzvim_reset_timer __ARGS((void)); -void *mzvim_eval_string __ARGS((char_u *str)); -int mzthreads_allowed __ARGS((void)); -int mzscheme_main __ARGS((int argc, char **argv)); -void do_mzeval __ARGS((char_u *str, typval_T *rettv)); -int vim_main2 __ARGS((int argc, char **argv)); +void raise_if_error(void); +buf_T *get_valid_buffer(void *obj); +win_T *get_valid_window(void *obj); +int mzthreads_allowed(void); /* vim: set ft=c : */ diff --git a/src/proto/if_ole.pro b/src/proto/if_ole.pro --- a/src/proto/if_ole.pro +++ b/src/proto/if_ole.pro @@ -1,5 +1,5 @@ /* if_ole.cpp */ -void InitOLE __ARGS((int* pbDoRestart)); -void UninitOLE __ARGS((void)); -void RegisterMe __ARGS((int silent)); -void UnregisterMe __ARGS((int bNotifyUser)); +void InitOLE(int* pbDoRestart); +void UninitOLE(void); +void RegisterMe(int silent); +void UnregisterMe(int bNotifyUser); diff --git a/src/proto/os_qnx.pro b/src/proto/os_qnx.pro --- a/src/proto/os_qnx.pro +++ b/src/proto/os_qnx.pro @@ -1,8 +1,8 @@ /* os_qnx.c */ -void qnx_init __ARGS((void)); -void qnx_clip_init __ARGS((void)); -int clip_mch_own_selection __ARGS((VimClipboard *cbd)); -void clip_mch_lose_selection __ARGS((VimClipboard *cbd)); -void clip_mch_request_selection __ARGS((VimClipboard *cbd)); -void clip_mch_set_selection __ARGS((VimClipboard *cbd)); +void qnx_init(void); +void qnx_clip_init (void); +int clip_mch_own_selection(VimClipboard *cbd); +void clip_mch_lose_selection(VimClipboard *cbd); +void clip_mch_request_selection(VimClipboard *cbd); +void clip_mch_set_selection(VimClipboard *cbd); /* vim: set ft=c : */ diff --git a/src/version.c b/src/version.c --- a/src/version.c +++ b/src/version.c @@ -747,6 +747,8 @@ static char *(features[]) = static int included_patches[] = { /* Add new patch number below this line */ /**/ + 1203, +/**/ 1202, /**/ 1201, diff --git a/src/vim.h b/src/vim.h --- a/src/vim.h +++ b/src/vim.h @@ -2319,4 +2319,9 @@ typedef int sock_T; # define MAX_OPEN_CHANNELS 0 #endif +#ifdef FEAT_MZSCHEME +/* this is in main.c, cproto can't handle it. */ +int vim_main2(int argc, char **argv); +#endif + #endif /* VIM__H */