word.c

/* 
Utility functions. An interface between UNIX and XSM data types. 
*/

#include "word.h"

#include <stdlib.h>
#include <string.h>
#include <memory.h>
#include <stdio.h>

/* Determine the type of data in the word */
int word_get_unix_type(xsm_word *word)
{
    char *data = word->val;
    unsigned int index = 0;

    if (data[0] == '+' || data[0] == '-')
        index++;

    for (; data[index] != '\0'; index++)
        if (data[index] < '0' || data[index] > '9')
            return XSM_TYPE_STRING;

    return XSM_TYPE_INTEGER;
}

/* Retrieve the integer value in the given word */
int word_get_integer(xsm_word *word)
{
    int n;
    return atoi(word->val);
}

/* Retrieve the string value in the given word */
char *word_get_string(xsm_word *word)
{
    return word->val;
}

/* Store the integer value in the given word */
int word_store_integer(xsm_word *word, int integer)
{
    char *data = word->val;
    sprintf(data, "%d", integer);
    return XSM_SUCCESS;
}

/* Store the string value in the given word */
int word_store_string(xsm_word *word, const char *str)
{
    char *data = word->val;
    strncpy(data, str, XSM_WORD_SIZE);
    return XSM_SUCCESS;
}

/* Copy the value in the src word to dest word */
void word_copy(xsm_word *dest, xsm_word *src)
{
    memcpy(dest, src, sizeof(xsm_word));
}

/* Encrypt the value in the given word */
void word_encrypt(xsm_word *word)
{
    int i, result = 0;
    char *data = (char *)word;

    for (i = 0; i < XSM_WORD_SIZE; ++i)
        result = result + data[i];

    word_store_integer(word, result);
}