From a687059cbaf2c6fdccb5e0fae2aee80ec15625a8 Mon Sep 17 00:00:00 2001 From: Larry Wall Date: Wed, 18 Oct 1989 00:00:00 +0000 Subject: perl 3.0: (no announcement message available) A few of the new features: (18 Oct) * Perl can now handle binary data correctly and has functions to pack and unpack binary structures into arrays or lists. You can now do arbitrary ioctl functions. * You can now pass things to subroutines by reference. * Debugger enhancements. * An array or associative array may now appear in a local() list. * Array values may now be interpolated into strings. * Subroutine names are now distinguished by prefixing with &. You can call subroutines without using do, and without passing any argument list at all. * You can use the new -u switch to cause perl to dump core so that you can run undump and produce a binary executable image. Alternately you can use the "dump" operator after initializing any variables and such. * You can now chop lists. * Perl now uses /bin/csh to do filename globbing, if available. This means that filenames with spaces or other strangenesses work right. * New functions: mkdir and rmdir, getppid, getpgrp and setpgrp, getpriority and setpriority, chroot, ioctl and fcntl, flock, readlink, lstat, rindex, pack and unpack, read, warn, dbmopen and dbmclose, dump, reverse, defined, undef. --- form.h | 16 +++++++++++++--- 1 file changed, 13 insertions(+), 3 deletions(-) (limited to 'form.h') diff --git a/form.h b/form.h index 3b7aa95178..ee055a5f5b 100644 --- a/form.h +++ b/form.h @@ -1,8 +1,13 @@ -/* $Header: form.h,v 2.0 88/06/05 00:09:01 root Exp $ +/* $Header: form.h,v 3.0 89/10/18 15:17:39 lwall Locked $ + * + * Copyright (c) 1989, Larry Wall + * + * You may distribute under the terms of the GNU General Public License + * as specified in the README file that comes with the perl 3.0 kit. * * $Log: form.h,v $ - * Revision 2.0 88/06/05 00:09:01 root - * Baseline version 2.0. + * Revision 3.0 89/10/18 15:17:39 lwall + * 3.0 baseline * */ @@ -15,6 +20,8 @@ struct formcmd { struct formcmd *f_next; ARG *f_expr; + STR *f_unparsed; + line_t f_line; char *f_pre; short f_presize; short f_size; @@ -25,5 +32,8 @@ struct formcmd { #define FC_CHOP 1 #define FC_NOBLANK 2 #define FC_MORE 4 +#define FC_REPEAT 8 #define Nullfcmd Null(FCMD*) + +EXT char *chopset INIT(" \n-"); -- cgit v1.2.1