File: memory.c

package info (click to toggle)
mawk 1.3.3-17
  • links: PTS, VCS
  • area: main
  • in suites: buster, jessie, jessie-kfreebsd, stretch, wheezy
  • size: 1,484 kB
  • ctags: 1,506
  • sloc: ansic: 13,008; yacc: 994; awk: 629; makefile: 113; sh: 107
file content (101 lines) | stat: -rw-r--r-- 1,681 bytes parent folder | download | duplicates (8)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101

/********************************************
memory.c
copyright 1991, 1992  Michael D. Brennan

This is a source file for mawk, an implementation of
the AWK programming language.

Mawk is distributed without warranty under the terms of
the GNU General Public License, version 2, 1991.
********************************************/


/* $Log: memory.c,v $
 * Revision 1.2  1993/07/17  13:23:08  mike
 * indent and general code cleanup
 *
 * Revision 1.1.1.1  1993/07/03	 18:58:17  mike
 * move source to cvs
 *
 * Revision 5.2	 1993/01/01  21:30:48  mike
 * split new_STRING() into new_STRING and new_STRING0
 *
 * Revision 5.1	 1991/12/05  07:56:21  brennan
 * 1.1 pre-release
 *
*/


/* memory.c */

#include "mawk.h"
#include "memory.h"

static STRING *PROTO(xnew_STRING, (unsigned)) ;


STRING null_str =
{0, 1, ""} ;

static STRING *
xnew_STRING(len)
   unsigned len ;
{
   STRING *sval = (STRING *) zmalloc(len + STRING_OH) ;

   sval->len = len ;
   sval->ref_cnt = 1 ;
   return sval ;
}

/* allocate space for a STRING */

STRING *
new_STRING0(len)
   unsigned len ;
{
   if (len == 0)
   {
      null_str.ref_cnt++ ;
      return &null_str ;
   }
   else
   {
      STRING *sval = xnew_STRING(len) ;
      sval->str[len] = 0 ;
      return sval ;
   }
}

/* convert char* to STRING* */

STRING *
new_STRING(s)
   char *s ;
{

   if (s[0] == 0)
   {
      null_str.ref_cnt++ ;
      return &null_str ;
   }
   else
   {
      STRING *sval = xnew_STRING(strlen(s)) ;
      strcpy(sval->str, s) ;
      return sval ;
   }
}


#ifdef	 DEBUG

void
DB_free_STRING(sval)
   register STRING *sval ;
{
   if (--sval->ref_cnt == 0)  zfree(sval, sval->len + STRING_OH) ;
}

#endif