/* vi:set ts=8 sts=4 sw=4 noet: * * VIM - Vi IMproved by Bram Moolenaar * * Do ":help uganda" in Vim to read copying and usage conditions. * Do ":help credits" in Vim to see a list of people who contributed. */ /* * if_perl.xs: Main code for Perl interface support. * Mostly written by Sven Verdoolaege. */ #define _memory_h /* avoid memset redeclaration */ #define IN_PERL_FILE /* don't include if_perl.pro from proto.h */ /* * Currently 32-bit version of ActivePerl is built with VC6 (or MinGW since * ActivePerl 5.18). * (http://community.activestate.com/faq/windows-compilers-perl-modules) * It means that time_t should be 32-bit. However the default size of * time_t is 64-bit since VC8. So we have to define _USE_32BIT_TIME_T. */ #if defined(WIN32) && !defined(_WIN64) # define _USE_32BIT_TIME_T #endif /* * Prevent including winsock.h. perl.h tries to detect whether winsock.h is * already included before including winsock2.h, because winsock2.h isn't * compatible with winsock.h. However the detection doesn't work with some * versions of MinGW. If WIN32_LEAN_AND_MEAN is defined, windows.h will not * include winsock.h. */ #ifdef WIN32 # define WIN32_LEAN_AND_MEAN #endif #include "vim.h" /* Work around for perl-5.18. * Don't include "perl\lib\CORE\inline.h" for now, * include it after Perl_sv_free2 is defined. */ #ifdef DYNAMIC_PERL # define PERL_NO_INLINE_FUNCTIONS #endif /* Work around for using MSVC and ActivePerl 5.18. */ #ifdef _MSC_VER # define __inline__ __inline #endif #ifdef __GNUC__ # pragma GCC diagnostic push # pragma GCC diagnostic ignored "-Wunused-variable" #endif #include #include #include #if defined(PERLIO_LAYERS) && !defined(USE_SFIO) # include #endif /* Workaround for perl < 5.8.7 */ #ifndef PERLIO_FUNCS_DECL # ifdef PERLIO_FUNCS_CONST # define PERLIO_FUNCS_DECL(funcs) const PerlIO_funcs funcs # define PERLIO_FUNCS_CAST(funcs) (PerlIO_funcs*)(funcs) # else # define PERLIO_FUNCS_DECL(funcs) PerlIO_funcs funcs # define PERLIO_FUNCS_CAST(funcs) (funcs) # endif #endif #ifndef SvREFCNT_inc_void_NN # define SvREFCNT_inc_void_NN SvREFCNT_inc #endif /* * Work around clashes between Perl and Vim namespace. proto.h doesn't * include if_perl.pro and perlsfio.pro when IN_PERL_FILE is defined, because * we need the CV typedef. proto.h can't be moved to after including * if_perl.h, because we get all sorts of name clashes then. */ #ifndef PROTO # ifndef __MINGW32__ # include "proto/if_perl.pro" # include "proto/if_perlsfio.pro" # endif #endif // Perl compatibility stuff. This should ensure compatibility with older // versions of Perl. #ifndef PERL_VERSION # include # define PERL_REVISION 5 # define PERL_VERSION PATCHLEVEL # define PERL_SUBVERSION SUBVERSION #endif // Work around for ActivePerl 5.20.3+: Avoid generating (g)vim.lib. #if defined(ACTIVEPERL_VERSION) && (ACTIVEPERL_VERSION >= 2003) \ && defined(MSWIN) && defined(USE_DYNAMIC_LOADING) # undef XS_EXTERNAL # define XS_EXTERNAL(name) XSPROTO(name) #endif /* * Quoting Jan Dubois of Active State: * ActivePerl build 822 still identifies itself as 5.8.8 but already * contains many of the changes from the upcoming Perl 5.8.9 release. * * The changes include addition of two symbols (Perl_sv_2iv_flags, * Perl_newXS_flags) not present in earlier releases. * * Jan Dubois suggested the following guarding scheme. * * Active State defined ACTIVEPERL_VERSION as a string in versions before * 5.8.8; and so the comparison to 822 below needs to be guarded. */ #if (PERL_REVISION == 5) && (PERL_VERSION == 8) && (PERL_SUBVERSION >= 8) # if (ACTIVEPERL_VERSION >= 822) || (PERL_SUBVERSION >= 9) # define PERL589_OR_LATER # endif #endif #if (PERL_REVISION == 5) && (PERL_VERSION >= 9) # define PERL589_OR_LATER #endif #if (PERL_REVISION == 5) && ((PERL_VERSION > 10) || \ (PERL_VERSION == 10) && (PERL_SUBVERSION >= 1)) # define PERL5101_OR_LATER #endif #ifndef pTHX # define pTHX void # define pTHX_ #endif #ifndef EXTERN_C # define EXTERN_C #endif /* Compatibility hacks over */ static PerlInterpreter *perl_interp = NULL; static void xs_init(pTHX); static void VIM_init(void); EXTERN_C void boot_DynaLoader(pTHX_ CV*); /* * For dynamic linked perl. */ #if defined(DYNAMIC_PERL) || defined(PROTO) # ifndef DYNAMIC_PERL /* just generating prototypes */ # ifdef MSWIN typedef int HANDLE; # endif typedef int XSINIT_t; typedef int XSUBADDR_t; # endif # ifndef USE_ITHREADS typedef int perl_key; # endif # ifndef MSWIN # include # define HANDLE void* # define PERL_PROC void* # define load_dll(n) dlopen((n), RTLD_LAZY|RTLD_GLOBAL) # define symbol_from_dll dlsym # define close_dll dlclose # else # define PERL_PROC FARPROC # define load_dll vimLoadLib # define symbol_from_dll GetProcAddress # define close_dll FreeLibrary # endif /* * Wrapper defines */ # define perl_alloc dll_perl_alloc # define perl_construct dll_perl_construct # define perl_parse dll_perl_parse # define perl_run dll_perl_run # define perl_destruct dll_perl_destruct # define perl_free dll_perl_free # define Perl_get_context dll_Perl_get_context # define Perl_croak dll_Perl_croak # ifdef PERL5101_OR_LATER # define Perl_croak_xs_usage dll_Perl_croak_xs_usage # endif # ifndef PROTO # define Perl_croak_nocontext dll_Perl_croak_nocontext # define Perl_call_argv dll_Perl_call_argv # define Perl_call_pv dll_Perl_call_pv # define Perl_eval_sv dll_Perl_eval_sv # define Perl_get_sv dll_Perl_get_sv # define Perl_eval_pv dll_Perl_eval_pv # define Perl_call_method dll_Perl_call_method # endif # define Perl_dowantarray dll_Perl_dowantarray # define Perl_free_tmps dll_Perl_free_tmps # define Perl_gv_stashpv dll_Perl_gv_stashpv # define Perl_markstack_grow dll_Perl_markstack_grow # define Perl_mg_find dll_Perl_mg_find # if (PERL_REVISION == 5) && (PERL_VERSION >= 28) # define Perl_mg_get dll_Perl_mg_get # endif # define Perl_newXS dll_Perl_newXS # define Perl_newSV dll_Perl_newSV # define Perl_newSViv dll_Perl_newSViv # define Perl_newSVpv dll_Perl_newSVpv # define Perl_pop_scope dll_Perl_pop_scope # define Perl_push_scope dll_Perl_push_scope # define Perl_save_int dll_Perl_save_int # if (PERL_REVISION == 5) && (PERL_VERSION >= 20) # define Perl_save_strlen dll_Perl_save_strlen # endif # define Perl_stack_grow dll_Perl_stack_grow # define Perl_set_context dll_Perl_set_context # if (PERL_REVISION == 5) && (PERL_VERSION >= 14) # define Perl_sv_2bool_flags dll_Perl_sv_2bool_flags # if (PERL_REVISION == 5) && (PERL_VERSION < 22) # define Perl_xs_apiversion_bootcheck dll_Perl_xs_apiversion_bootcheck # endif # else # define Perl_sv_2bool dll_Perl_sv_2bool # endif # define Perl_sv_2iv dll_Perl_sv_2iv # define Perl_sv_2mortal dll_Perl_sv_2mortal # if (PERL_REVISION == 5) && (PERL_VERSION >= 8) # define Perl_sv_2pv_flags dll_Perl_sv_2pv_flags # define Perl_sv_2pv_nolen dll_Perl_sv_2pv_nolen # else # define Perl_sv_2pv dll_Perl_sv_2pv # endif # define Perl_sv_2pvbyte dll_Perl_sv_2pvbyte # define Perl_sv_bless dll_Perl_sv_bless # if (PERL_REVISION == 5) && (PERL_VERSION >= 8) # define Perl_sv_catpvn_flags dll_Perl_sv_catpvn_flags # else # define Perl_sv_catpvn dll_Perl_sv_catpvn # endif # ifdef PERL589_OR_LATER # define Perl_sv_2iv_flags dll_Perl_sv_2iv_flags # define Perl_newXS_flags dll_Perl_newXS_flags # endif # define Perl_sv_free dll_Perl_sv_free # if (PERL_REVISION == 5) && (PERL_VERSION >= 10) # define Perl_sv_free2 dll_Perl_sv_free2 # endif # define Perl_sv_isa dll_Perl_sv_isa # define Perl_sv_magic dll_Perl_sv_magic # define Perl_sv_setiv dll_Perl_sv_setiv # define Perl_sv_setpv dll_Perl_sv_setpv # define Perl_sv_setpvn dll_Perl_sv_setpvn # if (PERL_REVISION == 5) && (PERL_VERSION >= 8) # define Perl_sv_setsv_flags dll_Perl_sv_setsv_flags # else # define Perl_sv_setsv dll_Perl_sv_setsv # endif # define Perl_sv_upgrade dll_Perl_sv_upgrade # define Perl_Tstack_sp_ptr dll_Perl_Tstack_sp_ptr # define Perl_Top_ptr dll_Perl_Top_ptr # define Perl_Tstack_base_ptr dll_Perl_Tstack_base_ptr # define Perl_Tstack_max_ptr dll_Perl_Tstack_max_ptr # define Perl_Ttmps_ix_ptr dll_Perl_Ttmps_ix_ptr # define Perl_Ttmps_floor_ptr dll_Perl_Ttmps_floor_ptr # define Perl_Tmarkstack_ptr_ptr dll_Perl_Tmarkstack_ptr_ptr # define Perl_Tmarkstack_max_ptr dll_Perl_Tmarkstack_max_ptr # define Perl_TSv_ptr dll_Perl_TSv_ptr # define Perl_TXpv_ptr dll_Perl_TXpv_ptr # define Perl_Tna_ptr dll_Perl_Tna_ptr # define Perl_Idefgv_ptr dll_Perl_Idefgv_ptr # define Perl_Ierrgv_ptr dll_Perl_Ierrgv_ptr # define Perl_Isv_yes_ptr dll_Perl_Isv_yes_ptr # define boot_DynaLoader dll_boot_DynaLoader # define Perl_Gthr_key_ptr dll_Perl_Gthr_key_ptr # define Perl_sys_init dll_Perl_sys_init # define Perl_sys_term dll_Perl_sys_term # define Perl_ISv_ptr dll_Perl_ISv_ptr # define Perl_Istack_max_ptr dll_Perl_Istack_max_ptr # define Perl_Istack_base_ptr dll_Perl_Istack_base_ptr # define Perl_Itmps_ix_ptr dll_Perl_Itmps_ix_ptr # define Perl_Itmps_floor_ptr dll_Perl_Itmps_floor_ptr # define Perl_IXpv_ptr dll_Perl_IXpv_ptr # define Perl_Ina_ptr dll_Perl_Ina_ptr # define Perl_Imarkstack_ptr_ptr dll_Perl_Imarkstack_ptr_ptr # define Perl_Imarkstack_max_ptr dll_Perl_Imarkstack_max_ptr # define Perl_Istack_sp_ptr dll_Perl_Istack_sp_ptr # define Perl_Iop_ptr dll_Perl_Iop_ptr # define Perl_call_list dll_Perl_call_list # define Perl_Iscopestack_ix_ptr dll_Perl_Iscopestack_ix_ptr # define Perl_Iunitcheckav_ptr dll_Perl_Iunitcheckav_ptr # if (PERL_REVISION == 5) && (PERL_VERSION >= 22) # define Perl_xs_handshake dll_Perl_xs_handshake # define Perl_xs_boot_epilog dll_Perl_xs_boot_epilog # endif # if (PERL_REVISION == 5) && (PERL_VERSION >= 14) # ifdef USE_ITHREADS # define PL_thr_key *dll_PL_thr_key # endif # endif # define Perl_hv_iternext_flags dll_Perl_hv_iternext_flags # define Perl_hv_iterinit dll_Perl_hv_iterinit # define Perl_hv_iterkey dll_Perl_hv_iterkey # define Perl_hv_iterval dll_Perl_hv_iterval # define Perl_av_fetch dll_Perl_av_fetch # define Perl_av_len dll_Perl_av_len # define Perl_sv_2nv_flags dll_Perl_sv_2nv_flags # if defined(PERLIO_LAYERS) && !defined(USE_SFIO) # define PerlIOBase_pushed dll_PerlIOBase_pushed # define PerlIO_define_layer dll_PerlIO_define_layer # endif # if (PERL_REVISION == 5) && (PERL_VERSION >= 24) # define Perl_savetmps dll_Perl_savetmps # endif /* * Declare HANDLE for perl.dll and function pointers. */ static HANDLE hPerlLib = NULL; static PerlInterpreter* (*perl_alloc)(); static void (*perl_construct)(PerlInterpreter*); static void (*perl_destruct)(PerlInterpreter*); static void (*perl_free)(PerlInterpreter*); static int (*perl_run)(PerlInterpreter*); static int (*perl_parse)(PerlInterpreter*, XSINIT_t, int, char**, char**); static void* (*Perl_get_context)(void); static void (*Perl_croak)(pTHX_ const char*, ...) __attribute__noreturn__; # ifdef PERL5101_OR_LATER /* Perl-5.18 has a different Perl_croak_xs_usage signature. */ # if (PERL_REVISION == 5) && (PERL_VERSION >= 18) static void (*Perl_croak_xs_usage)(const CV *const, const char *const params) __attribute__noreturn__; # else static void (*Perl_croak_xs_usage)(pTHX_ const CV *const, const char *const params) __attribute__noreturn__; # endif # endif static void (*Perl_croak_nocontext)(const char*, ...) __attribute__noreturn__; static I32 (*Perl_dowantarray)(pTHX); static void (*Perl_free_tmps)(pTHX); static HV* (*Perl_gv_stashpv)(pTHX_ const char*, I32); # if (PERL_REVISION == 5) && (PERL_VERSION >= 22) static I32* (*Perl_markstack_grow)(pTHX); # else static void (*Perl_mar
package utils

import (
	"fmt"
	"os"
	"strings"

	"github.com/fsmiamoto/git-todo-parser/todo"
	"github.com/samber/lo"
)

func equalShas(a, b string) bool {
	return strings.HasPrefix(a, b) || strings.HasPrefix(b, a)
}

func ReadRebaseTodoFile(fileName string) ([]todo.Todo, error) {
	f, err := os.Open(fileName)
	if err != nil {
		return nil, err
	}

	todos, err := todo.Parse(f)
	err2 := f.Close()
	if err == nil {
		err = err2
	}
	return todos, err
}

func WriteRebaseTodoFile(fileName string, todos []todo.Todo) error {
	f, err := os.Create(fileName)
	if err != nil {
		return err
	}
	err = todo.Write(f, todos)
	err2 := f.Close()
	if err == nil {
		err = err2
	}
	return err
}

func MoveTodoDown(fileName string, sha string, action todo.TodoCommand) error {
	todos, err := ReadRebaseTodoFile(fileName)
	if err != nil {
		return err
	}
	rearrangedTodos, err := moveTodoDown(todos, sha, action)
	if err != nil {
		return err
	}
	return WriteRebaseTodoFile(fileName, rearrangedTodos)
}

func MoveTodoUp(fileName string, sha string, action todo.TodoCommand) error {
	todos, err := ReadRebaseTodoFile(fileName)
	if err != nil {
		return err
	}
	rearrangedTodos, err := moveTodoUp(todos, sha, action)
	if err != nil {
		return err
	}
	return WriteRebaseTodoFile(fileName, rearrangedTodos)
}

func moveTodoDown(todos []todo.Todo, sha string, action todo.TodoCommand) ([]todo.Todo, error) {
	rearrangedTodos, err := moveTodoUp(lo.Reverse(todos), sha, action)
	return lo.Reverse(rearrangedTodos), err
}

func moveTodoUp(todos []todo.Todo, sha string, action todo.TodoCommand) ([]todo.Todo, error) {
	_, sourceIdx, ok := lo.FindIndexOf(todos, func(t todo.Todo) bool {
		// Comparing just the sha is not enough; we need to compare both the
		// action and the sha, as the sha could appear multiple times (e.g. in a
		// pick and later in a merge)
		return t.Command == action && equalShas(t.Commit, sha)
	})

	if !ok {
		// Should never happen
		return []todo.Todo{}, fmt.Errorf("Todo %s not found in git-rebase-todo", sha)
	}

	// The todos are ordered backwards compared to our model commits, so
	// actually move the commit _down_ in the todos slice (i.e. towards
	// the end of the slice)

	// Find the next todo that we show in lazygit's commits view (skipping the rest)
	_, skip, ok := lo.FindIndexOf(todos[sourceIdx+1:], isRenderedTodo)

	if !ok {
		// We expect callers to guard against this
		return []todo.Todo{}, fmt.Errorf("Destination position for moving todo is out of range")
	}

	destinationIdx := sourceIdx + 1 + skip

	rearrangedTodos := MoveElement(todos, sourceIdx, destinationIdx)

	return rearrangedTodos, nil
}

// We render a todo in the commits view if it's a commit or if it's an
// update-ref. We don't render label, reset, or comment lines.
func isRenderedTodo(t todo.Todo) bool {
	return t.Commit != "" || t.Command == todo.UpdateRef
}
generated by cgit v1.2.3 (git 2.25.1) at 2024-07-30 04:11:25 +0000
P); XPUSHs(safe); XPUSHs(sv); PUTBACK; call_method("reval", G_SCALAR); SPAGAIN; SvREFCNT_dec(sv); sv = POPs; } } else sv = eval_pv((char *)str, 0); if (sv) { perl_to_vim(sv, rettv); ref_map_free(); err = SvPV(GvSV(PL_errgv), err_len); } PUTBACK; FREETMPS; LEAVE; } if (err_len) msg_split((char_u *)err, highlight_attr[HLF_E]); } /* * ":perldo". */ void ex_perldo(exarg_T *eap) { STRLEN length; SV *sv; char *str; linenr_T i; buf_T *was_curbuf = curbuf; if (BUFEMPTY()) return; if (perl_interp == NULL) { #ifdef DYNAMIC_PERL if (!perl_enabled(TRUE)) { emsg(_(e_noperl)); return; } #endif perl_init(); } { dSP; length = strlen((char *)eap->arg); sv = newSV(length + sizeof("sub VIM::perldo {") - 1 + 1); sv_setpvn(sv, "sub VIM::perldo {", sizeof("sub VIM::perldo {") - 1); sv_catpvn(sv, (char *)eap->arg, length); sv_catpvn(sv, "}", 1); perl_eval_sv(sv, G_DISCARD | G_NOARGS); SvREFCNT_dec(sv); str = SvPV(GvSV(PL_errgv), length); if (length) goto err; if (u_save(eap->line1 - 1, eap->line2 + 1) != OK) return; ENTER; SAVETMPS; for (i = eap->line1; i <= eap->line2; i++) { /* Check the line number, the command my have deleted lines. */ if (i > curbuf->b_ml.ml_line_count) break; sv_setpv(GvSV(PL_defgv), (char *)ml_get(i)); PUSHMARK(sp); perl_call_pv("VIM::perldo", G_SCALAR | G_EVAL); str = SvPV(GvSV(PL_errgv), length); if (length || curbuf != was_curbuf) break; SPAGAIN; if (SvTRUEx(POPs)) { if (replace_line(&i, &eap->line2) != OK) { PUTBACK; break; } } PUTBACK; } FREETMPS; LEAVE; check_cursor(); update_screen(NOT_VALID); if (!length) return; err: msg_split((char_u *)str, highlight_attr[HLF_E]); return; } } #if defined(PERLIO_LAYERS) && !defined(USE_SFIO) typedef struct { struct _PerlIO base; int attr; } PerlIOVim; static IV PerlIOVim_pushed(pTHX_ PerlIO *f, const char *mode, SV *arg, PerlIO_funcs *tab) { PerlIOVim *s = PerlIOSelf(f, PerlIOVim); s->attr = 0; if (arg && SvPOK(arg)) s->attr = syn_name2attr((char_u *)SvPV_nolen(arg)); return PerlIOBase_pushed(aTHX_ f, mode, (SV *)NULL, tab); } static SSize_t PerlIOVim_write(pTHX_ PerlIO *f, const void *vbuf, Size_t count) { char_u *str; PerlIOVim * s = PerlIOSelf(f, PerlIOVim); str = vim_strnsave((char_u *)vbuf, (int)count); if (str == NULL) return 0; msg_split((char_u *)str, s->attr); vim_free(str); return (SSize_t)count; } static PERLIO_FUNCS_DECL(PerlIO_Vim) = { sizeof(PerlIO_funcs), "Vim", sizeof(PerlIOVim), PERLIO_K_DUMMY, /* flags */ PerlIOVim_pushed, NULL, /* popped */ NULL, /* open */ NULL, /* binmode */ NULL, /* arg */ NULL, /* fileno */ NULL, /* dup */ NULL, /* read */ NULL, /* unread */ PerlIOVim_write, NULL, /* seek */ NULL, /* tell */ NULL, /* close */ NULL, /* flush */ NULL, /* fill */ NULL, /* eof */ NULL, /* error */ NULL, /* clearerr */ NULL, /* setlinebuf */ NULL, /* get_base */ NULL, /* get_bufsiz */ NULL, /* get_ptr */ NULL, /* get_cnt */ NULL /* set_ptrcnt */ }; /* Use Vim routine for print operator */ static void vim_IOLayer_init(void) { PerlIO_define_layer(aTHX_ PERLIO_FUNCS_CAST(&PerlIO_Vim)); (void)eval_pv( "binmode(STDOUT, ':Vim')" " && binmode(STDERR, ':Vim(ErrorMsg)');", 0); } #endif /* PERLIO_LAYERS && !USE_SFIO */ XS(boot_VIM); static void xs_init(pTHX) { char *file = __FILE__; /* DynaLoader is a special case */ newXS("DynaLoader::boot_DynaLoader", boot_DynaLoader, file); newXS("VIM::bootstrap", boot_VIM, file); } typedef win_T * VIWIN; typedef buf_T * VIBUF; MODULE = VIM PACKAGE = VIM void Msg(text, hl=NULL) char *text; char *hl; PREINIT: int attr; PPCODE: if (text != NULL) { attr = 0; if (hl != NULL) attr = syn_name2attr((char_u *)hl); msg_split((char_u *)text, attr); } void SetOption(line) char *line; PPCODE: if (line != NULL) do_set((char_u *)line, 0); update_screen(NOT_VALID); void DoCommand(line) char *line; PPCODE: if (line != NULL) do_cmdline_cmd((char_u *)line); void Eval(str) char *str; PREINIT: char_u *value; PPCODE: value = eval_to_string((char_u *)str, (char_u **)0, TRUE); if (value == NULL) { XPUSHs(sv_2mortal(newSViv(0))); XPUSHs(sv_2mortal(newSVpv("", 0))); } else { XPUSHs(sv_2mortal(newSViv(1))); XPUSHs(sv_2mortal(newSVpv((char *)value, 0))); vim_free(value); } SV* Blob(SV* sv) PREINIT: STRLEN len; char *s; unsigned i; char buf[3]; SV* newsv; CODE: s = SvPVbyte(sv, len); newsv = newSVpv("0z", 2); for (i = 0; i < len; i++) { sprintf(buf, "%02X", (unsigned char)(s[i])); sv_catpvn(newsv, buf, 2); } RETVAL = newsv; OUTPUT: RETVAL void Buffers(...) PREINIT: buf_T *vimbuf; int i, b; PPCODE: if (items == 0) { if (GIMME == G_SCALAR) { i = 0; FOR_ALL_BUFFERS(vimbuf) ++i; XPUSHs(sv_2mortal(newSViv(i))); } else { FOR_ALL_BUFFERS(vimbuf) XPUSHs(sv_2mortal(newBUFrv(newSV(0), vimbuf))); } } else { for (i = 0; i < items; i++) { SV *sv = ST(i); if (SvIOK(sv)) b = (int) SvIV(ST(i)); else { char_u *pat; STRLEN len; pat = (char_u *)SvPV(sv, len); ++emsg_off; b = buflist_findpat(pat, pat + len, TRUE, FALSE, FALSE); --emsg_off; } if (b >= 0) { vimbuf = buflist_findnr(b); if (vimbuf) XPUSHs(sv_2mortal(newBUFrv(newSV(0), vimbuf))); } } } void Windows(...) PREINIT: win_T *vimwin; int i, w; PPCODE: if (items == 0) { if (GIMME == G_SCALAR) XPUSHs(sv_2mortal(newSViv(win_count()))); else { FOR_ALL_WINDOWS(vimwin) XPUSHs(sv_2mortal(newWINrv(newSV(0), vimwin))); } } else { for (i = 0; i < items; i++) { w = (int) SvIV(ST(i)); vimwin = win_find_nr(w); if (vimwin) XPUSHs(sv_2mortal(newWINrv(newSV(0), vimwin))); } } MODULE = VIM PACKAGE = VIWIN void DESTROY(win) VIWIN win CODE: if (win_valid(win)) win->w_perl_private = 0; SV * Buffer(win) VIWIN win CODE: if (!win_valid(win)) win = curwin; RETVAL = newBUFrv(newSV(0), win->w_buffer); OUTPUT: RETVAL void SetHeight(win, height) VIWIN win int height; PREINIT: win_T *savewin; PPCODE: if (!win_valid(win)) win = curwin; savewin = curwin; curwin = win; win_setheight(height); curwin = savewin; void Cursor(win, ...) VIWIN win PPCODE: if (items == 1) { EXTEND(sp, 2); if (!win_valid(win)) win = curwin; PUSHs(sv_2mortal(newSViv(win->w_cursor.lnum))); PUSHs(sv_2mortal(newSViv(win->w_cursor.col))); } else if (items == 3) { int lnum, col; if (!win_valid(win)) win = curwin; lnum = (int) SvIV(ST(1)); col = (int) SvIV(ST(2)); win->w_cursor.lnum = lnum; win->w_cursor.col = col; win->w_set_curswant = TRUE; check_cursor(); /* put cursor on an existing line */ update_screen(NOT_VALID); } MODULE = VIM PACKAGE = VIBUF void DESTROY(vimbuf) VIBUF vimbuf; CODE: if (buf_valid(vimbuf)) vimbuf->b_perl_private = 0; void Name(vimbuf) VIBUF vimbuf; PPCODE: if (!buf_valid(vimbuf)) vimbuf = curbuf; /* No file name returns an empty string */ if (vimbuf->b_fname == NULL) XPUSHs(sv_2mortal(newSVpv("", 0))); else XPUSHs(sv_2mortal(newSVpv((char *)vimbuf->b_fname, 0))); void Number(vimbuf) VIBUF vimbuf; PPCODE: if (!buf_valid(vimbuf)) vimbuf = curbuf; XPUSHs(sv_2mortal(newSViv(vimbuf->b_fnum))); void Count(vimbuf) VIBUF vimbuf; PPCODE: if (!buf_valid(vimbuf)) vimbuf = curbuf; XPUSHs(sv_2mortal(newSViv(vimbuf->b_ml.ml_line_count))); void Get(vimbuf, ...) VIBUF vimbuf; PREINIT: char_u *line; int i; long lnum; PPCODE: if (buf_valid(vimbuf)) { for (i = 1; i < items; i++) { lnum = (long) SvIV(ST(i)); if (lnum > 0 && lnum <= vimbuf->b_ml.ml_line_count) { line = ml_get_buf(vimbuf, lnum, FALSE); XPUSHs(sv_2mortal(newSVpv((char *)line, 0))); } } } void Set(vimbuf, ...) VIBUF vimbuf; PREINIT: int i; long lnum; char *line; PPCODE: if (buf_valid(vimbuf)) { if (items < 3) croak("Usage: VIBUF::Set(vimbuf, lnum, @lines)"); lnum = (long) SvIV(ST(1)); for(i = 2; i < items; i++, lnum++) { line = SvPV(ST(i),PL_na); if (lnum > 0 && lnum <= vimbuf->b_ml.ml_line_count && line != NULL) { aco_save_T aco; /* set curwin/curbuf for "vimbuf" and save some things */ aucmd_prepbuf(&aco, vimbuf); if (u_savesub(lnum) == OK) { ml_replace(lnum, (char_u *)line, TRUE); changed_bytes(lnum, 0); } /* restore curwin/curbuf and a few other things */ aucmd_restbuf(&aco); /* Careful: autocommands may have made "vimbuf" invalid! */ } } } void Delete(vimbuf, ...) VIBUF vimbuf; PREINIT: long i, lnum = 0, count = 0; PPCODE: if (buf_valid(vimbuf)) { if (items == 2) { lnum = (long) SvIV(ST(1)); count = 1; } else if (items == 3) { lnum = (long) SvIV(ST(1)); count = (long) 1 + SvIV(ST(2)) - lnum; if (count == 0) count = 1; if (count < 0) { lnum -= count; count = -count; } } if (items >= 2) { for (i = 0; i < count; i++) { if (lnum > 0 && lnum <= vimbuf->b_ml.ml_line_count) { aco_save_T aco; /* set curwin/curbuf for "vimbuf" and save some things */ aucmd_prepbuf(&aco, vimbuf); if (u_savedel(lnum, 1) == OK) { ml_delete(lnum, 0); check_cursor(); deleted_lines_mark(lnum, 1L); } /* restore curwin/curbuf and a few other things */ aucmd_restbuf(&aco); /* Careful: autocommands may have made "vimbuf" invalid! */ update_curbuf(VALID); } } } } void Append(vimbuf, ...) VIBUF vimbuf; PREINIT: int i; long lnum; char *line; PPCODE: if (buf_valid(vimbuf)) { if (items < 3) croak("Usage: VIBUF::Append(vimbuf, lnum, @lines)"); lnum = (long) SvIV(ST(1)); for (i = 2; i < items; i++, lnum++) { line = SvPV(ST(i),PL_na); if (lnum >= 0 && lnum <= vimbuf->b_ml.ml_line_count && line != NULL) { aco_save_T aco; /* set curwin/curbuf for "vimbuf" and save some things */ aucmd_prepbuf(&aco, vimbuf); if (u_inssub(lnum + 1) == OK) { ml_append(lnum, (char_u *)line, (colnr_T)0, FALSE); appended_lines_mark(lnum, 1L); } /* restore curwin/curbuf and a few other things */ aucmd_restbuf(&aco); /* Careful: autocommands may have made "vimbuf" invalid! */ update_curbuf(VALID); } } } #ifdef __GNUC__ # pragma GCC diagnostic pop #endif