version 1.1, 2005/04/04 06:10:58 |
version 1.9, 2005/05/04 10:32:36 |
|
|
/* $OpenXM$ */ |
/* $OpenXM: OpenXM/src/util/oxgentexi.c,v 1.8 2005/04/14 02:21:49 takayama Exp $ */ |
|
|
#include <stdio.h> |
#include <stdio.h> |
int Debug = 0; |
int Debug = 0; |
#define VMAX 20 |
#define VMAX 20 |
#define LIMIT 1024 |
#define LIMIT 65536 |
#define ITEMMAX 1024 |
#define ITEMMAX 1024 |
struct item { |
struct item { |
char *category; /* base */ |
char *category; /* base */ |
|
|
char *shortDescription; |
char *shortDescription; |
char *description; |
char *description; |
char *algorithm; |
char *algorithm; |
|
char *changelog; |
char *examplev[VMAX]; |
char *examplev[VMAX]; |
char *exampleDescv[VMAX]; |
char *exampleDescv[VMAX]; |
int examplec; |
int examplec; |
int refc; |
int refc; |
char *refv[VMAX]; |
char *refv[VMAX]; |
char *author; |
char *author; |
|
char *sortKey; |
|
int type; |
}; |
}; |
struct item *getItem(void); |
struct item *getItem(void); |
char *str(char *key); |
char *str(char *key); |
Line 36 char *Category=NULL; |
|
Line 39 char *Category=NULL; |
|
char *Lang="en"; |
char *Lang="en"; |
int Include = 0; |
int Include = 0; |
int GenExample = 0; |
int GenExample = 0; |
|
int DebugItem = 0; |
|
char *Title = NULL; |
|
char *Author = NULL; |
|
char *InfoName = NULL; |
|
int NoSorting = 0; |
|
|
main(int argc,char *argv[]) { |
main(int argc,char *argv[]) { |
char *t; |
char *t; |
Line 61 main(int argc,char *argv[]) { |
|
Line 69 main(int argc,char *argv[]) { |
|
GenExample = 1; |
GenExample = 1; |
}else if (strcmp(argv[i],"--debug") == 0) { |
}else if (strcmp(argv[i],"--debug") == 0) { |
Debug = 1; |
Debug = 1; |
|
}else if (strcmp(argv[i],"--debugItem") == 0) { |
|
DebugItem = 1; |
|
}else if (strcmp(argv[i],"--title") == 0) { |
|
i++; Title = str(argv[i]); |
|
}else if (strcmp(argv[i],"--infoName") == 0) { |
|
i++; InfoName = str(argv[i]); |
|
}else if (strcmp(argv[i],"--author") == 0) { |
|
i++; Author = str(argv[i]); |
|
}else if (strcmp(argv[i],"--noSorting") == 0) { |
|
NoSorting = 1; |
}else { |
}else { |
fprintf(stderr,"Unknown option\n"); exit(1); |
fprintf(stderr,"Unknown option\n"); exit(1); |
} |
} |
Line 97 main(int argc,char *argv[]) { |
|
Line 115 main(int argc,char *argv[]) { |
|
items[n++] = tt; |
items[n++] = tt; |
} |
} |
} |
} |
if (Debug) fprintf(stderr,"Sorting...\n"); |
|
shell(items,n); |
|
if (Debug) fprintf(stderr,"Done.\n"); |
|
|
|
|
if (!NoSorting) { |
|
if (Debug) fprintf(stderr,"Sorting...\n"); |
|
shell(items,n); |
|
if (Debug) fprintf(stderr,"Done.\n"); |
|
} |
|
|
|
if (DebugItem) { |
|
for (i=0; i<n; i++) { |
|
printItem(items[i]); |
|
} |
|
exit(0); |
|
} |
|
|
|
if (Title) printTitlePage(Title,Author,InfoName); |
|
|
printMenu(stdout,items,n); |
printMenu(stdout,items,n); |
|
|
for (i=0; i<n; i++) { |
for (i=0; i<n; i++) { |
printTexi(stdout,items[i]); |
printTexi(stdout,items[i]); |
} |
} |
|
|
|
if (Title) printBye(); |
exit(0); |
exit(0); |
} |
} |
|
|
Line 129 genInclude(char *name) { |
|
Line 161 genInclude(char *name) { |
|
} |
} |
|
|
cmpItem(struct item *it,struct item *it2) { |
cmpItem(struct item *it,struct item *it2) { |
return strcmp(it->name,it2->name); |
return strcmp(it->sortKey,it2->sortKey); |
} |
} |
struct item * newItem(){ |
struct item * newItem(){ |
struct item *a; |
struct item *a; |
Line 139 struct item * newItem(){ |
|
Line 171 struct item * newItem(){ |
|
exit(20); |
exit(20); |
} |
} |
a->argc = 0; a->optc = 0; a->refc=0; a->examplec = 0; |
a->argc = 0; a->optc = 0; a->refc=0; a->examplec = 0; |
|
a->type=0; |
a->category = a->category2 = a->name = a->shortDescription |
a->category = a->category2 = a->name = a->shortDescription |
= a->description = a->author = a->algorithm = NULL; |
= a->description = a->author = a->algorithm = a->sortKey = NULL; |
return a; |
return a; |
} |
} |
|
|
Line 204 printItem(struct item *it) { |
|
Line 237 printItem(struct item *it) { |
|
printf("examplev[%d]=%s\n",i,it->examplev[i]); |
printf("examplev[%d]=%s\n",i,it->examplev[i]); |
for (i=0; i <it->examplec; i++) |
for (i=0; i <it->examplec; i++) |
printf("exampleDescv[%d]=%s\n",i,it->exampleDescv[i]); |
printf("exampleDescv[%d]=%s\n",i,it->exampleDescv[i]); |
|
if (it->changelog != NULL) |
|
printf("changelog=%s\n",it->changelog); |
for (i=0; i<it->refc; i++) |
for (i=0; i<it->refc; i++) |
printf(" refv[%d]=%s\n",i,it->refv[i]); |
printf(" refv[%d]=%s\n",i,it->refv[i]); |
if (it->author != NULL) |
if (it->author != NULL) |
printf("author=%s\n",it->author); |
printf("author=%s\n",it->author); |
|
if (it->sortKey != NULL) |
|
printf("sortKey=%s\n",it->sortKey); |
printf("\n"); |
printf("\n"); |
} |
} |
|
|
Line 269 struct item *getItem() { |
|
Line 306 struct item *getItem() { |
|
int pp,pOld; |
int pp,pOld; |
int argc; |
int argc; |
int examplec = 0; |
int examplec = 0; |
|
int i; |
it = newItem(); |
it = newItem(); |
do { |
do { |
p = nextToken(key,LIMIT); |
p = nextToken(key,LIMIT); |
Line 280 struct item *getItem() { |
|
Line 318 struct item *getItem() { |
|
return NULL; |
return NULL; |
} |
} |
p = nextToken(key,LIMIT); |
p = nextToken(key,LIMIT); |
it->name = str(key); |
it->name = it->sortKey = str(key); |
it->category = getCategory(key); |
it->category = getCategory(key); |
it->category2 = getCategory2(key); |
it->category2 = getCategory2(key); |
nextToken(key,LIMIT); |
nextToken(key,LIMIT); |
if (strcmp(key,"(") != 0) { |
if (strcmp(key,"(") != 0) { |
fprintf(stderr," ( is expected at %s\n",it->name); |
pp = p+1; |
exit(10); |
it->type = 1; /* For non-functions */ |
} |
goto LL ; |
argc = 0; |
}else{ |
while ((pp=nextToken(key,LIMIT)) >= 0) { |
it->type = 0; /* For functions */ |
if (strcmp(key,"|") == 0) { |
argc = 0; |
/* options */ |
while ((pp=nextToken(key,LIMIT)) >= 0) { |
argc = 0; |
if (strcmp(key,"|") == 0) { |
while ((pp=nextToken(key,LIMIT)) >= 0) { |
/* options */ |
if (strcmp(key,")") == 0) { |
argc = 0; |
break; |
while ((pp=nextToken(key,LIMIT)) >= 0) { |
|
if (strcmp(key,")") == 0) { |
|
break; |
|
} |
|
if (strcmp(key,",") != 0) { |
|
it->optv[argc] = str(key); |
|
argc++; it->optc = argc; |
|
} |
|
if (argc >+ VMAX -1) { |
|
fprintf(stderr,"Too many opt args at %s\n",it->name); |
|
exit(10); |
|
} |
} |
} |
if (strcmp(key,",") != 0) { |
|
it->optv[argc] = str(key); |
|
argc++; it->optc = argc; |
|
} |
|
if (argc >+ VMAX -1) { |
|
fprintf(stderr,"Too many opt args at %s\n",it->name); |
|
exit(10); |
|
} |
|
} |
} |
|
if (strcmp(key,")") == 0) { |
|
break; |
|
}else if (strcmp(key,",") != 0) { |
|
it->argv[argc] = str(key); |
|
argc++; it->argc=argc; |
|
} |
|
if (argc >= VMAX-1) { |
|
fprintf(stderr,"Too many args at %s\n",it->name); |
|
exit(10); |
|
} |
} |
} |
if (strcmp(key,")") == 0) { |
|
break; |
|
}else if (strcmp(key,",") != 0) { |
|
it->argv[argc] = str(key); |
|
argc++; it->argc=argc; |
|
} |
|
if (argc >= VMAX-1) { |
|
fprintf(stderr,"Too many args at %s\n",it->name); |
|
exit(10); |
|
} |
|
} |
} |
|
|
/* Getting the short Description */ |
/* Getting the short Description */ |
Line 329 struct item *getItem() { |
|
Line 370 struct item *getItem() { |
|
}while (p >= 0); |
}while (p >= 0); |
it->shortDescription = str2(&(S[pp]),pOld-pp); |
it->shortDescription = str2(&(S[pp]),pOld-pp); |
|
|
|
LL: ; |
|
if (it->type == 1 ) {strcpy(key,"description:"); p++; } |
do { |
do { |
/* Get Description or Examples */ |
/* Get Description or Examples */ |
if (strcmp(key,"end:") == 0) break; |
if (strcmp(key,"end:") == 0) break; |
if (strcmp(key,"description:") == 0 || |
if (strcmp(key,"description:") == 0 || |
strcmp(key,"algorithm:") == 0 || |
strcmp(key,"algorithm:") == 0 || |
strcmp(key,"author:") == 0 || |
strcmp(key,"author:") == 0 || |
|
strcmp(key,"changelog:") == 0 || |
|
strcmp(key,"sortKey:") == 0 || |
strcmp(key,"example:") == 0 || |
strcmp(key,"example:") == 0 || |
strcmp(key,"example_description:") ==0 ) { |
strcmp(key,"example_description:") ==0 ) { |
pp = p; |
pp = p; |
strcpy(key2,key); |
strcpy(key2,key); |
do { |
do { |
pOld = p; |
pOld = p; |
p = nextToken(key,LIMIT); |
p = nextToken(key,LIMIT); |
/* printf("%s\n",key); */ |
/* printf("key=%s\n",key); */ |
if (key[strlen(key)-1] == ':') break; /* Next keyword. */ |
if (key[strlen(key)-1] == ':') { |
|
pOld = p-strlen(key); |
|
break; /* Next keyword. */ |
|
} |
}while (p >= 0); |
}while (p >= 0); |
if (strcmp(key2,"description:") == 0) { |
if (strcmp(key2,"description:") == 0) { |
it->description = str2(&(S[pp]),pOld-pp); |
it->description = str2(&(S[pp]),pOld-pp); |
Line 364 struct item *getItem() { |
|
Line 411 struct item *getItem() { |
|
if (strcmp(key2,"author:") == 0) { |
if (strcmp(key2,"author:") == 0) { |
it->author = str2(&(S[pp]),pOld-pp); |
it->author = str2(&(S[pp]),pOld-pp); |
} |
} |
|
if (strcmp(key2,"sortKey:") == 0) { |
|
while (S[pp] <= ' ') pp++; |
|
it->sortKey = str2(&(S[pp]),pOld-pp); |
|
} |
if (strcmp(key2,"algorithm:") == 0) { |
if (strcmp(key2,"algorithm:") == 0) { |
it->algorithm = str2(&(S[pp]),pOld-pp); |
it->algorithm = str2(&(S[pp]),pOld-pp); |
} |
} |
|
if (strcmp(key2,"changelog:") == 0) { |
|
it->changelog = str2(&(S[pp]),pOld-pp); |
|
} |
}else if (strcmp(key,"ref:") == 0) { |
}else if (strcmp(key,"ref:") == 0) { |
argc = 0; |
argc = 0; |
while ((pp=nextToken(key,LIMIT)) >= 0) { |
while ((pp=nextToken(key,LIMIT)) >= 0) { |
Line 382 struct item *getItem() { |
|
Line 436 struct item *getItem() { |
|
} |
} |
} |
} |
}else{ |
}else{ |
fprintf(stderr,"Warning: unknown keyword << %s >> at %s. Ignored.\n",key, it->name); |
fprintf(stderr,"Error: unknown keyword << %s >> at %s.\n",key, it->name); |
|
fprintf(stderr," The error occurs around "); |
|
for (i=pp ; i < p; i++) fputc(S[i],stderr); |
|
fprintf(stderr,"\n\n"); |
|
exit(1); |
p = nextToken(key,LIMIT); |
p = nextToken(key,LIMIT); |
} |
} |
}while (p >= 0); |
}while (p >= 0); |
Line 406 shell(struct item *v[],int n) { |
|
Line 464 shell(struct item *v[],int n) { |
|
} |
} |
|
|
printMenu(FILE *fp, struct item **it, int n) { |
printMenu(FILE *fp, struct item **it, int n) { |
int i; |
int i,m; |
|
|
fprintf(fp,"@menu\n"); |
m = 0; |
for ( i = 0; i < n; i++ ) |
for ( i = 0; i < n; i++ ) |
fprintf(fp,"* %s::\n",it[i]->name); |
if (it[i]->type != 1) m++; |
fprintf(fp,"@end menu\n"); |
if (m != 0) { |
|
fprintf(fp,"@menu\n"); |
|
for ( i = 0; i < n; i++ ) |
|
if (it[i]->type != 1) fprintf(fp,"* %s::\n",it[i]->name); |
|
fprintf(fp,"@end menu\n"); |
|
} |
} |
} |
|
|
printTexi(FILE *fp, struct item *it) { |
printTexi(FILE *fp, struct item *it) { |
int i; |
int i; |
fprintf(fp,"@c DO NOT EDIT THIS FILE. Generated by gentexi.\n"); |
if (it->type == 1) return printTexi1(fp,it); |
|
else return printTexi0(fp,it); |
|
} |
|
|
|
printTexi_common(FILE *fp,struct item *it) { |
|
int i; |
|
if (it->description != NULL) { |
|
fprintf(fp,"%s\n\n",it->description); |
|
} |
|
|
|
if (it->algorithm != NULL) { |
|
fprintf(fp,"\n\n@noindent\nAlgorithm: \n@quotation\n"); |
|
fprintf(fp,"%s\n@end quotation\n",it->algorithm); |
|
} |
|
|
|
if (it->examplec > 0) { |
|
for (i=0; i<it->examplec; i++) { |
|
if (it->examplec == 1) { |
|
fprintf(fp,"Example:\n"); |
|
}else{ |
|
fprintf(fp,"Example %d:\n",i); |
|
} |
|
fprintf(fp,"@example\n"); |
|
outputExample(fp,it->examplev[i]); |
|
if (GenExample) { |
|
outputOfExample(it->examplev[i]); |
|
} |
|
fprintf(fp,"@end example\n"); |
|
if (it->exampleDescv[i] != NULL && strlen(it->exampleDescv[i]) > 0) { |
|
fprintf(fp,"%s\n\n",it->exampleDescv[i]); |
|
} |
|
} |
|
} |
|
if (it->author != NULL) { |
|
fprintf(fp,"Author : %s\n\n",it->author); |
|
} |
|
if (it->changelog != NULL) { |
|
fprintf(fp,"\n\nChange Log:\n@quotation\n"); |
|
fprintf(fp,"%s\n@end quotation\n",it->changelog); |
|
} |
|
if (it->refc > 0) { |
|
fprintf(fp,"\n\nReferences:\n@quotation\n"); |
|
for (i=0; i <it->refc; i++) { |
|
fprintf(fp," @code{%s} ",it->refv[i]); |
|
if (i != it->refc-1) fprintf(fp,", \n"); |
|
} |
|
fprintf(fp,"\n@end quotation\n"); |
|
} |
|
fprintf(fp,"\n"); |
|
} |
|
|
|
printTexi0(FILE *fp, struct item *it) { |
|
int i; |
|
|
|
fprintf(fp,"@c DO NOT EDIT THIS FILE. Generated by gentexi for asir function item.\n"); |
if (it == NULL) { |
if (it == NULL) { |
fprintf(fp,"@c item is NULL.\n"); |
fprintf(fp,"@c item is NULL.\n"); |
return ; |
return ; |
} |
} |
|
fprintf(fp,"@c sortKey: %s\n",it->sortKey); |
if (it->name == NULL) { |
if (it->name == NULL) { |
fprintf(fp,"@c item name is missing.\n"); |
fprintf(fp,"@c item name is missing.\n"); |
return ; |
return ; |
Line 481 printTexi(FILE *fp, struct item *it) { |
|
Line 599 printTexi(FILE *fp, struct item *it) { |
|
fprintf(fp,"@c @itemize @bullet \n"); |
fprintf(fp,"@c @itemize @bullet \n"); |
fprintf(fp,"@c @item \n"); |
fprintf(fp,"@c @item \n"); |
fprintf(fp,"@c @end itemize\n"); |
fprintf(fp,"@c @end itemize\n"); |
|
|
if (it->description != NULL) { |
|
fprintf(fp,"%s\n\n",it->description); |
|
} |
|
|
|
if (it->algorithm != NULL) { |
printTexi_common(fp,it); |
fprintf(fp,"\n\n@noindent\nAlgorithm: \n"); |
} |
fprintf(fp,"%s\n\n",it->algorithm); |
|
|
printTexi1(FILE *fp, struct item *it) { |
|
int i; |
|
/* For it->type == 1 */ |
|
|
|
fprintf(fp,"@c DO NOT EDIT THIS FILE. Generated by gentexi for verbose item.\n"); |
|
if (it == NULL) { |
|
fprintf(fp,"@c item is NULL.\n"); |
|
return ; |
} |
} |
|
fprintf(fp,"@c sortKey: %s\n",it->sortKey); |
|
|
if (it->examplec > 0) { |
if (it->shortDescription != NULL) { |
for (i=0; i<it->examplec; i++) { |
for (i=0; i<strlen(it->shortDescription); i++) { |
if (it->examplec == 1) { |
fprintf(fp,"%c",it->shortDescription[i]); |
fprintf(fp,"Example:\n"); |
|
}else{ |
|
fprintf(fp,"Example %d:\n",i); |
|
} |
|
fprintf(fp,"@example\n"); |
|
fprintf(fp,"%s\n",it->examplev[i]); |
|
if (GenExample) { |
|
outputOfExample(it->examplev[i]); |
|
} |
|
fprintf(fp,"@end example\n"); |
|
if (it->exampleDescv[i] != NULL && strlen(it->exampleDescv[i]) > 0) { |
|
fprintf(fp,"%s\n\n",it->exampleDescv[i]); |
|
} |
|
} |
} |
|
fprintf(fp," \n"); |
} |
} |
if (it->author != NULL) { |
|
fprintf(fp,"Author : %s\n\n",it->author); |
/* include file */ |
|
if (Include) { |
|
if (genInclude(it->name)) |
|
fprintf(fp,"@c @include tmp/%s-auto-en.texi\n",it->name); |
} |
} |
if (it->refc > 0) { |
|
fprintf(fp,"@table @t\n"); |
printTexi_common(fp,it); |
fprintf(fp,"@item References\n"); |
} |
for (i=0; i <it->refc; i++) { |
|
fprintf(fp,"@code{%s} ",it->refv[i]); |
outputExample(FILE *fp,char *s) { |
if (i != it->refc-1) fprintf(fp,", "); |
int i; |
|
for (i=0; s[i] != 0; i++) { |
|
if (s[i] == '@') { |
|
if (s[i+1] == '{') {fprintf(fp,"%s","@{"); i += 1;} |
|
else if (s[i+1] == '}') {fprintf(fp,"%s","@}"); i += 1;} |
|
else if (s[i+1] == '@') {fprintf(fp,"%s","@@"); i += 1;} |
|
else if (strncmp(&(s[i+1]),"colon",5)==0) { |
|
fprintf(fp,":"); i += 5; |
|
}else fprintf(fp,"@@"); |
|
}else{ |
|
if (s[i] == '{') {fprintf(fp,"%s","@{"); } |
|
else if (s[i] == '}') {fprintf(fp,"%s","@}");} |
|
else fputc(s[i],fp); |
} |
} |
fprintf(fp,"\n@end table\n"); |
|
} |
} |
fprintf(fp,"\n"); |
|
} |
} |
|
|
outputOfExample(char *com) { |
outputOfExample(char *com) { |
Line 551 outputOfExample(char *com) { |
|
Line 675 outputOfExample(char *com) { |
|
putchar('\n'); |
putchar('\n'); |
} |
} |
|
|
|
printTitlePage(char *title, char *author,char *infoName) { |
|
printf("\\input texinfo\n"); |
|
printf("@def@colon{:}\n\n"); |
|
printf("@iftex\n"); |
|
printf("@catcode`@#=6\n"); |
|
printf("@def@b#1{{@bf@gt #1}}\n"); |
|
printf("@catcode`@#=@other\n"); |
|
printf("@end iftex\n"); |
|
printf("@overfullrule=0pt\n"); |
|
|
|
if (infoName != NULL) printf("@setfilename %s\n",infoName); |
|
else printf("@setfilename asir-contrib-infoName-is-not-set\n"); |
|
printf("@settitle %s\n",Title); |
|
|
|
printf("@titlepage\n"); |
|
printf("@title %s\n",Title); |
|
printf("@subtitle Edition : auto generated by oxgentexi on @today{}\n"); |
|
if (author != NULL) printf("@author %s\n",author); |
|
printf("@end titlepage\n\n"); |
|
printf("@synindex vr fn\n"); |
|
printf("@node Top,, (dir), (dir)\n\n"); |
|
} |
|
|
|
printBye() { |
|
printf("@node Index,,, Top\n"); |
|
printf("@unnumbered Index\n"); |
|
printf("@printindex fn\n"); |
|
printf("@printindex cp\n"); |
|
printf("@iftex\n"); |
|
printf("@vfill @eject\n"); |
|
printf("@end iftex\n"); |
|
printf("@summarycontents\n"); |
|
printf("@contents\n"); |
|
printf("\n@bye\n"); |
|
} |
/* Old file was OpenXM/src/asir-contrib/packages/doc/gentexi.c */ |
/* Old file was OpenXM/src/asir-contrib/packages/doc/gentexi.c */ |