autoCategories Categories_create () {
try {
autoCategories me = Thing_new (Categories);
Categories_init (me.peek(), 10);
return me;
} catch (MelderError) {
Melder_throw (U"Categories not created.");
}
}
autoCategories Strings_to_Categories (Strings me) {
try {
if (my numberOfStrings < 1) {
Melder_throw (U"Empty strings.");
}
autoCategories thee = Thing_new (Categories);
Categories_init (thee.peek(), my numberOfStrings);
for (long i = 1; i <= my numberOfStrings; i++) {
autoSimpleString s = SimpleString_create (my strings[i]);
Collection_addItem_move (thee.peek(), s.move());
}
return thee;
} catch (MelderError) {
Melder_throw (me, U": not converted.");
}
}