www.pudn.com > vim53src.zip > if_perlsfio.c

/* vi:set ts=8 sts=4 sw=4: 
 * 
 * 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_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" 
 
/* 
 * Avoid clashes between Perl and Vim namespace. 
 */ 
#undef MAGIC 
#undef NORMAL 
#undef STRLEN 
#undef FF 
#undef OP_DELETE 
 
#include  
#include  
#include  
 
#ifdef USE_SFIO 
 
#define NIL(type)	((type)0) 
 
    static int 
sfvimwrite(f, buf, n, disc) 
    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() 
{ 
    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 */