/* * Unix compatibility code. Takes care of some legacy code issues. * *  Written by Ryan C. Gordon (icculus@clutteredmind.org) * * Please do NOT harrass Ken Silverman about any code modifications *  (including this file) to BUILD. *//* * "Build Engine & Tools" Copyright (c) 1993-1997 Ken Silverman * Ken Silverman's official web site: "http://www.advsys.net/ken" * See the included license file "BUILDLIC.TXT" for license info. * This file IS NOT A PART OF Ken Silverman's original release */#ifndef PLATFORM_UNIX#error Please define PLATFORM_UNIX to use this code.#endif#include <stdio.h>#include <stdlib.h>#include <sys/stat.h>#include <unistd.h>#include <ctype.h>#include "unix_compat.h"/*  256 byte table to assist in performing an  algebraic shift right. These values represent  all possible contributions of the sign bit   when shifted by different values. */const int hbits[64] = {    0x00000000,0x00000000,0x00000000,0x00000000,    0x00000000,0x00000000,0x00000000,0x00000000,    0x00000000,0x00000000,0x00000000,0x00000000,    0x00000000,0x00000000,0x00000000,0x00000000,    0x00000000,0x00000000,0x00000000,0x00000000,    0x00000000,0x00000000,0x00000000,0x00000000,    0x00000000,0x00000000,0x00000000,0x00000000,    0x00000000,0x00000000,0x00000000,0x00000000,    0x80000000,0xC0000000,0xE0000000,0xF0000000,     0xF8000000,0xFC000000,0xFE000000,0xFF000000,    0xFF800000,0xFFC00000,0xFFE00000,0xFFF00000,    0xFFF80000,0xFFFC0000,0xFFFE0000,0xFFFF0000,    0xFFFF8000,0xFFFFC000,0xFFFFE000,0xFFFFF000,    0xFFFFF800,0xFFFFFC00,0xFFFFFE00,0xFFFFFF00,    0xFFFFFF80,0xFFFFFFC0,0xFFFFFFE0,0xFFFFFFF0,    0xFFFFFFF8,0xFFFFFFFC,0xFFFFFFFE,0xFFFFFFFF};int stricmp(const char *x, const char *y){    int ux, uy;    do    {        ux = toupper((int) *x);        uy = toupper((int) *y);        if (ux > uy)            return(1);        else if (ux < uy)            return(-1);        x++;        y++;    } while ((ux) && (uy));    return(0);} /* stricmp */long filelength(int fhandle){    long retval = -1;    struct stat stat_buf;    if (fstat(fhandle, &stat_buf) == 0)        retval = (long) stat_buf.st_size;    return(retval);} /* filelength *//* !!! remove me later! */int _inp_handler(int port, char *source_file, int source_line){    fprintf(stderr, "inp(0x%X) call in %s, line %d.\n", port, source_file, source_line);    return(0);} /* _inp_handler *//* !!! remove me later! */int _kinp_handler(int port, char *source_file, int source_line){    fprintf(stderr, "kinp(0x%X) call in %s, line %d.\n", port, source_file, source_line);    return(0);} /* _kinp_handler *//* end of unix_compat.c ... */