This is if_perlsfio.c in view mode; [Download] [Up]
/* vi:set ts=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" #include "globals.h" #include "proto.h" /* * Avoid clashes between Perl and Vim namespace. */ #undef MAGIC #undef NORMAL #undef STRLEN #undef FF #undef OP_DELETE #include <EXTERN.h> #include <perl.h> #include <XSUB.h> #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 *)malloc(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 */
These are the contents of the former NiCE NeXT User Group NeXTSTEP/OpenStep software archive, currently hosted by Netfuture.ch.