From 8baab3c8d7a6f22888bd581cd5c6098fd2e4b5a8 Mon Sep 17 00:00:00 2001 From: Daniel Baumann Date: Mon, 6 May 2024 04:44:24 +0200 Subject: Adding upstream version 2:8.1.0875. Signed-off-by: Daniel Baumann --- src/if_perlsfio.c | 66 +++++++++++++++++++++++++++++++++++++++++++++++++++++++ 1 file changed, 66 insertions(+) create mode 100644 src/if_perlsfio.c (limited to 'src/if_perlsfio.c') diff --git a/src/if_perlsfio.c b/src/if_perlsfio.c new file mode 100644 index 0000000..528a1b4 --- /dev/null +++ b/src/if_perlsfio.c @@ -0,0 +1,66 @@ +/* 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. + * See README.txt for an overview of the Vim source code. + */ +/* + * if_perlsfio.c: Special I/O functions for Perl interface. + */ + +#define _memory_h /* avoid memset redeclaration */ +#define IN_PERL_FILE /* don't include if_perl.pro from prot.h */ + +#include "vim.h" + +#if defined(USE_SFIO) || defined(PROTO) + +#ifndef USE_SFIO /* just generating prototypes */ +# define Sfio_t int +# define Sfdisc_t int +#endif + +#define NIL(type) ((type)0) + + static int +sfvimwrite( + Sfio_t *f, /* stream involved */ + char *buf, /* buffer to read from */ + int n, /* number of bytes to write */ + Sfdisc_t *disc) /* discipline */ +{ + char_u *str; + + str = vim_strnsave((char_u *)buf, n); + if (str == NULL) + return 0; + msg_split((char *)str); + vim_free(str); + + return n; +} + +/* + * sfdcnewnvi -- + * Create Vim discipline + */ + Sfdisc_t * +sfdcnewvim(void) +{ + Sfdisc_t *disc; + + disc = (Sfdisc_t *)alloc((unsigned)sizeof(Sfdisc_t)); + if (disc == NULL) + return NULL; + + disc->readf = (Sfread_f)NULL; + disc->writef = sfvimwrite; + disc->seekf = (Sfseek_f)NULL; + disc->exceptf = (Sfexcept_f)NULL; + + return disc; +} + +#endif /* USE_SFIO */ -- cgit v1.2.3