<!DOCTYPE html PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN"

<?xml version="1.0" encoding="utf-8"?>
<!DOCTYPE html PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN"
"http://www.w3.org/TR/html4/loose.dtd">
<html>
<head>
<meta http-equiv=Content-Type content="text/html; charset=utf8">
<title>/usr/web/sources/contrib/mjl/nfmt.c - Plan 9 from Bell Labs</title>


</meta>
</head>
<body>


<a href="/plan9/">Plan 9 from Bell Labs</a>’s /usr/web/sources/contrib/mjl/nfmt.c


<center>
Copyright © 2009 Alcatel-Lucent. 
Distributed under the
<a href="/plan9/license.html">Lucent Public License version 1.02</a>.
 
<a href="/plan9/download.html">Download the Plan 9 distribution.</a>

</center>

<table width="100%" cellspacing=0 border=0><tr><td align="center">
<table cellspacing=0 cellpadding=5 bgcolor="#eeeeff"><tr><td align="left">
<pre>

/*
8c -Fw nfmt.c && 8l -o /386/bin/nfmt nfmt.8

make lists more readable. lists start with "* " or "- ". indent the
lines following the first with two more spaces after the usual indent.
*/
#include <u.h>
#include <libc.h>
#include <bio.h>
#include <ctype.h>

/*
* block up paragraphs, possibly with indentation
*/

int extraindent = 0; /* how many spaces to indent all lines */
int indent = 0; /* current value of indent, before extra indent */
int length = 70; /* how many columns per output line */
int join = 1; /* can lines be joined? */
int maxtab = 8;
Biobuf bin;
Biobuf bout;

typedef struct Word Word;
struct Word{
int bol;
int indent;
int issoft; /* different indent from previous word should not break line */
char text[1];
};

void fmt(void);

void
usage(void)
{
fprint(2, "usage: %s [-j] [-i indent] [-l length] [file...]\n", argv0);
exits("usage");
}

void
main(int argc, char **argv)
{
int i, f;
char *s, *err;

ARGBEGIN{
case 'i':
extraindent = atoi(EARGF(usage()));
break;
case 'j':
join = 0;
break;
case 'w':
case 'l':
length = atoi(EARGF(usage()));
break;
default:
usage();
}ARGEND

if(length <= indent){
fprint(2, "%s: line length<=indentation\n", argv0);
exits("length");
}

s=getenv("tabstop");
if(s!=nil && atoi(s)>0)
maxtab=atoi(s);
err = nil;
Binit(&bout, 1, OWRITE);
if(argc <= 0){
Binit(&bin, 0, OREAD);
fmt();
}else{
for(i=0; i<argc; i++){
f = open(argv[i], OREAD);
if(f < 0){
fprint(2, "%s: can't open %s: %r\n", argv0, argv[i]);
err = "open";
}else{
Binit(&bin, f, OREAD);
fmt();
Bterm(&bin);
if(i != argc-1)
Bputc(&bout, '\n');
}
}
}
exits(err);
}

int
indentof(char **linep, int *ind1)
{
int i, ind;
char *line;
char *p;

ind = 0;
line = *linep;
for(i=0; line[i]; i++)
switch(line[i]){
default:
*ind1 = ind;
if(strncmp(line+i, "- ", 2) == 0 || strncmp(line+i, "* ", 2) == 0) {
ind += 2;
} else {
strtol(line+i, &p, 10);
if(p > line+i && strncmp(p, ". ", 2) == 0)
ind += p-(line+i)+3;
}
*linep = line;
return ind;
case ' ':
ind++;
break;
case '\t':
ind += maxtab;
ind -= ind%maxtab;
break;
}

/* plain white space doesn't change the indent */
*linep = "";
*ind1 = indent;
return indent;
}

Word**
addword(Word **words, int *nwordp, char *s, int l, int indent, int issoft, int bol)
{
Word *w;

w = malloc(sizeof(Word)+l+1);
memmove(w->text, s, l);
w->text[l] = '\0';
w->indent = indent;
w->issoft = issoft;
w->bol = bol;
words = realloc(words, (*nwordp+1)*sizeof(Word*));
words[(*nwordp)++] = w;
return words;
}

Word**
parseline(char *line, Word **words, int *nwordp)
{
int ind, l, bol, issoft, n;

ind = indentof(&line, &indent);
issoft = ind != indent;
bol = 1;
n = 0;
for(;;){
/* find next word */
while(*line==' ' || *line=='\t')
line++;
if(*line == '\0'){
if(bol)
return addword(words, nwordp, "", 0, -1, 0, bol);
break;
}
/* how long is this word? */
for(l=0; line[l]; l++)
if(line[l]==' ' || line[l]=='\t')
break;
words = addword(words, nwordp, line, l, indent, n != 0 && issoft, bol);
bol = 0;
line += l;
indent = ind;
n++;
}
return words;
}

void
printindent(int w)
{
while(w >= maxtab){
Bputc(&bout, '\t');
w -= maxtab;
}
while(w > 0){
Bputc(&bout, ' ');
w--;
}
}

/* give extra space if word ends with period, etc. */
int
nspaceafter(char *s)
{
int n;

n = strlen(s);
if(n < 2)
return 1;
if(isupper(s[0]) && n < 4)
return 1;
if(strchr(".!?", s[n-1]) != nil)
return 2;
return 1;
}

void
printwords(Word **w, int nw)
{
int i, j, n, col, nsp;

/* one output line per loop */
for(i=0; i<nw; ){
/* if it's a blank line, print it */
if(w[i]->indent == -1){
Bputc(&bout, '\n');
if(++i == nw) /* out of words */
break;
}
/* emit leading indent */
col = extraindent+w[i]->indent;
printindent(col);
/* emit words until overflow; always emit at least one word */
for(n=0;; n++){
Bprint(&bout, "%s", w[i]->text);
col += utflen(w[i]->text);
if(++i == nw)
break; /* out of words */
if(w[i]->indent != w[i-1]->indent && !w[i]->issoft)
break; /* indent change */
nsp = nspaceafter(w[i-1]->text);
if(col+nsp+utflen(w[i]->text) > extraindent+length)
break; /* fold line */
if(!join && w[i]->bol)
break;
for(j=0; j<nsp; j++)
Bputc(&bout, ' '); /* emit space; another word will follow */
col += nsp;
}
/* emit newline */
Bputc(&bout, '\n');
}
}

void
fmt(void)
{
char *s;
int i, nw;
Word **w;

nw = 0;
w = nil;
while((s = Brdstr(&bin, '\n', 1)) != nil){
w = parseline(s, w, &nw);
free(s);
}
printwords(w, nw);
for(i=0; i<nw; i++)
free(w[i]);
free(w);
}

</pre>
</td></tr></table>
</td></tr></table>





<center><table border="0"><tr>
<td valign="middle"><a href="http://www.alcatel-lucent.com/"><img border="0" src="/plan9/img/logo_ft.gif" alt="Bell Labs" />
</a></td>
<td valign="middle"><a href="http://www.opensource.org"><img border="0" alt="OSI certified" src="/plan9/img/osi-certified-60x50.gif" />
</a></td>
<td><img style="padding-right: 45px;" alt="Powered by Plan 9" src="/plan9/img/power36.gif" />
</td>
</tr></table></center>

<center>
(<a href="/plan9/">Return to Plan 9 Home Page</a>)
</center>

<center>
<a href="http://www.lucent.com/copyright.html">Copyright</a>
© 2009 Alcatel-Lucent.
All Rights Reserved.
 
Comments to
<a href="mailto:[email protected]">[email protected]</a>.
</center>
</body>
</html>