get_8bit_gray_row (j_compress_ptr cinfo, cjpeg_source_ptr sinfo)
/* This version is for reading 8-bit grayscale pixels */
{
tga_source_ptr source = (tga_source_ptr) sinfo;
register JSAMPROW ptr;
register JDIMENSION col;
ptr = source->pub.buffer[0];
for (col = cinfo->image_width; col > 0; col--) {
(*source->read_pixel) (source); /* Load next pixel into tga_pixel */
*ptr++ = (JSAMPLE) UCH(source->tga_pixel[0]);
}
return 1;
}
static const char *
status_string(char *given, char **freeMe)
{
const char *result;
*freeMe = 0;
if (isdigit(UCH(*given))) {
switch (*given) {
case '0':
result = _("Succeeded");
break;
case '1':
result = _("Failed");
break;
case '2':
result = _("Passed");
break;
case '3':
result = _("Completed");
break;
case '4':
result = _("Checked");
break;
case '5':
result = _("Done");
break;
case '6':
result = _("Skipped");
break;
case '7':
result = _("In Progress");
break;
case '8':
result = "";
break;
case '9':
result = _("N/A");
break;
default:
result = "?";
break;
}
} else if (*given == '-') {
size_t need = strlen(++given);
char *temp = dlg_malloc(char, need);
*freeMe = temp;
sprintf(temp, "%3s%%", given);
result = temp;
} else if (!isspace(UCH(*given))) {
static char *decode_string(char *s)
{
char *save_s;
char *p = s;
save_s = s;
for (; *s; s++, p++) {
if (*s != '%')
*p = *s;
else {
/* Do nothing if at the end of the string. Or if the chars
are not hex-digits. */
if (!*(s + 1) || !*(s + 2)
|| !(isxdigit(UCH(*(s + 1))) && isxdigit(UCH(*(s + 2))))) {
*p = *s;
continue;
}
*p = (char) ((ASC2HEXD(*(s + 1)) << 4) + ASC2HEXD(*(s + 2)));
s += 2;
}
}
*p = '\0';
return save_s;
}
/*
* Convert a character to displayable format, returns true when we fill a
* display-line.
*/
static int
typeconv(int c)
{
char dot = (char) (OptStripped ? ' ' : '.');
if (OptBinary) { /* highlight chars with parity */
if (!isascii(c)) {
c = toascii(c);
if (OptStripped) {
if (!isprint(c))
c = ' ';
} else if (Tcol < (int) END_COL)
Text[Tcol] = '_';
}
}
if (isascii(c)) {
if (OptBinary && !isprint(c)) {
typeover(dot);
} else if (c == '\b') {
if (Tcol > 0)
Tcol--;
} else if (c == '\r') {
Tcol = 0;
} else if (isprint(c)) {
typeover(c);
} else if (isspace(c)) {
if (c == '\n') {
while (Tlen > 0
&& isspace(UCH(Text[Tlen - 1])))
Tlen--;
return (TRUE);
} else if (c == '\t') {
typeover(' ');
while (Tcol % tabstop)
typeover(' ');
}
} else {
typeover(dot);
}
} else if (OptBinary) {
typeover(dot);
}
if (OptBinary)
if (Tlen - Shift >= COLS)
return (TRUE);
return (FALSE);
}
PRIVATE void comma_append ARGS2(
char **, dst,
char *, src)
{
if (*src) {
while (*src == ',' || isspace(UCH(*src)))
src++;
if (*src) {
if (isEmpty(*dst)) {
StrAllocCopy(*dst, src);
} else {
StrAllocCat(*dst, ",");
StrAllocCat(*dst, src);
}
}
}
}
get_scaled_gray_row (j_compress_ptr cinfo, cjpeg_source_ptr sinfo)
/* This version is for reading raw-byte-format PGM files with any maxval */
{
ppm_source_ptr source = (ppm_source_ptr) sinfo;
register JSAMPROW ptr;
register U_CHAR * bufferptr;
register JSAMPLE *rescale = source->rescale;
JDIMENSION col;
if (! ReadOK(source->pub.input_file, source->iobuffer, source->buffer_width))
ERREXIT(cinfo, JERR_INPUT_EOF);
ptr = source->pub.buffer[0];
bufferptr = source->iobuffer;
for (col = cinfo->image_width; col > 0; col--) {
*ptr++ = rescale[UCH(*bufferptr++)];
}
return 1;
}
get_8bit_row (j_compress_ptr cinfo, cjpeg_source_ptr sinfo)
/* This version is for reading 8-bit colormap indexes */
{
tga_source_ptr source = (tga_source_ptr) sinfo;
register int t;
register JSAMPROW ptr;
register JDIMENSION col;
register JSAMPARRAY colormap = source->colormap;
ptr = source->pub.buffer[0];
for (col = cinfo->image_width; col > 0; col--) {
(*source->read_pixel) (source); /* Load next pixel into tga_pixel */
t = UCH(source->tga_pixel[0]);
*ptr++ = colormap[0][t];
*ptr++ = colormap[1][t];
*ptr++ = colormap[2][t];
}
return 1;
}
/* HTUnEscape with control-code nuking */
PRIVATE void SafeHTUnEscape ARGS1(
char *, string)
{
int i;
int flg = FALSE;
HTUnEscape(string);
for (i=0; string[i] != '\0'; i++)
{
/* FIXME: this is no longer explicitly 7-bit ASCII,
but are there portability problems? */
if ((!LYIsASCII(string[i])) || !isprint(UCH(string[i])))
{
string[i] = '?';
flg = TRUE;
}
}
if (flg)
HTAlert(MAILTO_SQUASH_CTL);
}
int EditBinding(int xlkc)
{
int editaction, xleac = LYE_UNMOD;
int c = xlkc & LKC_MASK;
if (xlkc == -1)
return LYE_NOP; /* maybe LYE_ABORT? or LYE_FORM_LAC|LYK_UNKNOWN? */
#ifdef NOT_ASCII
if (c < 256) {
c = TOASCII(c);
}
#endif
#ifdef USE_ALT_BINDINGS
/*
* Get intermediate code from one of the lynxkeycode+modifier tables if
* applicable, otherwise get the lynxeditactioncode directly. If we have
* more than one modifier bits, the first currently wins. - kw
*/
if (xlkc & LKC_ISLECLAC) {
return LKC2_TO_LEC(xlkc);
} else if (xlkc & LKC_MOD1) {
xleac = LKC_TO_LEC_M1(c);
} else if (xlkc & LKC_MOD2) {
xleac = LKC_TO_LEC_M2(c);
} else if (xlkc & LKC_MOD3) {
xleac = LKC_TO_LEC_M3(c);
} else {
xleac = UCH(CurrentLineEditor()[c]);
}
#endif
/*
* If we have an intermediate code that says "same as without modifier",
* look that up now; otherwise we are already done. - kw
*/
if (xleac == LYE_UNMOD) {
editaction = CurrentLineEditor()[c];
} else {
editaction = xleac;
}
return editaction;
}
static void
typeover(int c)
{
size_t need = (size_t) Tcol + 1;
if (need >= END_COL) {
need = (need * 5) / 4;
my_text = dyn_alloc(my_text, need);
my_over = dyn_alloc(my_over, need);
}
if ((Over[Tcol] = Text[Tcol]) != EOS) {
if (ispunct(UCH(Text[Tcol])))
Text[Tcol] = (char) c;
} else
Text[Tcol] = (char) c;
if (++Tcol > Tlen) {
Tlen = Tcol;
Text[Tlen] = EOS;
}
}
/*
* This function makes the history page seem like any other type of file since
* more info is needed than can be provided by the normal link structure. We
* saved out the history number to a special URL.
*
* The info looks like: LYNXHIST:#
*/
BOOLEAN historytarget(DocInfo *newdoc)
{
int number;
DocAddress WWWDoc;
HTParentAnchor *tmpanchor;
HText *text;
BOOLEAN treat_as_intern = FALSE;
if ((!newdoc || !newdoc->address) ||
strlen(newdoc->address) < 10 || !isdigit(UCH(*(newdoc->address + 9))))
return (FALSE);
if ((number = atoi(newdoc->address + 9)) > nhist + nhist_extra || number < 0)
return (FALSE);
/*
* Optimization: assume we came from the History Page,
* so never return back - always a new version next time.
* But check first whether HTMainText is really the History
* Page document - in some obscure situations this may not be
* the case. If HTMainText seems to be a History Page document,
* also check that it really hasn't been pushed. - LP, kw
*/
if (HTMainText && nhist > 0 &&
!strcmp(HTLoadedDocumentTitle(), HISTORY_PAGE_TITLE) &&
LYIsUIPage3(HTLoadedDocumentURL(), UIP_HISTORY, 0) &&
strcmp(HTLoadedDocumentURL(), HDOC(nhist - 1).address)) {
HTuncache_current_document(); /* don't waste the cache */
}
LYpop_num(number, newdoc);
if (((newdoc->internal_link &&
history[number].intern_seq_start == history[nhist - 1].intern_seq_start)
|| (number < nhist - 1 &&
HDOC(nhist - 1).internal_link &&
number == history[nhist - 1].intern_seq_start))
&& !(LYforce_no_cache == TRUE && LYoverride_no_cache == FALSE)) {
if (track_internal_links) {
LYforce_no_cache = FALSE;
LYinternal_flag = TRUE;
newdoc->internal_link = TRUE;
treat_as_intern = TRUE;
}
} else {
newdoc->internal_link = FALSE;
}
/*
* If we have POST content, and have LYresubmit_posts set or have no_cache
* set or do not still have the text cached, ask the user whether to
* resubmit the form. - FM
*/
if (newdoc->post_data != NULL) {
WWWDoc.address = newdoc->address;
WWWDoc.post_data = newdoc->post_data;
WWWDoc.post_content_type = newdoc->post_content_type;
WWWDoc.bookmark = newdoc->bookmark;
WWWDoc.isHEAD = newdoc->isHEAD;
WWWDoc.safe = newdoc->safe;
tmpanchor = HTAnchor_findAddress(&WWWDoc);
text = (HText *) HTAnchor_document(tmpanchor);
if (((((LYresubmit_posts == TRUE) ||
(LYforce_no_cache == TRUE &&
LYoverride_no_cache == FALSE)) &&
!(treat_as_intern && !reloading)) ||
text == NULL) &&
(isLYNXIMGMAP(newdoc->address) ||
HTConfirm(CONFIRM_POST_RESUBMISSION) == TRUE)) {
LYforce_no_cache = TRUE;
LYoverride_no_cache = FALSE;
} else if (text != NULL) {
LYforce_no_cache = FALSE;
LYoverride_no_cache = TRUE;
} else {
HTInfoMsg(CANCELLED);
return (FALSE);
}
}
if (number != 0)
StrAllocCat(newdoc->title, gettext(" (From History)"));
return (TRUE);
}
/*
* Parse the parameters of the "bindkeys" configuration-file entry. This
* expects widget name which may be "*", followed by curses key definition and
* then dialog key definition.
*
* The curses key "should" be one of the names (ignoring case) from
* curses_names[], but may also be a single control character (prefix "^" or
* "~" depending on whether it is C0 or C1), or an escaped single character.
* Binding a printable character with dialog is possible but not useful.
*
* The dialog key must be one of the names from dialog_names[].
*/
int
dlg_parse_bindkey(char *params)
{
char *p = skip_white(params);
char *q;
bool escaped = FALSE;
int modified = 0;
int result = FALSE;
unsigned xx;
char *widget;
int is_function = FALSE;
int curses_key;
int dialog_key;
curses_key = -1;
dialog_key = -1;
widget = p;
p = skip_black(p);
if (p != widget && *p != '\0') {
*p++ = '\0';
q = p;
while (*p != '\0' && curses_key < 0) {
if (escaped) {
escaped = FALSE;
curses_key = *p;
} else if (*p == '\\') {
escaped = TRUE;
} else if (modified) {
if (*p == '?') {
curses_key = ((modified == '^')
? 127
: 255);
} else {
curses_key = ((modified == '^')
? (*p & 0x1f)
: ((*p & 0x1f) | 0x80));
}
} else if (*p == '^') {
modified = *p;
} else if (*p == '~') {
modified = *p;
} else if (isspace(UCH(*p))) {
break;
}
++p;
}
if (!isspace(UCH(*p))) {
;
} else {
*p++ = '\0';
if (curses_key < 0) {
char fprefix[2];
char check[2];
int keynumber;
if (sscanf(q, "%[Ff]%d%c", fprefix, &keynumber, check) == 2) {
curses_key = KEY_F(keynumber);
is_function = TRUE;
} else {
for (xx = 0; xx < COUNT_CURSES; ++xx) {
if (!dlg_strcmp(curses_names[xx].name, q)) {
curses_key = curses_names[xx].code;
is_function = TRUE;
break;
}
}
}
}
}
q = skip_white(p);
p = skip_black(q);
if (p != q) {
for (xx = 0; xx < COUNT_DIALOG; ++xx) {
if (!dlg_strcmp(dialog_names[xx].name, q)) {
dialog_key = dialog_names[xx].code;
break;
}
}
}
if (*widget != '\0'
&& curses_key >= 0
&& dialog_key >= 0
&& make_binding(widget, curses_key, is_function, dialog_key) != 0) {
result = TRUE;
}
}
return result;
}
/*
* Display a menu for choosing among a number of options
*/
int
dialog_menu(const char *title, const char *cprompt, int height, int width,
int menu_height, int item_no, const char **items)
{
int i, j, x, y, cur_x, cur_y, box_x, box_y;
int key = 0;
int button = 0;
int choice = dlg_default_item(items, MENUBOX_TAGS);
int scrollamt = 0;
int max_choice, min_width;
int found;
int use_width, name_width, text_width;
WINDOW *dialog, *menu;
char *prompt = strclone(cprompt);
const char **buttons = dlg_ok_labels();
tab_correct_str(prompt);
if (menu_height == 0) {
min_width = calc_listw(item_no, items, MENUBOX_TAGS) + 10;
/* calculate height without items (4) */
auto_size(title, prompt, &height, &width, 4, MAX(26, min_width));
calc_listh(&height, &menu_height, item_no);
} else {
auto_size(title, prompt, &height, &width, 4 + menu_height, 26);
}
print_size(height, width);
ctl_size(height, width);
max_choice = MIN(menu_height, item_no);
x = box_x_ordinate(width);
y = box_y_ordinate(height);
dialog = new_window(height, width, y, x);
mouse_setbase(x, y);
draw_box(dialog, 0, 0, height, width, dialog_attr, border_attr);
draw_bottom_box(dialog);
draw_title(dialog, title);
wattrset(dialog, dialog_attr);
print_autowrap(dialog, prompt, height, width);
menu_width = width - 6;
getyx(dialog, cur_y, cur_x);
box_y = cur_y + 1;
box_x = (width - menu_width) / 2 - 1;
/* create new window for the menu */
menu = sub_window(dialog, menu_height, menu_width, y + box_y + 1,
x + box_x + 1);
/* draw a box around the menu items */
draw_box(dialog, box_y, box_x, menu_height + 2, menu_width + 2,
menubox_border_attr, menubox_attr);
name_width = 0;
text_width = 0;
/* Find length of longest item to center menu */
for (i = 0; i < item_no; i++) {
name_width = MAX(name_width, (int) strlen(ItemName(i)));
text_width = MAX(text_width, (int) strlen(ItemText(i)));
}
/* If the name+text is wider than the list is allowed, then truncate
* one or both of them. If the name is no wider than 1/4 of the list,
* leave it intact.
*/
use_width = (menu_width - 2);
if (text_width + name_width > use_width) {
int need = 0.25 * use_width;
if (name_width > need) {
int want = use_width * ((double) name_width) / (text_width + name_width);
name_width = (want > need) ? want : need;
}
text_width = use_width - name_width;
}
tag_x = (use_width - text_width - name_width) / 2;
item_x = name_width + tag_x + 2;
if (choice - scrollamt >= max_choice) {
scrollamt = choice - (max_choice - 1);
choice = max_choice - 1;
}
/* Print the menu */
for (i = 0; i < max_choice; i++)
print_item(menu, ItemData(i + scrollamt), i, i == choice);
(void) wnoutrefresh(menu);
/* register the new window, along with its borders */
mouse_mkbigregion(box_y, box_x, menu_height + 2, menu_width + 2,
item_no, item_x, /* the threshold */
1 /* dirty mode */ );
dlg_draw_arrows(dialog, scrollamt,
scrollamt + max_choice < item_no,
box_x + tag_x + 1,
box_y,
box_y + menu_height + 1);
dlg_draw_buttons(dialog, height - 2, 0, buttons, button, FALSE, width);
wtimeout(dialog, WTIMEOUT_VAL);
while (key != ESC) {
key = mouse_wgetch(dialog);
/* Check if key pressed matches first character of any
item tag in menu */
for (i = 0; i < max_choice; i++)
if (toupper(key) == toupper(UCH(ItemName(scrollamt + i)[0])))
break;
/*
* Check if key pressed matches first character of any item tag in
* list. If there is more than one match, we will cycle through
* each one as the same key is pressed repeatedly.
*/
found = FALSE;
for (j = scrollamt + choice + 1; j < item_no; j++) {
if (toupper(key) ==
toupper(UCH(ItemName(j)[0]))) {
found = TRUE;
i = j - scrollamt;
break;
}
}
if (!found) {
for (j = 0; j <= scrollamt + choice; j++) {
if (toupper(key) ==
toupper(UCH(ItemName(j)[0]))) {
found = TRUE;
i = j - scrollamt;
break;
}
}
}
/*
* A single digit (1-9) positions the selection to that line in the
* current screen.
*/
if (!found
&& (key <= '9')
&& (key > '0')
&& (key - '1' <= max_choice)) {
found = TRUE;
i = key - '1';
}
if (!found) {
found = TRUE;
switch (key) {
case KEY_HOME:
i = -scrollamt;
break;
case KEY_LL:
case KEY_END:
i = item_no - 1 - scrollamt;
break;
case KEY_PPAGE:
if (choice)
i = 0;
else if (scrollamt != 0)
i = -MIN(scrollamt, max_choice);
else
continue;
break;
case KEY_NPAGE:
i = MIN(choice + max_choice, item_no - scrollamt - 1);
break;
case KEY_UP:
case '-':
i = choice - 1;
if (choice == 0 && scrollamt == 0)
continue;
break;
case KEY_DOWN:
case '+':
i = choice + 1;
if (scrollamt + choice >= item_no - 1)
continue;
break;
default:
found = FALSE;
break;
}
}
if (found) {
if (i != choice) {
getyx(dialog, cur_y, cur_x);
if (i < 0 || i >= max_choice) {
#if defined(NCURSES_VERSION_MAJOR) && NCURSES_VERSION_MAJOR < 5
/*
* Using wscrl to assist ncurses scrolling is not needed
* in version 5.x
*/
if (i == -1) {
if (menu_height > 1) {
/* De-highlight current first item */
print_item(menu, ItemData(scrollamt), 0, FALSE);
scrollok(menu, TRUE);
wscrl(menu, -1);
scrollok(menu, FALSE);
}
scrollamt--;
print_item(menu, ItemData(scrollamt), 0, TRUE);
} else if (i == max_choice) {
if (menu_height > 1) {
/* De-highlight current last item before scrolling up */
print_item(menu,
ItemData(scrollamt + max_choice - 1),
max_choice - 1, FALSE);
scrollok(menu, TRUE);
wscrl(menu, 1);
scrollok(menu, FALSE);
}
scrollamt++;
print_item(menu,
ItemData(scrollamt + max_choice - 1),
max_choice - 1, TRUE);
} else
#endif
{
if (i < 0) {
scrollamt += i;
choice = 0;
} else {
choice = max_choice - 1;
scrollamt += (i - max_choice + 1);
}
for (i = 0; i < max_choice; i++) {
print_item(menu,
ItemData(scrollamt + i),
i, i == choice);
}
}
(void) wnoutrefresh(menu);
dlg_draw_arrows(dialog, scrollamt,
scrollamt + choice < item_no - 1,
box_x + tag_x + 1,
box_y,
box_y + menu_height + 1);
} else {
/* De-highlight current item */
print_item(menu,
ItemData(scrollamt + choice),
choice, FALSE);
/* Highlight new item */
choice = i;
print_item(menu,
ItemData(scrollamt + choice),
choice, TRUE);
(void) wnoutrefresh(menu);
(void) wmove(dialog, cur_y, cur_x);
wrefresh(dialog);
}
}
continue; /* wait for another key press */
}
switch (key) {
case M_EVENT + 'O':
del_window(dialog);
return scrollamt + choice;
case M_EVENT + 'C':
del_window(dialog);
return -2;
case M_EVENT + 'o': /* mouse enter... */
case M_EVENT + 'c': /* use the code for toggling */
button = (key == M_EVENT + 'o');
/* FALLTHRU */
case ' ':
case KEY_BTAB:
case TAB:
case KEY_LEFT:
case KEY_RIGHT:
if (!dialog_vars.nocancel)
button = !button;
dlg_draw_buttons(dialog, height - 2, 0, buttons, button, FALSE, width);
break;
case '\n':
del_window(dialog);
return (button ? -2 : (scrollamt + choice));
}
}
del_window(dialog);
return -1; /* ESC pressed */
}
PUBLIC int main ARGS2(
int, argc,
char **, argv)
{
static char *first_ifdefs[] = {
"/*",
" * Compile-in this chunk of code unless we've turned it off specifically",
" * or in general (id=%s).",
" */",
"",
"#ifndef INCL_CHARSET%s",
"#define INCL_CHARSET%s 1",
"",
"/*ifdef NO_CHARSET*/",
"#ifdef NO_CHARSET",
"#undef NO_CHARSET",
"#endif",
"#define NO_CHARSET 0 /* force default to always be active */",
"",
"/*ifndef NO_CHARSET%s*/",
"#ifndef NO_CHARSET%s",
"",
"#if ALL_CHARSETS",
"#define NO_CHARSET%s 0",
"#else",
"#define NO_CHARSET%s 1",
"#endif",
"",
"#endif /* ndef(NO_CHARSET%s) */",
"",
"#if NO_CHARSET%s",
"#define UC_CHARSET_SETUP%s /*nothing*/",
"#else"
};
static char *last_ifdefs[] = {
"",
"#endif /* NO_CHARSET%s */",
"",
"#endif /* INCL_CHARSET%s */"
};
FILE *ctbl;
char buffer[65536];
char outname[256];
unsigned n;
int fontlen;
int i, nuni, nent;
int fp0 = 0, fp1 = 0, un0, un1;
char *p, *p1;
char *tbuf, ch;
if (argc < 2 || argc > 5) {
usage();
}
if (!strcmp(argv[1], "-")) {
ctbl = stdin;
tblname = "stdin";
} else {
ctbl = fopen(tblname = argv[1], "r");
if (!ctbl) {
perror(tblname);
done(EX_NOINPUT);
}
}
if (argc > 2) {
if (!strcmp(argv[2], "-")) {
chdr = stdout;
hdrname = "stdout";
} else {
hdrname = argv[2];
}
} else if (ctbl == stdin) {
chdr = stdout;
hdrname = "stdout";
} else {
strcpy(hdrname = outname, tblname);
if ((p = strrchr(outname, '.')) == 0)
p = outname + strlen(outname);
strcpy(p, ".h");
}
if (chdr == 0) {
chdr = fopen(hdrname, "w");
if (!chdr) {
perror(hdrname);
done(EX_NOINPUT);
}
}
/*
* For now we assume the default font is always 256 characters.
*/
fontlen = 256;
/*
* Initialize table.
*/
for (i = 0; i < fontlen; i++) {
unicount[i] = 0;
}
/*
* Now we comes to the tricky part. Parse the input table.
*/
while (fgets(buffer, sizeof(buffer), ctbl) != NULL) {
if ((p = strchr(buffer, '\n')) != NULL) {
*p = '\0';
} else {
fprintf(stderr,
"%s: Warning: line too long or incomplete.\n",
tblname);
}
/*
* Syntax accepted:
* <fontpos> <unicode> <unicode> ...
* <fontpos> <unicode range> <unicode range> ...
* <fontpos> idem
* <range> idem
* <range> <unicode range>
* <unicode> :<replace>
* <unicode range> :<replace>
* <unicode> "<C replace>"
* <unicode range> "<C replace>"
*
* where <range> ::= <fontpos>-<fontpos>
* and <unicode> ::= U+<h><h><h><h>
* and <h> ::= <hexadecimal digit>
* and <replace> any string not containing '\n' or '\0'
* and <C replace> any string with C backslash escapes.
*/
p = buffer;
while (*p == ' ' || *p == '\t') {
p++;
}
if (!(*p) || *p == '#') {
/*
* Skip comment or blank line.
*/
continue;
}
switch (*p) {
/*
* Raw Unicode? I.e. needs some special
* processing. One digit code.
*/
case 'R':
if (p[1] == 'a' || p[1] == 'A') {
buffer[sizeof(buffer) - 1] = '\0';
if (!strncasecomp(p, "RawOrEnc", 8)) {
p += 8;
}
}
p++;
while (*p == ' ' || *p == '\t') {
p++;
}
RawOrEnc = strtol(p,0,10);
Raw_found = 1;
continue;
/*
* Is this the default table?
*/
case 'D':
if (p[1] == 'e' || p[1] == 'E') {
buffer[sizeof(buffer) - 1] = '\0';
if (!strncasecomp(p, "Default", 7)) {
p += 7;
}
}
p++;
while (*p == ' ' || *p == '\t') {
p++;
}
this_isDefaultMap = (*p == '1' || TOLOWER(*p) == 'y');
continue;
/*
* Is this the default table?
*/
case 'F':
if (p[1] == 'a' || p[1] == 'A') {
buffer[sizeof(buffer) - 1] = '\0';
if (!strncasecomp(p, "FallBack", 8)) {
p += 8;
}
}
p++;
while (*p == ' ' || *p == '\t') {
p++;
}
useDefaultMap = (*p == '1' || TOLOWER(*p) == 'y');
continue;
case 'M':
if (p[1] == 'i' || p[1] == 'I') {
buffer[sizeof(buffer) - 1] = '\0';
if (!strncasecomp(p, "MIMEName", 8)) {
p += 8;
}
}
p++;
while (*p == ' ' || *p == '\t') {
p++;
}
sscanf(p,"%40s",this_MIMEcharset);
continue;
/*
* Display charset name for options screen.
*/
case 'O':
if (p[1] == 'p' || p[1] == 'P') {
buffer[sizeof(buffer) - 1] = '\0';
if (!strncasecomp(p, "OptionName", 10)) {
p += 10;
}
}
p++;
while (*p == ' ' || *p == '\t') {
p++;
}
for (i = 0; *p && i < UC_MAXLEN_LYNXCSNAME; p++, i++) {
this_LYNXcharset[i] = *p;
}
this_LYNXcharset[i] = '\0';
continue;
/*
* Codepage number. Three or four digit code.
*/
case 'C':
if (p[1] == 'o' || p[1] == 'O') {
buffer[sizeof(buffer) - 1] = '\0';
if (!strncasecomp(p, "CodePage", 8)) {
p += 8;
}
}
p++;
while (*p == ' ' || *p == '\t') {
p++;
}
CodePage = strtol(p,0,10);
CodePage_found = 1;
continue;
}
if (*p == 'U') {
un0 = getunicode(&p);
if (un0 < 0) {
fprintf(stderr, "Bad input line: %s\n", buffer);
done(EX_DATAERR);
fprintf(stderr,
"%s: Bad Unicode range corresponding to font position range 0x%x-0x%x\n",
tblname, fp0, fp1);
done(EX_DATAERR);
}
un1 = un0;
while (*p == ' ' || *p == '\t') {
p++;
}
if (*p == '-') {
p++;
while (*p == ' ' || *p == '\t') {
p++;
}
un1 = getunicode(&p);
if (un1 < 0 || un1 < un0) {
fprintf(stderr,
"%s: Bad Unicode range U+%x-U+%x\n",
tblname, un0, un1);
fprintf(stderr, "Bad input line: %s\n", buffer);
done(EX_DATAERR);
}
while (*p == ' ' || *p == '\t') {
p++;
}
}
if (*p != ':' && *p != '"') {
fprintf(stderr, "No ':' or '\"' where expected: %s\n",
buffer);
continue;
}
tbuf = (char *)malloc(4*strlen(p));
if (!(p1 = tbuf)) {
fprintf(stderr, "%s: Out of memory\n", tblname);
done(EX_DATAERR);
}
if (*p == '"') {
/*
* Handle "<C replace>".
* Copy chars verbatim until first '"' not \-escaped or
* end of buffer.
*/
int escaped = 0;
for (ch = *(++p); (ch = *p) != '\0'; p++) {
if (escaped) {
escaped = 0;
} else if (ch == '"') {
break;
} else if (ch == '\\') {
escaped = 1;
}
*p1++ = ch;
}
if (escaped || ch != '"') {
fprintf(stderr, "Warning: String not terminated: %s\n",
buffer);
if (escaped)
*p1++ = '\n';
}
} else {
/*
* We had ':'.
*/
for (ch = *(++p); (ch = *p) != '\0'; p++, p1++) {
if (UCH(ch) < 32 || ch == '\\' || ch == '\"' ||
UCH(ch) >= 127) {
sprintf(p1, "\\%.3o", UCH(ch));
#ifdef NOTDEFINED
fprintf(stderr, "%s\n", tbuf);
#endif /* NOTDEFINED */
p1 += 3;
} else {
*p1 = ch;
}
}
}
*p1 = '\0';
for (i = un0; i <= un1; i++) {
#ifdef NOTDEFINED
fprintf(chdr, "U+0x%x:%s\n", i, tbuf); */
#endif /* NOTDEFINED */
addpair_str(tbuf,i);
}
continue;
}
/*
* Input line (after skipping spaces) doesn't start with one
* of the specially recognized characters, so try to interpret
* it as starting with a fontpos.
*/
fp0 = strtol(p, &p1, 0);
if (p1 == p) {
fprintf(stderr, "Bad input line: %s\n", buffer);
done(EX_DATAERR);
}
p = p1;
while (*p == ' ' || *p == '\t') {
p++;
}
if (*p == '-') {
p++;
fp1 = strtol(p, &p1, 0);
if (p1 == p) {
fprintf(stderr, "Bad input line: %s\n", buffer);
done(EX_DATAERR);
}
p = p1;
} else {
fp1 = 0;
}
if (fp0 < 0 || fp0 >= fontlen) {
fprintf(stderr,
"%s: Glyph number (0x%x) larger than font length\n",
tblname, fp0);
done(EX_DATAERR);
}
if (fp1 && (fp1 < fp0 || fp1 >= fontlen)) {
fprintf(stderr,
"%s: Bad end of range (0x%x)\n",
tblname, fp1);
done(EX_DATAERR);
}
if (fp1) {
/*
* We have a range; expect the word "idem"
* or a Unicode range of the same length.
*/
while (*p == ' ' || *p == '\t') {
p++;
}
if (!strncmp(p, "idem", 4)) {
for (i = fp0; i <= fp1; i++) {
addpair(i,i);
}
p += 4;
} else {
un0 = getunicode(&p);
while (*p == ' ' || *p == '\t') {
p++;
}
if (*p != '-') {
fprintf(stderr,
"%s: Corresponding to a range of font positions,",
tblname);
fprintf(stderr,
" there should be a Unicode range.\n");
done(EX_DATAERR);
}
p++;
un1 = getunicode(&p);
if (un0 < 0 || un1 < 0) {
fprintf(stderr,
"%s: Bad Unicode range corresponding to font position range 0x%x-0x%x\n",
tblname, fp0, fp1);
done(EX_DATAERR);
}
if (un1 - un0 != fp1 - fp0) {
fprintf(stderr,
"%s: Unicode range U+%x-U+%x not of the same length",
tblname, un0, un1);
fprintf(stderr,
" as font position range 0x%x-0x%x\n",
fp0, fp1);
done(EX_DATAERR);
}
for (i = fp0; i <= fp1; i++) {
addpair(i,un0-fp0+i);
}
}
} else {
/*
* No range; expect a list of unicode values
* or unicode ranges for a single font position,
* or the word "idem"
*/
while (*p == ' ' || *p == '\t') {
p++;
}
if (!strncmp(p, "idem", 4)) {
addpair(fp0,fp0);
p += 4;
}
while ((un0 = getunicode(&p)) >= 0) {
addpair(fp0, un0);
while (*p == ' ' || *p == '\t') {
p++;
}
if (*p == '-') {
p++;
un1 = getunicode(&p);
if (un1 < un0) {
fprintf(stderr,
"%s: Bad Unicode range 0x%x-0x%x\n",
tblname, un0, un1);
done(EX_DATAERR);
}
for (un0++; un0 <= un1; un0++) {
addpair(fp0, un0);
}
}
}
}
while (*p == ' ' || *p == '\t') {
p++;
}
if (*p && *p != '#') {
fprintf(stderr, "%s: trailing junk (%s) ignored\n", tblname, p);
}
}
/* returns 1 if incorrect */
PUBLIC int html_src_parse_tagspec ARGS4(
char*, ts,
HTlexeme, lexeme,
BOOL, checkonly,
BOOL, isstart)
{
char *p = ts;
char *tagstart = 0;
char *tagend = 0;
char *classstart;
char *classend;
char stop = FALSE, after_excl = FALSE;
html_src_check_state state = HTSRC_CK_normal;
HT_tagspec* head = NULL, *tail = NULL;
HT_tagspec** slot = ( isstart ? lexeme_start : lexeme_end ) + lexeme;
while (!stop) {
switch (state) {
case HTSRC_CK_normal:
case HTSRC_CK_seen_excl:
switch (*p) {
case '\0': stop = TRUE; break;
case ' ': case '\t': break;
case '!':
if (state == HTSRC_CK_seen_excl)
return 1; /*second '!'*/
state = HTSRC_CK_seen_excl;
after_excl = TRUE;
break;
default:
if (isalpha(UCH(*p)) || *p == '_') {
tagstart = p;
while (*p && ( isalnum(UCH(*p)) || *p == '_') )
++p;
tagend = p;
state = HTSRC_CK_after_tagname;
} else
return 1;
continue;
}
break;
case HTSRC_CK_after_tagname:
switch (*p) {
case '\0': stop = TRUE;
/* FALLTHRU */
case ' ':
/* FALLTHRU */
case '\t':
{
char save = *tagend;
*tagend = '\0';
classstart = 0;
if (checkonly) {
int idx = html_src_tag_index(tagstart);
*tagend = save;
if (idx == -1)
return 1;
} else {
if (after_excl)
append_close_tag(tagstart, &head, &tail);
else
append_open_tag(tagstart, NULL, &head, &tail);
}
state = HTSRC_CK_normal;
after_excl = FALSE;
}
break;
case '.':
if (after_excl)
return 1;
state = HTSRC_CK_seen_dot;
break;
default:
return 1;
}
break;
case HTSRC_CK_seen_dot: {
switch (*p) {
case ' ':
case '\t':
break;
case '\0':
return 1;
default: {
char save, save1;
if ( isalpha(UCH(*p)) || *p == '_' ) {
classstart = p;
while (*p && ( isalnum(UCH(*p)) || *p == '_') ) ++p;
classend = p;
save = *classend;
*classend = '\0';
save1 = *tagend;
*tagend = '\0';
if (checkonly) {
int idx = html_src_tag_index(tagstart);
*tagend = save1; *classend = save;
if (idx == -1)
return 1;
} else {
append_open_tag(tagstart, classstart, &head, &tail);
}
state = HTSRC_CK_normal;after_excl = FALSE;
continue;
} else
return 1;
}
}/*of switch(*p)*/
break;
} /* of case HTSRC_CK_seen_dot: */
}/* of switch */
++p;
}
if (!checkonly)
*slot = head;
return 0;
}
start_input_tga (j_compress_ptr cinfo, cjpeg_source_ptr sinfo)
{
tga_source_ptr source = (tga_source_ptr) sinfo;
U_CHAR targaheader[18];
int idlen, cmaptype, subtype, flags, interlace_type, components;
unsigned int width, height, maplen;
boolean is_bottom_up;
#define GET_2B(offset) ((unsigned int) UCH(targaheader[offset]) + \
(((unsigned int) UCH(targaheader[offset+1])) << 8))
if (! ReadOK(source->pub.input_file, targaheader, 18))
ERREXIT(cinfo, JERR_INPUT_EOF);
/* Pretend "15-bit" pixels are 16-bit --- we ignore attribute bit anyway */
if (targaheader[16] == 15)
targaheader[16] = 16;
idlen = UCH(targaheader[0]);
cmaptype = UCH(targaheader[1]);
subtype = UCH(targaheader[2]);
maplen = GET_2B(5);
width = GET_2B(12);
height = GET_2B(14);
source->pixel_size = UCH(targaheader[16]) >> 3;
flags = UCH(targaheader[17]); /* Image Descriptor byte */
is_bottom_up = ((flags & 0x20) == 0); /* bit 5 set => top-down */
interlace_type = flags >> 6; /* bits 6/7 are interlace code */
if (cmaptype > 1 || /* cmaptype must be 0 or 1 */
source->pixel_size < 1 || source->pixel_size > 4 ||
(UCH(targaheader[16]) & 7) != 0 || /* bits/pixel must be multiple of 8 */
interlace_type != 0) /* currently don't allow interlaced image */
ERREXIT(cinfo, JERR_TGA_BADPARMS);
if (subtype > 8) {
/* It's an RLE-coded file */
source->read_pixel = read_rle_pixel;
source->block_count = source->dup_pixel_count = 0;
subtype -= 8;
} else {
/* Non-RLE file */
source->read_pixel = read_non_rle_pixel;
}
/* Now should have subtype 1, 2, or 3 */
components = 3; /* until proven different */
cinfo->in_color_space = JCS_RGB;
switch (subtype) {
case 1: /* Colormapped image */
if (source->pixel_size == 1 && cmaptype == 1)
source->get_pixel_rows = get_8bit_row;
else
ERREXIT(cinfo, JERR_TGA_BADPARMS);
TRACEMS2(cinfo, 1, JTRC_TGA_MAPPED, width, height);
break;
case 2: /* RGB image */
switch (source->pixel_size) {
case 2:
source->get_pixel_rows = get_16bit_row;
break;
case 3:
source->get_pixel_rows = get_24bit_row;
break;
case 4:
source->get_pixel_rows = get_32bit_row;
break;
default:
ERREXIT(cinfo, JERR_TGA_BADPARMS);
break;
}
TRACEMS2(cinfo, 1, JTRC_TGA, width, height);
break;
case 3: /* Grayscale image */
components = 1;
cinfo->in_color_space = JCS_GRAYSCALE;
if (source->pixel_size == 1)
source->get_pixel_rows = get_8bit_gray_row;
else
ERREXIT(cinfo, JERR_TGA_BADPARMS);
TRACEMS2(cinfo, 1, JTRC_TGA_GRAY, width, height);
break;
default:
ERREXIT(cinfo, JERR_TGA_BADPARMS);
break;
}
if (is_bottom_up) {
/* Create a virtual array to buffer the upside-down image. */
source->whole_image = (*cinfo->mem->request_virt_sarray)
((j_common_ptr) cinfo, JPOOL_IMAGE, FALSE,
(JDIMENSION) width * components, (JDIMENSION) height, (JDIMENSION) 1);
if (cinfo->progress != NULL) {
cd_progress_ptr progress = (cd_progress_ptr) cinfo->progress;
progress->total_extra_passes++; /* count file input as separate pass */
}
/* source->pub.buffer will point to the virtual array. */
source->pub.buffer_height = 1; /* in case anyone looks at it */
source->pub.get_pixel_rows = preload_image;
} else {
/* Don't need a virtual array, but do need a one-row input buffer. */
source->whole_image = NULL;
source->pub.buffer = (*cinfo->mem->alloc_sarray)
((j_common_ptr) cinfo, JPOOL_IMAGE,
(JDIMENSION) width * components, (JDIMENSION) 1);
source->pub.buffer_height = 1;
source->pub.get_pixel_rows = source->get_pixel_rows;
}
while (idlen--) /* Throw away ID field */
(void) read_byte(source);
if (maplen > 0) {
if (maplen > 256 || GET_2B(3) != 0)
ERREXIT(cinfo, JERR_TGA_BADCMAP);
/* Allocate space to store the colormap */
source->colormap = (*cinfo->mem->alloc_sarray)
((j_common_ptr) cinfo, JPOOL_IMAGE, (JDIMENSION) maplen, (JDIMENSION) 3);
/* and read it from the file */
read_colormap(source, (int) maplen, UCH(targaheader[7]));
} else {
if (cmaptype) /* but you promised a cmap! */
ERREXIT(cinfo, JERR_TGA_BADPARMS);
source->colormap = NULL;
}
cinfo->input_components = components;
cinfo->data_precision = 8;
cinfo->image_width = width;
cinfo->image_height = height;
}
/*
* This function is called from HTLoadNews() to have the user
* create a file with news headers and a body for posting of
* a new message (based on a newspost://nntp_host/newsgroups
* or snewspost://secure_nntp_host/newsgroups URL), or to post
* a followup (based on a newsreply://nntp_host/newsgroups or
* snewsreply://secure_nntp_host/newsgroups URL). The group
* or comma-separated list of newsgroups is passed without
* a lead slash, and followup is TRUE for newsreply or
* snewsreply URLs. - FM
*/
char *LYNewsPost(char *newsgroups,
BOOLEAN followup)
{
char user_input[MAX_LINE];
char CJKinput[MAX_LINE];
char *cp = NULL;
const char *kp = NULL;
int c = 0; /* user input */
int len;
FILE *fd = NULL;
char my_tempfile[LY_MAXPATH];
FILE *fc = NULL;
char CJKfile[LY_MAXPATH];
char *postfile = NULL;
char *NewsGroups = NULL;
char *References = NULL;
char *org = NULL;
FILE *fp = NULL;
BOOLEAN nonempty = FALSE;
BOOLEAN nonspaces = FALSE;
/*
* Make sure a non-zero length newspost, newsreply, snewspost or snewsreply
* path was sent to us. - FM
*/
if (isEmpty(newsgroups))
return (postfile);
/*
* Return immediately if we do get called, maybe by some quirk of HTNews.c,
* when we shouldn't. - kw
*/
if (no_newspost)
return (postfile);
/*
* Open a temporary file for the headers and message body. - FM
*/
#ifdef __DJGPP__
if ((fd = LYOpenTemp(my_tempfile, HTML_SUFFIX, BIN_W)) == NULL)
#else
if ((fd = LYOpenTemp(my_tempfile, HTML_SUFFIX, "w")) == NULL)
#endif /* __DJGPP__ */
{
HTAlert(CANNOT_OPEN_TEMP);
return (postfile);
}
/*
* If we're using a Japanese display character set, open a temporary file
* for a conversion to JIS. - FM
*/
CJKfile[0] = '\0';
if (current_char_set == UCGetLYhndl_byMIME("euc-jp") ||
current_char_set == UCGetLYhndl_byMIME("shift_jis")) {
if ((fc = LYOpenTemp(CJKfile, HTML_SUFFIX, "w")) == NULL) {
HTAlert(CANNOT_OPEN_TEMP);
LYRemoveTemp(my_tempfile);
return (postfile);
}
}
/*
* The newsgroups could be a comma-seperated list. It need not have
* spaces, but deal with any that may also have been hex escaped. - FM
*/
StrAllocCopy(NewsGroups, newsgroups);
if ((cp = strstr(NewsGroups, ";ref="))) {
*cp = '\0';
cp += 5;
if (*cp == '<') {
StrAllocCopy(References, cp);
} else {
StrAllocCopy(References, "<");
StrAllocCat(References, cp);
StrAllocCat(References, ">");
}
HTUnEscape(References);
if (!((cp = strchr(References, '@')) && cp > References + 1 &&
isalnum(UCH(cp[1])))) {
FREE(References);
}
}
HTUnEscape(NewsGroups);
if (!*NewsGroups) {
LYCloseTempFP(fd); /* Close the temp file. */
goto cleanup;
}
/*
* Allow ^C to cancel the posting, i.e., don't let SIGINTs exit Lynx.
*/
signal(SIGINT, terminate_message);
term_message = FALSE;
/*
* Show the list of newsgroups. - FM
*/
LYclear();
LYmove(2, 0);
scrollok(LYwin, TRUE); /* Enable scrolling. */
LYaddstr(gettext("You will be posting to:"));
LYaddstr("\n\t");
LYaddstr(NewsGroups);
LYaddch('\n');
/*
* Get the mail address for the From header, offering personal_mail_address
* as default.
*/
LYaddstr(gettext("\n\n Please provide your mail address for the From: header\n"));
sprintf(user_input, "From: %.*s", (int) sizeof(user_input) - 8,
NonNull(personal_mail_address));
if (LYgetstr(user_input, VISIBLE,
sizeof(user_input), NORECALL) < 0 ||
term_message) {
HTInfoMsg(NEWS_POST_CANCELLED);
LYCloseTempFP(fd); /* Close the temp file. */
scrollok(LYwin, FALSE); /* Stop scrolling. */
goto cleanup;
}
fprintf(fd, "%s\n", user_input);
/*
* Get the Subject header, offering the current document's title as the
* default if this is a followup rather than a new post. - FM
*/
LYaddstr(gettext("\n\n Please provide or edit the Subject: header\n"));
strcpy(user_input, "Subject: ");
if ((followup == TRUE && nhist > 0) &&
(kp = HText_getTitle()) != NULL) {
/*
* Add the default subject.
*/
kp = LYSkipCBlanks(kp);
#ifdef CJK_EX /* 1998/05/15 (Fri) 09:10:38 */
if (HTCJK == JAPANESE) {
CJKinput[0] = '\0';
switch (kanji_code) {
case EUC:
TO_EUC((const unsigned char *) kp, (unsigned char *) CJKinput);
kp = CJKinput;
break;
case SJIS:
TO_SJIS((const unsigned char *) kp, (unsigned char *) CJKinput);
kp = CJKinput;
break;
default:
break;
}
}
#endif
if (strncasecomp(kp, "Re:", 3)) {
strcat(user_input, "Re: ");
}
len = (int) strlen(user_input);
LYstrncpy(user_input + len, kp, (int) sizeof(user_input) - len - 1);
}
cp = NULL;
if (LYgetstr(user_input, VISIBLE,
sizeof(user_input), NORECALL) < 0 ||
term_message) {
HTInfoMsg(NEWS_POST_CANCELLED);
LYCloseTempFP(fd); /* Close the temp file. */
scrollok(LYwin, FALSE); /* Stop scrolling. */
goto cleanup;
}
fprintf(fd, "%s\n", user_input);
/*
* Add Organization: header.
*/
StrAllocCopy(cp, "Organization: ");
if ((org = LYGetEnv("ORGANIZATION")) != NULL) {
StrAllocCat(cp, org);
} else if ((org = LYGetEnv("NEWS_ORGANIZATION")) != NULL) {
StrAllocCat(cp, org);
}
#ifdef UNIX
else if ((fp = fopen("/etc/organization", TXT_R)) != NULL) {
char *buffer = 0;
if (LYSafeGets(&buffer, fp) != NULL) {
if (user_input[0] != '\0') {
LYTrimNewline(buffer);
StrAllocCat(cp, buffer);
}
}
FREE(buffer);
LYCloseInput(fp);
}
#else
#ifdef _WINDOWS /* 1998/05/14 (Thu) 17:47:01 */
else {
char *p, fname[LY_MAXPATH];
strcpy(fname, LynxSigFile);
p = strrchr(fname, '/');
if (p != 0 && (p - fname) < sizeof(fname) - 15) {
strcpy(p + 1, "LYNX_ETC.TXT");
if ((fp = fopen(fname, TXT_R)) != NULL) {
if (fgets(user_input, sizeof(user_input), fp) != NULL) {
if ((org = strchr(user_input, '\n')) != NULL) {
*org = '\0';
}
if (user_input[0] != '\0') {
StrAllocCat(cp, user_input);
}
}
LYCloseInput(fp);
}
}
}
#endif /* _WINDOWS */
#endif /* !UNIX */
LYstrncpy(user_input, cp, (sizeof(user_input) - 16));
FREE(cp);
LYaddstr(gettext("\n\n Please provide or edit the Organization: header\n"));
if (LYgetstr(user_input, VISIBLE,
sizeof(user_input), NORECALL) < 0 ||
term_message) {
HTInfoMsg(NEWS_POST_CANCELLED);
LYCloseTempFP(fd); /* Close the temp file. */
scrollok(LYwin, FALSE); /* Stop scrolling. */
goto cleanup;
}
fprintf(fd, "%s\n", user_input);
if (References) {
fprintf(fd, "References: %s\n", References);
}
/*
* Add Newsgroups Summary and Keywords headers.
*/
fprintf(fd, "Newsgroups: %s\nSummary: \nKeywords: \n\n", NewsGroups);
/*
* Have the user create the message body.
*/
if (!no_editor && non_empty(editor)) {
if (followup && nhist > 0) {
/*
* Ask if the user wants to include the original message.
*/
if (term_message) {
_statusline(INC_ORIG_MSG_PROMPT);
} else if (HTConfirm(INC_ORIG_MSG_PROMPT) == YES) {
/*
* The 'TRUE' will add the reply ">" in front of every line.
* We're assuming that if the display character set is Japanese
* and the document did not have a CJK charset, any non-EUC or
* non-SJIS 8-bit characters in it where converted to 7-bit
* equivalents. - FM
*/
print_wwwfile_to_fd(fd, FALSE, TRUE);
}
}
LYCloseTempFP(fd); /* Close the temp file. */
scrollok(LYwin, FALSE); /* Stop scrolling. */
if (term_message || LYCharIsINTERRUPT(c))
goto cleanup;
/*
* Spawn the user's editor on the news file.
*/
edit_temporary_file(my_tempfile, "", SPAWNING_EDITOR_FOR_NEWS);
nonempty = message_has_content(my_tempfile, &nonspaces);
} else {
/*
* Use the built in line editior.
*/
LYaddstr(gettext("\n\n Please enter your message below."));
LYaddstr(gettext("\n When you are done, press enter and put a single period (.)"));
LYaddstr(gettext("\n on a line and press enter again."));
LYaddstr("\n\n");
LYrefresh();
*user_input = '\0';
if (LYgetstr(user_input, VISIBLE,
sizeof(user_input), NORECALL) < 0 ||
term_message) {
HTInfoMsg(NEWS_POST_CANCELLED);
LYCloseTempFP(fd); /* Close the temp file. */
scrollok(LYwin, FALSE); /* Stop scrolling. */
goto cleanup;
}
while (!STREQ(user_input, ".") && !term_message) {
LYaddch('\n');
fprintf(fd, "%s\n", user_input);
if (!nonempty && strlen(user_input))
nonempty = TRUE;
*user_input = '\0';
if (LYgetstr(user_input, VISIBLE,
sizeof(user_input), NORECALL) < 0) {
HTInfoMsg(NEWS_POST_CANCELLED);
LYCloseTempFP(fd); /* Close the temp file. */
scrollok(LYwin, FALSE); /* Stop scrolling. */
goto cleanup;
}
}
fprintf(fd, "\n");
LYCloseTempFP(fd); /* Close the temp file. */
scrollok(LYwin, FALSE); /* Stop scrolling. */
}
if (nonempty) {
/*
* Confirm whether to post, and if so, whether to append the sig file.
* - FM
*/
LYStatusLine = (LYlines - 1);
c = HTConfirm(POST_MSG_PROMPT);
LYStatusLine = -1;
if (c != YES) {
LYclear(); /* clear the screen */
goto cleanup;
}
} else {
HTAlert(gettext("Message has no original text!"));
if (!nonspaces
|| HTConfirmDefault(POST_MSG_PROMPT, NO) != YES)
goto cleanup;
}
if ((LynxSigFile != NULL) && (fp = fopen(LynxSigFile, TXT_R)) != NULL) {
char *msg = NULL;
HTSprintf0(&msg, APPEND_SIG_FILE, LynxSigFile);
LYStatusLine = (LYlines - 1);
if (term_message) {
_user_message(APPEND_SIG_FILE, LynxSigFile);
} else if (HTConfirm(msg) == YES) {
if ((fd = LYAppendToTxtFile(my_tempfile)) != NULL) {
char *buffer = NULL;
fputs("-- \n", fd);
while (LYSafeGets(&buffer, fp) != NULL) {
fputs(buffer, fd);
}
LYCloseOutput(fd);
}
}
LYCloseInput(fp);
FREE(msg);
LYStatusLine = -1;
}
LYclear(); /* clear the screen */
/*
* If we are using a Japanese display character set, convert the contents
* of the temp file to JIS (nothing should change if it does not, in fact,
* contain EUC or SJIS di-bytes). Otherwise, use the temp file as is. -
* FM
*/
if (CJKfile[0] != '\0') {
if ((fd = fopen(my_tempfile, TXT_R)) != NULL) {
char *buffer = NULL;
while (LYSafeGets(&buffer, fd) != NULL) {
TO_JIS((unsigned char *) buffer,
(unsigned char *) CJKinput);
fputs(CJKinput, fc);
}
LYCloseTempFP(fc);
StrAllocCopy(postfile, CJKfile);
LYCloseInput(fd);
LYRemoveTemp(my_tempfile);
strcpy(my_tempfile, CJKfile);
CJKfile[0] = '\0';
} else {
StrAllocCopy(postfile, my_tempfile);
}
} else {
StrAllocCopy(postfile, my_tempfile);
}
if (!followup) {
/*
* If it's not a followup, the current document most likely is the
* group listing, so force a to have the article show up in the list
* after the posting. Note, that if it's a followup via a link in a
* news article, the user must do a reload manually on returning to the
* group listing. - FM
*/
LYforce_no_cache = TRUE;
}
LYStatusLine = (LYlines - 1);
HTUserMsg(POSTING_TO_NEWS);
LYStatusLine = -1;
/*
* Come here to cleanup and exit.
*/
cleanup:
#ifndef VMS
signal(SIGINT, cleanup_sig);
#endif /* !VMS */
term_message = FALSE;
if (!postfile)
LYRemoveTemp(my_tempfile);
LYRemoveTemp(CJKfile);
FREE(NewsGroups);
FREE(References);
return (postfile);
}
static void
yaccExpected(const char *s, int count)
{
static struct {
const char *actual, *name;
} tbl[] = {
{
"...", "T_ELLIPSIS"
},
{
"[]", "T_BRACKETS"
},
{
"{", "T_LBRACE"
},
{
"}", "T_MATCHRBRACE"
},
};
unsigned j;
int k, x;
unsigned n;
const char *t = s;
char *tt;
const char *tag;
char tmp[MSGLEN];
static unsigned have;
static unsigned used;
static char **vec;
if (count < 0) {
if (used != 0) {
if (used > 1)
qsort((char *) vec, used, sizeof(vec[0]), compar);
/* limit length of error message */
k = MSGLEN - (int) (strlen(vec[used - 1]) + 2);
for (j = 0; j < used; j++) {
tag = j ? " " : "Expected: ";
s = vec[j];
if (j != (used - 1)) {
x = (int) (strlen(s) + strlen(tag));
if (k <= 0)
continue;
else if ((k - x) <= 0)
s = "...";
k -= x;
}
fprintf(stderr, "%s%s", tag, s);
}
fprintf(stderr, "\n");
while (used-- != 0) {
free(vec[used]);
vec[used] = 0;
}
}
used = 0;
} else {
int found = FALSE;
strcpy(tmp, t);
if (!strncmp(t, "T_", 2)) {
for (j = 0; j < sizeof(tbl) / sizeof(tbl[0]); j++) {
if (!strcmp(t, tbl[j].name)) {
t = tbl[j].actual;
found = TRUE;
break;
}
}
if (!found) {
tt = strncpy(tmp, t + 2, sizeof(tmp) - 1);
for (k = 0; tt[k] != '\0'; k++) {
if (tt[k] == '_')
tt[k] = '-';
else if (isalpha(UCH(tt[k])) && isupper(UCH(tt[k])))
tt[k] = (char) tolower(UCH(tt[k]));
}
}
}
if ((unsigned) count >= have) {
have = (unsigned) (count + 10);
if (vec == 0) {
vec = (char **) malloc(have * sizeof(*vec));
} else {
vec = (char **) realloc(vec, have * sizeof(*vec));
}
for (n = used; n < have; n++)
vec[n] = 0;
}
if (vec[count] != 0) {
free(vec[count]);
}
vec[count] = xstrdup(found ? t : tmp);
used = (unsigned) (count + 1);
}
}
int main(int argc, char **argv)
{
static const char *first_ifdefs[] =
{
"/*",
" * Compile-in this chunk of code unless we've turned it off specifically",
" * or in general (id=%s).",
" */",
"",
"#ifndef INCL_CHARSET%s",
"#define INCL_CHARSET%s 1",
"",
"/*ifdef NO_CHARSET*/",
"#ifdef NO_CHARSET",
"#undef NO_CHARSET",
"#endif",
"#define NO_CHARSET 0 /* force default to always be active */",
"",
"/*ifndef NO_CHARSET%s*/",
"#ifndef NO_CHARSET%s",
"",
"#if ALL_CHARSETS",
"#define NO_CHARSET%s 0",
"#else",
"#define NO_CHARSET%s 1",
"#endif",
"",
"#endif /* ndef(NO_CHARSET%s) */",
"",
"#if NO_CHARSET%s",
"#define UC_CHARSET_SETUP%s /*nothing*/",
"#else"
};
static const char *last_ifdefs[] =
{
"",
"#endif /* NO_CHARSET%s */",
"",
"#endif /* INCL_CHARSET%s */"
};
FILE *ctbl;
char buffer[65536];
char *outname = 0;
unsigned n;
int fontlen;
int i, nuni, nent;
int fp0 = 0, fp1 = 0, un0, un1;
char *p, *p1;
char *tbuf, ch;
if (argc < 2 || argc > 5) {
usage();
}
if (!strcmp(argv[1], "-")) {
ctbl = stdin;
tblname = "stdin";
} else {
ctbl = fopen(tblname = argv[1], "r");
if (!ctbl) {
perror(tblname);
done(EX_NOINPUT);
}
}
if (argc > 2) {
if (!strcmp(argv[2], "-")) {
chdr = stdout;
hdrname = "stdout";
} else {
hdrname = argv[2];
}
} else if (ctbl == stdin) {
chdr = stdout;
hdrname = "stdout";
} else if ((outname = (char *) malloc(strlen(tblname) + 3)) != 0) {
strcpy(outname, tblname);
hdrname = outname;
if ((p = strrchr(outname, '.')) == 0)
p = outname + strlen(outname);
strcpy(p, ".h");
} else {
perror("malloc");
done(EX_NOINPUT);
}
if (chdr == 0) {
chdr = fopen(hdrname, "w");
if (!chdr) {
perror(hdrname);
done(EX_NOINPUT);
}
}
/*
* For now we assume the default font is always 256 characters.
*/
fontlen = 256;
/*
* Initialize table.
*/
for (i = 0; i < fontlen; i++) {
unicount[i] = 0;
}
/*
* Now we comes to the tricky part. Parse the input table.
*/
while (fgets(buffer, sizeof(buffer), ctbl) != NULL) {
if ((p = strchr(buffer, '\n')) != NULL) {
*p = '\0';
} else {
fprintf(stderr,
"%s: Warning: line too long or incomplete.\n",
tblname);
}
/*
* Syntax accepted:
* <fontpos> <unicode> <unicode> ...
* <fontpos> <unicode range> <unicode range> ...
* <fontpos> idem
* <range> idem
* <range> <unicode range>
* <unicode> :<replace>
* <unicode range> :<replace>
* <unicode> "<C replace>"
* <unicode range> "<C replace>"
*
* where <range> ::= <fontpos>-<fontpos>
* and <unicode> ::= U+<h><h><h><h>
* and <h> ::= <hexadecimal digit>
* and <replace> any string not containing '\n' or '\0'
* and <C replace> any string with C backslash escapes.
*/
p = buffer;
while (*p == ' ' || *p == '\t') {
p++;
}
if (!(*p) || *p == '#') {
/*
* Skip comment or blank line.
*/
continue;
}
switch (*p) {
/*
* Raw Unicode? I.e. needs some special
* processing. One digit code.
*/
case 'R':
if (p[1] == 'a' || p[1] == 'A') {
buffer[sizeof(buffer) - 1] = '\0';
if (!strncasecomp(p, "RawOrEnc", 8)) {
p += 8;
}
}
p++;
while (*p == ' ' || *p == '\t') {
p++;
}
RawOrEnc = strtol(p, 0, 10);
Raw_found = 1;
continue;
/*
* Is this the default table?
*/
case 'D':
if (p[1] == 'e' || p[1] == 'E') {
buffer[sizeof(buffer) - 1] = '\0';
if (!strncasecomp(p, "Default", 7)) {
p += 7;
}
}
p++;
while (*p == ' ' || *p == '\t') {
p++;
}
this_isDefaultMap = (*p == '1' || TOLOWER(*p) == 'y');
continue;
/*
* Is this the default table?
*/
case 'F':
if (p[1] == 'a' || p[1] == 'A') {
buffer[sizeof(buffer) - 1] = '\0';
if (!strncasecomp(p, "FallBack", 8)) {
p += 8;
}
}
p++;
while (*p == ' ' || *p == '\t') {
p++;
}
useDefaultMap = (*p == '1' || TOLOWER(*p) == 'y');
continue;
case 'M':
if (p[1] == 'i' || p[1] == 'I') {
buffer[sizeof(buffer) - 1] = '\0';
if (!strncasecomp(p, "MIMEName", 8)) {
p += 8;
}
}
p++;
while (*p == ' ' || *p == '\t') {
p++;
}
sscanf(p, "%40s", this_MIMEcharset);
continue;
/*
* Display charset name for options screen.
*/
case 'O':
if (p[1] == 'p' || p[1] == 'P') {
buffer[sizeof(buffer) - 1] = '\0';
if (!strncasecomp(p, "OptionName", 10)) {
p += 10;
}
}
p++;
while (*p == ' ' || *p == '\t') {
p++;
}
for (i = 0; *p && i < UC_MAXLEN_LYNXCSNAME; p++, i++) {
this_LYNXcharset[i] = *p;
}
this_LYNXcharset[i] = '\0';
continue;
/*
* Codepage number. Three or four digit code.
*/
case 'C':
if (p[1] == 'o' || p[1] == 'O') {
buffer[sizeof(buffer) - 1] = '\0';
if (!strncasecomp(p, "CodePage", 8)) {
p += 8;
}
}
p++;
while (*p == ' ' || *p == '\t') {
p++;
}
CodePage = strtol(p, 0, 10);
continue;
}
if (*p == 'U') {
un0 = getunicode(&p);
if (un0 < 0) {
fprintf(stderr, "Bad input line: %s\n", buffer);
done(EX_DATAERR);
fprintf(stderr,
"%s: Bad Unicode range corresponding to font position range 0x%x-0x%x\n",
tblname, fp0, fp1);
done(EX_DATAERR);
}
un1 = un0;
while (*p == ' ' || *p == '\t') {
p++;
}
if (*p == '-') {
p++;
while (*p == ' ' || *p == '\t') {
p++;
}
un1 = getunicode(&p);
if (un1 < 0 || un1 < un0) {
fprintf(stderr,
"%s: Bad Unicode range U+%x-U+%x\n",
tblname, un0, un1);
fprintf(stderr, "Bad input line: %s\n", buffer);
done(EX_DATAERR);
}
while (*p == ' ' || *p == '\t') {
p++;
}
}
if (*p != ':' && *p != '"') {
fprintf(stderr, "No ':' or '\"' where expected: %s\n",
buffer);
continue;
}
/*
* Allocate a string large enough for the worst-case use in the
* loop using sprintf.
*/
tbuf = (char *) malloc(5 * strlen(p));
if (!(p1 = tbuf)) {
fprintf(stderr, "%s: Out of memory\n", tblname);
done(EX_DATAERR);
}
if (*p == '"') {
/*
* Handle "<C replace>".
* Copy chars verbatim until first '"' not \-escaped or
* end of buffer.
*/
int escaped = 0;
for (ch = *(++p); (ch = *p) != '\0'; p++) {
if (escaped) {
escaped = 0;
} else if (ch == '"') {
break;
} else if (ch == '\\') {
escaped = 1;
}
*p1++ = ch;
}
if (escaped || ch != '"') {
fprintf(stderr, "Warning: String not terminated: %s\n",
buffer);
if (escaped)
*p1++ = '\n';
}
} else {
/*
* We had ':'.
*/
for (ch = *(++p); (ch = *p) != '\0'; p++, p1++) {
if (UCH(ch) < 32 || ch == '\\' || ch == '\"' ||
UCH(ch) >= 127) {
sprintf(p1, "\\%.3o", UCH(ch));
p1 += 3;
} else {
*p1 = ch;
}
}
}
*p1 = '\0';
for (i = un0; i <= un1; i++) {
addpair_str(tbuf, i);
}
continue;
}
/*
* Input line (after skipping spaces) doesn't start with one
* of the specially recognized characters, so try to interpret
* it as starting with a fontpos.
*/
fp0 = strtol(p, &p1, 0);
if (p1 == p) {
fprintf(stderr, "Bad input line: %s\n", buffer);
done(EX_DATAERR);
}
p = p1;
while (*p == ' ' || *p == '\t') {
p++;
}
if (*p == '-') {
p++;
fp1 = strtol(p, &p1, 0);
if (p1 == p) {
fprintf(stderr, "Bad input line: %s\n", buffer);
done(EX_DATAERR);
}
p = p1;
} else {
fp1 = 0;
}
if (fp0 < 0 || fp0 >= fontlen) {
fprintf(stderr,
"%s: Glyph number (0x%x) larger than font length\n",
tblname, fp0);
done(EX_DATAERR);
}
if (fp1 && (fp1 < fp0 || fp1 >= fontlen)) {
fprintf(stderr,
"%s: Bad end of range (0x%x)\n",
tblname, fp1);
done(EX_DATAERR);
}
if (fp1) {
/*
* We have a range; expect the word "idem"
* or a Unicode range of the same length.
*/
while (*p == ' ' || *p == '\t') {
p++;
}
if (!strncmp(p, "idem", 4)) {
for (i = fp0; i <= fp1; i++) {
addpair(i, i);
}
p += 4;
} else {
un0 = getunicode(&p);
while (*p == ' ' || *p == '\t') {
p++;
}
if (*p != '-') {
fprintf(stderr,
"%s: Corresponding to a range of font positions,",
tblname);
fprintf(stderr,
" there should be a Unicode range.\n");
done(EX_DATAERR);
}
p++;
un1 = getunicode(&p);
if (un0 < 0 || un1 < 0) {
fprintf(stderr,
"%s: Bad Unicode range corresponding to font position range 0x%x-0x%x\n",
tblname, fp0, fp1);
done(EX_DATAERR);
}
if (un1 - un0 != fp1 - fp0) {
fprintf(stderr,
"%s: Unicode range U+%x-U+%x not of the same length",
tblname, un0, un1);
fprintf(stderr,
" as font position range 0x%x-0x%x\n",
fp0, fp1);
done(EX_DATAERR);
}
for (i = fp0; i <= fp1; i++) {
addpair(i, un0 - fp0 + i);
}
}
} else {
/*
* No range; expect a list of unicode values
* or unicode ranges for a single font position,
* or the word "idem"
*/
while (*p == ' ' || *p == '\t') {
p++;
}
if (!strncmp(p, "idem", 4)) {
addpair(fp0, fp0);
p += 4;
}
while ((un0 = getunicode(&p)) >= 0) {
addpair(fp0, un0);
while (*p == ' ' || *p == '\t') {
p++;
}
if (*p == '-') {
p++;
un1 = getunicode(&p);
if (un1 < un0) {
fprintf(stderr,
"%s: Bad Unicode range 0x%x-0x%x\n",
tblname, un0, un1);
done(EX_DATAERR);
}
for (un0++; un0 <= un1; un0++) {
addpair(fp0, un0);
}
}
}
}
while (*p == ' ' || *p == '\t') {
p++;
}
if (*p && *p != '#') {
fprintf(stderr, "%s: trailing junk (%s) ignored\n", tblname, p);
}
}
/*
* Okay, we hit EOF, now output tables.
*/
fclose(ctbl);
/*
* Compute total size of Unicode list.
*/
nuni = 0;
for (i = 0; i < fontlen; i++) {
nuni += unicount[i];
}
if (argc > 3) {
strncpy(this_MIMEcharset, argv[3], UC_MAXLEN_MIMECSNAME);
} else if (this_MIMEcharset[0] == '\0') {
strncpy(this_MIMEcharset, tblname, UC_MAXLEN_MIMECSNAME);
if ((p = strchr(this_MIMEcharset, '.')) != 0) {
*p = '\0';
}
}
for (p = this_MIMEcharset; *p; p++) {
*p = TOLOWER(*p);
}
if (argc > 4) {
strncpy(this_LYNXcharset, argv[4], UC_MAXLEN_LYNXCSNAME);
} else if (this_LYNXcharset[0] == '\0') {
strncpy(this_LYNXcharset, this_MIMEcharset, UC_MAXLEN_LYNXCSNAME);
}
if (this_isDefaultMap == -1) {
this_isDefaultMap = !strncmp(this_MIMEcharset, "iso-8859-1", 10);
}
fprintf(stderr,
"makeuctb: %s: %stranslation map",
this_MIMEcharset, (this_isDefaultMap ? "default " : ""));
if (this_isDefaultMap == 1) {
*id_append = '\0';
} else {
for (i = 0, p = this_MIMEcharset;
*p && (i < UC_MAXLEN_ID_APPEND - 1);
p++, i++) {
id_append[i + 1] = isalnum(UCH(*p)) ? *p : '_';
}
id_append[i + 1] = '\0';
}
fprintf(stderr, " (%s).\n", id_append);
for (n = 0; n < TABLESIZE(first_ifdefs); n++) {
fprintf(chdr, first_ifdefs[n], id_append);
fprintf(chdr, "\n");
}
fprintf(chdr, "\n\
/*\n\
* uni_hash.tbl\n\
*\n\
* Do not edit this file; it was automatically generated by\n\
*\n\
* %s %s\n\
*\n\
*/\n\
\n\
static const u8 dfont_unicount%s[%d] = \n\
{\n\t", argv[0], argv[1], id_append, fontlen);
for (i = 0; i < fontlen; i++) {
if (i >= 128 && unicount[i] > 0 && i < lowest_eight) {
lowest_eight = i;
}
fprintf(chdr, "%3d", unicount[i]);
if (i == (fontlen - 1)) {
fprintf(chdr, "\n};\n");
} else if ((i % 8) == 7) {
fprintf(chdr, ",\n\t");
} else {
fprintf(chdr, ", ");
}
}
/*
* If lowest_eightbit is anything else but 999,
* this can't be 7-bit only.
*/
if (lowest_eight != 999 && !RawOrEnc) {
RawOrEnc = UCT_ENC_8BIT;
}
if (nuni) {
fprintf(chdr, "\nstatic const u16 dfont_unitable%s[%d] = \n{\n\t",
id_append, nuni);
} else {
fprintf(chdr,
"\nstatic const u16 dfont_unitable%s[1] = {0}; /* dummy */\n", id_append);
}
fp0 = 0;
nent = 0;
for (i = 0; i < nuni; i++) {
while (nent >= unicount[fp0]) {
fp0++;
nent = 0;
}
fprintf(chdr, "0x%04x", unitable[fp0][nent++]);
if (i == (nuni - 1)) {
fprintf(chdr, "\n};\n");
} else if ((i % 8) == 7) {
fprintf(chdr, ",\n\t");
} else {
fprintf(chdr, ", ");
}
}
if (themap_str.entry_ct) {
fprintf(chdr, "\n\
static struct unipair_str repl_map%s[%d] = \n\
{\n\t", id_append, themap_str.entry_ct);
} else {
fprintf(chdr, "\n\
/* static struct unipair_str repl_map%s[]; */\n", id_append);
}
for (i = 0; i < themap_str.entry_ct; i++) {
fprintf(chdr, "{0x%x,\"%s\"}",
themap_str.entries[i].unicode,
themap_str.entries[i].replace_str);
if (i == (themap_str.entry_ct - 1)) {
fprintf(chdr, "\n};\n");
} else if ((i % 4) == 3) {
fprintf(chdr, ",\n\t");
} else {
fprintf(chdr, ", ");
}
}
if (themap_str.entry_ct) {
fprintf(chdr, "\n\
static const struct unimapdesc_str dfont_replacedesc%s = {%d,repl_map%s,",
id_append, themap_str.entry_ct, id_append);
} else {
