From 4d7ae8f860db7c702a0c6e0f4e4cb4351fa1b666 Mon Sep 17 00:00:00 2001 From: handa Date: Thu, 13 Dec 2007 06:40:18 +0000 Subject: [PATCH] *** empty log message *** --- src/ChangeLog | 4 + src/font-flt.c | 1749 -------------------------------------------------------- src/m17n-flt.h | 112 ++-- 3 files changed, 58 insertions(+), 1807 deletions(-) delete mode 100644 src/font-flt.c diff --git a/src/ChangeLog b/src/ChangeLog index 0607aae..a7af2e9 100644 --- a/src/ChangeLog +++ b/src/ChangeLog @@ -1,3 +1,7 @@ +2007-12-13 Kenichi Handa + + * font-flt.c: Delete it. + 2007-12-08 Kenichi Handa * m17n-flt.c (run_rule): Fix printing of debug info. Don't update diff --git a/src/font-flt.c b/src/font-flt.c deleted file mode 100644 index 882463b..0000000 --- a/src/font-flt.c +++ /dev/null @@ -1,1749 +0,0 @@ -/* font-flt.c -- Font Layout Table sub-module. - Copyright (C) 2003, 2004 - National Institute of Advanced Industrial Science and Technology (AIST) - Registration Number H15PRO112 - - This file is part of the m17n library. - - The m17n library is free software; you can redistribute it and/or - modify it under the terms of the GNU Lesser General Public License - as published by the Free Software Foundation; either version 2.1 of - the License, or (at your option) any later version. - - The m17n 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 - Lesser General Public License for more details. - - You should have received a copy of the GNU Lesser General Public - License along with the m17n library; if not, write to the Free - Software Foundation, Inc., 51 Franklin Street, Fifth Floor, - 02111-1307, USA. */ - -#include "config.h" - -#include -#include -#include -#include -#include -#include - -#include "m17n-gui.h" -#include "m17n-misc.h" -#include "internal.h" -#include "mtext.h" -#include "symbol.h" -#include "plist.h" -#include "internal-flt.h" -#include "internal-gui.h" -#include "font.h" -#include "face.h" - -/* Font Layouter */ - -/* Font Layout Table (FLT) - -Predefined terms: SYMBOL, INTEGER, STRING - -FLT ::= '(' STAGE + ')' - -STAGE ::= CATEGORY-TABLE ? FONT-LAYOUT-RULE - -;; Each STAGE consumes a source (code sequence) and produces another -;; code sequence that is given to the next STAGE as a source. The -;; source given to the first stage is a sequence of character codes -;; that are assigned category codes by CATEGORY-TABLE. The output of -;; the last stage is a glyph code sequence given to the renderer. - -CATEGORY-TABLE ::= - '(' 'category' CATEGORY-SPEC + ')' -CATEGORY-SPEC ::= - '(' CODE [ CODE ] CATEGORY ')' -CODE ::= INTEGER -CATEGORY ::= INTEGER -;; ASCII character codes of alphabet ('A' .. 'Z' 'a' .. 'z'). -;; Ex: CATEGORY-TABLE -;; (category -;; (0x0900 0x097F ?E) ; All Devanagari characters -;; (0x093C ?N)) ; DEVANAGARI-LETTER NUKTA -;; Assign the category 'E' to all Devanagari characters but 0x093C, -;; assign the category 'N' to 0x093C. - -FONT-LAYOUT-RULE ::= - '(' 'generator' RULE MACRO-DEF * ')' - -RULE ::= COMMAND | REGEXP-RULE | MATCH-RULE | MAP-RULE - | COND-STRUCT | MACRO-NAME - -COMMAND ::= - DIRECT-CODE | COMBINING | PREDEFIND-COMMAND | OTF-COMMAND - -DIRECT-CODE ::= INTEGER -;; Always succeed. Produce the code. Consume no source. - -PREDEFIND-COMMAND ::= - '=' | '*' | '<' | '>' | '|' - -;; '=': Succeed when the current run contains at least one code. -;; Consume the first code in the current run, and produce it as is. - -;; '*': If the the previous command succeeded, repeat it until it -;; fails. - -;; '<': Produce a special code that indicates the start of grapheme -;; cluster. Succeed always, consume nothing. - -;; '>': Produce a special code that indicates the end of grapheme -;; cluster. Succeed always, consume nothing. - -;; '|': Produce a special code whose category is ' '. Succeed always, -;; consume nothing. - -OTF-COMMAND ::= - 'otf:''SCRIPT'[':'['LANGSYS'][':'[GSUB-FEATURES][':'GPOS-FEATURES]]] -;; Run the Open Type Layout Table on the current run. Succeed always, -;; consume nothing. - -SCRIPT ::= OTF-TAG -;; OTF's ScriptTag name (four letters) listed at: -;; -LANGSYS ::= OTF-TAG -;; OTF's Language System name (four letters) listed at: -;; - -GSUB-FEATURES ::= [FEATURE[,FEATURE]*] | ' ' -GPOS-FEATURES ::= [FEATURE[,FEATURE]*] | ' ' -FEATURE ::= OTF-TAG -;; OTF's Feature name (four letters) listed at: -;; - -OTF-TAG ::= PRINTABLE-CHAR PRINTABLE-CHAR PRINTABLE-CHAR PRINTABLE-CHAR - -;; Ex. OTF-COMMAND -;; 'otf:deva' -;; Run all features in the default langsys of 'deva' script. -;; 'otf:deva::nukt:haln' -;; Run all GSUB features, run 'nukt' and 'haln' GPOS features. -;; 'otf:deva:: :' -;; Run all GSUB features, run no GPOS features. - -REGEXP-RULE ::= - '(' REGEXP RULE * ')' - -;; Succeed if REGXP matches the head of source. Run RULEs while -;; limiting the source to the matching part. Consume that part. - -REGEXP ::= STRING -;; Must be composed only from ASCII characters. 'A' - 'Z', 'a' - 'z' -;; correspond to CATEGORY. - -;; Ex: REGEXP-RULE -;; ("VA?" -;; < | vowel * | >) - -MATCH-RULE ::= - '(' MATCH-IDX RULE * ')' - -;; Succeed if the previous REGEXP-RULE found a matching part for -;; MATCH-IDX. Run RULEs while limiting the source to the matching -;; part. If MATCH-IDX is zero, consume the whole part, else consume -;; nothing. - -MATCH-IDX ::= INTEGER -;; Must be 0..20. - -;; Ex. MATCH-RULE -;; (2 consonant *) - -MAP-RULE ::= - '(' ( SOURCE-SEQ | SOURCE-RANGE ) RULE * ')' - -;; Succeed if the source matches SOURCE-SEQ or SOURCE-RANGE. Run -;; RULEs while limiting the source to the matching part. Consume that -;; part. - -SOURCE-SEQ ::= - '(' CODE + ')' -SOURCE-RANGE ::= - '(' 'range' CODE CODE ')' -;; Ex. MAP-RULE -;; ((0x0915 0x094D) 0x43) -;; If the source code sequence is 0x0915 0x094D, produce 0x43. -;; ((range 0x0F40 0x0F6A) 0x2221) -;; If the first source code CODE is in the range 0x0F40..0x0F6A, -;; produce (0x2221 + (CODE - 0x0F40)). - -COND-STRUCT ::= - '(' 'cond' RULE + ')' - -;; Try each rule in sequence until one succeeds. Succeed if one -;; succeeds. Consume nothing. - -;; Ex. COND-STRUCT -;; (cond -;; ((0x0915 0x094D) 0x43) -;; ((range 0x0F40 0x0F6A) 0x2221) -;; = ) - -COMBINING ::= 'V''H''O''V''H' -V ::= ( 't' | 'c' | 'b' | 'B' ) -H ::= ( 'l' | 'c' | 'r' ) -O ::= ( '.' | XOFF | YOFF | XOFF YOFF ) -XOFF ::= '<'INTEGER | '>'INTEGER -YOFF ::= '+'INTEGER | '-'INTEGER -;; INTEGER must be integer 0..127 - -;; VH pair indicates 12 reference points of a glyph as below: -;; -;; 0----1----2 <---- ascent 0:tl (top-left) -;; | | 1:tc (top-center) -;; | | 2:tr (top-right) -;; | | 3:Bl (base-left) -;; 9 10 11 <---- center 4:Bc (base-center) -;; | | 5:Br (base-right) -;; --3----4----5-- <-- baseline 6:bl (bottom-left) -;; | | 7:bc (bottom-center) -;; 6----7----8 <---- descent 8:br (bottom-right) -;; 9:cl (center-left) -;; | | | 10:cc (center-center) -;; left center right 11:cr (center-right) -;; -;; Ex. COMBINING -;; 'tc.bc': -;; Align top-left point of the previous glyph and bottom-center -;; point of the current glyph. -;; 'Bl<20-10Br' -;; Align 20% left and 10% below of base-left point of the previous -;; glyph and base-right point of the current glyph. - -MACRO-DEF ::= - '(' MACRO-NAME RULE + ')' -MACRO-NAME ::= SYMBOL - -*/ - -static int mdebug_flag = MDEBUG_FONT_FLT; - -MSymbol Mlayouter; - -static MPlist *flt_list; - -/* Command ID: - 0 ... : direct code - -1 : invalid - -0x0F .. -2 : builtin commands - -0x100000F .. -0x10 : combining code - ... -0x1000010: index to FontLayoutStage->cmds - */ - -#define INVALID_CMD_ID -1 -#define CMD_ID_OFFSET_BUILTIN -2 -#define CMD_ID_OFFSET_COMBINING -0x10 -#define CMD_ID_OFFSET_INDEX -0x1000010 - -/* Builtin commands. */ -#define CMD_ID_COPY -2 /* '=' */ -#define CMD_ID_REPEAT -3 /* '*' */ -#define CMD_ID_CLUSTER_BEGIN -4 /* '<' */ -#define CMD_ID_CLUSTER_END -5 /* '>' */ -#define CMD_ID_SEPARATOR -6 /* '|' */ -#define CMD_ID_LEFT_PADDING -7 /* '[' */ -#define CMD_ID_RIGHT_PADDING -8 /* ']' */ - -#define CMD_ID_TO_COMBINING_CODE(id) (CMD_ID_OFFSET_COMBINING - (id)) -#define COMBINING_CODE_TO_CMD_ID(code) (CMD_ID_OFFSET_COMBINING - (code)) - -#define CMD_ID_TO_INDEX(id) (CMD_ID_OFFSET_INDEX - (id)) -#define INDEX_TO_CMD_ID(idx) (CMD_ID_OFFSET_INDEX - (idx)) - -static MSymbol Mcond, Mrange, Mexist; - -#define GLYPH_CODE_P(code) \ - ((code) >= GLYPH_CODE_MIN && (code) <= GLYPH_CODE_MAX) - -#define GLYPH_CODE_INDEX(code) ((code) - GLYPH_CODE_MIN) - -#define UPDATE_CLUSTER_RANGE(ctx, g) \ - do { \ - if ((ctx)->cluster_begin_idx) \ - { \ - if (ctx->cluster_begin_pos > (g).pos) \ - ctx->cluster_begin_pos = (g).pos; \ - if (ctx->cluster_end_pos < (g).to) \ - ctx->cluster_end_pos = (g).to; \ - } \ - } while (0); - -enum FontLayoutCmdRuleSrcType - { - SRC_REGEX, - SRC_INDEX, - SRC_SEQ, - SRC_RANGE, - SRC_EXIST - }; - -typedef struct -{ - enum FontLayoutCmdRuleSrcType src_type; - union { - struct { - char *pattern; - regex_t preg; - } re; - int match_idx; - struct { - int n_codes; - int *codes; - } seq; - struct { - int from, to; - } range; - struct { - int c; - } exist; - } src; - - int n_cmds; - int *cmd_ids; -} FontLayoutCmdRule; - -typedef struct -{ - /* Beginning and end indices of series of SEQ commands. */ - int seq_beg, seq_end; - /* Range of the first character appears in the above series. */ - int seq_from, seq_to; - - int n_cmds; - int *cmd_ids; -} FontLayoutCmdCond; - -enum FontLayoutCmdType - { - FontLayoutCmdTypeRule, - FontLayoutCmdTypeCond, - FontLayoutCmdTypeOTF, - FontLayoutCmdTypeMAX - }; - -typedef struct -{ - enum FontLayoutCmdType type; - union { - FontLayoutCmdRule rule; - FontLayoutCmdCond cond; - MFontCapability *otf; - } body; -} FontLayoutCmd; - -typedef struct -{ - MCharTable *category; - int size, inc, used; - FontLayoutCmd *cmds; -} FontLayoutStage; - -typedef MPlist MFontLayoutTable; /* t vs FontLayoutStage */ - -/* Font layout table loader */ - -/* Load a category table from PLIST. PLIST has this form: - PLIST ::= ( FROM-CODE TO-CODE ? CATEGORY-CHAR ) * -*/ - -static MCharTable * -load_category_table (MPlist *plist) -{ - MCharTable *table; - - table = mchartable (Minteger, (void *) 0); - - MPLIST_DO (plist, plist) - { - MPlist *elt; - int from, to, category_code; - - if (! MPLIST_PLIST (plist)) - MERROR (MERROR_FONT, NULL); - elt = MPLIST_PLIST (plist); - if (! MPLIST_INTEGER_P (elt)) - MERROR (MERROR_FONT, NULL); - from = MPLIST_INTEGER (elt); - elt = MPLIST_NEXT (elt); - if (! MPLIST_INTEGER_P (elt)) - MERROR (MERROR_FONT, NULL); - to = MPLIST_INTEGER (elt); - elt = MPLIST_NEXT (elt); - if (MPLIST_TAIL_P (elt)) - { - category_code = to; - to = from; - } - else - { - if (! MPLIST_INTEGER_P (elt)) - MERROR (MERROR_FONT, NULL); - category_code = MPLIST_INTEGER (elt); - } - if (! isalnum (category_code)) - MERROR (MERROR_FONT, NULL); - - if (from == to) - mchartable_set (table, from, (void *) category_code); - else - mchartable_set_range (table, from, to, (void *) category_code); - } - - return table; -} - - -/* Parse OTF command name NAME and store the result in CMD. - NAME has this form: - :SCRIPT[/[LANGSYS][=[GSUB-FEATURES][+GPOS-FEATURES]]] - where GSUB-FEATURES and GPOS-FEATURES have this form: - [FEATURE[,FEATURE]*] | ' ' */ - -static int -load_otf_command (FontLayoutCmd *cmd, MSymbol sym) -{ - char *name = MSYMBOL_NAME (sym); - - if (name[0] != ':') - { - /* This is old format of "otf:...". Change it to ":otf=...". */ - char *str = alloca (MSYMBOL_NAMELEN (sym) + 2); - - sprintf (str, ":otf="); - strcat (str, name + 4); - sym = msymbol (str); - } - - cmd->body.otf = mfont__get_capability (sym); - if (! cmd->body.otf) - return -1; - if (cmd->body.otf->script == Mnil) - { - cmd->body.otf = NULL; - return -1; - } - M17N_OBJECT_REF (cmd->body.otf); - cmd->type = FontLayoutCmdTypeOTF; - return 0; -} - - -/* Read a decimal number from STR preceded by one of "+-><". '+' and - '>' means a plus sign, '-' and '<' means a minus sign. If the - number is greater than 127, limit it to 127. */ - -static int -read_decimal_number (char **str) -{ - char *p = *str; - int sign = (*p == '-' || *p == '<') ? -1 : 1; - int n = 0; - - p++; - while (*p >= '0' && *p <= '9') - n = n * 10 + *p++ - '0'; - *str = p; - if (n == 0) - n = 5; - return (n < 127 ? n * sign : 127 * sign); -} - - -/* Read a horizontal and vertical combining positions from STR, and - store them in the place pointed by X and Y. The horizontal - position left, center, and right are represented by 0, 1, and 2 - respectively. The vertical position top, center, bottom, and base - are represented by 0, 1, 2, and 3 respectively. If successfully - read, return 0, else return -1. */ - -static int -read_combining_position (char *str, int *x, int *y) -{ - int c = *str++; - int i; - - /* Vertical position comes first. */ - for (i = 0; i < 4; i++) - if (c == "tcbB"[i]) - { - *y = i; - break; - } - if (i == 4) - return -1; - c = *str; - /* Then comse horizontal position. */ - for (i = 0; i < 3; i++) - if (c == "lcr"[i]) - { - *x = i; - return 0; - } - return -1; -} - - -/* Return a combining code corresponding to SYM. */ - -static int -get_combining_command (MSymbol sym) -{ - char *str = msymbol_name (sym); - int base_x, base_y, add_x, add_y, off_x, off_y; - int c; - - if (read_combining_position (str, &base_x, &base_y) < 0) - return 0; - str += 2; - c = *str; - if (c == '.') - { - off_x = off_y = 128; - str++; - } - else - { - if (c == '+' || c == '-') - { - off_y = read_decimal_number (&str) + 128; - c = *str; - } - else - off_y = 128; - if (c == '<' || c == '>') - off_x = read_decimal_number (&str) + 128; - else - off_x = 128; - } - if (read_combining_position (str, &add_x, &add_y) < 0) - return 0; - - c = MAKE_COMBINING_CODE (base_y, base_x, add_y, add_x, off_y, off_x); - return (COMBINING_CODE_TO_CMD_ID (c)); -} - - -/* Load a command from PLIST into STAGE, and return that - identification number. If ID is not INVALID_CMD_ID, that means we - are loading a top level command or a macro. In that case, use ID - as the identification number of the command. Otherwise, generate a - new id number for the command. MACROS is a list of raw macros. */ - -static int -load_command (FontLayoutStage *stage, MPlist *plist, - MPlist *macros, int id) -{ - int i; - - if (MPLIST_INTEGER_P (plist)) - { - int code = MPLIST_INTEGER (plist); - - if (code < 0) - MERROR (MERROR_DRAW, INVALID_CMD_ID); - return code; - } - else if (MPLIST_PLIST_P (plist)) - { - /* PLIST ::= ( cond ... ) | ( STRING ... ) | ( INTEGER ... ) - | ( ( INTEGER INTEGER ) ... ) - | ( ( range INTEGER INTEGER ) ... ) */ - MPlist *elt = MPLIST_PLIST (plist); - int len = MPLIST_LENGTH (elt) - 1; - FontLayoutCmd *cmd; - - if (id == INVALID_CMD_ID) - { - FontLayoutCmd dummy; - id = INDEX_TO_CMD_ID (stage->used); - MLIST_APPEND1 (stage, cmds, dummy, MERROR_DRAW); - } - cmd = stage->cmds + CMD_ID_TO_INDEX (id); - - if (MPLIST_SYMBOL_P (elt)) - { - FontLayoutCmdCond *cond; - - if (MPLIST_SYMBOL (elt) != Mcond) - MERROR (MERROR_DRAW, INVALID_CMD_ID); - elt = MPLIST_NEXT (elt); - cmd->type = FontLayoutCmdTypeCond; - cond = &cmd->body.cond; - cond->seq_beg = cond->seq_end = -1; - cond->seq_from = cond->seq_to = 0; - cond->n_cmds = len; - MTABLE_CALLOC (cond->cmd_ids, len, MERROR_DRAW); - for (i = 0; i < len; i++, elt = MPLIST_NEXT (elt)) - { - int this_id = load_command (stage, elt, macros, INVALID_CMD_ID); - - if (this_id == INVALID_CMD_ID) - MERROR (MERROR_DRAW, INVALID_CMD_ID); - /* The above load_command may relocate stage->cmds. */ - cmd = stage->cmds + CMD_ID_TO_INDEX (id); - cond = &cmd->body.cond; - cond->cmd_ids[i] = this_id; - if (this_id <= CMD_ID_OFFSET_INDEX) - { - FontLayoutCmd *this_cmd - = stage->cmds + CMD_ID_TO_INDEX (this_id); - - if (this_cmd->type == FontLayoutCmdTypeRule - && this_cmd->body.rule.src_type == SRC_SEQ) - { - int first_char = this_cmd->body.rule.src.seq.codes[0]; - - if (cond->seq_beg < 0) - { - /* The first SEQ command. */ - cond->seq_beg = i; - cond->seq_from = cond->seq_to = first_char; - } - else if (cond->seq_end < 0) - { - /* The following SEQ command. */ - if (cond->seq_from > first_char) - cond->seq_from = first_char; - else if (cond->seq_to < first_char) - cond->seq_to = first_char; - } - } - else - { - if (cond->seq_beg >= 0 && cond->seq_end < 0) - /* The previous one is the last SEQ command. */ - cond->seq_end = i; - } - } - else - { - if (cond->seq_beg >= 0 && cond->seq_end < 0) - /* The previous one is the last SEQ command. */ - cond->seq_end = i; - } - } - if (cond->seq_beg >= 0 && cond->seq_end < 0) - /* The previous one is the last SEQ command. */ - cond->seq_end = i; - } - else - { - cmd->type = FontLayoutCmdTypeRule; - if (MPLIST_MTEXT_P (elt)) - { - MText *mt = MPLIST_MTEXT (elt); - char *str = (char *) MTEXT_DATA (mt); - - if (str[0] != '^') - { - mtext_ins_char (mt, 0, '^', 1); - str = (char *) MTEXT_DATA (mt); - } - if (regcomp (&cmd->body.rule.src.re.preg, str, REG_EXTENDED)) - MERROR (MERROR_FONT, INVALID_CMD_ID); - cmd->body.rule.src_type = SRC_REGEX; - cmd->body.rule.src.re.pattern = strdup (str); - } - else if (MPLIST_INTEGER_P (elt)) - { - cmd->body.rule.src_type = SRC_INDEX; - cmd->body.rule.src.match_idx = MPLIST_INTEGER (elt); - } - else if (MPLIST_PLIST_P (elt)) - { - MPlist *pl = MPLIST_PLIST (elt); - int size = MPLIST_LENGTH (pl); - - if (MPLIST_INTEGER_P (pl)) - { - int i; - - cmd->body.rule.src_type = SRC_SEQ; - cmd->body.rule.src.seq.n_codes = size; - MTABLE_CALLOC (cmd->body.rule.src.seq.codes, size, - MERROR_FONT); - for (i = 0; i < size; i++, pl = MPLIST_NEXT (pl)) - { - if (! MPLIST_INTEGER_P (pl)) - MERROR (MERROR_DRAW, INVALID_CMD_ID); - cmd->body.rule.src.seq.codes[i] - = (unsigned) MPLIST_INTEGER (pl); - } - } - else if (MPLIST_SYMBOL_P (pl) && size == 3) - { - cmd->body.rule.src_type = SRC_RANGE; - pl = MPLIST_NEXT (pl); - if (! MPLIST_INTEGER_P (pl)) - MERROR (MERROR_DRAW, INVALID_CMD_ID); - cmd->body.rule.src.range.from - = (unsigned) MPLIST_INTEGER (pl); - pl = MPLIST_NEXT (pl); - if (! MPLIST_INTEGER_P (pl)) - MERROR (MERROR_DRAW, INVALID_CMD_ID); - cmd->body.rule.src.range.to - = (unsigned) MPLIST_INTEGER (pl); - } - else if (MPLIST_SYMBOL_P (pl) && size <= 2) - { - if (MPLIST_SYMBOL (pl) != Mexist) - MERROR (MERROR_FLT, INVALID_CMD_ID); - cmd->body.rule.src_type = SRC_EXIST; - if (size == 1) - cmd->body.rule.src.exist.c = -1; - else - { - pl = MPLIST_NEXT (pl); - if (! MPLIST_INTEGER_P (pl)) - MERROR (MERROR_DRAW, INVALID_CMD_ID); - cmd->body.rule.src.exist.c = MPLIST_INTEGER (pl); - } - } - else - MERROR (MERROR_DRAW, INVALID_CMD_ID); - } - else - MERROR (MERROR_DRAW, INVALID_CMD_ID); - - elt = MPLIST_NEXT (elt); - cmd->body.rule.n_cmds = len; - MTABLE_CALLOC (cmd->body.rule.cmd_ids, len, MERROR_DRAW); - for (i = 0; i < len; i++, elt = MPLIST_NEXT (elt)) - { - int this_id = load_command (stage, elt, macros, INVALID_CMD_ID); - - if (this_id == INVALID_CMD_ID) - MERROR (MERROR_DRAW, INVALID_CMD_ID); - /* The above load_command may relocate stage->cmds. */ - cmd = stage->cmds + CMD_ID_TO_INDEX (id); - cmd->body.rule.cmd_ids[i] = this_id; - } - } - } - else if (MPLIST_SYMBOL_P (plist)) - { - MPlist *elt; - MSymbol sym = MPLIST_SYMBOL (plist); - char *name = msymbol_name (sym); - int len = strlen (name); - FontLayoutCmd cmd; - - if (len > 4 - && ((name[0] == 'o' && name[1] == 't' - && name[2] == 'f' && name[3] == ':') - || (name[0] == ':' && name[1] == 'o' && name[2] == 't' - && name[3] == 'f' && name[4] == '=')) - && load_otf_command (&cmd, sym) >= 0) - { - if (id == INVALID_CMD_ID) - { - id = INDEX_TO_CMD_ID (stage->used); - MLIST_APPEND1 (stage, cmds, cmd, MERROR_DRAW); - } - else - stage->cmds[CMD_ID_TO_INDEX (id)] = cmd; - return id; - } - - if (len == 1) - { - if (*name == '=') - return CMD_ID_COPY; - else if (*name == '*') - return CMD_ID_REPEAT; - else if (*name == '<') - return CMD_ID_CLUSTER_BEGIN; - else if (*name == '>') - return CMD_ID_CLUSTER_END; - else if (*name == '|') - return CMD_ID_SEPARATOR; - else if (*name == '[') - return CMD_ID_LEFT_PADDING; - else if (*name == ']') - return CMD_ID_RIGHT_PADDING; - else - id = 0; - } - else - { - id = get_combining_command (sym); - if (id) - return id; - } - - i = 1; - MPLIST_DO (elt, macros) - { - if (sym == MPLIST_SYMBOL (MPLIST_PLIST (elt))) - { - id = INDEX_TO_CMD_ID (i); - if (stage->cmds[i].type == FontLayoutCmdTypeMAX) - id = load_command (stage, MPLIST_NEXT (MPLIST_PLIST (elt)), - macros, id); - return id; - } - i++; - } - MERROR (MERROR_DRAW, INVALID_CMD_ID); - } - else - MERROR (MERROR_DRAW, INVALID_CMD_ID); - - return id; -} - -static void -free_flt_command (FontLayoutCmd *cmd) -{ - if (cmd->type == FontLayoutCmdTypeRule) - { - FontLayoutCmdRule *rule = &cmd->body.rule; - - if (rule->src_type == SRC_REGEX) - { - free (rule->src.re.pattern); - regfree (&rule->src.re.preg); - } - else if (rule->src_type == SRC_SEQ) - free (rule->src.seq.codes); - free (rule->cmd_ids); - } - else if (cmd->type == FontLayoutCmdTypeCond) - free (cmd->body.cond.cmd_ids); - else if (cmd->type == FontLayoutCmdTypeOTF) - M17N_OBJECT_UNREF (cmd->body.otf); -} - -/* Load a generator from PLIST into a newly allocated FontLayoutStage, - and return it. PLIST has this form: - PLIST ::= ( COMMAND ( CMD-NAME COMMAND ) * ) -*/ - -static FontLayoutStage * -load_generator (MPlist *plist) -{ - FontLayoutStage *stage; - MPlist *elt, *pl; - FontLayoutCmd dummy; - - MSTRUCT_CALLOC (stage, MERROR_DRAW); - MLIST_INIT1 (stage, cmds, 32); - dummy.type = FontLayoutCmdTypeMAX; - MLIST_APPEND1 (stage, cmds, dummy, MERROR_FONT); - MPLIST_DO (elt, MPLIST_NEXT (plist)) - { - if (! MPLIST_PLIST_P (elt)) - MERROR (MERROR_FONT, NULL); - pl = MPLIST_PLIST (elt); - if (! MPLIST_SYMBOL_P (pl)) - MERROR (MERROR_FONT, NULL); - MLIST_APPEND1 (stage, cmds, dummy, MERROR_FONT); - } - - /* Load the first command from PLIST into STAGE->cmds[0]. Macros - called in the first command are also loaded from MPLIST_NEXT - (PLIST) into STAGE->cmds[n]. */ - if (load_command (stage, plist, MPLIST_NEXT (plist), INDEX_TO_CMD_ID (0)) - == INVALID_CMD_ID) - { - MLIST_FREE1 (stage, cmds); - free (stage); - MERROR (MERROR_DRAW, NULL); - } - - return stage; -} - - -/* Load FLT of name LAYOUTER_NAME from the m17n database into a newly - allocated memory, and return it. */ - -static MFontLayoutTable * -load_flt (MSymbol layouter_name) -{ - MDatabase *mdb; - MPlist *top = NULL, *plist; - MSymbol Mcategory = msymbol ("category"); - MSymbol Mgenerator = msymbol ("generator"); - MSymbol Mend = msymbol ("end"); - MFontLayoutTable *layouter = NULL; - MCharTable *category = NULL; - - if (! (mdb = mdatabase_find (Mfont, Mlayouter, layouter_name, Mnil))) - MERROR_GOTO (MERROR_FONT, finish); - if (! (top = (MPlist *) mdatabase_load (mdb))) - MERROR_GOTO (0, finish); - if (! MPLIST_PLIST_P (top)) - MERROR_GOTO (MERROR_FONT, finish); - - MPLIST_DO (plist, top) - { - MSymbol sym; - MPlist *elt; - - if (MPLIST_SYMBOL_P (plist) - && MPLIST_SYMBOL (plist) == Mend) - break; - if (! MPLIST_PLIST (plist)) - MERROR_GOTO (MERROR_FONT, finish); - elt = MPLIST_PLIST (plist); - if (! MPLIST_SYMBOL_P (elt)) - MERROR_GOTO (MERROR_FONT, finish); - sym = MPLIST_SYMBOL (elt); - elt = MPLIST_NEXT (elt); - if (! elt) - MERROR_GOTO (MERROR_FONT, finish); - if (sym == Mcategory) - { - if (category) - M17N_OBJECT_UNREF (category); - category = load_category_table (elt); - } - else if (sym == Mgenerator) - { - FontLayoutStage *stage; - - if (! category) - MERROR_GOTO (MERROR_FONT, finish); - stage = load_generator (elt); - if (! stage) - MERROR_GOTO (MERROR_FONT, finish); - stage->category = category; - M17N_OBJECT_REF (category); - if (! layouter) - { - layouter = mplist (); - /* Here don't do M17N_OBJECT_REF (category) because we - don't unref the value of the element added below. */ - mplist_add (layouter, Mcategory, category); - } - mplist_add (layouter, Mt, stage); - } - } - - if (category) - M17N_OBJECT_UNREF (category); - - finish: - M17N_OBJECT_UNREF (top); - mplist_add (flt_list, layouter_name, layouter); - return layouter; -} - - -static void -free_flt_stage (FontLayoutStage *stage) -{ - int i; - - M17N_OBJECT_UNREF (stage->category); - for (i = 0; i < stage->used; i++) - free_flt_command (stage->cmds + i); - MLIST_FREE1 (stage, cmds); - free (stage); -} - - -static MFontLayoutTable * -get_font_layout_table (MSymbol layouter_name) -{ - MPlist *plist = mplist_find_by_key (flt_list, layouter_name); - - return (plist ? MPLIST_VAL (plist) : load_flt (layouter_name)); -} - - -/* FLS (Font Layout Service) */ - -/* Structure to hold information about a context of FLS. */ - -typedef struct -{ - /* Pointer to the current stage. */ - FontLayoutStage *stage; - - /* Encode each MGlyph->code by the current category table into this - array. An element is a category. */ - char *encoded; - /* [GIDX - ] gives a category for the glyph - index GIDX. */ - int encoded_offset; - int *match_indices; - int code_offset; - int cluster_begin_idx; - int cluster_begin_pos; - int cluster_end_pos; - int combining_code; - int left_padding; -} FontLayoutContext; - -static int run_command (int depth, - int, MGlyphString *, int, int, FontLayoutContext *); - -#define NMATCH 20 - -static int -run_rule (int depth, - FontLayoutCmdRule *rule, MGlyphString *gstring, int from, int to, - FontLayoutContext *ctx) -{ - int *saved_match_indices = ctx->match_indices; - int match_indices[NMATCH * 2]; - int consumed; - int i; - int orig_from = from; - - if (rule->src_type == SRC_SEQ) - { - int len; - - len = rule->src.seq.n_codes; - if (len > (to - from)) - return 0; - for (i = 0; i < len; i++) - if (rule->src.seq.codes[i] != gstring->glyphs[from + i].code) - break; - if (i < len) - return 0; - to = from + len; - if (MDEBUG_FLAG () > 2) - MDEBUG_PRINT3 ("\n [FLT] %*s(SEQ 0x%X", depth, "", - rule->src.seq.codes[0]); - } - else if (rule->src_type == SRC_RANGE) - { - int head; - - if (from >= to) - return 0; - head = gstring->glyphs[from].code; - if (head < rule->src.range.from || head > rule->src.range.to) - return 0; - ctx->code_offset = head - rule->src.range.from; - to = from + 1; - if (MDEBUG_FLAG () > 2) - MDEBUG_PRINT4 ("\n [FLT] %*s(RANGE 0x%X-0x%X", depth, "", - rule->src.range.from, rule->src.range.to); - } - else if (rule->src_type == SRC_REGEX) - { - regmatch_t pmatch[NMATCH]; - char saved_code; - int result; - - if (from > to) - return 0; - saved_code = ctx->encoded[to - ctx->encoded_offset]; - ctx->encoded[to - ctx->encoded_offset] = '\0'; - result = regexec (&(rule->src.re.preg), - ctx->encoded + from - ctx->encoded_offset, - NMATCH, pmatch, 0); - if (result == 0 && pmatch[0].rm_so == 0) - { - if (MDEBUG_FLAG () > 2) - MDEBUG_PRINT5 ("\n [FLT] %*s(REGEX \"%s\" \"%s\" %d", depth, "", - rule->src.re.pattern, - ctx->encoded + from - ctx->encoded_offset, - pmatch[0].rm_eo); - ctx->encoded[to - ctx->encoded_offset] = saved_code; - for (i = 0; i < NMATCH; i++) - { - if (pmatch[i].rm_so < 0) - match_indices[i * 2] = match_indices[i * 2 + 1] = -1; - else - { - match_indices[i * 2] = from + pmatch[i].rm_so; - match_indices[i * 2 + 1] = from + pmatch[i].rm_eo; - } - } - ctx->match_indices = match_indices; - to = match_indices[1]; - } - else - { - ctx->encoded[to - ctx->encoded_offset] = saved_code; - return 0; - } - } - else if (rule->src_type == SRC_INDEX) - { - if (rule->src.match_idx >= NMATCH) - return 0; - from = ctx->match_indices[rule->src.match_idx * 2]; - if (from < 0) - return 0; - to = ctx->match_indices[rule->src.match_idx * 2 + 1]; - if (MDEBUG_FLAG () > 2) - MDEBUG_PRINT3 ("\n [FLT] %*s(INDEX %d", depth, "", rule->src.match_idx); - } - else if (rule->src_type == SRC_EXIST) - { - MGlyph *g = MGLYPH (from); - int encoded = g->otf_encoded; - unsigned code; - - if (rule->src.exist.c < 0) - { - if (from >= to) - return 0; - code = g->code; - to = from + 1; - } - else - { - code = rule->src.exist.c; - to = from; - encoded = 0; - } - if (! encoded) - { - code = (g->rface->rfont->driver->encode_char - (NULL, (MFont *) g->rface->rfont, NULL, code)); - if (code == MCHAR_INVALID_CODE) - return 0; - } - } - - consumed = 0; - depth++; - for (i = 0; i < rule->n_cmds; i++) - { - int pos; - - if (rule->cmd_ids[i] == CMD_ID_REPEAT) - { - if (! consumed) - continue; - i--; - } - pos = run_command (depth, rule->cmd_ids[i], gstring, from, to, ctx); - if (pos < 0) - MERROR (MERROR_DRAW, -1); - consumed = pos > from; - if (consumed) - from = pos; - } - - ctx->match_indices = saved_match_indices; - if (MDEBUG_FLAG () > 2) - MDEBUG_PRINT (")"); - return (rule->src_type == SRC_INDEX ? orig_from : to); -} - -static int -run_cond (int depth, - FontLayoutCmdCond *cond, MGlyphString *gstring, int from, int to, - FontLayoutContext *ctx) -{ - int i, pos = 0; - - if (MDEBUG_FLAG () > 2) - MDEBUG_PRINT2 ("\n [FLT] %*s(COND", depth, ""); - depth++; - for (i = 0; i < cond->n_cmds; i++) - { - /* TODO: Write a code for optimization utilizaing the info - cond->seq_XXX. */ - if ((pos = run_command (depth, cond->cmd_ids[i], gstring, from, to, ctx)) - != 0) - break; - } - if (pos < 0) - MERROR (MERROR_DRAW, -1); - if (MDEBUG_FLAG () > 2) - MDEBUG_PRINT (")"); - return (pos); -} - -static int -run_otf (int depth, - MFontCapability *otf_cmd, MGlyphString *gstring, int from, int to, - FontLayoutContext *ctx) -{ -#ifdef HAVE_OTF - int from_idx = gstring->used; - - if (MDEBUG_FLAG () > 2) -#if 0 - MDEBUG_PRINT4 ("\n [FLT] %*s(OTF %s,%s)", depth, "", - (! otf_cmd->features[MFONT_OTT_GSUB].str ? "" - : otf_cmd->features[MFONT_OTT_GSUB].str), - (! otf_cmd->features[MFONT_OTT_GPOS].str ? "" - : otf_cmd->features[MFONT_OTT_GPOS].str)); -#else - MDEBUG_PRINT3 ("\n [FLT] %*s:otf=%s", depth, "", - MSYMBOL_NAME (otf_cmd->otf)); -#endif - to = mfont__ft_drive_otf (gstring, from, to, otf_cmd); - if (ctx->cluster_begin_idx) - for (; from_idx < gstring->used; from_idx++) - UPDATE_CLUSTER_RANGE (ctx, gstring->glyphs[from_idx]); -#endif - return to; -} - -extern char *dump_combining_code (int code); - -static int -run_command (int depth, int id, MGlyphString *gstring, int from, int to, - FontLayoutContext *ctx) -{ - MGlyph g; - - if (id >= 0) - { - int i; - - /* Direct code (== id + ctx->code_offset) output. - The source is not consumed. */ - if (from < to || from == 1) - g = *(MGLYPH (from)); - else - g = *(MGLYPH (from - 1)); - g.type = GLYPH_CHAR; - g.code = ctx->code_offset + id; - if (MDEBUG_FLAG () > 2) - MDEBUG_PRINT3 ("\n [FLT] %*s(DIRECT 0x%X", depth, "", g.code); - if (ctx->combining_code) - g.combining_code = ctx->combining_code; - if (ctx->left_padding) - g.left_padding = ctx->left_padding; - for (i = from; i < to; i++) - { - MGlyph *tmp = MGLYPH (i); - - if (g.pos > tmp->pos) - g.pos = tmp->pos; - else if (g.to < tmp->to) - g.to = tmp->to; - } - APPEND_GLYPH (gstring, g); - UPDATE_CLUSTER_RANGE (ctx, g); - ctx->code_offset = ctx->combining_code = ctx->left_padding = 0; - if (MDEBUG_FLAG () > 2) - MDEBUG_PRINT (")"); - return (from); - } - - if (id <= CMD_ID_OFFSET_INDEX) - { - int idx = CMD_ID_TO_INDEX (id); - FontLayoutCmd *cmd; - - if (idx >= ctx->stage->used) - MERROR (MERROR_DRAW, -1); - cmd = ctx->stage->cmds + idx; - if (cmd->type == FontLayoutCmdTypeRule) - to = run_rule (depth, &cmd->body.rule, gstring, from, to, ctx); - else if (cmd->type == FontLayoutCmdTypeCond) - to = run_cond (depth, &cmd->body.cond, gstring, from, to, ctx); - else if (cmd->type == FontLayoutCmdTypeOTF) - to = run_otf (depth, cmd->body.otf, gstring, from, to, ctx); - - if (to < 0) - return -1; - return to; - } - - if (id <= CMD_ID_OFFSET_COMBINING) - { - ctx->combining_code = CMD_ID_TO_COMBINING_CODE (id); - if (MDEBUG_FLAG () > 2) - MDEBUG_PRINT3 ("\n [FLT] %*s(CMB %s)", depth, "", - dump_combining_code (ctx->combining_code)); - return from; - } - - switch (id) - { - case CMD_ID_COPY: - { - if (from >= to) - return from; - g = *(MGLYPH (from)); - if (ctx->combining_code) - g.combining_code = ctx->combining_code; - if (ctx->left_padding) - g.left_padding = ctx->left_padding; - APPEND_GLYPH (gstring, g); - UPDATE_CLUSTER_RANGE (ctx, g); - if (MDEBUG_FLAG () > 2) - { - if (g.type == GLYPH_PAD) - MDEBUG_PRINT2 ("\n [FLT] %*s(COPY |)", depth, ""); - else - MDEBUG_PRINT3 ("\n [FLT] %*s(COPY 0x%X)", depth, "", g.code); - } - ctx->code_offset = ctx->combining_code = ctx->left_padding = 0; - return (from + 1); - } - - case CMD_ID_CLUSTER_BEGIN: - if (! ctx->cluster_begin_idx) - { - if (MDEBUG_FLAG () > 2) - MDEBUG_PRINT3 ("\n [FLT] %*s<%d", depth, "", MGLYPH (from)->pos); - ctx->cluster_begin_idx = gstring->used; - ctx->cluster_begin_pos = MGLYPH (from)->pos; - ctx->cluster_end_pos = MGLYPH (from)->to; - } - return from; - - case CMD_ID_CLUSTER_END: - if (ctx->cluster_begin_idx && ctx->cluster_begin_idx < gstring->used) - { - int i; - - if (MDEBUG_FLAG () > 2) - MDEBUG_PRINT1 (" %d>", ctx->cluster_end_pos); - for (i = ctx->cluster_begin_idx; i < gstring->used; i++) - { - MGLYPH (i)->pos = ctx->cluster_begin_pos; - MGLYPH (i)->to = ctx->cluster_end_pos; - } - ctx->cluster_begin_idx = 0; - } - return from; - - case CMD_ID_SEPARATOR: - { - if (from < to) - g = *(MGLYPH (from)); - else - g = *(MGLYPH (from - 1)); - g.type = GLYPH_PAD; - /* g.c = g.code = 0; */ - g.width = 0; - APPEND_GLYPH (gstring, g); - return from; - } - - case CMD_ID_LEFT_PADDING: - if (MDEBUG_FLAG () > 2) - MDEBUG_PRINT2 ("\n [FLT] %*s[", depth, ""); - ctx->left_padding = 1; - return from; - - case CMD_ID_RIGHT_PADDING: - if (gstring->used > 0) - { - if (MDEBUG_FLAG () > 2) - MDEBUG_PRINT2 ("\n [FLT] %*s]", depth, ""); - gstring->glyphs[gstring->used - 1].right_padding = 1; - } - return from; - } - - MERROR (MERROR_DRAW, -1); -} - - -/* Internal API */ - -int -mfont__flt_init (void) -{ - Mcond = msymbol ("cond"); - Mrange = msymbol ("range"); - Mlayouter = msymbol ("layouter"); - Mexist = msymbol ("exist"); - flt_list = mplist (); - return 0; -} - -void -mfont__flt_fini (void) -{ - MPlist *plist, *pl; - - MPLIST_DO (plist, flt_list) - { - pl = MPLIST_PLIST (plist); - if (pl) - { - MPLIST_DO (pl, MPLIST_NEXT (pl)) - free_flt_stage (MPLIST_VAL (pl)); - pl = MPLIST_PLIST (plist); - M17N_OBJECT_UNREF (pl); - } - } - M17N_OBJECT_UNREF (flt_list); -} - -unsigned -mfont__flt_encode_char (MSymbol layouter_name, int c) -{ - MFontLayoutTable *layouter = get_font_layout_table (layouter_name); - MCharTable *table; - unsigned code; - - if (! layouter) - return MCHAR_INVALID_CODE; - table = MPLIST_VAL (layouter); - code = (unsigned) mchartable_lookup (table, c); - return (code ? code : MCHAR_INVALID_CODE); -} - -int -mfont__flt_run (MGlyphString *gstring, int from, int to, MRealizedFace *rface) -{ - int stage_idx = 0; - int gidx; - int i; - FontLayoutContext ctx; - MCharTable *table; - int encoded_len; - int match_indices[NMATCH]; - MSymbol layouter_name = rface->layouter; - MFontLayoutTable *layouter = get_font_layout_table (layouter_name); - MRealizedFace *ascii_rface = rface->ascii_rface; - FontLayoutStage *stage; - int from_pos, to_pos; - MGlyph dummy; - - if (! layouter) - { - /* FLT not found. Make all glyphs invisible. */ - while (from < to) - gstring->glyphs[from++].code = MCHAR_INVALID_CODE; - return to; - } - - dummy = gstring->glyphs[from]; - MDEBUG_PRINT1 (" [FLT] (%s", msymbol_name (layouter_name)); - - /* Setup CTX. */ - memset (&ctx, 0, sizeof ctx); - table = MPLIST_VAL (layouter); - layouter = MPLIST_NEXT (layouter); - stage = (FontLayoutStage *) MPLIST_VAL (layouter); - gidx = from; - /* Find previous glyphs that are also supported by the layouter. */ - while (gidx > 1 - && mchartable_lookup (table, MGLYPH (gidx - 1)->c)) - gidx--; - /* + 2 is for a separator ' ' and a terminator '\0'. */ - encoded_len = gstring->used - gidx + 2; - ctx.encoded = (char *) alloca (encoded_len); - - for (i = 0; gidx < from; i++, gidx++) - ctx.encoded[i] = (int) mchartable_lookup (table, MGLYPH (gidx)->c); - - ctx.encoded[i++] = ' '; - ctx.encoded_offset = from - i; - - /* Now each MGlyph->code contains encoded char. Set it in - ctx.encoded[], and set MGlyph->c to MGlyph->code. */ - for (gidx = from; gidx < to ; i++, gidx++) - { - ctx.encoded[i] = (int) MGLYPH (gidx)->code; - MGLYPH (gidx)->code = (unsigned) MGLYPH (gidx)->c; - } - ctx.encoded[i++] = '\0'; - - match_indices[0] = from; - match_indices[1] = to; - for (i = 2; i < NMATCH; i++) - match_indices[i] = -1; - ctx.match_indices = match_indices; - - from_pos = MGLYPH (from)->pos; - to_pos = MGLYPH (to)->pos; - - if (MDEBUG_FLAG ()) - { - MDEBUG_PRINT ("\n [FLT] (SOURCE"); - for (i = from; i < to; i++) - { - if (i > from && (i - from) % 8 == 0) - MDEBUG_PRINT ("\n [FLT] "); - MDEBUG_PRINT1 (" %04X", MGLYPH (i)->c); - } - MDEBUG_PRINT (")"); - } - - for (stage_idx = 0; 1; stage_idx++) - { - int len = to - from; - int result; - - ctx.code_offset = ctx.combining_code = ctx.left_padding = 0; - if (MDEBUG_FLAG () > 2) - { - MDEBUG_PRINT2 ("\n [FLT] (STAGE %d \"%s\"", stage_idx, - ctx.encoded + from - ctx.encoded_offset); - fprintf (stderr, " ("); - for (i = from; i < to ; i++) - { - if (gstring->glyphs[i].type == GLYPH_PAD) - fprintf (stderr, "%*s|", (i > from), ""); - else - fprintf (stderr, "%*s%04X", (i > from), "", - gstring->glyphs[i].code); - } - fprintf (stderr, ")"); - } - - gidx = gstring->used; - ctx.stage = stage; - - result = run_command (4, INDEX_TO_CMD_ID (0), gstring, - ctx.encoded_offset, to, &ctx); - if (MDEBUG_FLAG () > 2) - MDEBUG_PRINT (")"); - if (result < 0) - return -1; - to = from + (gstring->used - gidx); - REPLACE_GLYPHS (gstring, gidx, from, len); - - layouter = MPLIST_NEXT (layouter); - /* If this is the last stage, break the loop. */ - if (MPLIST_TAIL_P (layouter)) - break; - - /* Otherwise, prepare for the next iteration. */ - stage = (FontLayoutStage *) MPLIST_VAL (layouter); - table = stage->category; - if (to - from >= encoded_len) - { - encoded_len = to + 1; - ctx.encoded = (char *) alloca (encoded_len); - } - - for (i = from; i < to; i++) - { - MGlyph *g = MGLYPH (i); - - if (g->type == GLYPH_PAD) - ctx.encoded[i - from] = ' '; - else if (! g->otf_encoded) - ctx.encoded[i - from] = (int) mchartable_lookup (table, g->code); -#if defined (HAVE_FREETYPE) && defined (HAVE_OTF) - else - { - int c = mfont__ft_decode_otf (g); - - if (c >= 0) - { - c = (int) mchartable_lookup (table, c); - if (! c) - c = -1; - } - ctx.encoded[i - from] = (c >= 0 ? c : 1); - } -#endif /* HAVE_FREETYPE && HAVE_OTF */ - } - ctx.encoded[i - from] = '\0'; - ctx.encoded_offset = from; - ctx.match_indices[0] = from; - ctx.match_indices[1] = to; - } - - if (from == to) - { - /* Somehow there's no glyph contributing to characters between - FROM_POS and TO_POS. We must add one dummy space glyph for - those characters. */ - MGlyph g; - - g.type = GLYPH_SPACE; - g.c = ' ', g.code = ' '; - g.pos = from_pos, g.to = to_pos; - g.rface = ascii_rface; - INSERT_GLYPH (gstring, from, g); - to = from + 1; - } - else - { - /* Get actual glyph IDs of glyphs. Also check if all characters - in the range is covered by some glyph(s). If not, change - and of glyphs to cover uncovered characters. */ - int len = to_pos - from_pos; - int pos; - MGlyph **glyphs = alloca (sizeof (MGlyph) * len); - MGlyph *g, *gend = MGLYPH (to); - MGlyph *latest = gend; - - for (g = MGLYPH (from); g != gend; g++) - if (g->type == GLYPH_CHAR && ! g->otf_encoded) - g->code = ((rface->rfont->driver->encode_char) - (NULL, (MFont *) rface->rfont, NULL, g->code)); - for (i = 0; i < len; i++) - glyphs[i] = NULL; - for (g = MGLYPH (from); g != gend; g++) - { - if (g->pos < latest->pos) - latest = g; - if (! glyphs[g->pos - from_pos]) - { - for (i = g->pos; i < g->to; i++) - glyphs[i - from_pos] = g; - } - } - i = 0; - if (! glyphs[0]) - { - pos = latest->pos; - for (g = latest; g->pos == pos; g++) - g->pos = from_pos; - i++; - } - for (; i < len; i++) - { - if (! glyphs[i]) - { - for (g = latest; g->pos == latest->pos; g++) - g->to = from_pos + i + 1; - } - else - latest = glyphs[i]; - } - } - if (MDEBUG_FLAG ()) - { - MDEBUG_PRINT ("\n [FLT] (RESULT"); - for (i = from; i < to;) - { - if (MGLYPH (i)->otf_encoded) - i++; - else - { - int j = i++; - - while (i < to && ! MGLYPH (i)->otf_encoded) i++; - mfont__get_metric (gstring, j, i); - } - } - if (MDEBUG_FLAG () > 1) - for (i = 0; from < to; from++, i++) - { - MGlyph *g; - int width, xoff, yoff; - - if (i > 0 && i % 4 == 0) - MDEBUG_PRINT ("\n [FLT] "); - g = MGLYPH (from); - g->otf_encoded = 1; - width = g->width, xoff = g->xoff, yoff = g->yoff; - if (g->right_padding && g->rbearing > g->width) - width = g->rbearing; - if (g->left_padding && g->lbearing < 0) - { - width += - g->lbearing; - xoff += - g->lbearing; - } - MDEBUG_PRINT4 (" (%04X %d %d %d)", g->code, width, xoff, yoff); - } - else - for (; from < to; from++) - { - MGLYPH (from)->otf_encoded = 1; - MDEBUG_PRINT1 (" %04X", MGLYPH (from)->code); - } - MDEBUG_PRINT ("))\n"); - } - - return to; -} - - -/* for debugging... */ - -static void -dump_flt_cmd (FontLayoutStage *stage, int id, int indent) -{ - char *prefix = (char *) alloca (indent + 1); - - memset (prefix, 32, indent); - prefix[indent] = 0; - - if (id >= 0) - fprintf (stderr, "0x%02X", id); - else if (id <= CMD_ID_OFFSET_INDEX) - { - int idx = CMD_ID_TO_INDEX (id); - FontLayoutCmd *cmd = stage->cmds + idx; - - if (cmd->type == FontLayoutCmdTypeRule) - { - FontLayoutCmdRule *rule = &cmd->body.rule; - int i; - - fprintf (stderr, "(rule "); - if (rule->src_type == SRC_REGEX) - fprintf (stderr, "\"%s\"", rule->src.re.pattern); - else if (rule->src_type == SRC_INDEX) - fprintf (stderr, "%d", rule->src.match_idx); - else if (rule->src_type == SRC_SEQ) - fprintf (stderr, "(seq)"); - else if (rule->src_type == SRC_RANGE) - fprintf (stderr, "(range)"); - else - fprintf (stderr, "(invalid src)"); - - for (i = 0; i < rule->n_cmds; i++) - { - fprintf (stderr, "\n%s ", prefix); - dump_flt_cmd (stage, rule->cmd_ids[i], indent + 2); - } - fprintf (stderr, ")"); - } - else if (cmd->type == FontLayoutCmdTypeCond) - { - FontLayoutCmdCond *cond = &cmd->body.cond; - int i; - - fprintf (stderr, "(cond"); - for (i = 0; i < cond->n_cmds; i++) - { - fprintf (stderr, "\n%s ", prefix); - dump_flt_cmd (stage, cond->cmd_ids[i], indent + 2); - } - fprintf (stderr, ")"); - } - else if (cmd->type == FontLayoutCmdTypeOTF) - { - fprintf (stderr, "(otf)"); - } - else - fprintf (stderr, "(error-command)"); - } - else if (id <= CMD_ID_OFFSET_COMBINING) - fprintf (stderr, "cominging-code"); - else - fprintf (stderr, "(predefiend %d)", id); -} - -void -dump_flt (MFontLayoutTable *flt, int indent) -{ - char *prefix = (char *) alloca (indent + 1); - MPlist *plist; - int stage_idx = 0; - - memset (prefix, 32, indent); - prefix[indent] = 0; - fprintf (stderr, "(flt"); - MPLIST_DO (plist, flt) - { - FontLayoutStage *stage = (FontLayoutStage *) MPLIST_VAL (plist); - int i; - - fprintf (stderr, "\n%s (stage %d", prefix, stage_idx); - for (i = 0; i < stage->used; i++) - { - fprintf (stderr, "\n%s ", prefix); - dump_flt_cmd (stage, INDEX_TO_CMD_ID (i), indent + 4); - } - fprintf (stderr, ")"); - stage_idx++; - } - fprintf (stderr, ")"); -} diff --git a/src/m17n-flt.h b/src/m17n-flt.h index 5d48dc0..665d893 100644 --- a/src/m17n-flt.h +++ b/src/m17n-flt.h @@ -77,9 +77,7 @@ extern void m17n_fini_flt (void); ·¿ #MFLTGlyph ¤Ï¡¢¥°¥ê¥Õ¤Ë´Ø¤¹¤ë¾ðÊó¤ò³ÊǼ¤¹¤ë¹½Â¤ÂΤǤ¢¤ë¡£ */ -typedef struct _MFLTGlyph MFLTGlyph; - -struct _MFLTGlyph +typedef struct { /***en Character code (Unicode) of the glyph. This is the sole member to be set before calling the functions mflt_find () and @@ -144,7 +142,7 @@ struct _MFLTGlyph unsigned internal : 30; /* Arbitrary data can follow. */ -}; +} MFLTGlyph; /*=*/ @@ -162,9 +160,7 @@ struct _MFLTGlyph ¤Ï¡¢¥°¥ê¥Õ¤Î¥á¥È¥ê¥Ã¥¯/°ÌÃÖ¤ÎÄ´À°¤Ë´Ø¤¹¤ë¾ðÊó¤ò³ÊǼ¤¹¤ë¤¿¤á¤Î¹½Â¤ÂΤǤ¢¤ê¡¢ #MFLTFont ¤Î callback ´Ø¿ô #drive_otf ¤ËÅϤµ¤ì¤ë¡£ */ -typedef struct _MFLTGlyphAdjustment MFLTGlyphAdjustment; - -struct _MFLTGlyphAdjustment +typedef struct { /***en Adjustments for advance width for horizontal layout and advance height for vertical layout expressed in 26.6 fractional @@ -190,7 +186,9 @@ struct _MFLTGlyphAdjustment a nonzero value. */ /***ja ¾¤Î¥á¥ó¥Ð¡¼¤Î¤¦¤ÁºÇÄã1¸Ä¤¬Èó¥¼¥í¤Î¤È¤­¤Î¤ß¡¢1¤Ë¥»¥Ã¥È¤µ¤ì¤ë¡£ */ unsigned set : 1; -}; +} MFLTGlyphAdjustment; + +/*=*/ /***en @brief Type of information about a glyph sequence. @@ -203,9 +201,7 @@ struct _MFLTGlyphAdjustment ·¿ #MFLTGlyphString ¤Ï¡¢¥°¥ê¥ÕÎó¤Î¾ðÊó¤ò³ÊǼ¤¹¤ë¤¿¤á¤Î¹½Â¤ÂΤǤ¢¤ë¡£ */ -typedef struct _MFLTGlyphString MFLTGlyphString; - -struct _MFLTGlyphString +typedef struct { /***en The actual byte size of elements of the array pointed by the member #glyphs. It must be equal to or greater than "sizeof @@ -226,7 +222,9 @@ struct _MFLTGlyphString or not. */ /***ja ¥°¥ê¥Õ¤¬±¦¤«¤éº¸¤Ø¤ÈÉÁ¤«¤ì¤ë¤Ù¤­¤«Èݤ«¤ò¼¨¤¹¥Õ¥é¥°¡£ */ unsigned int r2l; -}; +} MFLTGlyphString; + +/*=*/ /***en @brief Type of specification of GSUB and GPOS OpenType tables. @@ -238,13 +236,11 @@ struct _MFLTGlyphString /***ja @brief GSUB ¤ª¤è¤Ó GPOS OpenType ¥Æ¡¼¥Ö¥ë¤Î»ÅÍͤΤ¿¤á¤Î·¿. - ·¿ #MFLTOtfSpec ¤Ï¡¢GSUB ¤ª¤è¤Ó GPOS - ¥Õ¥£¡¼¥Á¥ã¡¼¤Î¾ðÊó¤ò³ÊǼ¤¹¤ë¤¿¤á¤Î¹½Â¤ÂΤǤ¢¤ë¡£ - ¤³¤ì¤é¥Õ¥£¡¼¥Á¥ã¡¼¤ÏÆÃÄê¤Î¥¹¥¯¥ê¥×¥È¤ª¤è¤Ó¸À¸ì¥·¥¹¥Æ¥à¤Î¤â¤Î¤Ç¤¢¤ê¡¢¥°¥ê¥ÕÎó¤ËŬÍѤµ¤ì¤ë¡£ */ + ·¿ #MFLTOtfSpec ¤Ï¡¢GSUB ¤ª¤è¤Ó GPOS¥Õ¥£¡¼¥Á¥ã¡¼¤Î¾ðÊó¤ò³ÊǼ¤¹¤ë¤¿ + ¤á¤Î¹½Â¤ÂΤǤ¢¤ë¡£¤³¤ì¤é¥Õ¥£¡¼¥Á¥ã¡¼¤ÏÆÃÄê¤Î¥¹¥¯¥ê¥×¥È¤ª¤è¤Ó¸À¸ì¥· + ¥¹¥Æ¥à¤Î¤â¤Î¤Ç¤¢¤ê¡¢¥°¥ê¥ÕÎó¤ËŬÍѤµ¤ì¤ë¡£ */ -typedef struct _MFLTOtfSpec MFLTOtfSpec; - -struct _MFLTOtfSpec +typedef struct { /***en Unique symbol representing the spec. This is the same as the #OTF-SPEC of the FLT. */ @@ -261,12 +257,15 @@ struct _MFLTOtfSpec apply the previous features in that order, and apply all the other features except those that appear in the following elements. It may be NULL if there are no features. */ - /***ja GSUB ¥Õ¥£¡¼¥Á¥ã¡¼¤òÂè1Í×ÁÇ¡¢GPOS ¥Õ¥£¡¼¥Á¥ã¡¼¤òÂè2Í×ÁǤȤ¹¤ëÇÛÎó¡£ - ³ÆÇÛÎó¤ÎËöÈø¤Ï0¤Ç¼¨¤µ¤ì¤ë¡£¤â¤·¤¢¤ëÍ×ÁǤ¬ 0xFFFFFFFF - ¤Ê¤é¤Ð¡¢°ÊÁ°¤ÎÁ´¥Õ¥£¡¼¥Á¥ã¡¼¤ò¤½¤Î½ç½ø¤ÇŬÍѤ·¡¢¹¹¤Ë°Ê¹ß¤ÎÍ×ÁǤȤ·¤Æ¸½¤ï¤ì¤ë¥Õ¥£¥Á¥ã¡¼°Ê³°¤Î¤¹¤Ù¤Æ¤òŬÍѤ¹¤ë¡£ - ¥Õ¥£¡¼¥Á¥ã¡¼¤¬1¤Ä¤â¤Ê¤¤¾ì¹ç¤Ï NULL ¤Ç¤â¤è¤¤¡£ */ + /***ja GSUB ¥Õ¥£¡¼¥Á¥ã¡¼¤òÂè1Í×ÁÇ¡¢GPOS ¥Õ¥£¡¼¥Á¥ã¡¼¤òÂè2Í×ÁǤȤ¹¤ëÇÛ + Îó¡£³ÆÇÛÎó¤ÎËöÈø¤Ï0¤Ç¼¨¤µ¤ì¤ë¡£¤â¤·¤¢¤ëÍ×ÁǤ¬ 0xFFFFFFFF¤Ê¤é¤Ð¡¢ + °ÊÁ°¤ÎÁ´¥Õ¥£¡¼¥Á¥ã¡¼¤ò¤½¤Î½ç½ø¤ÇŬÍѤ·¡¢¹¹¤Ë°Ê¹ß¤ÎÍ×ÁǤȤ·¤Æ¸½¤ï + ¤ì¤ë¥Õ¥£¥Á¥ã¡¼°Ê³°¤Î¤¹¤Ù¤Æ¤òŬÍѤ¹¤ë¡£¥Õ¥£¡¼¥Á¥ã¡¼¤¬1¤Ä¤â¤Ê¤¤¾ì¹ç + ¤Ï NULL ¤Ç¤â¤è¤¤¡£ */ unsigned int *features[2]; -}; +} MFLTOtfSpec; + +/*=*/ /***en @brief Type of font to be used by the FLT driver. @@ -277,20 +276,17 @@ struct _MFLTOtfSpec /***ja @brief FLT ¥É¥é¥¤¥Ð¤¬»È¤¦¥Õ¥©¥ó¥È¤Î·¿. - ·¿ #MFLTFont ¤Ï¡¢FLT - ¥É¥é¥¤¥Ð¤¬»È¤¦¥Õ¥©¥ó¥È¤Ë´Ø¤¹¤ë¾ðÊó¤ò³ÊǼ¤¹¤ë¤¿¤á¤Î¹½Â¤ÂΤǤ¢¤ë¡£ */ + ·¿ #MFLTFont ¤Ï¡¢FLT¥É¥é¥¤¥Ð¤¬»È¤¦¥Õ¥©¥ó¥È¤Ë´Ø¤¹¤ë¾ðÊó¤ò³ÊǼ¤¹¤ë¤¿ + ¤á¤Î¹½Â¤ÂΤǤ¢¤ë¡£ */ -typedef struct _MFLTFont MFLTFont; - -struct _MFLTFont +typedef struct _MFLTFont { /***en Family name of the font. It may be #Mnil if the family name is not important in finding a Font Layout Table suitable for the font (for instance, in the case that the font is an OpenType font). */ - /***ja ¥Õ¥©¥ó¥È¤Î¥Õ¥¡¥ß¥ê¡¼Ì¾¡£¥Õ¥©¥ó¥È¤ËŬ¤·¤¿ FLT - ¤òõ¤¹ºÝ¤Ë½ÅÍפǤʤ¤¾ì¹ç (¤¿¤È¤¨¤Ð OpenType - ¥Õ¥©¥ó¥È¤Î¾ì¹ç¤Ê¤É) ¤Ï¡¢#Mnil ¤Ç¤è¤¤¡£*/ + /***ja ¥Õ¥©¥ó¥È¤Î¥Õ¥¡¥ß¥ê¡¼Ì¾¡£¥Õ¥©¥ó¥È¤ËŬ¤·¤¿ FLT¤òõ¤¹ºÝ¤Ë½ÅÍ×¤Ç¤Ê + ¤¤¾ì¹ç (¤¿¤È¤¨¤Ð OpenType¥Õ¥©¥ó¥È¤Î¾ì¹ç¤Ê¤É) ¤Ï¡¢#Mnil ¤Ç¤è¤¤¡£ */ MSymbol family; /***en Horizontal and vertical font sizes in pixels per EM. */ @@ -301,50 +297,48 @@ struct _MFLTFont (inclusive) and TO (exclusive) of GSTRING. If the member of a glyph is zero, the member of that glyph is a character code. The function must convert it to the glyph ID of FONT. */ - /***ja GSTRING Æâ¤Î FROM ¤«¤é TO ľÁ°¤Þ¤Ç¤Î³Æ¥°¥ê¥Õ¤ËÂбþ¤¹¤ë¥°¥ê¥Õ ID - ¤ò¼èÆÀ¤¹¤ë¤¿¤á¤Î callback ´Ø¿ô¡£¤â¤·¤¢¤ë¥°¥ê¥Õ¤Î¥á¥ó¥Ð¡¼ - ¤¬¥¼¥í¤Ê¤é¤Ð¡¢¤½¤Î¥°¥ê¥Õ¤Î¥á¥ó¥Ð¡¼ ¤Ïʸ»ú¥³¡¼¥É¤Ç¤¢¤ë¡£ - ¤³¤Î´Ø¿ô¤Ï¤½¤Îʸ»ú¥³¡¼¥É¤ò FONT ¤Î¥°¥ê¥Õ ID - ¤ËÊÑ´¹¤·¤Ê¤¯¤Æ¤Ï¤Ê¤é¤Ê¤¤¡£ */ - int (*get_glyph_id) (MFLTFont *font, MFLTGlyphString *gstring, + /***ja GSTRING Æâ¤Î FROM ¤«¤é TO ľÁ°¤Þ¤Ç¤Î³Æ¥°¥ê¥Õ¤ËÂбþ¤¹¤ë¥°¥ê¥Õ + ID¤ò¼èÆÀ¤¹¤ë¤¿¤á¤Î callback ´Ø¿ô¡£¤â¤·¤¢¤ë¥°¥ê¥Õ¤Î¥á¥ó¥Ð¡¼ + ¤¬¥¼¥í¤Ê¤é¤Ð¡¢¤½¤Î¥°¥ê¥Õ¤Î¥á¥ó¥Ð¡¼ ¤Ïʸ»ú¥³¡¼¥É¤Ç + ¤¢¤ë¡£¤³¤Î´Ø¿ô¤Ï¤½¤Îʸ»ú¥³¡¼¥É¤ò FONT ¤Î¥°¥ê¥Õ ID¤ËÊÑ´¹¤·¤Ê¤¯¤Æ¤Ï + ¤Ê¤é¤Ê¤¤¡£ */ + int (*get_glyph_id) (struct _MFLTFont *font, MFLTGlyphString *gstring, int from, int to); /***en Callback function to get metrics of glyphs between FROM (inclusive) and TO (exclusive) of GSTRING. If the member of a glyph is zero, the function must set the members , , , , , and of the glyph. */ - /***ja GSTRING Æâ¤Î FROM ¤«¤é TO - ľÁ°¤Þ¤Ç¤Î³Æ¥°¥ê¥Õ¤ËÂбþ¤¹¤ë¥á¥È¥ê¥Ã¥¯¤ò¼èÆÀ¤¹¤ë¤¿¤á¤Î callback ´Ø¿ô¡£ - ¤â¤·¤¢¤ë¥°¥ê¥Õ¤Î¥á¥ó¥Ð¡¼ - ¤¬¥¼¥í¤Ê¤é¤Ð¡¢¤³¤Î´Ø¿ô¤Ï¤½¤Î¥°¥ê¥Õ¤Î¥á¥ó¥Ð¡¼ , , - , , , ¤ª¤è¤Ó - ¤ò¥»¥Ã¥È¤·¤Ê¤±¤ì¤Ð¤Ê¤é¤Ê¤¤¡£ */ - int (*get_metrics) (MFLTFont *font, MFLTGlyphString *gstring, + /***ja GSTRING Æâ¤Î FROM ¤«¤é TOľÁ°¤Þ¤Ç¤Î³Æ¥°¥ê¥Õ¤ËÂбþ¤¹¤ë¥á¥È¥ê¥Ã + ¥¯¤ò¼èÆÀ¤¹¤ë¤¿¤á¤Î callback ´Ø¿ô¡£¤â¤·¤¢¤ë¥°¥ê¥Õ¤Î¥á¥ó¥Ð¡¼ + ¤¬¥¼¥í¤Ê¤é¤Ð¡¢¤³¤Î´Ø¿ô¤Ï¤½¤Î¥°¥ê¥Õ¤Î¥á¥ó¥Ð¡¼ , + , , , , ¤ª¤è¤Ó ¤ò¥»¥Ã + ¥È¤·¤Ê¤±¤ì¤Ð¤Ê¤é¤Ê¤¤¡£ */ + int (*get_metrics) (struct _MFLTFont *font, MFLTGlyphString *gstring, int from, int to); /***en Callback function to check if the font has OpenType GSUB/GPOS features for a specific script/language. The function must return 1, if the font satisfies SPEC, or 0. It must be NULL if the font does not have OpenType tables. */ - /***ja ¥Õ¥©¥ó¥È¤¬¤¢¤ëÆÃÄê¤Î¥¹¥¯¥ê¥×¥È/¸À¸ì¤ËÂФ¹¤ë GSUB/GPOS OpenType - ¥Õ¥£¡¼¥Á¥ã¡¼¤ò»ý¤Ä¤«Èݤ«¤òÄ´¤Ù¤ë callback ´Ø¿ô¡£¤³¤Î´Ø¿ô¤Ï¥Õ¥©¥ó¥È¤¬ - SPEC ¤òËþ¤¿¤¹¤È¤­¤Ï 1 ¤ò¡¢¤½¤¦¤Ç¤Ê¤¤¤È¤­¤Ï 0 - ¤òÊÖ¤µ¤Ê¤±¤ì¤Ð¤Ê¤é¤Ê¤¤¡£¥Õ¥©¥ó¥È¤¬ OpenType ¥Æ¡¼¥Ö¥ë¤ò»ý¤¿¤Ê¤¤¤È¤­¤Ï - NULL ¤Ç¤Ê¤±¤ì¤Ð¤Ê¤é¤Ê¤¤¡£ */ - int (*check_otf) (MFLTFont *font, MFLTOtfSpec *spec); + /***ja ¥Õ¥©¥ó¥È¤¬¤¢¤ëÆÃÄê¤Î¥¹¥¯¥ê¥×¥È/¸À¸ì¤ËÂФ¹¤ë GSUB/GPOS + OpenType¥Õ¥£¡¼¥Á¥ã¡¼¤ò»ý¤Ä¤«Èݤ«¤òÄ´¤Ù¤ë callback ´Ø¿ô¡£¤³¤Î´Ø¿ô + ¤Ï¥Õ¥©¥ó¥È¤¬SPEC ¤òËþ¤¿¤¹¤È¤­¤Ï 1 ¤ò¡¢¤½¤¦¤Ç¤Ê¤¤¤È¤­¤Ï 0¤òÊÖ¤µ¤Ê + ¤±¤ì¤Ð¤Ê¤é¤Ê¤¤¡£¥Õ¥©¥ó¥È¤¬ OpenType ¥Æ¡¼¥Ö¥ë¤ò»ý¤¿¤Ê¤¤¤È¤­¤ÏNULL + ¤Ç¤Ê¤±¤ì¤Ð¤Ê¤é¤Ê¤¤¡£ */ + int (*check_otf) (struct _MFLTFont *font, MFLTOtfSpec *spec); /***en Callback function to apply OpenType features in SPEC to glyphs between FROM (inclusive) and TO (exclusive) of IN. The resulting glyphs are appended to the tail of OUT. If OUT does not have a room to store all the resulting glyphs, it must return -2. It must be NULL if the font does not have OpenType tables. */ - /***ja IN Æâ¤Î FROM ¤«¤é TO ľÁ°¤Þ¤Ç¤Î³Æ¥°¥ê¥Õ¤Ë SPEC - Æâ¤Î³Æ OpenType ¥Õ¥£¡¼¥Á¥ã¡¼¤òŬÍѤ¹¤ë¤¿¤á¤Î callback ´Ø¿ô¡£ - ŬÍÑ·ë²Ì¤Î¥°¥ê¥ÕÎó¤Ï OUT ¤ÎËöÈø¤ËÄɲ䵤ì¤ë¡£ - OUT ¤¬Ã»¤«²á¤®¤Æ·ë²Ì¤òÄɲä·ÀÚ¤ì¤Ê¤¤¾ì¹ç¤Ï -2 ¤òÊÖ¤µ¤Ê¤¯¤Æ¤Ï¤Ê¤é¤Ê¤¤¡£ - ¥Õ¥©¥ó¥È¤¬ OpenType ¥Æ¡¼¥Ö¥ë¤ò»ý¤¿¤Ê¤¤¾ì¹ç¤Ï NULL - ¤Ç¤Ê¤±¤ì¤Ð¤Ê¤é¤Ê¤¤¡£ /* - int (*drive_otf) (MFLTFont *font, MFLTOtfSpec *spec, + /***ja IN Æâ¤Î FROM ¤«¤é TO ľÁ°¤Þ¤Ç¤Î³Æ¥°¥ê¥Õ¤Ë SPECÆâ¤Î³Æ OpenType + ¥Õ¥£¡¼¥Á¥ã¡¼¤òŬÍѤ¹¤ë¤¿¤á¤Î callback ´Ø¿ô¡£Å¬ÍÑ·ë²Ì¤Î¥°¥ê¥ÕÎó¤Ï + OUT ¤ÎËöÈø¤ËÄɲ䵤ì¤ë¡£OUT ¤¬Ã»¤«²á¤®¤Æ·ë²Ì¤òÄɲä·ÀÚ¤ì¤Ê¤¤¾ì¹ç + ¤Ï -2 ¤òÊÖ¤µ¤Ê¤¯¤Æ¤Ï¤Ê¤é¤Ê¤¤¡£¥Õ¥©¥ó¥È¤¬ OpenType ¥Æ¡¼¥Ö¥ë¤ò»ý¤¿ + ¤Ê¤¤¾ì¹ç¤Ï NULL¤Ç¤Ê¤±¤ì¤Ð¤Ê¤é¤Ê¤¤¡£ */ + int (*drive_otf) (struct _MFLTFont *font, MFLTOtfSpec *spec, MFLTGlyphString *in, int from, int to, MFLTGlyphString *out, MFLTGlyphAdjustment *adjustment); @@ -352,7 +346,9 @@ struct _MFLTFont to NULL. */ /***ja m17n-lib ¤ÎÆâÉôºî¶ÈÍÑ¡£NULL ¤Ë½éÃͲ½¤µ¤ì¤ë¡£ */ void *internal; -}; +} MFLTFont; + +/*=*/ /***en @brief Type of FLT (Font Layout Table). -- 1.7.10.4