amath/src/system/language_amiga.cpp

/*-
 * Copyright (c) 2014-2021 Carsten Sonne Larsen <cs@innolan.net>
 * All rights reserved.
 *
 * Redistribution and use in source and binary forms, with or without
 * modification, are permitted provided that the following conditions
 * are met:
 * 1. Redistributions of source code must retain the above copyright
 *    notice, this list of conditions and the following disclaimer.
 * 2. Redistributions in binary form must reproduce the above copyright
 *    notice, this list of conditions and the following disclaimer in the
 *    documentation and/or other materials provided with the distribution.
 *
 * THIS SOFTWARE IS PROVIDED BY THE AUTHOR ``AS IS'' AND ANY EXPRESS OR
 * IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED WARRANTIES
 * OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE ARE DISCLAIMED.
 * IN NO EVENT SHALL THE AUTHOR BE LIABLE FOR ANY DIRECT, INDIRECT,
 * INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT
 * NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE,
 * DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY
 * THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT
 * (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF
 * THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
 *
 * Project homepage:
 * https://amath.innolan.net
 *
 */

#include "amath.h"
#include "amathc.h"
#include "program.h"
#include "language_amiga.h"
#include "loc/help.h"
#include "loc/text.h"
#include "loc/ident.h"
#include "loc/kword.h"

#if defined(AMIGA)
#include <clib/locale_protos.h>

#define CATALOG_HELP     "amath-help.catalog"
#define CATALOG_IDEN     "amath-ident.catalog"
#define CATALOG_TEXT     "amath-text.catalog"
#define CATALOG_KEYW     "amath-keyword.catalog"
#define CATALOG_DEF      OC_BuiltInLanguage, "english"

AmigaLanguage::AmigaLanguage() :
    Language::Language()
{
    locale = OpenLocale(nullptr);
    helpcatalog    = OpenCatalog(locale, CATALOG_HELP, CATALOG_DEF, TAG_DONE);
    identcatalog   = OpenCatalog(locale, CATALOG_IDEN, CATALOG_DEF, TAG_DONE);
    textcatalog    = OpenCatalog(locale, CATALOG_TEXT, CATALOG_DEF, TAG_DONE);
    keywordcatalog = OpenCatalog(locale, CATALOG_KEYW, CATALOG_DEF, TAG_DONE);

    if (keywordcatalog != nullptr) {
        keywordsloc = new keyworddef[keywordcount];
        for (unsigned int j = 0; j < keywordcount; j++) {
            keywordsloc[j].id = j;
            keywordsloc[j].name = GetCatalogStr(keywordcatalog, j, nullptr);
            keywordsloc[j].symbol = keywords[j].symbol;
        }
    }
}

AmigaLanguage::~AmigaLanguage()
{
    if (helpcatalog != nullptr) {
        CloseCatalog(helpcatalog);
    }

    if (identcatalog != nullptr) {
        CloseCatalog(identcatalog);
    }

    if (textcatalog != nullptr) {
        CloseCatalog(textcatalog);
    }

    if (keywordcatalog != nullptr) {
        CloseCatalog(keywordcatalog);
    }

    if (locale != nullptr) {
        CloseLocale(locale);
    }
}

char* AmigaLanguage::Translate(textdef *def)
{
    return (char*)GetCatalogStr(textcatalog, def->id, (char*)def->text);
}

char* AmigaLanguage::Translate(helptextdef *def)
{
    return (char*)GetCatalogStr(helpcatalog, def->id, (char*)def->text);
}

char* AmigaLanguage::Translate(identhelpdef *def)
{
    return (char*)GetCatalogStr(identcatalog, def->id, (char*)def->text);
}

char AmigaLanguage::GetFractionPoint()
{
#if defined(STRICT_LOCAL)
    return locale->loc_DecimalPoint[0];
#else
    // To ensure compatibility, set fraction point to full stop / period
    return '.';
#endif
}

bool AmigaLanguage::CharIsAlNum(long unsigned int character)
{
    return IsAlNum(locale, character);
}

bool AmigaLanguage::CharIsAlpha(long unsigned int character)
{
    return IsAlpha(locale, character);
}

bool AmigaLanguage::CharIsDigit(long unsigned int character)
{
    return IsDigit(locale, character);
}

bool AmigaLanguage::CharIsPunct(long unsigned int character)
{
    return IsPunct(locale, character);
}

bool AmigaLanguage::CharIsSpace(long unsigned int character)
{
    return IsSpace(locale, character);
}

bool AmigaLanguage::CharIsCntrl(long unsigned int character)
{
    return IsCntrl(locale, character);
}

bool AmigaLanguage::StrIsEqualLoc(const char* s1, const char* s2)
{
    return (StrnCmp(locale, (char*)s1, (char*)s2, -1, SC_COLLATE1) == 0);
}

bool AmigaLanguage::Validate(char c)
{
    return CharIsAlNum(c) ||
           CharIsPunct(c) ||
           CharIsSpace(c) ||
           CharIsQuote(c) ||
           CharIsOperator(c);
}

/* for numeric values */
//STRPTR  loc_DecimalPoint;        /* character before the decimals */
//STRPTR  loc_GroupSeparator;      /* separates groups of digits    */
//STRPTR  loc_FracGroupSeparator;  /* separates groups of digits    */
//UBYTE  *loc_Grouping;            /* size of each group            */
//UBYTE  *loc_FracGrouping;        /* size of each group            */

/* elements of the byte arrays pointed to by:
 *   Locale.loc_Grouping
 *   Locale.loc_FracGrouping
 * are interpreted as follows:
 *
 *    255     indicates that no further grouping is to be performed
 *    0       indicates that the previous element is to be repeatedly used
 *	      for the remainder of the digits
 *    <other> the number of digits that comprises the current group
 */


//LIBRARIES_LOCALE_H
/* constants for GetLocaleStr() */
//#define SOFTHYPHEN	43	/* soft hyphenation */
//#define HARDHYPHEN	44	/* hard hyphenation */
//#define OPENQUOTE	45	/* start of quoted block */
//#define CLOSEQUOTE	46	/* end of quoted block	 */

#endif