import as toposort from 'toposort'
import as Gr from"../support/gr.mjs"

import [CreateEmptyTable] from"./table-util.mjs"

import [buildLigations] from"./gsub-ligation.mjs"
import [buildCCMP buildCCMPPostCvSs] from"./gsub-ccmp.mjs"
import [buildGrFeature] from"./gsub-gr.mjs"
import [buildFrac] from"./gsub-frac.mjs"
import [buildCVSS] from"./gsub-cv-ss.mjs"
import [buildLOCL] from"./gsub-locl.mjs"
import [buildGsubThousands] from"./gsub-thousands.mjs"
import [buildGsubTexture] from"./gsub-texture.mjs"
import [buildMarkMkmk] from"./gpos-mark-mkmk.mjs"

define GDEF_SIMPLE 1
define GDEF_LIGATURE 2
define GDEF_MARK 3

extern Set
extern Map

# GSUB
define [buildGSUB para glyphStore markGlyphs] : begin
	define gsub : CreateEmptyTable

	# NWID / WWID
	if para.enableNwidWwid : begin
		buildGrFeature gsub glyphStore Gr.Nwid
		buildGrFeature gsub glyphStore Gr.Wwid

	# lnum / onum
	buildGrFeature gsub glyphStore Gr.Lnum
	buildGrFeature gsub glyphStore Gr.Onum

	# zero
	buildGrFeature gsub glyphStore Gr.Zero

	# APLF
	if para.enableCvSs : begin
		buildGrFeature gsub glyphStore Gr.AplForm

	# numr / dnom
	buildGrFeature gsub glyphStore Gr.NumeratorForm
	buildGrFeature gsub glyphStore Gr.DenominatorForm

	# ccmp
	local ccmp : buildCCMP gsub glyphStore markGlyphs

	# frac
	buildFrac gsub glyphStore

	# Ligation
	if para.enableLigation : do
		define plm : Object.assign {.} para.ligation.defaultBuildup
		if (para.ligation.caltBuildup && para.ligation.caltBuildup.length) : begin
			set plm.calt para.ligation.caltBuildup
		buildLigations gsub para plm

	# THND
	buildGsubThousands gsub para glyphStore

	# cv##, ss##
	local cvs nothing
	if para.enableCvSs : begin
		set cvs : buildCVSS gsub para glyphStore

	# ccmp post cv/ss (for Ogonek shape transform)
	buildCCMPPostCvSs gsub ccmp glyphStore markGlyphs

	# locl
	# Builds last, but the lookups are added into the beginning of the lookup list
	buildLOCL gsub para glyphStore

	# TXTR, "texture" feature
	if (para.buildTexture && !para.isQuasiProportional) : begin
		 buildGsubTexture gsub glyphStore markGlyphs cvs

	gsub.finalize
	return gsub

# GPOS
define [buildGPOS para glyphStore markGlyphs] : begin
	define gpos : CreateEmptyTable
	buildMarkMkmk gpos glyphStore markGlyphs
	gpos.finalize
	return gpos

# GDEF
define [buildGDEF para glyphStore markGlyphs] : begin
	local GDEF { .glyphClassDef {.} .markAttachClassDef {.} .markGlyphSets {} }

	foreach { gn glyph } [glyphStore.namedEntries] : piecewise
		[markGlyphs.all.has gn] : set GDEF.glyphClassDef.(gn) GDEF_MARK
		[[regex '_'].test gn]   : set GDEF.glyphClassDef.(gn) GDEF_LIGATURE
		true                    : set GDEF.glyphClassDef.(gn) GDEF_SIMPLE

	local n 1
	local m : new Map
	foreach { gn clsStr } markGlyphs.markAttachClassDef : begin
		local clsNum : m.get clsStr
		if [not clsNum] : begin
			set clsNum n
			set n (n + 1)
			m.set clsStr clsNum

		set GDEF.markAttachClassDef.(gn) clsNum

	set GDEF.markGlyphSets markGlyphs.markGlyphSets

	return GDEF

export : define [buildOtl para glyphStore] : begin
	local markGlyphs { .all [new Set] .markAttachClassDef [new Map] .markGlyphSets {} }
	local GPOS : buildGPOS para glyphStore markGlyphs
	local GDEF : buildGDEF para glyphStore markGlyphs
	local GSUB : buildGSUB para glyphStore markGlyphs

	# Make all diacritics join-l (Kitty #3716)
	foreach gnMark markGlyphs.all : begin
		Gr.Joining.or [glyphStore.queryByName gnMark] Gr.Joining.Classes.Left

	return [object GSUB GPOS GDEF]