X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=x2p%2Fstr.h;h=311c5e67dbebb486341c577fcb214ff0e4587913;hb=4beac62f32147d4a37c16a9084d501a03d4cf981;hp=66225abb2631ce65aab55486626d0951fb11098f;hpb=a687059cbaf2c6fdccb5e0fae2aee80ec15625a8;p=p5sagit%2Fp5-mst-13.2.git diff --git a/x2p/str.h b/x2p/str.h index 66225ab..311c5e6 100644 --- a/x2p/str.h +++ b/x2p/str.h @@ -1,14 +1,11 @@ -/* $Header: str.h,v 3.0 89/10/18 15:35:27 lwall Locked $ +/* $RCSfile: str.h,v $$Revision: 4.1 $$Date: 92/08/07 18:29:27 $ * - * Copyright (c) 1989, Larry Wall + * Copyright (c) 1991-2001, 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. + * You may distribute under the terms of either the GNU General Public + * License or the Artistic License, as specified in the README file. * * $Log: str.h,v $ - * Revision 3.0 89/10/18 15:35:27 lwall - * 3.0 baseline - * */ struct string { @@ -32,9 +29,25 @@ struct string { EXT STR **tmps_list; EXT long tmps_max INIT(-1); -char *str_2ptr(); -double str_2num(); -STR *str_static(); -STR *str_make(); -STR *str_nmake(); -char *str_gets(); +double str_2num ( STR *str ); +char * str_2ptr ( STR *str ); +char * str_append_till ( STR *str, char *from, int delim, char *keeplist ); +void str_cat ( STR *str, char *ptr ); +void str_chop ( STR *str, char *ptr ); +void str_dec ( STR *str ); +void str_free ( STR *str ); +char * str_gets ( STR *str, FILE *fp ); +void str_grow ( STR *str, int len ); +void str_inc ( STR *str ); +int str_len ( STR *str ); +STR * str_make ( char *s ); +STR * str_mortal ( STR *oldstr ); +void str_ncat ( STR *str, char *ptr, int len ); +STR * str_new ( int len ); +STR * str_nmake ( double n ); +void str_nset ( STR *str, char *ptr, int len ); +void str_numset ( STR *str, double num ); +void str_replace ( STR *str, STR *nstr ); +void str_scat ( STR *dstr, STR *sstr ); +void str_set ( STR *str, char *ptr ); +void str_sset ( STR *dstr, STR *sstr );