X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=x2p%2Fstr.h;h=7fc8e1e3b44ea7291c006a0072360cfe2cd7d92b;hb=20caf59dc5a2137cdf1de6dae458da063417a8d2;hp=62c44a0863e8179478b2214a28f7a470874518d3;hpb=fe14fcc35f78a371a174a1d14256c2f35ae4262b;p=p5sagit%2Fp5-mst-13.2.git

diff --git a/x2p/str.h b/x2p/str.h
index 62c44a0..7fc8e1e 100644
--- a/x2p/str.h
+++ b/x2p/str.h
@@ -1,14 +1,10 @@
-/* $Header: str.h,v 4.0 91/03/20 01:58:21 lwall Locked $
+/*    str.h
  *
- *    Copyright (c) 1989, Larry Wall
+ *    Copyright (C) 1991, 1992, 1993, 1994, 1995, 1999, 2000, 2005
+ *    by Larry Wall and others
  *
- *    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:	str.h,v $
- * Revision 4.0  91/03/20  01:58:21  lwall
- * 4.0 baseline.
- * 
+ *    You may distribute under the terms of either the GNU General Public
+ *    License or the Artistic License, as specified in the README file.
  */
 
 struct string {
@@ -23,8 +19,6 @@ struct string {
     char	str_nok;	/* state of str_nval */
 };
 
-#define Nullstr Null(STR*)
-
 /* the following macro updates any magic values this str is associated with */
 
 #define STABSET(x) (x->str_link.str_magic && stabset(x->str_link.str_magic,x))
@@ -32,9 +26,16 @@ struct string {
 EXT STR **tmps_list;
 EXT long tmps_max INIT(-1);
 
-char *str_2ptr();
-double str_2num();
-STR *str_mortal();
-STR *str_make();
-STR *str_nmake();
-char *str_gets();
+char * str_2ptr ( STR *str );
+void str_cat ( STR *str, const char *ptr );
+void str_free ( STR *str );
+char * str_gets ( STR *str, FILE *fp );
+int str_len ( STR *str );
+STR * str_make ( const char *s );
+void str_ncat ( STR *str, const char *ptr, int len );
+STR * str_new ( int len );
+void str_nset ( STR *str, const char *ptr, int len );
+void str_numset ( STR *str, double num );
+void str_scat ( STR *dstr, STR *sstr );
+void str_set ( STR *str, const char *ptr );
+void str_sset ( STR *dstr, STR *sstr );