[go: up one dir, main page]
Menu ▾ ▴

[ffec3f]: / doc / faq-txt.awk  Maximize  Restore  History

Download this file

54 lines (42 with data), 987 Bytes 

 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
# $Id: faq-txt.awk,v 1.3 2002/09/26 12:37:37 ajhood Exp $



function wrap(line, prefix)

{



	wrapMargin = 75;



	if (length(line) < wrapMargin) {

		print prefix line;

	} else {



		count = split(line, words);



		indent = match(line, /[^ ]/)



		indentStr = substr( \

			"                                                              ", \

			1, indent - 1);



		result = "";

		for (w = 1; w <= count; w++) {

			if (length(result) + length(words[w]) > wrapMargin - indent) {

				# print a new line

				print prefix indentStr result;

				result = words[w];

			} else {

				if (w == 1)

					result = words[w]

				else

					result = result " " words[w];

			}

		}

		print prefix indentStr result;

	}

}









BEGIN { prefixed = 0; pre = 0 }

/^PREFIXED$/  {prefixed = 1; next }

/^NOT_PREFIXED$/  {prefixed = 0; next }

/^PRE$/  {pre = 1; next }

/^NOT_PRE$/  {pre = 0; next }

{

	if (pre) {

		if (prefixed) print "> " $0;

		else print $0;

	} else {

		if (prefixed) wrap($0, "> ");

		else wrap($0, "")

	}

}