1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
|
/*
* tomods.c
*
* Copyright (c) Chris Putnam 2004-2021
*
* Program and source code released under the GPL version 2
*
*/
#include <stdio.h>
#include <stdlib.h>
#include <string.h>
#include "slist.h"
#include "bibl.h"
#include "bibutils.h"
#include "tomods.h"
#include "args.h"
#include "bibprog.h"
static void
args_tomods_help( char *progname, char *help1, char *help2 )
{
args_tellversion( progname );
fprintf(stderr,"%s", help1 );
fprintf(stderr,"usage: %s %s > xml_file\n\n", progname, help2 );
fprintf(stderr," %s can be replaced with file list or "
"omitted to use as a filter\n\n", help2 );
fprintf(stderr," -h, --help display this help\n");
fprintf(stderr," -v, --version display version\n");
fprintf(stderr," -a, --add-refcount add \"_#\", where # is reference count to reference\n");
fprintf(stderr," -s, --single-refperfile one reference per output file\n");
fprintf(stderr," -i, --input-encoding input character encoding\n");
fprintf(stderr," -o, --output-encoding output character encoding\n");
fprintf(stderr," -u, --unicode-characters DEFAULT: write unicode (not xml entities)\n");
fprintf(stderr," -un,--unicode-no-bom as -u, but don't write byte order mark\n");
fprintf(stderr," -x, --xml-entities write xml entities and not direclty unicode\n");
fprintf(stderr," -nl,--no-latex do not convert latex-style character combinations\n");
fprintf(stderr," -d, --drop-key don't put key in MODS ID field\n");
fprintf(stderr," -c, --corporation-file specify file of corporation names\n");
fprintf(stderr," -as, --asis specify file of names that shouldn't be mangled\n");
fprintf(stderr," -nt, --nosplit-title don't split titles into TITLE/SUBTITLE pairs\n");
fprintf(stderr," --verbose report all warnings\n");
fprintf(stderr," --debug very verbose output\n\n");
fprintf(stderr,"http://sourceforge.net/p/bibutils/home/Bibutils for more details\n\n");
}
static void
args_namelist( int argc, char *argv[], int i, char *progname, char *shortarg,
char *longarg )
{
if ( i+1 >= argc ) {
fprintf( stderr, "%s: error %s (%s) takes the argument of "
"the file\n", progname, shortarg, longarg );
exit( EXIT_FAILURE );
}
}
void
tomods_processargs( int *argc, char *argv[], param *p,
char *help1, char *help2 )
{
int i, j, subtract, status;
process_charsets( argc, argv, p );
i = 0;
while ( i<*argc ) {
subtract = 0;
if ( args_match( argv[i], "-h", "--help" ) ) {
args_tomods_help( p->progname, help1, help2 );
exit( EXIT_SUCCESS );
} else if ( args_match( argv[i], "-v", "--version" ) ) {
args_tellversion( p->progname );
exit( EXIT_SUCCESS );
} else if ( args_match( argv[i], "-a", "--add-refcount" ) ) {
p->addcount = 1;
subtract = 1;
} else if ( args_match(argv[i], NULL, "--verbose" ) ) {
/* --debug + --verbose = --debug */
if ( p->verbose<1 ) p->verbose = 1;
p->format_opts |= BIBL_FORMAT_VERBOSE;
subtract = 1;
} else if ( args_match(argv[i], NULL, "--debug" ) ) {
p->verbose = 3;
p->format_opts |= BIBL_FORMAT_VERBOSE;
subtract = 1;
} else if ( args_match( argv[i], "-d", "--drop-key" ) ) {
p->format_opts |= BIBL_FORMAT_MODSOUT_DROPKEY;
subtract = 1;
} else if ( args_match( argv[i], "-s", "--single-refperfile" )){
p->singlerefperfile = 1;
subtract = 1;
} else if ( args_match( argv[i], "-u", "--unicode-characters")){
p->utf8out = 1;
p->utf8bom = 1;
p->charsetout = BIBL_CHARSET_UNICODE;
p->charsetout_src = BIBL_SRC_USER;
subtract = 1;
} else if ( args_match( argv[i], "-un", "--unicode-no-bom")){
p->utf8out = 1;
p->utf8bom = 0;
p->charsetout = BIBL_CHARSET_UNICODE;
p->charsetout_src = BIBL_SRC_USER;
subtract = 1;
} else if ( args_match( argv[i], "-nl", "--no-latex" ) ) {
p->latexin = 0;
subtract = 1;
} else if ( args_match( argv[i], "-nt", "--nosplit-title" ) ){
p->nosplittitle = 1;
subtract = 1;
} else if ( args_match( argv[i], "-x", "--xml-entities" ) ) {
p->utf8out = 0;
p->utf8bom = 0;
p->xmlout = 1;
subtract = 1;
} else if ( args_match( argv[i], "-c", "--corporation-file")){
args_namelist( *argc, argv, i, p->progname,
"-c", "--corporation-file" );
status = bibl_readcorps( p, argv[i+1] );
if ( status == BIBL_ERR_MEMERR ) {
fprintf( stderr, "%s: Memory error when reading --corporation-file '%s'\n",
p->progname, argv[i+1] );
exit( EXIT_FAILURE );
} else if ( status == BIBL_ERR_CANTOPEN ) {
fprintf( stderr, "%s: Cannot read --corporation-file '%s'\n",
p->progname, argv[i+1] );
}
subtract = 2;
} else if ( args_match( argv[i], "-as", "--asis")) {
args_namelist( *argc, argv, i, p->progname,
"-as", "--asis" );
status = bibl_readasis( p, argv[i+1] );
if ( status == BIBL_ERR_MEMERR ) {
fprintf( stderr, "%s: Memory error when reading --asis file '%s'\n",
p->progname, argv[i+1] );
exit( EXIT_FAILURE );
} else if ( status == BIBL_ERR_CANTOPEN ) {
fprintf( stderr, "%s: Cannot read --asis file '%s'\n",
p->progname, argv[i+1] );
}
subtract = 2;
}
if ( subtract ) {
for ( j=i+subtract; j<*argc; j++ ) {
argv[j-subtract] = argv[j];
}
*argc -= subtract;
} else {
if ( argv[i][0]=='-' ) fprintf( stderr, "Warning: Did not recognize potential command-line argument %s\n", argv[i] );
i++;
}
}
}
|
