dirlist.go « widgets - aerc - mirror of ~rjarry's aerc fork

blob: 1240e5627e3446e1c8428543ff1f564d5cc11e28 (plain) (tree)

2349b7d ^

98da4c9 ^

2349b7d ^

5685a17 ^

8fa4583 ^

2349b7d ^

755aa9a ^

a782b70 ^

2349b7d ^

cf66462 ^

257affc ^

2349b7d ^

257affc ^

2349b7d ^

0713814 ^

257affc ^

a782b70 ^

257affc ^

cf66462 ^

2349b7d ^

cf66462 ^

62946ff ^

9e3b602 ^

62946ff ^

cf66462 ^

62946ff ^

2349b7d ^

5685a17 ^

2349b7d ^

24196d2 ^

a782b70 ^

257affc ^

cf66462 ^

257affc ^

cf66462 ^

84965d6 ^

cf66462 ^

257affc ^

2349b7d ^

b60999c ^

9
10
11

12
13
14

23
24

25
26
27

39
40

61
62

65
66
67

84
85
86

93
94
95

115
116

118
119
120

121
122

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
155
156
157
158
159
generated by cgit-pink 1.4.1-2-gfad0 (git 2.36.2.497.gbbea4dcf42) at 2025-01-17 18:14:34 +0000

lass="w"> { use_legacy_coding(original_coding); } else { original_coding = use_legacy_coding(2); } #endif /* * Restore the original character set. */ if (newcs < 0 || p == 0) { if (non_empty(old_font) && non_empty(old_umap)) { if (nonempty_file(old_font)) { if (nonempty_file(old_umap)) { HTSprintf0(&tmpbuf1, "%s %s%s %s%s %s", program, console_font(), old_font, setfont_u(), old_umap, NOOUTPUT); } else { HTSprintf0(&tmpbuf1, "%s %s%s %s", program, console_font(), old_font, NOOUTPUT); } CTRACE((tfp, "Restoring font: '%s'\n", tmpbuf1)); status = LYSystem(tmpbuf1); if (status != 0) { CTRACE((tfp, "...system returned %d (0x%x)\n", status, status)); } FREE(tmpbuf1); } } if (newcs < 0 && p == 0) { if (old_font) { LYRemoveTemp(old_font); FREE(old_font); } if (old_umap) { LYRemoveTemp(old_umap); FREE(old_umap); } if (status == 0) { FREE(T_font_fn); FREE(T_umap_fn); } } return; } else if (lastcs < 0 && old_umap == 0 && old_font == 0) { FILE *fp1; FILE *fp2 = NULL; if ((old_font = typecallocn(char, LY_MAXPATH)) != 0) old_umap = typecallocn(char, LY_MAXPATH); if ((fp1 = LYOpenTemp(old_font, ".fnt", BIN_W)) != 0) fp2 = LYOpenTemp(old_umap, ".uni", BIN_W); if (fp1 && fp2) { size_t nlen; int rv; HTSprintf0(&tmpbuf1, "%s %s%s %s%s %s", program, setfont_o(), old_font, setfont_ou(), old_umap, NOOUTPUT); CTRACE((tfp, "Saving font: '%s'\n", tmpbuf1)); rv = LYSystem(tmpbuf1); if (rv != 0) { CTRACE((tfp, "...system returned %d (0x%x)\n", rv, rv)); } FREE(tmpbuf1); LYCloseTempFP(fp1); LYCloseTempFP(fp2); /* free up a few bytes */ if ((nlen = strlen(old_font) + 1) < LY_MAXPATH) old_font = typeRealloc(char, old_font, nlen); if ((nlen = strlen(old_umap) + 1) < LY_MAXPATH) old_umap = typeRealloc(char, old_umap, nlen); } else { if (fp1) LYRemoveTemp(old_font); if (fp2) LYRemoveTemp(old_umap); FREE(old_font); FREE(old_umap); } } name = p->MIMEname; /* * Font sizes are currently hardwired here. */ #define SUFF1 ".f16" #define SUFF2 "-16.psf" #define SUFF3 "-8x16" #define SUFF4 "8x16" #define SUFF5 ".cp -16" #define SUFF6 "_8x16" /* NOTE: `!!umap not in kbd!!' comments below means that the *.uni file * is not found in kbd package. Reference Debian Package: kbd-data, * Version: 0.96a-14. They should be located elsewhere or generated. * Also some cpNNN fonts used below are not in the kbd-data. - kw */ if (!strncmp(name, "iso-8859-1", 10) && (!name[10] || !isdigit(UCH(name[10])))) { if ((lastHasUmap == Is_Set) && !strcmp(lastname, "cp850")) { /* * cp850 already contains all latin1 characters. */ if (lastTransT != GN_Blat1) { TransT = GN_Blat1; } } else { /* * "setfont lat1u-16.psf -u lat1u.uni" */ status = call_setfont("lat1u", SUFF2, "lat1u.uni"); HasUmap = Is_Set; if (lastTransT != GN_Blat1) { TransT = GN_Blat1; } } Utf = Is_Unset; } else if (!strcmp(name, "iso-8859-2")) { /* * "setfont iso02.f16 -u iso02.uni" */ status = call_setfont("iso02", SUFF1, "iso02.uni"); TransT = GN_Kuser; HasUmap = Is_Set; Utf = Is_Unset; } else if (!strcmp(name, "iso-8859-15")) { /* * "setfont lat0-16.psf" */ status = call_setfont("lat0", SUFF2, NULL); TransT = GN_Blat1; /* bogus! */ HasUmap = Dunno; /* distributed lat0 files have bogus map data! */ Utf = Is_Unset; } else if (!strncmp(name, "iso-8859-", 9)) { if (strlen(name) <= 10 || !isdigit(UCH(name[10]))) HTSprintf0(&tmpbuf1, "iso0%s", &name[9]); else HTSprintf0(&tmpbuf1, "iso%s", &name[9]); HTSprintf0(&tmpbuf2, "%s.uni", tmpbuf1); /* * "setfont iso0N.f16 -u iso0N.uni" */ status = call_setfont(tmpbuf1, SUFF1, tmpbuf2); FREE(tmpbuf1); FREE(tmpbuf2); TransT = GN_Kuser; HasUmap = Is_Set; Utf = Is_Unset; } else if (!strcmp(name, "koi8-r")) { /* * "setfont koi8-8x16" * !!umap not in kbd!! */ status = call_setfont("koi8", SUFF3, "koi8r.uni"); TransT = GN_Kuser; HasUmap = Is_Set; Utf = Is_Unset; } else if (!strcmp(name, "koi8-u")) { /* * "setfont koi8u_8x16" * !!umap not in kbd!! */ status = call_setfont("koi8u", SUFF6, "koi8u.uni"); TransT = GN_Kuser; HasUmap = Is_Set; Utf = Is_Unset; } else if (!strcmp(name, "cp437")) { /* * "setfont default8x16 -u cp437.uni" */ status = call_setfont("default", SUFF4, "cp437.uni"); if (lastTransT == GN_Kuser || lastTransT == GN_Ucp437) TransT = GN_dontCare; else TransT = GN_Ucp437; HasUmap = Is_Set; Utf = Is_Unset; } else if (!strcmp(name, "cp850")) { /* * "setfont cp850-8x16 -u cp850.uni" * !!umap not in kbd!! */ status = call_setfont("cp850", SUFF3, "cp850.uni"); TransT = GN_Kuser; HasUmap = Is_Set; Utf = Is_Unset; } else if (!strcmp(name, "cp866") || !strcmp(name, "cp852") || !strcmp(name, "cp862")) { /* MS-Kermit has these files */ HTSprintf0(&tmpbuf2, "%s.uni", name); /* * "setfont cpNNN.f16" * !!umap not in kbd!! */ status = call_setfont(name, SUFF1, tmpbuf2); FREE(tmpbuf2); TransT = GN_Kuser; HasUmap = Is_Set; Utf = Is_Unset; } else if (!strcmp(name, "cp737")) { /* * "setfont cp737.cp" * !!umap not in kbd!! */ if (isSetFont()) { status = call_setfont("737", SUFF5, "cp737.uni"); } else { status = call_setfont("greek", "", "cp737.uni"); } TransT = GN_Kuser; HasUmap = Is_Set; Utf = Is_Unset; } else if (!strcmp(name, "cp857")) { status = call_setfont("cp857", SUFF3, "cp857.uni"); TransT = GN_Kuser; HasUmap = Is_Set; Utf = Is_Unset; } else if (!strcmp(name, "x-transparent")) { Utf = Dont_Care; } else if (!strcmp(name, "us-ascii")) { Utf = Dont_Care; } else if (!strncmp(name, "mnem", 4)) { Utf = Dont_Care; } if (status == 1) HasUmap = Is_Unset; else if (status < 0) { if (HasUmap == Is_Set) HasUmap = Dunno; name = "unknown-8bit"; } if (TransT != lastTransT) { if (TransT == GN_Blat1) { /* * Switch Linux console to lat1 table. */ write_esc("\033(B"); } else if (TransT == GN_0decgraf) { write_esc("\033(0"); } else if (TransT == GN_Ucp437) { /* * Switch Linux console to 437 table? */ write_esc("\033(U"); } else if (TransT == GN_Kuser) { /* * Switch Linux console to user table. */ write_esc("\033(K"); } if (TransT != GN_dunno && TransT != GN_dontCare) { lastTransT = TransT; } else { TransT = lastTransT; } } if (HasUmap != Dont_Care && HasUmap != Dunno) lastHasUmap = HasUmap; if (p->enc == UCT_ENC_UTF8) { if (lastUtf != Is_Set) { Utf = Is_Set; /* * Turn Linux console UTF8 mode ON. */ write_esc("\033%G"); lastUtf = Utf; } return; } else if (lastUtf == Is_Set && Utf != Dont_Care) { Utf = Is_Unset; /* * Turn Linux console UTF8 mode OFF. */ write_esc("\033%@"); lastUtf = Utf; } if (Utf != Dont_Care && Utf != Dunno) lastUtf = Utf; lastcs = newcs; lastname = name; } #else /* Not LINUX: */ /* * This is the thing that actually gets called from display_page(). */ void UCChangeTerminalCodepage(int newcs, LYUCcharset *p) { #ifdef __EMX__ int res = 0; #ifdef HAVE_USE_LEGACY_CODING if (newcs < 0) { use_legacy_coding(original_coding); } else { original_coding = use_legacy_coding(2); } #endif if (newcs < 0) newcs = auto_display_charset; res = Switch_Display_Charset(newcs, SWITCH_DISPLAY_CHARSET_REALLY); CTRACE((tfp, "UCChangeTerminalCodepage: Switch_Display_Charset(%d) returned %d\n", newcs, res)); #else CTRACE((tfp, "UCChangeTerminalCodepage: Called, but not implemented!")); #endif } #endif /* LINUX */ #ifdef CAN_SWITCH_DISPLAY_CHARSET int Find_Best_Display_Charset(int ord) { const char *name = LYCharSet_UC[ord].MIMEname; char *s = charset_switch_rules, *r; char buf[160]; static int lowercase; int n = strlen(name), source = 1; if (!s || !n) return ord; if (!lowercase++) LYLowerCase(charset_switch_rules); while (1) { while (*s && strchr(" \t,", *s)) s++; /* Go to start of a name or ':' */ if (!*s && source) return ord; /* OK to find nothing */ if (!*s) { sprintf(buf, "No destination for '%.80s' in CHARSET_SWITCH_RULES", name); HTInfoMsg(buf); return ord; } if (*s == ':') { /* Before the replacement name */ while (*s && strchr(" \t:", *s)) s++; /* Go to the replacement */ /* At start of the replacement name */ r = s; while (*s && !strchr(" \t,:", *s)) s++; /* Skip the replacement */ if (source) continue; break; } /* At start of the source name */ if (source && !strnicmp(name, s, n) && strchr(" \t,", s[n])) { /* Found! */ source = 0; s += n; continue; /* Look for the replacement */ } while (*s && !strchr(" \t,:", *s)) s++; /* Skip the other source names */ } /* Here r point to the replacement, s to the end of the replacement. */ if (s >= r + sizeof(buf)) { HTInfoMsg(gettext("Charset name in CHARSET_SWITCH_RULES too long")); return ord; } strncpy(buf, r, s - r); buf[s - r] = '\0'; n = UCGetLYhndl_byMIME(buf); if (n < 0) { sprintf(buf, "Unknown charset name '%.*s' in CHARSET_SWITCH_RULES", s - r, r); HTInfoMsg(buf); return ord; } return n; } # ifdef __EMX__ /* Switch display for the best fit for LYCharSet_UC[ord]. If really is MAYBE, the switch is tentative only, another switch may happen before the actual display. Returns the charset we switched to. */ static int _Switch_Display_Charset(int ord, enum switch_display_charset_t really) { const char *name; unsigned short cp; static int font_loaded_for = -1, old_h, old_w; int rc, ord1; UCHAR msgbuf[MAXPATHLEN + 80]; CTRACE((tfp, "_Switch_Display_Charset(cp=%d, really=%d).\n", ord, really)); /* Do not trust current_char_set unless REALLY, we fake it if MAYBE! */ if (ord == current_char_set && really == SWITCH_DISPLAY_CHARSET_MAYBE) return ord; if (ord == auto_other_display_charset || ord == auto_display_charset || ord == font_loaded_for) { if (really == SWITCH_DISPLAY_CHARSET_MAYBE) return ord; /* Report success, to avoid flicker, switch later */ } else /* Currently supports only koi8-r to cp866 translation */ ord = Find_Best_Display_Charset(ord); /* Ignore sizechange unless the font is loaded */ if (ord != font_loaded_for && really == SWITCH_DISPLAY_CHARSET_RESIZE) return ord; if (ord == real_charsets[0] || ord == real_charsets[1]) { ord1 = (ord == real_charsets[1] ? auto_other_display_charset : auto_display_charset); if (really == SWITCH_DISPLAY_CHARSET_MAYBE) return ord; /* Can switch later, report success to avoid flicker */ } else ord1 = ord; if (ord == current_char_set && really == SWITCH_DISPLAY_CHARSET_MAYBE) return ord; name = LYCharSet_UC[ord1].MIMEname; if (ord1 == auto_other_display_charset || ord1 == auto_display_charset) { retry: rc = VioSetCp(0, codepages[ord1 == auto_other_display_charset], 0); if (rc == 0) goto report; err: sprintf(msgbuf, "Can't change to '%s': err=%#lx=%ld", name, rc, rc); HTInfoMsg(msgbuf); return -1; } /* Not a "prepared" codepage. Need to load the user font. */ if (charsets_directory) { TIB *tib; /* Can't load font in a windowed-VIO */ PIB *pib; VIOFONTINFO f[2]; VIOFONTINFO *font; UCHAR b[1 << 17]; UCHAR *buf = b; UCHAR fnamebuf[MAXPATHLEN]; FILE *file; APIRET rc; long i, j; /* 0 means a FS protected-mode session */ if (font_loaded_for == -1 /* Did not try it yet */ && (DosGetInfoBlocks(&tib, &pib) || pib->pib_ultype != 0)) { ord = ord1 = auto_display_charset; goto retry; } /* Should not cross 64K boundaries: */ font = f; if (((((ULONG) (char *) f) + sizeof(*font)) & 0xFFFF) < sizeof(*font)) font++; if (((ULONG) buf) & 0xFFFF) buf += 0x10000 - (((ULONG) buf) & 0xFFFF); font->cb = sizeof(*font); /* How large is this structure */ font->type = 0; /* Not the BIOS, the loaded font. */ font->cbData = 65535; /* How large is my buffer? */ font->pbData = _emx_32to16(buf); /* Wants an 16:16 pointer */ rc = VioGetFont(font, 0); /* Retrieve data for current font */ if (rc) { sprintf(msgbuf, "Can't fetch current font info: err=%#lx=%ld", rc, rc); HTInfoMsg(msgbuf); ord = ord1 = auto_display_charset; goto retry; } if (ord1 == font_loaded_for && old_h == font->cyCell && old_w == font->cxCell) { /* The same as the previous font */ if ((rc = VioSetCp(0, -1, 0))) /* -1: User font */ goto err; goto report; } sprintf(fnamebuf, "%s/%dx%d/%s.fnt", charsets_directory, font->cyCell, font->cxCell, name); file = fopen(fnamebuf, BIN_R); if (!file) { sprintf(msgbuf, "Can't open font file '%s'", fnamebuf); HTInfoMsg(msgbuf); ord = ord1 = auto_display_charset; goto retry; } i = ftell(file); fseek(file, 0, SEEK_END); if (ftell(file) - i != font->cbData) { fclose(file); sprintf(msgbuf, "Mismatch of size of font file '%s'", fnamebuf); HTAlert(msgbuf); ord = ord1 = auto_display_charset; goto retry; } fseek(file, i, SEEK_SET); fread(buf, 1, font->cbData, file); fclose(file); rc = VioSetFont(font, 0); /* Put it all back.. */ if (rc) { sprintf(msgbuf, "Can't set font: err=%#lx=%ld", rc, rc); HTInfoMsg(msgbuf); ord = ord1 = auto_display_charset; font_loaded_for = -1; goto retry; } font_loaded_for = ord1; old_h = font->cyCell; old_w = font->cxCell; } else { ord = ord1 = auto_display_charset; goto retry; } report: CTRACE((tfp, "Display font set to '%s'.\n", name)); return ord; } # endif /* __EMX__ */ int Switch_Display_Charset(const int ord, const enum switch_display_charset_t really) { int prev = current_char_set; int res; static int repeated; if (!switch_display_charsets) return 0; res = _Switch_Display_Charset(ord, really); if (res < 0 || prev == res) /* No change */ return 0; /* Register the change */ current_char_set = res; HTMLUseCharacterSet(current_char_set); return 1; } #endif /* CAN_SWITCH_DISPLAY_CHARSET */ #else /* EXP_CHARTRANS_AUTOSWITCH not defined: */ /* * This is the thing that actually gets called from display_page(). */ void UCChangeTerminalCodepage(int newcs GCC_UNUSED, LYUCcharset *p GCC_UNUSED) { CTRACE((tfp, "UCChangeTerminalCodepage: Called, but not implemented!")); } #endif /* EXP_CHARTRANS_AUTOSWITCH */