/*
   Misc cruft used by cross-compiler variant of CC65
*/

#include <stdio.h>
#include "cc65.h"
#include "cclex.h"

FILE * copen(file, mode)
char * file;
char mode;
{
char m[5];
FILE * p;

  m[0] = mode;
  m[1] = '\0';
  if ((p = fopen(file, m)) == NULL)
    {
      return ((FILE *) 0);	/* was -1 -- jrd */
    }
  else
    {
      return (p);
    }
}

cclose(x)
FILE * x;
{
  return(fclose(x));
}

cprints(s)
char * s;
{
  fputs(s, stdout);
}

cputc(c, fp)
int c;
FILE * fp;
{
  fputc(c, fp);
}

clear(ptr, len)
char * ptr;
int len;
{
  while (--len >= 0)
    *ptr++ = '\0';
}

int is_alpha(c)
int c;
{
  if (((c >= 'a') && (c <= 'z')) ||
      ((c >= 'A') && (c <= 'Z')) ||
      (c == '_'))
    return(1);
  else
    return(0);
}

int isdigit(c)
int c;
{
  if ((c >= '0') && (c <= '9'))
    return(1);
  else
    return(0);
}

int tolower(c)
int c;
{
  if ((c >= 'A') && (c <= 'Z'))
    return(c + 32);
  else
    return(c);
}

int toupper(c)
int c;
{
  if ((c >= 'a') && (c <= 'z'))
    return(c - 32);
  else
    return(c);
}