summaryrefslogtreecommitdiff
path: root/Build/source/texk/mendexk/main.c
diff options
context:
space:
mode:
authorDenis Bitouzé <dbitouze@wanadoo.fr>2021-02-25 18:23:07 +0000
committerDenis Bitouzé <dbitouze@wanadoo.fr>2021-02-25 18:23:07 +0000
commitc6101f91d071883b48b1b4b51e5eba0f36d9a78d (patch)
tree1bf7f5a881d7a4f5c5bf59d0b2821943dd822372 /Build/source/texk/mendexk/main.c
parent07ee7222e389b0777456b427a55c22d0e6ffd267 (diff)
French translation for tlmgr updated
git-svn-id: svn://tug.org/texlive/trunk@57912 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Build/source/texk/mendexk/main.c')
-rw-r--r--Build/source/texk/mendexk/main.c391
1 files changed, 0 insertions, 391 deletions
diff --git a/Build/source/texk/mendexk/main.c b/Build/source/texk/mendexk/main.c
deleted file mode 100644
index 697c4954c72..00000000000
--- a/Build/source/texk/mendexk/main.c
+++ /dev/null
@@ -1,391 +0,0 @@
-#include "mendex.h"
-#include "version.h"
-#include <kpathsea/tex-file.h>
-#include <kpathsea/variable.h>
-#include <ptexenc/ptexenc.h>
-
-#include "kana.h"
-#include "var.h"
-
-#include "kp.h"
-
-char *styfile,*idxfile[256],*indfile,*dicfile,*logfile;
-
-/* default paths */
-#ifndef DEFAULT_INDEXSTYLES
-#define DEFAULT_INDEXSTYLES "."
-#endif
-#ifndef DEFAULT_INDEXDICTS
-#define DEFAULT_INDEXDICTS "."
-#endif
-KpathseaSupportInfo kp_ist,kp_dict;
-
-int main(int argc, char **argv)
-{
- int i,j,cc=0,startpagenum=-1,ecount=0,chkopt=1;
- const char *envbuff;
- char *p;
-
- enable_UPTEX (true); /* enable */
-
-#ifdef WIN32
- _setmaxstdio(2048);
-#endif
- set_enc_string(NULL, "uptex");
- kpse_set_program_name(argv[0], "mendex");
-
- p = getenv ("PTEX_KANJI_ENC");
- if (p) {
- if (!set_enc_string (p, NULL))
- fprintf (stderr, "Ignoring bad kanji encoding \"%s\".\n", p);
- }
-
-#ifdef WIN32
- p = kpse_var_value ("guess_input_kanji_encoding");
- if (p) {
- if (*p == '1' || *p == 'y' || *p == 't')
- infile_enc_auto = 1;
- free(p);
- }
-#endif
-
- kp_ist.var_name = "INDEXSTYLE";
- kp_ist.path = DEFAULT_INDEXSTYLES; /* default path. */
- kp_ist.suffix = "ist";
- KP_entry_filetype(&kp_ist);
- kp_dict.var_name = "INDEXDICTIONARY";
- kp_dict.path = DEFAULT_INDEXDICTS; /* default path */
- kp_dict.suffix = "dict";
- KP_entry_filetype(&kp_dict);
-
-/* check options */
-
- for (i=1,j=0;i<argc && j<256;i++) {
- if ((argv[i][0]=='-')&&(strlen(argv[i])>=2)&&chkopt) {
- switch (argv[i][1]) {
- case 'c':
- bcomp=1;
- break;
-
- case 'd':
- if ((argv[i][2]=='\0')&&(i+1<argc)) {
- dicfile=xstrdup(argv[++i]);
- }
- else {
- dicfile=xstrdup(&argv[i][2]);
- }
- break;
-
- case 'f':
- force=1;
- break;
-
- case 'g':
- gflg=1;
- break;
-
- case 'i':
- fsti=1;
- break;
-
- case 'l':
- lorder=1;
- break;
-
- case 'o':
- if ((argv[i][2]=='\0')&&(i+1<argc)) {
- indfile=xstrdup(argv[++i]);
- }
- else {
- indfile=xstrdup(&argv[i][2]);
- }
- break;
-
- case 'p':
- if ((argv[i][2]=='\0')&&(i+1<argc)) {
- i++;
- if (strcmp(argv[i],"any")==0) fpage=2;
- else if (strcmp(argv[i],"odd")==0) fpage=3;
- else if (strcmp(argv[i],"even")==0) fpage=4;
- else {
- fpage=1;
- startpagenum=atoi(argv[i]);
- }
- }
- else {
- if (strcmp(&argv[i][2],"any")==0) fpage=2;
- else if (strcmp(&argv[i][2],"odd")==0) fpage=3;
- else if (strcmp(&argv[i][2],"even")==0) fpage=4;
- else {
- fpage=1;
- startpagenum=atoi(&argv[i][2]);
- }
- }
- break;
-
- case 'q':
- verb=0;
- break;
-
- case 't':
- if ((argv[i][2]=='\0')&&(i+1<argc)) {
- logfile=xstrdup(argv[++i]);
- }
- else {
- logfile=xstrdup(&argv[i][2]);
- }
- break;
-
- case 'r':
- prange=0;
- break;
-
- case 's':
- if ((argv[i][2]=='\0')&&(i+1<argc)) {
- styfile=xstrdup(argv[++i]);
- }
- else {
- styfile=xstrdup(&argv[i][2]);
- }
- break;
-
- case 'v':
- debug=1;
- break;
-
- case 'E':
- set_enc_string("EUC", NULL);
- break;
-
- case 'J':
- set_enc_string("JIS", NULL);
- break;
-
- case 'S':
- set_enc_string("SJIS", NULL);
- break;
-
- case 'U':
- set_enc_string("UTF8", NULL);
- break;
-
-
- case 'I':
- if ((argv[i][2]=='\0')&&(i+1<argc)) {
- i++;
- if (strcmp(argv[i],"euc")==0) set_enc_string(NULL, "euc");
- else if (strcmp(argv[i],"utf8")==0) set_enc_string(NULL, "uptex");
- }
- else {
- if (strcmp(&argv[i][2],"euc")==0) set_enc_string(NULL, "euc");
- else if (strcmp(&argv[i][2],"utf8")==0) set_enc_string(NULL, "uptex");
- }
- break;
-
- case '-':
- if (strlen(argv[i])==2) chkopt=0;
- if (strcmp(argv[i],"--help")!=0) break;
-
- default:
- fprintf(stderr,"mendex - Japanese index processor, %s (%s) (%s).\n",VERSION, get_enc_string(), TL_VERSION);
- fprintf(stderr," Copyright 2009 ASCII MEDIA WORKS, 2017-2021 Japanese TeX Development Community\n");
- fprintf(stderr,"usage:\n");
- fprintf(stderr,"%% mendex [-ilqrcgfEJSU] [-s sty] [-d dic] [-o ind] [-t log] [-p no] [-I enc] [--] [idx0 idx1 ...]\n");
- fprintf(stderr,"options:\n");
- fprintf(stderr,"-i use stdin as the input file.\n");
- fprintf(stderr,"-l use letter ordering.\n");
- fprintf(stderr,"-q quiet mode.\n");
- fprintf(stderr,"-r disable implicit page formation.\n");
- fprintf(stderr,"-c compress blanks. (ignore leading and trailing blanks.)\n");
- fprintf(stderr,"-g make Japanese index head <%s>.\n",
- is_internalUPTEX() ? AKASATANAutf8 : AKASATANA);
- fprintf(stderr,"-f force to output kanji.\n");
- fprintf(stderr,"-s sty take sty as style file.\n");
- fprintf(stderr,"-d dic take dic as dictionary file.\n");
- fprintf(stderr,"-o ind take ind as the output index file.\n");
- fprintf(stderr,"-t log take log as the error log file.\n");
- fprintf(stderr,"-p no set the starting page number of index.\n");
- fprintf(stderr,"-E EUC mode.\n");
- fprintf(stderr,"-J JIS mode.\n");
- fprintf(stderr,"-S ShiftJIS mode.\n");
- fprintf(stderr,"-U UTF-8 mode.\n");
- fprintf(stderr,"-I enc internal encoding for keywords (enc: euc or utf8).\n");
- fprintf(stderr,"idx... input files.\n");
- fprintf(stderr,"\nEmail bug reports to %s.\n", BUG_ADDRESS);
- exit(0);
- break;
- }
- }
- else {
- cc=strlen(argv[i])+6;
- idxfile[j]=xmalloc(cc);
- strcpy(idxfile[j++],argv[i]);
- }
- }
- idxcount=j+fsti;
-
-/* check option errors */
-
- if (idxcount==0) idxcount=fsti=1;
-
- if (styfile==NULL) {
- envbuff=kpse_var_value("INDEXDEFAULTSTYLE");
- if (envbuff!=NULL) {
- styfile=xstrdup(envbuff);
- }
- }
-
- if (!indfile &&(idxcount-fsti>0)) {
- indfile=xmalloc(strlen(idxfile[0])+6);
- for (i=strlen(idxfile[0]);i>=0;i--) {
- if (idxfile[0][i]=='.') {
- strncpy(indfile,idxfile[0],i);
- sprintf(&indfile[i],".ind");
- break;
- }
- }
- if (i==-1) sprintf(indfile,"%s.ind",idxfile[0]);
- }
-
- if (!logfile && (idxcount-fsti > 0)) {
- logfile=xmalloc(strlen(idxfile[0])+6);
- for (i=strlen(idxfile[0]);i>=0;i--) {
- if (idxfile[0][i]=='.') {
- strncpy(logfile,idxfile[0],i);
- sprintf(&logfile[i],".ilg");
- break;
- }
- }
- if (i==-1) sprintf(logfile,"%s.ilg",idxfile[0]);
- }
- if (logfile && kpse_out_name_ok(logfile))
- efp=fopen(logfile,"wb");
- if(efp == NULL) {
- efp=stderr;
- logfile=xstrdup("stderr");
- }
-
- if (styfile!=NULL) styread(styfile);
-
- if (strcmp(argv[0],"makeindex")==0) {
- verb_printf(efp,"This is Not `MAKEINDEX\', But `MENDEX\' %s (%s) (%s).\n",
- VERSION, get_enc_string(), TL_VERSION);
- }
- else {
- verb_printf(efp,"This is mendex %s (%s) (%s).\n",
- VERSION, get_enc_string(), TL_VERSION);
- }
-
-/* init kanatable */
-
- initkanatable();
-
-/* read dictionary */
-
- ecount+=dicread(dicfile);
-
- switch (letter_head) {
- case 0:
- case 1:
- if (gflg==1) {
- strncpy(atama,akasatana,2048);
- }
- else {
- strncpy(atama,aiueo,2048);
- }
- break;
-
- case 2:
- if (gflg==1) {
- strcpy(atama,AKASATANA);
- }
- else {
- strcpy(atama,AIUEO);
- }
- break;
-
- default:
- break;
- }
-
-/* read idx file */
-
- lines=0;
- ecount=0;
- ind=xmalloc(sizeof(struct index));
-
- for (i=0;i<idxcount-fsti;i++) {
- ecount+=idxread(idxfile[i],lines);
- }
- if (fsti==1) {
- ecount+=idxread(NULL,lines);
- }
- verb_printf(efp,"%d entries accepted, %d rejected.\n",acc,reject);
-
- if (ecount!=0) {
- verb_printf(efp,"%d errors, written in %s.\n",ecount,logfile);
- lines=0;
- }
- if (lines==0) {
- verb_printf(efp,"Nothing written in output file.\n");
- if (efp!=stderr) fclose(efp);
- exit(255);
- }
-
-/* sort index */
-
- verb_printf(efp,"Sorting index.");
-
- scount=0;
- wsort(ind,lines);
-
- verb_printf(efp,"...done(%d comparisons).\n",scount);
-
-/* sort pages */
-
- verb_printf(efp,"Sorting pages.");
-
- scount=0;
- pagesort(ind,lines);
-
- verb_printf(efp,"...done(%d comparisons).\n",scount);
-
-/* get last page */
-
- if ((fpage>1)&&(idxcount-fsti>0)) cc=lastpage(idxfile[0]);
-
- switch (fpage) {
- case 2:
- startpagenum=cc+1;
- break;
-
- case 3:
- if ((cc+1)%2==0) startpagenum=cc+2;
- else startpagenum=cc+1;
- break;
-
- case 4:
- if ((cc+1)%2==1) startpagenum=cc+2;
- else startpagenum=cc+1;
- break;
-
- default:
- break;
- }
-
-/* write indfile */
-
- verb_printf(efp,"Making index file.");
-
- indwrite(indfile,ind,startpagenum);
-
- verb_printf(efp,"...done.\n");
-
- if (idxcount-fsti==0) indfile=xstrdup("stdout");
-
- verb_printf(efp,"%d warnings, written in %s.\n",warn,logfile);
- verb_printf(efp,"Output written in %s.\n",indfile);
- if (efp!=stderr) fclose(efp);
-
- return 0;
-}