version 1.7, 2003/02/19 07:32:36 |
version 1.8, 2003/02/19 07:38:49 |
|
|
#define ps(x) printf("%s", x) |
#define ps(x) printf("%s", x) |
|
|
int |
int |
main(argc, argv) |
main(int argc, char *argv[]) |
int argc; |
|
char *argv[]; |
|
{ |
{ |
char *fname = ""; |
char *fname = ""; |
struct stat stbuf; |
struct stat stbuf; |
|
|
#define isidchr(c) (isalnum(c) || (c) == '_') |
#define isidchr(c) (isalnum(c) || (c) == '_') |
|
|
static void |
static void |
putScp(os) |
putScp(char *os) |
char *os; |
|
{ |
{ |
char *s = os; /* pointer to unmatched string */ |
char *s = os; /* pointer to unmatched string */ |
char dummy[BUFSIZ]; /* dummy to be used by expmatch */ |
char dummy[BUFSIZ]; /* dummy to be used by expmatch */ |
|
|
} |
} |
|
|
static void |
static void |
putKcp (start, end, force) |
putKcp(char *start, char *end, boolean force) |
char *start; /* start of string to write */ |
|
char *end; /* end of string to write */ |
|
boolean force; /* true if we should force nokeyw */ |
|
{ |
{ |
int i; |
int i; |
int xfld = 0; |
int xfld = 0; |
|
|
|
|
|
|
static int |
static int |
tabs(s, os) |
tabs(char *s, char *os) |
char *s, *os; |
|
{ |
{ |
|
|
return (width(s, os) / 8); |
return (width(s, os) / 8); |
} |
} |
|
|
static int |
static int |
width(s, os) |
width(char *s, char *os) |
char *s, *os; |
|
{ |
{ |
int i = 0; |
int i = 0; |
|
|
|
|
} |
} |
|
|
static void |
static void |
putcp(c) |
putcp(int c) |
int c; |
|
{ |
{ |
|
|
switch(c) { |
switch(c) { |
|
|
* look for a process beginning on this line |
* look for a process beginning on this line |
*/ |
*/ |
static boolean |
static boolean |
isproc(s) |
isproc(char *s) |
char *s; |
|
{ |
{ |
pname[0] = NULL; |
pname[0] = NULL; |
if (!l_toplex || blklevel == 0) |
if (!l_toplex || blklevel == 0) |
|
|
*/ |
*/ |
|
|
static int |
static int |
iskw(s) |
iskw(char *s) |
char *s; |
|
{ |
{ |
char **ss = l_keywds; |
char **ss = l_keywds; |
int i = 1; |
int i = 1; |