void structCategories :: v_readText (MelderReadText a_text, int /*formatVersion*/) {
long l_size = texgeti4 (a_text);
if (l_size == 0) {
OrderedOfString_init (this, 1);
} else if (l_size < 0) {
Melder_throw (U"Size cannot be negative.");
} else {
OrderedOfString_init (this, l_size);
}
for (long i = 1; i <= l_size; i ++) {
autoSimpleString itemi = Thing_new (SimpleString);
itemi -> v_readText (a_text, 0);
Ordered_addItemPos (this, itemi.transfer(), i);
}
}
OrderedOfString OrderedOfString_create () {
try {
autoOrderedOfString me = Thing_new (OrderedOfString);
OrderedOfString_init (me.peek(), 10);
return me.transfer();
} catch (MelderError) {
Melder_throw ("OrderedOfString not created.");
}
}
autoCategories Categories_sequentialNumbers (long n) {
try {
autoCategories me = Thing_new (Categories);
OrderedOfString_init (me.peek(), 5);
OrderedOfString_sequentialNumbers (me.peek(), n);
return me;
} catch (MelderError) {
Melder_throw (U"Sequential number Categories not created.");
}
}
void Categories_init (Categories me, long size) {
OrderedOfString_init (me, size);
}
