/*
 * io.c -- all the code to make GCC and the libraries run on
 *         a bare target board.
 */

#include <sys/types.h>
#include <sys/stat.h>
#include <errno.h>

#include "hppa-defs.h"

extern char *_end;                /* _end is set in the linker command file */

/* just in case, most boards have at least some memory */
#ifndef RAMSIZE
#  define RAMSIZE             (char *)0x100000
#endif

int
print(ptr)
char *ptr;
{
  while (*ptr)
    outbyte (*ptr++);
}

int
putnum (Num)
unsigned int Num;
{
  char	Buffer[9];
  int	Count;
  char	*BufPtr = Buffer;
  int	Digit;
  
  for (Count = 7 ; Count >= 0 ; Count--) {
    Digit = (Num >> (Count * 4)) & 0xf;
    
    if (Digit <= 9)
      *BufPtr++ = (char) ('0' + Digit);
    else
      *BufPtr++ = (char) ('a' - 10 + Digit);
  }

  *BufPtr = (char) 0;
  print (Buffer);
  return;
}

int
delay (x)
     int x;
{
  int  y = 17;
  while (x-- !=0)
    y = y^2;
}

/*
 * strobe -- do a zylons thing, toggling each led in sequence forever...
 */
int
zylons()
{
  while (1) {
    strobe();
  }
}

/*
 * strobe -- toggle each led in sequence up and back once.
 */
int
strobe()
{
  static unsigned char curled = 1;
  static unsigned char dir = 0;

  curled = 1;
  dir = 0;
  while (curled != 0) {
    led_putnum (curled);
    delay (70000);
    if (dir)
      curled >>= 1;
    else
      curled <<= 1;
    
    if (curled == 128) {
      dir = ~dir;
    }
  }
  curled = 1;
  dir = 0;
}

/*
 * iodc_io_call -- this makes a call into the IODC routine
 */
int
iodc_io_call(ep_address,arg0,arg1,arg2,arg3,arg4,arg5,arg6,arg7,arg8,arg9,arg10,arg11)
int ep_address, arg0, arg1, arg2, arg3, arg4, arg5, arg6, arg7, arg8, arg9, arg10, arg11;
{ 
  int         (*iodc_entry_point)();
  
  iodc_entry_point = (int (*)())ep_address;

  return ((*iodc_entry_point)(arg0,arg1,arg2,arg3,arg4,arg5,arg6,arg7,arg8,arg9,arg10,arg11));
}

/*
 * pdc_call -- this makes a call into the PDC routine
 */
int
pdc_call(arg0,arg1,arg2,arg3,arg4,arg5,arg6,arg7,arg8,arg9,arg10,arg11)
     int arg0, arg1, arg2, arg3,  arg4, arg5;
     int arg6, arg7, arg9, arg10, arg11;
{
   return ( CALL_PDC(arg0,arg1,arg2,arg3,arg4,arg5,arg6,arg7,arg8,arg9,arg10,arg11));
}

/*
 * put_led -- put a bit pattern on the LED's. 
 */
int
led_putnum (byte)
     unsigned short byte;
{
  return (pdc_call(OPT_PDC_CHASSIS,0,byte));
}


/*
 * outbyte -- shove a byte out the serial port
 */
int
outbyte(byte)
     unsigned char byte;
{
  int status;
  int R_addr[32];
  struct _dev *console = (struct _dev *)PGZ_CONSOLE_STRUCT;

  status = iodc_io_call(console->iodc_io, console->hpa, IO_CONSOLE_OUTPUT, console->spa,
			console->layer[0], R_addr, 0, &byte, 1,	0);

  switch(status)
    {
    case 0:  return(1);
    default: return (-1);
    }
}

/*
 * inbyte -- get a byte from the serial port
 */
unsigned char
inbyte()
{
  int status;
  int R_addr[32];
  char inbuf;
  struct _dev *console = (struct _dev *)PGZ_CONSOLE_STRUCT;

  while (status == 0) {
    status = iodc_io_call(console->iodc_io, console->hpa, IO_CONSOLE_INPUT, console->spa,
			  console->layer[0], R_addr, 0, &inbuf, 1, 0);
    
    switch (status) {
    case 0:
    case 2:  					/* recoverable error */
      if (R_addr[0] != 0) {			/* found a character */
	return(inbuf);
      }
      else
	break; 					/* error, no character */
    default: 					/* error, no character */
      return(0);	
    }
  }
}

/*
 * read  -- read bytes from the serial port. Ignore fd, since
 *          we only have stdin.
 */
int
read(fd, buf, nbytes)
     int fd;
     char *buf;
     int nbytes;
{
  int i = 0;
  
  for (i = 0; i < nbytes; i++) {
    *(buf + i) = inbyte();
    if ((*(buf + i) == '\n') || (*(buf + i) == '\r')) {
      (*(buf + i)) = 0;
      break;
    }
  }
  return (i);
}

/*
 * write -- write bytes to the serial port. Ignore fd, since
 *          stdout and stderr are the same. Since we have no filesystem,
 *          open will only return an error.
 */
int
write(fd, buf, nbytes)
     int fd;
     char *buf;
     int nbytes;
{
  int i;

  for (i = 0; i < nbytes; i++) {
    if (*(buf + i) == '\n') {
      outbyte ('\r');
    }
    outbyte (*(buf + i));
  }
  return (nbytes);
}

/*
 * open -- open a file descriptor. We don't have a filesystem, so
 *         we return an error.
 */
int
open(buf, flags, mode)
     char *buf;
     int flags;
     int mode;
{
  errno = EIO;
  return (-1);
}

/*
 * close -- close a file descriptor. We don't need
 *          to do anything, but pretend we did.
 */
int
close(fd)
     int fd;
{
  return (0);
}

/*
 * sbrk -- changes heap size size. Get nbytes more
 *         RAM. We just increment a pointer in what's
 *         left of memory on the board.
 */
char *
sbrk(nbytes)
     int nbytes;
{
  static char * heap_ptr = NULL;
  char *        base;

  if (heap_ptr == NULL) {
    heap_ptr = (char *)&_end;
  }

  if ((RAMSIZE - heap_ptr) >= 0) {
    base = heap_ptr;
    heap_ptr += nbytes;
    return (heap_ptr);
  } else {
    errno = ENOMEM;
    return ((char *)-1);
  }
}

/*
 * isatty -- returns 1 if connected to a terminal device,
 *           returns 0 if not. Since we're hooked up to a
 *           serial port, we'll say yes return a 1.
 */
int
isatty(fd)
     int fd;
{
  return (1);
}

/*
 * lseek -- move read/write pointer. Since a serial port
 *          is non-seekable, we return an error.
 */
off_t
lseek(fd,  offset, whence)
     int fd;
     off_t offset;
     int whence;
{
  errno = ESPIPE;
  return ((off_t)-1);
}

/*
 * fstat -- get status of a file. Since we have no file
 *          system, we just return an error.
 */
int
fstat(fd, buf)
     int fd;
     struct stat *buf;
{
  errno = EIO;
  return (-1);
}

/*
 * getpid -- only one process, so just return 1.
 */
#define __MYPID 1
int
getpid()
{
  return __MYPID;
}

/*
 * kill -- assume mvme.S, and go out via exit...
 */
int
kill(pid, sig)
     int pid;
     int sig;
{
  if(pid == __MYPID)
    _exit(sig);
  return 0;
}