1N/A/***********************************************************************
1N/A* *
1N/A* This software is part of the ast package *
1N/A* Copyright (c) 1985-2011 AT&T Intellectual Property *
1N/A* and is licensed under the *
1N/A* Common Public License, Version 1.0 *
1N/A* by AT&T Intellectual Property *
1N/A* *
1N/A* A copy of the License is available at *
1N/A* http://www.opensource.org/licenses/cpl1.0.txt *
1N/A* (with md5 checksum 059e8cd6165cb4c31e351f2b69388fd9) *
1N/A* *
1N/A* Information and Software Systems Research *
1N/A* AT&T Research *
1N/A* Florham Park NJ *
1N/A* *
1N/A* Glenn Fowler <gsf@research.att.com> *
1N/A* David Korn <dgk@research.att.com> *
1N/A* Phong Vo <kpv@research.att.com> *
1N/A* *
1N/A***********************************************************************/
1N/A#pragma prototyped
1N/A
1N/A#include <ast.h>
1N/A#include <ctype.h>
1N/A
1N/A#define IDENT 01
1N/A#define USAGE 02
1N/A
1N/A/*
1N/A * format what(1) and/or ident(1) string a
1N/A */
1N/A
1N/Achar*
1N/Afmtident(const char* a)
1N/A{
1N/A register char* s = (char*)a;
1N/A register char* t;
1N/A char* buf;
1N/A int i;
1N/A
1N/A i = 0;
1N/A for (;;)
1N/A {
1N/A while (isspace(*s))
1N/A s++;
1N/A if (s[0] == '[')
1N/A {
1N/A while (*++s && *s != '\n');
1N/A i |= USAGE;
1N/A }
1N/A else if (s[0] == '@' && s[1] == '(' && s[2] == '#' && s[3] == ')')
1N/A s += 4;
1N/A else if (s[0] == '$' && s[1] == 'I' && s[2] == 'd' && s[3] == ':' && isspace(s[4]))
1N/A {
1N/A s += 5;
1N/A i |= IDENT;
1N/A }
1N/A else
1N/A break;
1N/A }
1N/A if (i)
1N/A {
1N/A i &= IDENT;
1N/A for (t = s; isprint(*t) && *t != '\n'; t++)
1N/A if (i && t[0] == ' ' && t[1] == '$')
1N/A break;
1N/A while (t > s && isspace(t[-1]))
1N/A t--;
1N/A i = t - s;
1N/A buf = fmtbuf(i + 1);
1N/A memcpy(buf, s, i);
1N/A s = buf;
1N/A s[i] = 0;
1N/A }
1N/A return s;
1N/A}