Subversion Repositories SvarDOS

/*

 * Locales configuration for SvarDOS

 *

 * Copyright (C) Mateusz Viste 2015-2022

 *

 * 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.

 */

#include <stdio.h>

#include <stdlib.h> /* atoi() */

#include <string.h> /* strchr */

#include "country.h"

#define PVER "0.90"

#define PDATE "2015-2022"

static void about(void) {

  puts("localcfg v" PVER " - locales configuration for DOS\n"

       "Copyright (C) Mateusz Viste 2015 / http://localcfg.sourceforge.net\n"

       "\n"

       "localcfg creates a custom COUNTRY.SYS-like file matching your preferences.\n"

       "\n"

       "usage: localcfg myprefs.sys [options]\n"

       "\n"

       "options allow to configure country locales to your likening, as follows:\n"

       "  /country:XX indicates your country code is XX (1 for USA, 33 for France, etc)\n"

       "  /cp:XXX     adapts country data for codepage XXX (example: '437')\n"

       "  /decim:X    reconfigures the decimal symbol to be 'X'");

  puts("  /thous:X    reconfigures the thousands symbol to be 'X'\n"

       "  /datesep:X  sets the date separator to 'X' (for example '/')\n"

       "  /datefmt:X  sets the date format, can be: MDY, DMY or YMD\n"

       "  /timesep:X  sets the time separator to 'X' (for example ':')\n"

       "  /timefmt:X  sets the time format: 0=12h with AM/PM or 1=24h\n"

       "  /curr:XXX   sets the currency to XXX (a string of 1 to 4 characters)\n"

       "  /currpos:X  sets the currency symbol position to X, where X is either");

  puts("              0=currency precedes the value, 1=currency follows the value and\n"

       "              2=currency replaces the decimal sign\n"

       "  /currspc:X  space between the currency and the value (0=no, 1=yes)\n"

       "  /currprec:X currency's precision (number of decimal digits, 0..9)\n"

       "  /yesno:XY   sets the 'Yes/No' letter to XY (default: YN)\n"

      );

}

static char *datestring(struct country *c) {

  static char result[16];

  switch (c->datefmt) {

    case COUNTRY_DATE_MDY:

      sprintf(result, "12%c31%c1990", c->datesep, c->datesep);

      break;

    case COUNTRY_DATE_DMY:

      sprintf(result, "31%c12%c1990", c->datesep, c->datesep);

      break;

    case COUNTRY_DATE_YMD:

    default:

      sprintf(result, "1990%c12%c31", c->datesep, c->datesep);

      break;

  }

  return(result);

}

static char *timestring(struct country *c) {

  static char result[16];

  if (c->timefmt == COUNTRY_TIME12) {

    sprintf(result, "11%c59%c59 PM", c->timesep, c->timesep);

  } else {

    sprintf(result, "23%c59%c59", c->timesep, c->timesep);

  }

  return(result);

}

static char *currencystring(struct country *c) {

  static char result[16];

  char decimalpart[16];

  char space[2] = {0, 0};

  char decsym[8];

  char cursym[8];

  decimalpart[0] = '1';

  decimalpart[1] = '2';

  decimalpart[2] = '3';

  decimalpart[3] = '4';

  decimalpart[4] = '5';

  decimalpart[5] = '6';

  decimalpart[6] = '7';

  decimalpart[7] = '8';

  decimalpart[8] = '9';

  decimalpart[9] = 0;

  /* prepare the decimal string first */

  if (c->currencyprec < 9) {

    decimalpart[c->currencyprec] = 0;

  }

  /* prepare the currency space string */

  if (c->currencyspace != 0) {

    space[0] = ' ';

  }

  /* prepare the currency and decimal symbols */

  if (c->currencydecsym != 0) { /* currency replaces the decimal point */

    sprintf(decsym, "%s", c->currency);

    cursym[0] = 0;

  } else {

    sprintf(decsym, "%c", c->decimal);

    sprintf(cursym, "%s", c->currency);

  }

  if (c->currencyprec == 0) decsym[0] = 0;

  /* compute the final string */

  if (c->currencypos == 0) { /* currency precedes value */

    sprintf(result, "%s%s99%s%s", cursym, space, decsym, decimalpart);

  } else { /* currency follows value or replaces decimal symbol */

    sprintf(result, "99%s%s%s%s", decsym, decimalpart, space, cursym);

  }

  return(result);

}

/* checks if str starts with prefix. returns 0 if so, non-zero otherwise. */

static int stringstartswith(char *str, char *prefix) {

  for (;;) {

    /* end of prefix means success */

    if (*prefix == 0) return(0);

    /* otherwise there is no match */

    if (*str != *prefix) return(-1);

    /* if match good so far, look at next char */

    str += 1;

    prefix += 1;

  }

}

/* processes an argument. returns 0 on success, non-zero otherwise. */

static int processarg(char *arg, struct country *c) {

  char *value;

  int intvalue;

  /* an option must start with a '/' */

  if (arg[0] != '/') return(-1);

  arg += 1; /* skip the slash */

  /* find where the value starts */

  value = strchr(arg, ':');

  /* if no value present, fail */

  if (value == NULL) return(-2);

  value += 1;

  if (*value == 0) return(-3);

  /* interpret the option now */

  if (stringstartswith(arg, "country:") == 0) {

    intvalue = atoi(value);

    if ((intvalue > 0) && (intvalue < 1000)) {

      c->id = intvalue;

      return(0);

    }

  } else if (stringstartswith(arg, "cp:") == 0) {

    intvalue = atoi(value);

    if ((intvalue > 0) && (intvalue < 1000)) {

      c->codepage = intvalue;

      return(0);

    }

  } else if (stringstartswith(arg, "decim:") == 0) {

    if (value[1] == 0) { /* value must be exactly one character */

      c->decimal = *value;

      return(0);

    }

  } else if (stringstartswith(arg, "thous:") == 0) {

    if (value[1] == 0) { /* value must be exactly one character */

      c->thousands = *value;

      return(0);

    }

  } else if (stringstartswith(arg, "datesep:") == 0) {

    if (value[1] == 0) { /* value must be exactly one character */

      c->datesep = *value;

      return(0);

    }

  } else if (stringstartswith(arg, "timesep:") == 0) {

    if (value[1] == 0) { /* value must be exactly one character */

      c->timesep = *value;

      return(0);

    }

  } else if (stringstartswith(arg, "datefmt:") == 0) {

    if (strcmp(value, "MDY") == 0) {

      c->datefmt = COUNTRY_DATE_MDY;

      return(0);

    } else if (strcmp(value, "DMY") == 0) {

      c->datefmt = COUNTRY_DATE_DMY;

      return(0);

    } else if (strcmp(value, "YMD") == 0) {

      c->datefmt = COUNTRY_DATE_YMD;

      return(0);

    }

  } else if (stringstartswith(arg, "timefmt:") == 0) {

    if (value[1] == 0) {

      if ((value[0] >= '0') && (value[0] <= '1')) {

        c->timefmt = value[0] - '0';

        return(0);

      }

    }

  } else if (stringstartswith(arg, "curr:") == 0) {

    if (strlen(value) <= 4) {

      strcpy(c->currency, value);

      return(0);

    }

  } else if (stringstartswith(arg, "currpos:") == 0) {

    if (value[1] == 0) {

      if (value[0] == '0') {

        c->currencypos = 0;

        return(0);

      } else if (value[0] == '1') {

        c->currencypos = 1;

        return(0);

      } else if (value[0] == '2') {

        c->currencypos = 0;

        c->currencydecsym = 1;

        return(0);

      }

    }

  } else if (stringstartswith(arg, "currspc:") == 0) {

    if (value[1] == 0) {

      if ((value[0] >= '0') && (value[0] <= '1')) {

        c->currencyspace = value[0] - '0';

        return(0);

      }

    }

  } else if (stringstartswith(arg, "currprec:") == 0) {

    if (value[1] == 0) {

      if ((value[0] >= '0') && (value[0] <= '9')) {

        c->currencyprec = value[0] - '0';

        return(0);

      }

    }

  } else if (stringstartswith(arg, "yesno:") == 0) {

    /* string must be exactly 2 characters long */

    if ((value[0] != 0) && (value[1] != 0) && (value[2] == 0)) {

      c->yes = value[0];

      c->no = value[1];

      return(0);

    }

  }

  /* if I'm here, something went wrong */

  return(-4);

}

/* converts a path to its canonic representation, returns 0 on success

 * or DOS err on failure (invalid drive) */

static unsigned short file_truename(const char *dst, char *src) {

  unsigned short res = 0;

  _asm {

    push es

    mov ah, 0x60  /* query truename, DS:SI=src, ES:DI=dst */

    push ds

    pop es

    mov si, src

    mov di, dst

    int 0x21

    jnc DONE

    mov [res], ax

    DONE:

    pop es

  }

  return(res);

}

int main(int argc, char **argv) {

  struct country cntdata;

  int changedflag;

  int x;

  static char fname[130];

  if ((argc < 2) || (argv[1][0] == '/')) {

    about();

    return(1);

  }

  if (file_truename(fname, argv[1]) != 0) {

    puts("ERROR: bad file path");

    return(1);

  }

  x = country_read(&cntdata, fname);

  if (x != 0) {

    printf("ERROR: failed to read the preference file [%d]\n", x);

    return(2);

  }

  changedflag = argc - 2;

  /* process command line arguments */

  while (--argc > 1) {

    if (processarg(argv[argc], &cntdata) != 0) {

      about();

      return(3);

    }

  }

  printf("Country intl code.....: %03d\n", cntdata.id);

  printf("Codepage..............: %d\n", cntdata.codepage);

  printf("Decimal separator.....: %c\n", cntdata.decimal);

  printf("Thousands separator...: %c\n", cntdata.thousands);

  printf("Date format...........: %s\n", datestring(&cntdata));

  printf("Time format...........: %s\n", timestring(&cntdata));

  printf("Yes/No letters........: %c/%c\n", cntdata.yes, cntdata.no);

  printf("Currency example......: %s\n", currencystring(&cntdata));

  printf("\n"

         "Please make sure your CONFIG.SYS contains a COUNTRY directive that points to\n"

         "your custom preferences file:\n"

         "COUNTRY=%03d,%03d,%s\n\n", cntdata.id, cntdata.codepage, fname);

  /* if anything changed, write the new file */

  if (changedflag != 0) country_write(fname, &cntdata);

  return(0);

}