-
-/*
- * prompter.c -- simple prompting editor front-end
+/* prompter.c -- simple prompting editor front-end
*
* This code is Copyright (c) 2002, by the authors of nmh. See the
* COPYRIGHT file in the root directory of the nmh distribution for
#include <h/mh.h>
#include <fcntl.h>
#include <h/signals.h>
-#include <errno.h>
-#include <signal.h>
+#include <h/utils.h>
+#include "sbr/m_mktemp.h"
#include <setjmp.h>
#include <termios.h>
#define QUOTE '\\'
-#ifndef CKILL
-# define CKILL '@'
-#endif
-
-#ifndef CERASE
-# define CERASE '#'
-#endif
-
#define PROMPTER_SWITCHES \
X("erase chr", 0, ERASESW) \
X("kill chr", 0, KILLSW) \
DEFINE_SWITCH_ARRAY(PROMPTER, switches);
#undef X
-
static struct termios tio;
-#define ERASE tio.c_cc[VERASE]
-#define KILL tio.c_cc[VKILL]
-#define INTR tio.c_cc[VINTR]
static int wtuser = 0;
static int sigint = 0;
/*
* prototypes
*/
-int getln (char *, int);
+static int getln (char *, int);
static int chrcnv (char *);
static void chrdsp (char *, char);
static void intrser (int);
int body = 1, prepend = 1, rapid = 0;
int doteof = 0, fdi, fdo, i, state;
char *cp, *drft = NULL, *erasep = NULL;
- char *killp = NULL, name[NAMESZ], field[BUFSIZ];
- char buffer[BUFSIZ], tmpfil[BUFSIZ];
+ char *killp = NULL, name[NAMESZ], field[NMH_BUFSIZ];
+ char buffer[BUFSIZ];
char **arguments, **argp;
FILE *in, *out;
- char *tfile = NULL;
- m_getfld_state_t gstate = 0;
-
-#ifdef LOCALE
- setlocale(LC_ALL, "");
-#endif
- invo_name = r1bindex (argv[0], '/');
+ char *tmpfil;
+ m_getfld_state_t gstate;
- /* read user profile/context */
- context_read();
+ if (nmh_init(argv[0], 2)) { return 1; }
arguments = getarguments (invo_name, argc, argv, 1);
argp = arguments;
if ((in = fopen (drft, "r")) == NULL)
adios (drft, "unable to open");
- tfile = m_mktemp2(NULL, invo_name, NULL, &out);
- if (tfile == NULL) adios("prompter", "unable to create temporary file");
- chmod (tmpfil, 0600);
- strncpy (tmpfil, tfile, sizeof(tmpfil));
+ if ((tmpfil = m_mktemp2(NULL, invo_name, NULL, &out)) == NULL) {
+ adios(NULL, "unable to create temporary file in %s", get_temp_dir());
+ }
/*
* Are we changing the kill or erase character?
tcgetattr(0, &tio);
/* save original kill, erase character for later */
- save_kill = KILL;
- save_erase = ERASE;
+ save_kill = tio.c_cc[VKILL];
+ save_erase = tio.c_cc[VERASE];
/* set new kill, erase character in terminal structure */
- KILL = killp ? chrcnv (killp) : save_kill;
- ERASE = erasep ? chrcnv (erasep) : save_erase;
+ tio.c_cc[VKILL] = killp ? chrcnv (killp) : save_kill;
+ tio.c_cc[VERASE] = erasep ? chrcnv (erasep) : save_erase;
/* set the new terminal attributes */
tcsetattr(0, TCSADRAIN, &tio);
/* print out new kill erase characters */
- chrdsp ("erase", ERASE);
- chrdsp (", kill", KILL);
- chrdsp (", intr", INTR);
+ chrdsp ("erase", tio.c_cc[VERASE]);
+ chrdsp (", kill", tio.c_cc[VKILL]);
+ chrdsp (", intr", tio.c_cc[VINTR]);
putchar ('\n');
fflush (stdout);
* setup in terminal structure so we can easily
* restore it upon exit.
*/
- KILL = save_kill;
- ERASE = save_erase;
+ tio.c_cc[VKILL] = save_kill;
+ tio.c_cc[VERASE] = save_erase;
}
sigint = 0;
/*
* Loop through the lines of the draft skeleton.
*/
+ gstate = m_getfld_state_init(in);
for (;;) {
int fieldsz = sizeof field;
- switch (state = m_getfld (&gstate, name, field, &fieldsz, in)) {
+ switch (state = m_getfld2(&gstate, name, field, &fieldsz)) {
case FLD:
case FLDPLUS:
/*
fprintf (out, "%s:%s", name, field);
while (state == FLDPLUS) {
fieldsz = sizeof field;
- state = m_getfld (&gstate, name, field, &fieldsz, in);
- printf ("%s", field);
- fprintf (out, "%s", field);
+ state = m_getfld2(&gstate, name, field, &fieldsz);
+ fputs(field, stdout);
+ fputs(field, out);
}
} else {
/* Else, get value of header field */
if (killp || erasep) {
tcsetattr(0, TCSADRAIN, &tio);
}
- unlink (tmpfil);
+ (void) m_unlink (tmpfil);
done (1);
}
if (i != 0 || (field[0] != '\n' && field[0] != 0)) {
do {
if (field[0] != ' ' && field[0] != '\t')
putc (' ', out);
- fprintf (out, "%s", field);
+ fputs(field, out);
} while (i == 1
&& (i = getln (field, sizeof(field))) >= 0);
if (i == -1)
break;
fprintf (out, "--------\n");
if (field[0] == 0 || !prepend)
- printf ("--------\n");
+ puts("--------");
if (field[0]) {
if (prepend && body) {
- printf ("\n--------Enter initial text\n\n");
+ puts("\n--------Enter initial text\n");
fflush (stdout);
for (;;) {
getln (buffer, sizeof(buffer));
break;
if (buffer[0] == 0)
break;
- fprintf (out, "%s", buffer);
+ fputs(buffer, out);
}
}
do {
- fprintf (out, "%s", field);
+ fputs(field, out);
if (!rapid && !sigint)
- printf ("%s", field);
+ fputs(field, stdout);
} while (state == BODY &&
(fieldsz = sizeof field,
- state = m_getfld (&gstate, name, field, &fieldsz, in)));
+ state = m_getfld2(&gstate, name, field, &fieldsz)));
if (prepend || !body)
break;
- else
- printf ("\n--------Enter additional text\n\n");
+ puts("\n--------Enter additional text\n");
}
fflush (stdout);
break;
if (field[0] == 0)
break;
- fprintf (out, "%s", field);
+ fputs(field, out);
}
break;
m_getfld_state_destroy (&gstate);
if (body)
- printf ("--------\n");
+ puts("--------");
fflush (stdout);
fclose (in);
cpydata (fdi, fdo, tmpfil, drft);
close (fdi);
close (fdo);
- unlink (tmpfil);
+ (void) m_unlink (tmpfil);
context_save (); /* save the context file */
done (0);
}
-int
+static int
getln (char *buffer, int n)
{
int c;
char *cp;
+ static int quoting = 0;
- cp = buffer;
- *cp = 0;
+ *buffer = 0;
switch (setjmp (sigenv)) {
case OK:
return NOTOK;
}
+ cp = buffer;
+ *cp = 0;
+
for (;;) {
switch (c = getchar ()) {
case EOF:
+ quoting = 0;
clearerr (stdin);
longjmp (sigenv, DONE);
case '\n':
- if (cp[-1] == QUOTE) {
- cp[-1] = c;
+ if (quoting) {
+ *(cp - 1) = c;
+ quoting = 0;
wtuser = 0;
return 1;
}
return 0;
default:
+ if (c == QUOTE) {
+ quoting = 1;
+ } else {
+ quoting = 0;
+ }
if (cp < buffer + n)
*cp++ = c;
*cp = 0;
projects / nmh / blobdiff