sic_nls.c File Reference

#include <schily/mconfig.h>
#include <schily/stdio.h>
#include <schily/stdlib.h>
#include <schily/string.h>
#include <schily/libport.h>
#include <schily/unistd.h>
#include <schily/schily.h>
#include <schily/dirent.h>
#include <schily/siconv.h>

Include dependency graph for sic_nls.c:

Go to the source code of this file.

Macros
#define	TAB_SIZE   (UINT8_MAX+1)
#define	__CAN_TAB_SIZE__

Functions
LOCAL siconvt_t *insert_sic	__PR ((siconvt_t *sip))
EXPORT siconvt_t *sic_open	__PR ((char *name))
EXPORT const char *sic_base	__PR ((void))
EXPORT int sic_list	__PR ((FILE *f))
LOCAL void freetbl	__PR ((UInt8_t **uni2cs))
LOCAL siconvt_t *	insert_sic (siconvt_t *sip)
LOCAL int	remove_sic (siconvt_t *sip)
EXPORT siconvt_t *	sic_open (char *charset)
EXPORT const char *	sic_base ()
EXPORT int	sic_close (siconvt_t *sip)
EXPORT int	sic_list (FILE *f)
LOCAL void	freetbl (UInt8_t **uni2cs)
LOCAL FILE *	pfopen (char *name)
LOCAL siconvt_t *	create_sic (char *name)

Variables
static UConst char	sccsid []
LOCAL UInt8_t	nullpage [TAB_SIZE] = { 0 }
LOCAL char *	ins_base
LOCAL siconvt_t *	glist = (siconvt_t *) NULL

Macro Definition Documentation

__CAN_TAB_SIZE__

#define __CAN_TAB_SIZE__

Definition at line 41 of file sic_nls.c.

TAB_SIZE

#define TAB_SIZE   (UINT8_MAX+1)

Definition at line 40 of file sic_nls.c.

Function Documentation

__PR() [1/5]

EXPORT siconvt_t *sic_open __PR

(

(char *name)

)

__PR() [2/5]

EXPORT int sic_list __PR

(

(FILE *f)

)

__PR() [3/5]

LOCAL siconvt_t *insert_sic __PR

(

(siconvt_t *sip)

)

__PR() [4/5]

LOCAL void freetbl __PR

(

(UInt8_t **uni2cs)

)

__PR() [5/5]

EXPORT const char *sic_base __PR

(

(void)

)

create_sic()

LOCAL siconvt_t * create_sic

(

char *

name

)

Definition at line 312 of file sic_nls.c.

{
    UInt16_t    *cs2uni  = NULL;
    UInt8_t     **uni2cs = NULL;
    siconvt_t   *sip;
    char        line[1024];
    FILE        *f;
    unsigned    ch;
    unsigned    uni;
    int     i;
    int     numtrans = 0;
 
    if (name == NULL || *name == '\0')
        return ((siconvt_t *)NULL);
 
#ifdef  USE_ICONV
    /*
     * Explicitly search for an iconv based translation
     */
    if (strncmp("iconv:", name, 6) == 0) {
        return (create_iconv_sic(name));
    }
#else
    if (strncmp("iconv:", name, 6) == 0) {
        return ((siconvt_t *)NULL);
    }
#endif
 
    if ((f = pfopen(name)) == (FILE *)NULL) {
        if (strcmp(name, "default") == 0) {
            if ((cs2uni = (UInt16_t *)
                malloc(sizeof (UInt16_t) * TAB_SIZE)) == NULL) {
                return ((siconvt_t *)NULL);
            }
            /*
             * Set up a 1:1 translation table like ISO-8859-1
             */
            for (i = 0; i < TAB_SIZE; i++)
                cs2uni[i] = i;
            goto do_reverse;
        }
#ifdef  USE_ICONV
        return (create_iconv_sic(name));
#else
        return ((siconvt_t *)NULL);
#endif
    }
 
    if ((cs2uni = (UInt16_t *)
            malloc(sizeof (UInt16_t) * TAB_SIZE)) == NULL) {
        fclose(f);
        return ((siconvt_t *)NULL);
    }
 
    /*
     * Set up mapping base.
     * Always map the control characters 0x00 .. 0x1F
     */
    for (i = 0; i < 32; i++)
        cs2uni[i] = i;
 
    for (i = 32; i < TAB_SIZE; i++)
        cs2uni[i] = '\0'; /* nul marks an illegal character */
 
    cs2uni[0x7f] = 0x7F;    /* Always map DELETE character 0x7F */
 
    while (fgets(line, sizeof (line), f) != NULL) {
        char    *p;
 
        if ((p = strchr(line, '#')) != NULL)
            *p = '\0';
 
        if (sscanf(line, "%x%x", &ch, &uni) == 2) {
            /*
             * Only accept exactly two values in the right range.
             */
            if (ch > 0xFF || uni > 0xFFFF)
                continue;
 
            cs2uni[ch] = uni; /* Set up unicode translation */
            numtrans++;
        }
    }
    fclose(f);
 
    if (numtrans == 0) {        /* No valid translations found */
        free(cs2uni);
        return ((siconvt_t *)NULL);
    }
 
do_reverse:
    if ((uni2cs = (UInt8_t **)
            malloc(sizeof (unsigned char *) * TAB_SIZE)) == NULL) {
        free(cs2uni);
        return ((siconvt_t *)NULL);
    }
    for (i = 0; i < TAB_SIZE; i++)  /* Map all pages to the nullpage */
        uni2cs[i] = nullpage;
 
    /*
     * Create a reversed table from the forward table read from the file.
     */
    for (i = 0; i < TAB_SIZE; i++) {
        UInt8_t high;
        UInt8_t low;
        UInt8_t *page;
 
        uni = cs2uni[i];
        high = (uni >> 8) & 0xFF;
        low = uni & 0xFF;
        page = uni2cs[high];
 
        if (page == nullpage) {
            int j;
 
            /*
             * Do not write to the nullpage but replace it by
             * new and specific memory.
             */
            if ((page = (UInt8_t *) malloc(TAB_SIZE)) == NULL) {
                free(cs2uni);
                freetbl(uni2cs);
                return ((siconvt_t *)NULL);
            }
            for (j = 0; j < TAB_SIZE; j++)
                page[j] = '\0';
            uni2cs[high] = page;
        }
        page[low] = i;      /* Set up the reverse translation */
    }
 
    if ((sip = (siconvt_t *)malloc(sizeof (siconvt_t))) == NULL) {
        free(cs2uni);
        freetbl(uni2cs);
        return ((siconvt_t *)NULL);
    }
 
    sip->sic_name = strdup(name);
    sip->sic_uni2cs = uni2cs;
    sip->sic_cs2uni = cs2uni;
    sip->sic_cd2uni = NULL;
    sip->sic_uni2cd = NULL;
    sip->sic_alt    = NULL;
    sip->sic_next   = NULL;
    sip->sic_refcnt = 1;
 
    return (insert_sic(sip));
}

Referenced by sic_open().

freetbl()

LOCAL void freetbl

(

UInt8_t **

uni2cs

)

Definition at line 268 of file sic_nls.c.

{
    int i;
 
    for (i = 0; i < TAB_SIZE; i++) {
        if (uni2cs[i] != nullpage) {
            free(uni2cs[i]);
        }
    }
    free(uni2cs);
}

Referenced by create_sic(), and sic_close().

insert_sic()

LOCAL siconvt_t * insert_sic

(

siconvt_t *

sip

)

Definition at line 98 of file sic_nls.c.

{
    siconvt_t   **sp = &glist;
 
    if (sip == (siconvt_t *)NULL)       /* No table arg */
        return ((siconvt_t *)NULL);
    if (sip->sic_next)          /* Already in list */
        return (sip);
 
    while (*sp) {
        if (sip == *sp) {       /* Already in list */
            return (sip);
        }
        sp = &(*sp)->sic_next;
    }
    sip->sic_next = glist;
    glist = sip;
    return (sip);
}

Referenced by create_sic().

pfopen()

LOCAL FILE * pfopen

(

char *

name

)

Definition at line 286 of file sic_nls.c.

{
    char    path[1024];
    char    *p;
 
    if (strchr(name, '/'))
        return (fopen(name, "r"));
 
    if (ins_base == NULL)
        (void) sic_base();
 
    p = ins_base;
    if (p != NULL) {
        snprintf(path, sizeof (path), "%s%s", p, name);
        return (fopen(path, "r"));
    }
    snprintf(path, sizeof (path), "%s/lib/siconv/%s", INS_BASE, name);
    return (fopen(path, "r"));
}

Referenced by create_sic().

remove_sic()

LOCAL int remove_sic

(

siconvt_t *

sip

)

Definition at line 123 of file sic_nls.c.

{
    siconvt_t   **sp = &glist;
 
    while (*sp) {
#ifdef  USE_ICONV
        if (strcmp(sip->sic_name, (*sp)->sic_name) == 0) {
            siconvt_t   *sap = *sp;
 
            if (sip == *sp) {
                *sp = sip->sic_next;
                return (0);
            }
            while (sap->sic_alt != NULL) {
                if (sap->sic_alt == sip) {
                    sap->sic_alt = sip->sic_alt;
                    sip->sic_name = NULL;   /* No free() */
                    return (0);
                }
                sap = sap->sic_alt;
            }
        }
#endif
        if (sip == *sp) {
            *sp = sip->sic_next;
            return (0);
        }
        sp = &(*sp)->sic_next;
    }
    return (-1);
}

Referenced by sic_close().

sic_base()

EXPORT const char * sic_base

(

)

Definition at line 186 of file sic_nls.c.

{
    if (ins_base == NULL) {
        ins_base = searchfileinpath("lib/siconv/iso8859-1", R_OK,
                    SIP_PLAIN_FILE, NULL);
        if (ins_base != NULL) {
            int len = strlen(ins_base);
 
            ins_base[len - 9] = '\0';
        }
    }
    return (ins_base);
}

Referenced by list_locales(), pfopen(), and sic_list().

sic_close()

EXPORT int sic_close

(

siconvt_t *

sip

)

Definition at line 204 of file sic_nls.c.

{
    if (remove_sic(sip) < 0)
        return (-1);
 
    if (--sip->sic_refcnt > 0)
        return (0);
 
    if (sip->sic_name)
        free(sip->sic_name);
    if (sip->sic_uni2cs)
        freetbl(sip->sic_uni2cs);
    if (sip->sic_cs2uni)
        free(sip->sic_cs2uni);
#ifdef  USE_ICONV
    if (sip->sic_cd2uni)
        iconv_close(sip->sic_cd2uni);
    if (sip->sic_uni2cd)
        iconv_close(sip->sic_uni2cd);
#endif
 
    return (0);
}

sic_list()

EXPORT int sic_list

(

FILE *

f

)

Definition at line 233 of file sic_nls.c.

{
    char        path[1024];
    DIR     *d;
    struct dirent   *dp;
    int     i = 0;
 
    if (ins_base == NULL)
        (void) sic_base();
 
    if (ins_base != NULL)
        snprintf(path, sizeof (path), "%s", ins_base);
    else
        snprintf(path, sizeof (path), "%s/lib/siconv/", INS_BASE);
    if ((d = opendir(path)) == NULL)
        return (-1);
 
    while ((dp = readdir(d)) != NULL) {
        if (dp->d_name[0] == '.') {
            if (dp->d_name[1] == '\0')
                continue;
            if (dp->d_name[1] == '.' && dp->d_name[2] == '\0')
                continue;
        }
        fprintf(f, "%s\n", dp->d_name);
        i++;
    }
    return (i);
}

Referenced by list_locales().

sic_open()

EXPORT siconvt_t * sic_open

(

char *

charset

)

Definition at line 160 of file sic_nls.c.

{
    siconvt_t   *sip = glist;
 
    if (charset == NULL || *charset == '\0')
        return ((siconvt_t *)NULL);
 
    while (sip) {
        if (strcmp(sip->sic_name, charset) == 0) {
#ifdef  USE_ICONV
            if (sip->sic_cd2uni != 0)
                return (dup_iconv_sic(sip));
#endif
            sip->sic_refcnt++;
            return (sip);
        }
        sip = sip->sic_next;
    }
    return (create_sic(charset));
}

Referenced by main().

Variable Documentation

glist

LOCAL siconvt_t* glist = (siconvt_t *) NULL

Definition at line 92 of file sic_nls.c.

Referenced by IDirectPlay4Impl_AddGroupToGroup(), IDirectPlay4Impl_DeleteGroupFromGroup(), IDirectPlay4Impl_EnumGroupsInGroup(), insert_sic(), remove_sic(), and sic_open().

ins_base

LOCAL char* ins_base

Definition at line 73 of file sic_nls.c.

Referenced by list_locales(), pfopen(), sic_base(), and sic_list().

nullpage

LOCAL UInt8_t nullpage[TAB_SIZE] = { 0 }

Definition at line 72 of file sic_nls.c.

Referenced by create_sic(), and freetbl().

sccsid

UConst char sccsid[]

static

Initial value:

=
    "@(#)sic_nls.c  1.18 14/01/15 Copyright 2007-2014 J. Schilling"

Definition at line 4 of file sic_nls.c.