diff options
| author | Andy Lester <andy@petdance.com> | 2005-11-04 09:13:55 -0600 |
|---|---|---|
| committer | Rafael Garcia-Suarez <rgarciasuarez@gmail.com> | 2005-11-07 12:26:29 +0000 |
| commit | 8665f9e443dd7c1aaeda99d470ddf0b6fe056f80 (patch) | |
| tree | 1942b919ad725753da59c9de63d1901bf6299f94 /x2p/a2p.h | |
| parent | f43a9a3142f71956ec256aa7b03ca89db65cbb0c (diff) | |
| download | perl-8665f9e443dd7c1aaeda99d470ddf0b6fe056f80.tar.gz | |
Cleaning up x2p directory
Message-ID: <20051104211355.GB12651@petdance.com>
p4raw-id: //depot/perl@26033
Diffstat (limited to 'x2p/a2p.h')
| -rw-r--r-- | x2p/a2p.h | 8 |
1 files changed, 1 insertions, 7 deletions
@@ -1,12 +1,10 @@ -/* $RCSfile: a2p.h,v $$Revision: 4.1 $$Date: 92/08/07 18:29:09 $ +/* a2p.h * * Copyright (C) 1991, 1992, 1993, 1994, 1995, 1996, 1997, 1998, 1999, * 2000, 2001, 2002, by Larry Wall and others * * You may distribute under the terms of either the GNU General Public * License or the Artistic License, as specified in the README file. - * - * $Log: a2p.h,v $ */ #define VOIDUSED 1 @@ -363,11 +361,7 @@ typedef struct htbl HASH; EXT char *Yes INIT("1"); EXT char *No INIT(""); -#define str_true(str) (Str = (str), (Str->str_pok ? True(Str->str_ptr) : (Str->str_nok ? (Str->str_nval != 0.0) : 0 ))) - -#define str_peek(str) (Str = (str), (Str->str_pok ? Str->str_ptr : (Str->str_nok ? (sprintf(buf,"num(%"NVgf")",Str->str_nval),buf) : "" ))) #define str_get(str) (Str = (str), (Str->str_pok ? Str->str_ptr : str_2ptr(Str))) -#define str_gnum(str) (Str = (str), (Str->str_nok ? Str->str_nval : str_2num(Str))) EXT STR *Str; #define GROWSTR(pp,lp,len) if (*(lp) < (len)) growstr(pp,lp,len) |