mirrors/fltk
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity
682a8fc062
fltk/test/utf8.cxx
Ian MacArthur 6c9d1f7840 Modify the utf8 test demo code to handle surrogate pairs. 
It was hard coded to cover the range 0 to 0xFFFF, i.e. the
Basic multilingual plane, even though the demo code allowed
any start index, for any plane, to be entered on the CLI...
As a result, attempts to view supplemental planes were always
just folded back into the BMP.
This change makes the code display the 64K Unicode points
starting at the index given on the CLI, so that the 
supplemental planes *can* now be viewed and tested.



git-svn-id: file:///fltk/svn/fltk/branches/branch-1.3@8629 ea41ed52-d2ee-0310-a9c1-e6b18d33e121
2011-05-01 12:24:22 +00:00

729 lines
18 KiB
C++
Raw Blame History

//
// "$Id$"
//
// UTF-8 test program for the Fast Light Tool Kit (FLTK).
//
// Copyright 1998-2010 by Bill Spitzak and others.
//
// This library is free software; you can redistribute it and/or
// modify it under the terms of the GNU Library General Public
// License as published by the Free Software Foundation; either
// version 2 of the License, or (at your option) any later version.
//
// This library is distributed in the hope that it will be useful,
// but WITHOUT ANY WARRANTY; without even the implied warranty of
// MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
// Library General Public License for more details.
//
// You should have received a copy of the GNU Library General Public
// License along with this library; if not, write to the Free Software
// Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307
// USA.
//
// Please report all bugs and problems on the following page:
//
// http://www.fltk.org/str.php
//
#include <FL/Fl.H>
#include <FL/Fl_Double_Window.H>
#include <FL/Fl_Scroll.H>
#include <FL/Fl_Choice.H>
#include <FL/Fl_Input.H>
#include <FL/Fl_Box.H>
#include <FL/Fl_Tile.H>
#include <FL/Fl_Hold_Browser.H>
#include <FL/Fl_Value_Output.H>
#include <FL/Fl_Button.H>
#include <FL/Fl_Check_Button.H>
#include <FL/Fl_Output.H>
#include <FL/fl_draw.H>
#include <FL/fl_utf8.h>
#include <stdio.h>
#include <stdlib.h>
#include <string.h>
#include <math.h>
//
// Font chooser widget for the Fast Light Tool Kit(FLTK).
//
#define DEF_SIZE 16 // default value for the font size picker
static Fl_Double_Window *fnt_chooser_win;
static Fl_Hold_Browser *fontobj;
static Fl_Hold_Browser *sizeobj;
static Fl_Value_Output *fnt_cnt;
static Fl_Button *refresh_btn;
static Fl_Button *choose_btn;
static Fl_Output *fix_prop;
static Fl_Check_Button *own_face;
static int **sizes = NULL;
static int *numsizes = NULL;
static int pickedsize = DEF_SIZE;
static char label[1000];
static Fl_Double_Window *main_win;
static Fl_Scroll *thescroll;
static Fl_Font extra_font;
static int font_count = 0;
static int first_free = 0;
static void cb_exit(Fl_Button*, void*) {
if(fnt_chooser_win) fnt_chooser_win->hide();
if(main_win) main_win->hide();
} /* cb_exit */
/*
Class for displaying sample fonts.
*/
class FontDisplay : public Fl_Widget
{
void draw(void);
public:
int font, size;
int test_fixed_pitch(void);
FontDisplay(Fl_Boxtype B, int X, int Y, int W, int H, const char *L = 0)
: Fl_Widget(X, Y, W, H, L)
{
box(B);
font = 0;
size = DEF_SIZE;
}
};
/*
Draw the sample text.
*/
void FontDisplay::draw(void)
{
draw_box();
fl_font((Fl_Font)font, size);
fl_color(FL_BLACK);
fl_draw(label(), x() + 3, y() + 3, w() - 6, h() - 6, align());
}
int FontDisplay::test_fixed_pitch(void)
{
int w1, w2;
int h1, h2;
w1 = w2 = 0;
h1 = h2 = 0;
fl_font((Fl_Font)font, size);
fl_measure("MHMHWWMHMHMHM###WWX__--HUW", w1, h1, 0);
fl_measure("iiiiiiiiiiiiiiiiiiiiiiiiii", w2, h2, 0);
if (w1 == w2) return 1; // exact match - fixed pitch
// Is the font "nearly" fixed pitch? If it is within 5%, say it is...
double f1 = (double)w1;
double f2 = (double)w2;
double delta = fabs(f1 - f2) * 5.0;
if (delta <= f1) return 2; // nearly fixed pitch...
return 0; // NOT fixed pitch
}
static FontDisplay *textobj;
static void size_cb(Fl_Widget *, long)
{
int size_idx = sizeobj->value();
if (!size_idx) return;
const char *c = sizeobj->text(size_idx);
while (*c < '0' || *c > '9') c++; // find the first numeric char
pickedsize = atoi(c); // convert the number string to a value
// Now set the font view to the selected size and redraw it.
textobj->size = pickedsize;
textobj->redraw();
}
static void font_cb(Fl_Widget *, long)
{
int font_idx = fontobj->value() + first_free;
if (!font_idx) return;
font_idx--;
textobj->font = font_idx;
sizeobj->clear();
int size_count = numsizes[font_idx-first_free];
int *size_array = sizes[font_idx-first_free];
if (!size_count)
{
// no preferred sizes - probably TT fonts etc...
}
else if (size_array[0] == 0)
{
// many sizes, probably a scaleable font with preferred sizes
int j = 1;
for (int i = 1; i <= 64 || i < size_array[size_count - 1]; i++)
{
char buf[16];
if (j < size_count && i == size_array[j])
{
sprintf(buf, "@b%d", i);
j++;
}
else
sprintf(buf, "%d", i);
sizeobj->add(buf);
}
sizeobj->value(pickedsize);
}
else
{
// some sizes, probably a font with a few fixed sizes available
int w = 0;
for (int i = 0; i < size_count; i++)
{
// find the nearest available size to the current picked size
if (size_array[i] <= pickedsize) w = i;
char buf[16];
sprintf(buf, "@b%d", size_array[i]);
sizeobj->add(buf);
}
sizeobj->value(w + 1);
}
size_cb(sizeobj, 0); // force selection of nearest valid size, then redraw
// Now check to see if the font looks like a fixed pitch font or not...
int looks_fixed = textobj->test_fixed_pitch();
if(looks_fixed)
{
if (looks_fixed > 1)
fix_prop->value("near");
else
fix_prop->value("fixed");
}
else
{
fix_prop->value("prop");
}
}
static void choose_cb(Fl_Widget *, long)
{
int font_idx = fontobj->value() + first_free;
if (!font_idx)
{
puts("No font chosen");
}
else
{
int font_type;
font_idx -= 1;
const char *name = Fl::get_font_name((Fl_Font)font_idx, &font_type);
printf("idx %d\nUser name :%s:\n", font_idx, name);
printf("FLTK name :%s:\n", Fl::get_font((Fl_Font)font_idx));
Fl::set_font(extra_font, (Fl_Font)font_idx);
// Fl::set_font(extra_font, Fl::get_font((Fl_Font)font_idx));
}
int size_idx = sizeobj->value();
if (!size_idx)
{
puts("No size selected");
}
else
{
const char *c = sizeobj->text(size_idx);
while (*c < '0' || *c > '9') c++; // find the first numeric char
int pickedsize = atoi(c); // convert the number string to a value
printf("size %d\n\n", pickedsize);
}
fflush(stdout);
main_win->redraw();
}
static void refresh_cb(Fl_Widget *, long)
{
main_win->redraw();
}
static void own_face_cb(Fl_Widget *, void *)
{
int font_idx;
int cursor_restore = 0;
static int i_was = -1; // used to keep track of where we were in the list...
if (i_was < 0) { // not been here before
i_was = 1;
} else {
i_was = fontobj->topline(); // record which was the topmost visible line
fontobj->clear();
// Populating the font widget can be slower than an old dog with three legs
// on a bad day, show a wait cursor
fnt_chooser_win->cursor(FL_CURSOR_WAIT);
cursor_restore = 1;
}
// Populate the font list with the names of the fonts found
for (font_idx = first_free; font_idx < font_count; font_idx++)
{
int font_type;
const char *name = Fl::get_font_name((Fl_Font)font_idx, &font_type);
char buffer[128];
if(own_face->value() == 0) {
char *p = buffer;
// if the font is BOLD, set the bold attribute in the list
if (font_type & FL_BOLD) {
*p++ = '@';
*p++ = 'b';
}
if (font_type & FL_ITALIC) { // ditto for italic fonts
*p++ = '@';
*p++ = 'i';
}
// Suppress subsequent formatting - some MS fonts have '@' in their name
*p++ = '@';
*p++ = '.';
strcpy(p, name);
} else {
// Show font in its own face
// this is neat, but really slow on some systems:
// uses each font to display its own name
sprintf (buffer, "@F%d@.%s", font_idx, name);
}
fontobj->add(buffer);
}
// now put the browser position back the way it was... more or less
fontobj->topline(i_was);
// restore the cursor
if(cursor_restore) fnt_chooser_win->cursor(FL_CURSOR_DEFAULT);
}
static void create_font_widget()
{
// Create the font sample label
strcpy(label, "Font Sample\n");
int i = 12; // strlen(label);
int n = 0;
ulong c;
for (c = ' '+1; c < 127; c++) {
if (!(c&0x1f)) label[i++]='\n';
if (c=='@') label[i++]=c;
label[i++]=c;
}
label[i++] = '\n';
for (c = 0xA1; c < 0x600; c += 9) {
if (!(++n&(0x1f))) label[i++]='\n';
i += fl_utf8encode((unsigned int)c, label + i);
}
label[i] = 0;
// Create the window layout
fnt_chooser_win = new Fl_Double_Window(380, 420, "Font Selector");
{
Fl_Tile *tile = new Fl_Tile(0, 0, 380, 420);
{
Fl_Group *textgroup = new Fl_Group(0, 0, 380, 105);
{
textobj = new FontDisplay(FL_FRAME_BOX, 10, 10, 360, 90, label);
textobj->align(FL_ALIGN_TOP|FL_ALIGN_LEFT|FL_ALIGN_INSIDE|FL_ALIGN_CLIP);
textobj->color(53, 3);
textgroup->box(FL_FLAT_BOX);
textgroup->resizable(textobj);
textgroup->end();
}
Fl_Group *fontgroup = new Fl_Group(0, 105, 380, 315);
{
fontobj = new Fl_Hold_Browser(10, 110, 290, 270);
fontobj->box(FL_FRAME_BOX);
fontobj->color(53, 3);
fontobj->callback(font_cb);
fnt_chooser_win->resizable(fontobj);
sizeobj = new Fl_Hold_Browser(310, 110, 60, 270);
sizeobj->box(FL_FRAME_BOX);
sizeobj->color(53, 3);
sizeobj->callback(size_cb);
// Create the status bar
Fl_Group *stat_bar = new Fl_Group (10, 385, 380, 30);
{
fnt_cnt = new Fl_Value_Output(10, 390, 40, 20);
fnt_cnt->label("fonts");
fnt_cnt->align(FL_ALIGN_RIGHT);
fix_prop = new Fl_Output(100, 390, 40, 20);
fix_prop->color(FL_BACKGROUND_COLOR);
fix_prop->value("prop");
fix_prop->clear_visible_focus();
own_face = new Fl_Check_Button(150, 390, 40, 20, "Self");
own_face->value(0);
own_face->type(FL_TOGGLE_BUTTON);
own_face->clear_visible_focus();
own_face->callback(own_face_cb);
own_face->tooltip("Display font names in their own face");
Fl_Box * dummy = new Fl_Box(220, 390, 1, 1);
choose_btn = new Fl_Button(240, 385, 60, 30);
choose_btn->label("Select");
choose_btn->callback(choose_cb);
refresh_btn = new Fl_Button(310, 385, 60, 30);
refresh_btn->label("Refresh");
refresh_btn->callback(refresh_cb);
stat_bar->resizable (dummy);
stat_bar->end();
}
fontgroup->box(FL_FLAT_BOX);
fontgroup->resizable(fontobj);
fontgroup->end();
}
tile->end();
}
fnt_chooser_win->resizable(tile);
fnt_chooser_win->end();
fnt_chooser_win->callback((Fl_Callback*)cb_exit);
}
}
int make_font_chooser(void)
{
int font_idx;
// create the widget frame
create_font_widget();
// Load the systems available fonts - ask for everything
// font_count = Fl::set_fonts("*");
#ifdef WIN32
font_count = Fl::set_fonts("*");
#elif __APPLE__
font_count = Fl::set_fonts("*");
#else
// Load the systems available fonts - ask for everything that claims to be
// iso10646 compatible
font_count = Fl::set_fonts("-*-*-*-*-*-*-*-*-*-*-*-*-iso10646-1");
#endif
// allocate space for the sizes and numsizes array, now we know how many
// entries it needs
sizes = new int*[font_count];
numsizes = new int[font_count];
// Populate the font list with the names of the fonts found
first_free = FL_FREE_FONT;
for (font_idx = first_free; font_idx < font_count; font_idx++)
{
// Find out how many sizes are supported for each font face
int *size_array;
int size_count = Fl::get_font_sizes((Fl_Font)font_idx, size_array);
numsizes[font_idx-first_free] = size_count;
// if the font has multiple sizes, populate the 2-D sizes array
if (size_count)
{
sizes[font_idx-first_free] = new int[size_count];
for (int j = 0; j < size_count; j++)
sizes[font_idx-first_free][j] = size_array[j];
}
} // end of font list filling loop
// Call this once to get the font browser loaded up
own_face_cb(NULL, 0);
fontobj->value(1);
// optional hard-coded font for testing - do not use!
// fontobj->textfont(261);
font_cb(fontobj, 0);
fnt_cnt->value(font_count);
return font_count;
} // make_font_chooser
/* End of Font Chooser Widget code */
/* Unicode Font display widget */
void box_cb(Fl_Widget* o, void*) {
thescroll->box(((Fl_Button*)o)->value() ? FL_DOWN_FRAME : FL_NO_BOX);
thescroll->redraw();
}
class right_left_input : public Fl_Input
{
public:
right_left_input (int x, int y, int w, int h) : Fl_Input(x, y, w, h) {};
void draw() {
if (type() == FL_HIDDEN_INPUT) return;
Fl_Boxtype b = box();
if (damage() & FL_DAMAGE_ALL) draw_box(b, color());
drawtext(x()+Fl::box_dx(b)+3, y()+Fl::box_dy(b),
w()-Fl::box_dw(b)-6, h()-Fl::box_dh(b));
}
void drawtext(int X, int Y, int W, int H) {
fl_color(textcolor());
fl_font(textfont(), textsize());
fl_rtl_draw(value(), strlen(value()),
X + W, Y + fl_height() -fl_descent());
}
};
void i7_cb(Fl_Widget *w, void *d)
{
int i = 0;
char nb[] = "01234567";
Fl_Input *i7 = (Fl_Input*)w;
Fl_Input *i8 = (Fl_Input*)d;
static char buf[1024];
const char *ptr = i7->value();
while (ptr && *ptr) {
if (*ptr < ' ' || *ptr > 126) {
buf[i++] = '\\';
buf[i++] = nb[((*ptr >> 6) & 0x3)];
buf[i++] = nb[((*ptr >> 3) & 0x7)];
buf[i++] = nb[(*ptr & 0x7)];
} else {
if (*ptr == '\\') buf[i++] = '\\';
buf[i++] = *ptr;
}
ptr++;
}
buf[i] = 0;
i8->value(buf);
}
class UCharDropBox : public Fl_Output {
public:
UCharDropBox(int x, int y, int w, int h, const char *label=0) :
Fl_Output(x, y, w, h, label) { }
int handle(int event) {
switch (event) {
case FL_DND_ENTER: return 1;
case FL_DND_DRAG: return 1;
case FL_DND_RELEASE: return 1;
case FL_PASTE:
{
static const char lut[] = "0123456789abcdef";
const char *t = Fl::event_text();
int i, n;
unsigned int ucode = fl_utf8decode(t, t+Fl::event_length(), &n);
if (n==0) {
value("");
return 1;
}
char buffer[200], *d = buffer;
for (i=0; i<n; i++) *d++ = t[i];
*d++ = ' ';
for (i=0; i<n; i++) {
*d++ = '\\'; *d++ = 'x';
*d++ = lut[(t[i]>>4)&0x0f]; *d++ = lut[t[i]&0x0f];
}
*d++ = ' ';
*d++ = '0';
*d++ = 'x';
*d++ = lut[(ucode>>20)&0x0f]; *d++ = lut[(ucode>>16)&0x0f];
*d++ = lut[(ucode>>12)&0x0f]; *d++ = lut[(ucode>>8)&0x0f];
*d++ = lut[(ucode>>4)&0x0f]; *d++ = lut[ucode&0x0f];
*d++ = 0;
value(buffer);
}
return 1;
}
return Fl_Output::handle(event);
}
};
int main(int argc, char** argv)
{
int l;
const char *latin1 =
"\x41\x42\x43\x61\x62\x63\xe0\xe8\xe9\xef\xe2\xee\xf6\xfc\xe3\x31\x32\x33";
char *utf8 = (char*) malloc(strlen(latin1) * 5 + 1);
l = 0;
// l = fl_latin12utf((const unsigned char*)latin1, strlen(latin1), utf8);
l = fl_utf8froma(utf8, (strlen(latin1) * 5 + 1), latin1, strlen(latin1));
make_font_chooser();
extra_font = FL_TIMES_BOLD_ITALIC;
/* setup the extra font */
Fl::set_font(extra_font,
#ifdef WIN32
" Arial Unicode MS"
#elif __APPLE__
"Monaco"
#else
"-*-*-*-*-*-*-*-*-*-*-*-*-iso10646-1"
#endif
);
main_win = new Fl_Double_Window (200 + 5*75, 400, "Unicode Display Test");
main_win->begin();
Fl_Input i1(5, 5, 190, 25);
utf8[l] = '\0';
i1.value(utf8);
Fl_Scroll scroll(200,0,5 * 75,400);
int off = 2;
int end_list = 0x10000 / 16;
if (argc > 1) {
off = (int)strtoul(argv[1], NULL, 0);
end_list = off + 0x10000;
off /= 16;
end_list /= 16;
}
argc = 1;
for (long y = off; y < end_list; y++) {
int o = 0;
char bu[25]; // index label
char buf[16 * 6]; // utf8 text
int i = 16 * y;
for (int x = 0; x < 16; x++) {
int l;
l = fl_utf8encode(i, buf + o);
if (l < 1) l = 1;
o += l;
i++;
}
buf[o] = '\0';
sprintf(bu, "0x%06lX", y * 16);
Fl_Input *b = new Fl_Input(200,(y-off)*25,80,25);
b->textfont(FL_COURIER);
b->value(strdup(bu));
b = new Fl_Input(280,(y-off)*25,380,25);
b->textfont(extra_font);
b->value(strdup(buf));
}
scroll.end();
main_win->resizable(scroll);
thescroll = &scroll;
char *utf8l = (char*) malloc(strlen(utf8) * 3 + 1);
Fl_Input i2(5, 35, 190, 25);
l = fl_utf_tolower((const unsigned char*)utf8, l, utf8l);
utf8l[l] = '\0';
i2.value(utf8l);
char *utf8u = (char*) malloc(strlen(utf8l) * 3 + 1);
Fl_Input i3(5, 65, 190, 25);
l = fl_utf_toupper((const unsigned char*)utf8l, l, utf8u);
utf8u[l] = '\0';
i3.value(utf8u);
const char *ltr_txt = "\\->e\xCC\x82=\xC3\xAA";
Fl_Input i4(5, 90, 190, 25);
i4.value(ltr_txt);
i4.textfont(extra_font);
wchar_t r_to_l_txt[] = {/*8238,*/
1610, 1608, 1606, 1604, 1603, 1608, 1583, 0};
char abuf[40];
// l = fl_unicode2utf(r_to_l_txt, 8, abuf);
l = fl_utf8fromwc(abuf, 40, r_to_l_txt, 8);
abuf[l] = 0;
right_left_input i5(5, 115, 190, 50);
i5.textfont(extra_font);
i5.textsize(30);
i5.value(abuf);
Fl_Input i7(5, 230, 190, 25);
Fl_Input i8(5, 260, 190, 25);
i7.callback(i7_cb, &i8);
i7.textsize(20);
i7.value(abuf);
i7.when(FL_WHEN_CHANGED);
wchar_t r_to_l_txt1[] = { /*8238,*/
1610, 0x20, 1608, 0x20, 1606, 0x20,
1604, 0x20, 1603, 0x20, 1608, 0x20, 1583, 0};
// l = fl_unicode2utf(r_to_l_txt1, 14, abuf);
l = fl_utf8fromwc(abuf, 40, r_to_l_txt1, 14);
abuf[l] = 0;
right_left_input i6(5, 175, 190, 50);
i6.textfont(extra_font);
i6.textsize(30);
i6.value(abuf);
// Now try Greg Ercolano's Japanese test sequence
// SOME JAPANESE UTF-8 TEXT
const char *utfstr =
"\xe4\xbd\x95\xe3\x82\x82\xe8\xa1"
"\x8c\xe3\x82\x8b\xe3\x80\x82";
UCharDropBox db(5, 300, 190, 30);
db.textsize(16);
db.value("unichar drop box");
Fl_Output o9(5, 330, 190, 45);
o9.textfont(extra_font);
o9.textsize(30);
o9.value(utfstr);
main_win->end();
main_win->callback((Fl_Callback*)cb_exit);
fl_set_status(0, 370, 100, 30);
main_win->show(argc,argv);
fnt_chooser_win->show();
int ret = Fl::run();
// Free up the sizes arrays we allocated
if(numsizes) {delete [] numsizes;}
if(sizes) {delete [] sizes;}
return ret;
}
//
// End of "$Id$".
//
Reference in New Issue View Git Blame Copy Permalink