Return to ex_perl.c CVS log | Up to [local] / src / usr.bin / vi / ex |
File: [local] / src / usr.bin / vi / ex / Attic / ex_perl.c (download)
Revision 1.6, Tue Oct 27 23:59:47 2009 UTC (14 years, 7 months ago) by deraadt
rcsid[] and sccsid[] and copyright[] are essentially unmaintained (and unmaintainable). these days, people use source. these id's do not provide any benefit, and do hurt the small install media (the 33,000 line diff is essentially mechanical) ok with the idea millert, ok dms |
/* $OpenBSD: ex_perl.c,v 1.6 2009/10/27 23:59:47 deraadt Exp $ */ /*- * Copyright (c) 1992, 1993, 1994 * The Regents of the University of California. All rights reserved. * Copyright (c) 1992, 1993, 1994, 1995, 1996 * Keith Bostic. All rights reserved. * Copyright (c) 1995 * George V. Neville-Neil. All rights reserved. * Copyright (c) 1996 * Sven Verdoolaege. All rights reserved. * * See the LICENSE file for redistribution information. */ #include "config.h" #include <sys/types.h> #include <sys/queue.h> #include <sys/time.h> #include <bitstring.h> #include <ctype.h> #include <limits.h> #include <stdio.h> #include <string.h> #include <termios.h> #include <unistd.h> #include "../common/common.h" /* * ex_perl -- :[line [,line]] perl [command] * Run a command through the perl interpreter. * * ex_perldo -- :[line [,line]] perldo [command] * Run a set of lines through the perl interpreter. * * PUBLIC: int ex_perl(SCR*, EXCMD *); */ int ex_perl(sp, cmdp) SCR *sp; EXCMD *cmdp; { #ifdef HAVE_PERL_INTERP CHAR_T *p; size_t len; /* Skip leading white space. */ if (cmdp->argc != 0) for (p = cmdp->argv[0]->bp, len = cmdp->argv[0]->len; len > 0; --len, ++p) if (!isblank(*p)) break; if (cmdp->argc == 0 || len == 0) { ex_emsg(sp, cmdp->cmd->usage, EXM_USAGE); return (1); } return (cmdp->cmd == &cmds[C_PERLCMD] ? perl_ex_perl(sp, p, len, cmdp->addr1.lno, cmdp->addr2.lno) : perl_ex_perldo(sp, p, len, cmdp->addr1.lno, cmdp->addr2.lno)); #else msgq(sp, M_ERR, "306|Vi was not loaded with a Perl interpreter"); return (1); #endif }