serbsubs.ff

/*
 * Copyright (C) 2008, 2012 Andrey V. Panov 
 *
 * This program is free software; you can redistribute it and/or modify
 * it under the terms of the GNU General Public License as published by
 * the Free Software Foundation; either version 3 of the License, or
 * (at your option) any later version.
 *
 * This program 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 General Public License for more details.
 *
 * You should have received a copy of the GNU General Public License
 * along with this program; if not, see <http://www.gnu.org/licenses/>.
 */

serb_table="Serbian substitutions"
serb_subtable="Serbian substitutions subtable"

if (WorthOutputting("ghe.ital") || WorthOutputting("be.alt") || \
    WorthOutputting("de.ital") || WorthOutputting("pe.ital") || \
    WorthOutputting("te.ital"))
 AddLookup(serb_table, "gsub_single", 0, [["locl",[["cyrl",["MKD ","SRB "]]]]])
 AddLookupSubtable(serb_table, serb_subtable)
endif
if (WorthOutputting("ghe.ital") && InFont("ghe.ital"))
 Select("afii10068") # Cyrillic g
 AddPosSub(serb_subtable,"ghe.ital") # afii10063
endif
if (WorthOutputting("be.alt") && InFont("be.alt"))
 Select("afii10066") # Cyrillic b
 AddPosSub(serb_subtable,"be.alt") # afii10064
endif
if (WorthOutputting("de.ital") && InFont("de.ital"))
 Select("afii10069") # Cyrillic d
 AddPosSub(serb_subtable,"de.ital") # afii10192
endif
if (WorthOutputting("pe.ital") && InFont("pe.ital"))
 Select("afii10081") # Cyrillic p
 AddPosSub(serb_subtable,"pe.ital") # afii10831
endif
if (WorthOutputting("te.ital") && InFont("te.ital"))
 Select("afii10084") # Cyrillic t
 AddPosSub(serb_subtable,"te.ital") # afii10832
endif