File: manglprm.awk

package info (click to toggle)
gawk 1%3A4.1.1%2Bdfsg-1
  • links: PTS
  • area: main
  • in suites: jessie, jessie-kfreebsd
  • size: 15,604 kB
  • ctags: 5,728
  • sloc: ansic: 47,935; sh: 12,995; awk: 10,263; yacc: 5,815; makefile: 2,279; sed: 121
file content (41 lines) | stat: -rw-r--r-- 1,097 bytes parent folder | download | duplicates (12)
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
# From beebe@sunshine.math.utah.edu  Thu Jul 10 00:36:16 2003
# Date: Wed, 9 Jul 2003 06:42:54 -0600 (MDT)
# From: "Nelson H. F. Beebe" <beebe@math.utah.edu>
# To: "Arnold Robbins" <arnold@skeeve.com>
# Cc: beebe@math.utah.edu
# X-US-Mail: "Center for Scientific Computing, Department of Mathematics, 110
#         LCB, University of Utah, 155 S 1400 E RM 233, Salt Lake City, UT
#         84112-0090, USA"
# X-Telephone: +1 801 581 5254
# X-FAX: +1 801 585 1640, +1 801 581 4148
# X-URL: http://www.math.utah.edu/~beebe
# Subject: gawk-3.1.3 (and earlier): reproducible core dump
# X-SpamBouncer: 1.4 (10/07/01)
# X-SBClass: OK
# 
# I have a reproducible core dump in gawk-3.1.3, and recent gawk
# versions.
# 
# Consider the following test program,  reduced from a much larger one:
# 
#         % cat gawk-dump.awk

				{ process($0) }

	function out_debug(s)
	{
	     print s
	}

	function process(s,   n,parts)
	{
	    out_debug("Buffer = [" protect(Buffer) "]")
	    Buffer = Buffer s
	    n = split(Buffer,parts,"\n")
	}

	function protect(s)
	{
	    gsub("\n", "\\n", s)
	    return (s)
	}