summaryrefslogtreecommitdiff
path: root/Build/source/texk/web2c/mfluadir/otfcc/lib/table/otl/otl.c
blob: eba225831247747dcaaefb87edeb0af7229255c4 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
#include "private.h"

#define DELETE_TYPE(type, fn)                                                                      \
	case type:                                                                                     \
		((void (*)(otl_Subtable *))fn)(*subtableRef);                                              \
		break;

static INLINE void disposeSubtableDependent(MODIFY otl_SubtablePtr *subtableRef,
                                            const otl_Lookup *lookup) {
	switch (lookup->type) {
		DELETE_TYPE(otl_type_gsub_single, iSubtable_gsub_single.free);
		DELETE_TYPE(otl_type_gsub_multiple, iSubtable_gsub_multi.free);
		DELETE_TYPE(otl_type_gsub_alternate, iSubtable_gsub_multi.free);
		DELETE_TYPE(otl_type_gsub_ligature, iSubtable_gsub_ligature.free);
		DELETE_TYPE(otl_type_gsub_chaining, iSubtable_chaining.free);
		DELETE_TYPE(otl_type_gsub_reverse, iSubtable_gsub_reverse.free);
		DELETE_TYPE(otl_type_gpos_single, iSubtable_gpos_single.free);
		DELETE_TYPE(otl_type_gpos_pair, iSubtable_gpos_pair.free);
		DELETE_TYPE(otl_type_gpos_cursive, iSubtable_gpos_cursive.free);
		DELETE_TYPE(otl_type_gpos_chaining, iSubtable_chaining.free);
		DELETE_TYPE(otl_type_gpos_markToBase, iSubtable_gpos_markToSingle.free);
		DELETE_TYPE(otl_type_gpos_markToMark, iSubtable_gpos_markToSingle.free);
		DELETE_TYPE(otl_type_gpos_markToLigature, iSubtable_gpos_markToLigature.free);
		default:;
	}
}
static caryll_ElementInterface(otl_SubtablePtr) otl_iSubtablePtr = {
    .init = NULL, .copy = NULL, .dispose = NULL,
};
caryll_VectorImplFreeDependent(otl_SubtableList, otl_SubtablePtr, otl_Lookup,
                               disposeSubtableDependent);
caryll_VectorImplFunctions(otl_SubtableList, otl_SubtablePtr, otl_iSubtablePtr);
caryll_VectorInterfaceTypeName(otl_SubtableList) otl_iSubtableList = {
    caryll_VectorImplAssignments(otl_SubtableList, otl_SubtablePtr, otl_iSubtablePtr),
    .disposeDependent = otl_SubtableList_disposeDependent,
};

void otfcc_delete_lookup(otl_Lookup *lookup) {
	if (!lookup) return;
	otl_iSubtableList.disposeDependent(&lookup->subtables, lookup);
	sdsfree(lookup->name);
	FREE(lookup);
}

// LOOKUP
static INLINE void initLookupPtr(otl_LookupPtr *entry) {
	NEW(*entry);
	(*entry)->name = NULL;
	otl_iSubtableList.init(&(*entry)->subtables);
}
static INLINE void disposeLookupPtr(otl_LookupPtr *entry) {
	otfcc_delete_lookup(*entry);
}
caryll_standardType(otl_LookupPtr, otl_iLookupPtr, initLookupPtr, disposeLookupPtr);
caryll_standardVectorImpl(otl_LookupList, otl_LookupPtr, otl_iLookupPtr, otl_iLookupList);
caryll_standardType(otl_LookupRef, otl_iLookupRef);
caryll_standardVectorImpl(otl_LookupRefList, otl_LookupRef, otl_iLookupRef, otl_iLookupRefList);

// FEATURE
static INLINE void initFeaturePtr(otl_FeaturePtr *feature) {
	NEW(*feature);
	otl_iLookupRefList.init(&(*feature)->lookups);
}
static INLINE void disposeFeaturePtr(otl_FeaturePtr *feature) {
	if (!*feature) return;
	if ((*feature)->name) sdsfree((*feature)->name);
	otl_iLookupRefList.dispose(&(*feature)->lookups);
	FREE(*feature);
}
caryll_standardType(otl_FeaturePtr, otl_iFeaturePtr, initFeaturePtr, disposeFeaturePtr);
caryll_standardVectorImpl(otl_FeatureList, otl_FeaturePtr, otl_iFeaturePtr, otl_iFeatureList);
caryll_standardType(otl_FeatureRef, otl_iFeatureRef);
caryll_standardVectorImpl(otl_FeatureRefList, otl_FeatureRef, otl_iFeatureRef, otl_iFeatureRefList);

// LANGUAGE
static INLINE void initLanguagePtr(otl_LanguageSystemPtr *language) {
	NEW(*language);
	otl_iFeatureRefList.init(&(*language)->features);
}
static INLINE void disposeLanguagePtr(otl_LanguageSystemPtr *language) {
	if (!*language) return;
	if ((*language)->name) sdsfree((*language)->name);
	otl_iFeatureRefList.dispose(&(*language)->features);
	FREE(*language);
}
caryll_ElementInterfaceOf(otl_LanguageSystemPtr) otl_iLanguageSystem = {
    .init = initLanguagePtr, .dispose = disposeLanguagePtr,
};
caryll_standardVectorImpl(otl_LangSystemList, otl_LanguageSystemPtr, otl_iLanguageSystem,
                          otl_iLangSystemList);

// COMMON PART
static INLINE void initOTL(table_OTL *table) {
	otl_iLookupList.init(&table->lookups);
	otl_iFeatureList.init(&table->features);
	otl_iLangSystemList.init(&table->languages);
}
static INLINE void disposeOTL(table_OTL *table) {
	otl_iLookupList.dispose(&table->lookups);
	otl_iFeatureList.dispose(&table->features);
	otl_iLangSystemList.dispose(&table->languages);
}

caryll_standardRefType(table_OTL, table_iOTL, initOTL, disposeOTL);