23 |
|
|
24 |
const char *argp_program_version = "comp (" PACKAGE_STRING ")"; |
const char *argp_program_version = "comp (" PACKAGE_STRING ")"; |
25 |
static char doc[] = N_("GNU MH comp\v" |
static char doc[] = N_("GNU MH comp\v" |
26 |
|
"Options marked with `*' are not yet implemented.\n" |
27 |
"Use -help to obtain the list of traditional MH options."); |
"Use -help to obtain the list of traditional MH options."); |
28 |
static char args_doc[] = "[msg]"; |
static char args_doc[] = "[msg]"; |
29 |
|
|
|
#define ARG_NOEDIT 1 |
|
|
#define ARG_WHATNOWPROC 2 |
|
|
#define ARG_NOWHATNOWPROC 3 |
|
|
#define ARG_NODRAFTFOLDER 4 |
|
|
#define ARG_FILE 5 |
|
|
|
|
30 |
/* GNU options */ |
/* GNU options */ |
31 |
static struct argp_option options[] = { |
static struct argp_option options[] = { |
32 |
{"build", 'b', 0, 0, |
{"build", ARG_BUILD, 0, 0, |
33 |
N_("Build the draft and quit immediately.")}, |
N_("Build the draft and quit immediately.")}, |
34 |
{"draftfolder", 'd', N_("FOLDER"), 0, |
{"draftfolder", ARG_DRAFTFOLDER, N_("FOLDER"), 0, |
35 |
N_("Specify the folder for message drafts")}, |
N_("Specify the folder for message drafts")}, |
36 |
{"nodraftfolder", ARG_NODRAFTFOLDER, 0, 0, |
{"nodraftfolder", ARG_NODRAFTFOLDER, 0, 0, |
37 |
N_("Undo the effect of the last --draftfolder option")}, |
N_("Undo the effect of the last --draftfolder option")}, |
38 |
{"draftmessage" , 'm', N_("MSG"), 0, |
{"draftmessage" , ARG_DRAFTMESSAGE, N_("MSG"), 0, |
39 |
N_("Invoke the draftmessage facility")}, |
N_("Invoke the draftmessage facility")}, |
40 |
{"folder", 'f', N_("FOLDER"), 0, N_("Specify folder to operate upon")}, |
{"folder", ARG_FOLDER, N_("FOLDER"), 0, |
41 |
{"file", ARG_FILE, N_("FILE"), 0, N_("Use FILE as the message draft")}, |
N_("Specify folder to operate upon")}, |
42 |
{"editor", 'e', N_("PROG"), 0, N_("Set the editor program to use")}, |
{"file", ARG_FILE, N_("FILE"), 0, |
43 |
{"noedit", ARG_NOEDIT, 0, 0, N_("Suppress the initial edit")}, |
N_("Use FILE as the message draft")}, |
44 |
{"form", 'F', N_("FILE"), 0, N_("Read format from given file")}, |
{"editor", ARG_EDITOR, N_("PROG"), 0, |
45 |
{"whatnowproc", ARG_WHATNOWPROC, N_("PROG"), 0, |
N_("Set the editor program to use")}, |
46 |
N_("Set the replacement for whatnow program")}, |
{"noedit", ARG_NOEDIT, 0, 0, |
47 |
{"use", 'u', N_("BOOL"), OPTION_ARG_OPTIONAL, N_("Use draft file preserved after the last session") }, |
N_("Suppress the initial edit")}, |
48 |
|
{"form", ARG_FORM, N_("FILE"), 0, |
49 |
|
N_("Read format from given file")}, |
50 |
|
{"whatnowproc", ARG_WHATNOWPROC, N_("PROG"), 0, |
51 |
|
N_("* Set the replacement for whatnow program")}, |
52 |
|
{"nowhatnowproc", ARG_NOWHATNOWPROC, NULL, 0, |
53 |
|
N_("* Ignore whatnowproc variable. Use standard `whatnow' shell instead.")}, |
54 |
|
{"use", ARG_USE, N_("BOOL"), OPTION_ARG_OPTIONAL, |
55 |
|
N_("Use draft file preserved after the last session") }, |
56 |
{ 0 } |
{ 0 } |
57 |
}; |
}; |
58 |
|
|
89 |
{ |
{ |
90 |
switch (key) |
switch (key) |
91 |
{ |
{ |
92 |
case 'b': |
case ARG_BUILD: |
|
case ARG_NOWHATNOWPROC: |
|
93 |
build_only = 1; |
build_only = 1; |
94 |
break; |
break; |
95 |
|
|
96 |
case 'd': |
case ARG_DRAFTFOLDER: |
97 |
wh_env.draftfolder = arg; |
wh_env.draftfolder = arg; |
98 |
break; |
break; |
99 |
|
|
100 |
case 'e': |
case ARG_EDITOR: |
101 |
wh_env.editor = arg; |
wh_env.editor = arg; |
102 |
break; |
break; |
103 |
|
|
104 |
case '+': |
case '+': |
105 |
case 'f': |
case ARG_FOLDER: |
106 |
current_folder = arg; |
current_folder = arg; |
107 |
break; |
break; |
108 |
|
|
109 |
case 'F': |
case ARG_FORM: |
110 |
formfile = mh_expand_name (MHLIBDIR, arg, 0); |
formfile = mh_expand_name (MHLIBDIR, arg, 0); |
111 |
break; |
break; |
112 |
|
|
113 |
case 'm': |
case ARG_DRAFTMESSAGE: |
114 |
wh_env.draftmessage = arg; |
wh_env.draftmessage = arg; |
115 |
break; |
break; |
116 |
|
|
117 |
case 'u': |
case ARG_USE: |
118 |
use_draft = is_true (arg); |
use_draft = is_true (arg); |
119 |
break; |
break; |
120 |
|
|
131 |
break; |
break; |
132 |
|
|
133 |
case ARG_WHATNOWPROC: |
case ARG_WHATNOWPROC: |
134 |
|
case ARG_NOWHATNOWPROC: |
135 |
mh_error (_("option is not yet implemented")); |
mh_error (_("option is not yet implemented")); |
136 |
exit (1); |
exit (1); |
137 |
|
|