snarkdos.c

wm PNE 3.3 source code, running at more than vxworks6.x version.

/* $Header: /usr/cvsroot/target/src/wrn/wm/demo/lib/snarkdos.c,v 1.3 2003/01/15 14:04:35 josh Exp $ */

/*
 * Copyright (C) 1999-2005 Wind River Systems, Inc.
 * All rights reserved.  Provided under license only.
 * Distribution or other use of this software is only
 * permitted pursuant to the terms of a license agreement
 * from Wind River Systems (and is otherwise prohibited).
 * Refer to that license agreement for terms of use.
 */



/****************************************************************************
 *  Copyright 1993-1997 Epilogue Technology Corporation.
 *  Copyright 1998 Integrated Systems, Inc.
 *  All rights reserved.
 ****************************************************************************/

/*
 * $Log: snarkdos.c,v $
 * Revision 1.3  2003/01/15 14:04:35  josh
 * directory structure shifting
 *
 * Revision 1.2  2001/11/08 15:56:26  tneale
 * Updated for newest file layout
 *
 * Revision 1.1.1.1  2001/11/05 17:48:43  tneale
 * Tornado shuffle
 *
 * Revision 2.18  2001/01/19 22:23:52  paul
 * Update copyright.
 *
 * Revision 2.17  2000/03/17 00:12:45  meister
 * Update copyright message
 *
 * Revision 2.16  1998/09/04 04:00:08  sar
 * modified some #if statements to use #ifdef as they were testing
 * items that might not be defined - INSTALL_on_* options.
 *
 * Revision 2.15  1998/07/17 18:58:43  sra
 * Swap and checksum routines moved to separate files.
 *
 * Revision 2.14  1998/07/02 06:55:39  sra
 * Make Snark restartable under pSOS, and other minor cleanups.
 *
 * Revision 2.13  1998/02/25 15:21:51  sra
 * Finish moving types.h, bug.h, and bugdef.h to common/h/.
 *
 * Revision 2.12  1998/02/25 04:57:39  sra
 * Update copyrights.
 *
 * Revision 2.11  1997/10/29 22:23:20  sar
 * moved the call to envoy_init() from snmp_init() in snmpfunc.c to
 * snark_init() in snarkbsd.c & snarkdos.c
 *
 * Revision 2.10  1997/03/20 06:53:11  sra
 * DFARS-safe copyright text.  Zap!
 *
 * Revision 2.9  1997/03/19 22:05:52  sra
 * Perhaps we should include install.h before testing install options?
 *
 * Revision 2.8  1997/03/19 04:47:35  sra
 * Get rid of some gratuitous historical dependencies on Attache.
 *
 * Revision 2.7  1997/02/25 10:58:16  sra
 * Update copyright notice, dust under the bed.
 *
 * Revision 2.6  1997/02/24 00:56:59  sra
 * Support for run-time configuration of BUG() macros.
 *
 * Revision 2.5  1997/02/19 08:10:29  sra
 * More fun merging snmptalk into snark, general snark cleanup.
 *
 * Revision 2.4  1997/01/08 01:20:46  sar
 * Moved the glue_pkt_handle routine from snark*.c to loopglue.c
 * and added loopglue.c to the base object list.
 *
 * Revision 2.3  1996/10/31  01:16:15  sra
 * Why are we getting warnings from magic DOS incantations that have been
 * stable for years?
 *
 * Revision 2.2  1996/10/26  17:30:30  sra
 * BCC 4.0 sure is fussy about parameter lists.
 *
 * Revision 2.1  1996/03/22  10:05:39  sra
 * Update copyrights prior to Attache 3.2 release.
 *
 * Revision 2.0  1995/05/10  22:38:15  sra
 * Attache release 3.0.
 *
 * Revision 1.11  1995/01/06  00:52:48  sra
 * Update copyright notice for 2.1 release.
 *
 * Revision 1.10  1994/12/20  23:10:56  sra
 * Twiddle type signature of a pointer to function to make MSC 7.0 happy.
 * Fix sense of interrupt flag test.
 *
 * Revision 1.9  1994/09/04  06:13:38  sra
 * Clean up antique type names and install macros.
 *
 * Revision 1.8  1993/08/03  01:29:13  sra
 * Add a cast to glue_cksum() for MSC 7.0.
 *
 * Revision 1.7  1993/08/01  23:57:40  sra
 * Add in Dave's changes to make this work with Microsoft C.
 *
 * Revision 1.6  1993/08/01  21:31:01  sra
 * Fiddle byte-swap routines a little.  Fix DOS keyboard/screen I/O to
 * work aproximately as we'd like: it's still not perfect, but it's now
 * close enough to be useful as a telnet client.
 *
 * Revision 1.5  1993/08/01  07:11:38  sra
 * Minor cleanup.  DOS keyboard/screen interface not quite right yet, but
 * this is just demo code, I never claimed to be a DOS programmer....
 *
 * Revision 1.4  1993/07/31  23:26:33  sra
 * Add keyboard_write().
 *
 * Revision 1.3  1993/07/30  23:44:56  sra
 * Cosmetic changes to make Borland C++ 3.1 happy.
 *
 * Revision 1.2  1993/07/30  22:26:03  sra
 * Initial working version.
 *
 * Revision 1.1  1993/07/30  02:41:24  sra
 * Initial revision
 *
 */

/* [clearcase]
modification history
-------------------
01a,19apr05,job  update copyright notices
*/


/*
 * Implementation of snark for MS-DOS with FTP Software spec packet drivers.
 * You should probably have ANSI.SYS (or replacement) loaded too.
 */

#include <wrn/wm/common/install.h>
#include <wrn/wm/common/types.h>

#if INSTALL_ATTACHE
#include <wrn/wm/attache/config.h>
#include <wrn/wm/attache/mib.h>
#include <wrn/wm/attache/timer.h>
#include <wrn/wm/attache/packet.h>
#include <wrn/wm/attache/net.h>
#include <wrn/wm/attache/glue.h>
#include <wrn/wm/attache/route.h>
#include <wrn/wm/attache/ip.h>
#include <wrn/wm/attache/loop.h>
#endif

#if INSTALL_ENVOY
#include <wrn/wm/snmp/engine/snmpdefs.h>
#endif

#include <stdio.h>
#include <stdlib.h>
#include <stdarg.h>
#include <dos.h>
#include <conio.h>

#include <wrn/wm/demo/snarklib.h>

#if INSTALL_ATTACHE
#include <wrn/wm/demo/netconf.h>
#include <wrn/wm/demo/pktdrive.h>
#endif

/*
 * These are defined here rather than in snark/lib/main.c so that this
 * code can be used without that module if the customer so desires.
 */
int snark_exit_flag, snark_exit_value;

/*
 * These suppress spurious warnings from Borland C++ 3.1.
 */
static void clock_init(void), clock_shutdown(void);
static unsigned char kbd_getch(void);
static int kbd_kbhit(void);

/*
 * Some macros to make MSC-style code work with BCC.
 */
#ifdef INSTALL_on_bcc
#define	_asm		asm
#define	_interrupt	interrupt
#endif



/*
 * Timer interrupt routines.  This is all PC-hardware specific.
 */

#define CLOCK_INT		0x1c
#define	CLOCK_MS_PER_TICK	54

#ifdef INSTALL_on_bcc
typedef void interrupt (*old_clock_int_t)(void);
#endif

#ifdef INSTALL_on_microsoft
typedef void (__cdecl __interrupt __far *old_clock_int_t)(void);
#endif

static old_clock_int_t old_clock_int = 0;

static bits32_t cticks;

/* The clock tick handler */
static void _interrupt clock_tick()
{
  cticks++;
  old_clock_int();
}

/* Set up the clock so we start seeing ticks. */
static void clock_init()
{
  if (!old_clock_int) {
    old_clock_int = (old_clock_int_t) _dos_getvect(CLOCK_INT);
    _dos_setvect(CLOCK_INT, clock_tick);
  }
}

/* Clean up the clock so we can exit. */
static void clock_shutdown()
{
  if (old_clock_int)
    _dos_setvect(CLOCK_INT, old_clock_int);
}

/* This routine implements Attache's GLUE_NOW() function. */
bits32_t glue_now()
{
  return cticks * CLOCK_MS_PER_TICK;
}



/*
 * Disable interrupts if argument is 0, otherwise enables interrupts.
 * Returns previous interrupt state.
 */
int glue_intlock(int x)
{
  unsigned int interrupt_flag;

  /*
   * interrupt_flag = _FLAGS;
   */
  _asm pushf
  _asm pop ax
  _asm mov interrupt_flag, ax

  if (x)
    _enable();
  else
    _disable();
  return (interrupt_flag & 0x200) != 0;
}



/* Low-level keyboard handler stuff. */

static void (*kbd_handler)(unsigned char *, size_t);

void keyboard_handler(void (*handler)(unsigned char *, size_t))
{
  kbd_handler = handler;
}

/*
 * Low-level DOS I/O routines.  We don't use library functions
 * because they don't do what we want for ANSI.SYS escape sequences
 * and Control-C handling on input.
 */

static unsigned char kbd_getch()
{
  union REGS i, o;

  i.h.ah = 0x07;		/* Direct console input without echo */
  intdos(&i, &o);
  return o.h.al;		/* Return character we got */
}

static int kbd_kbhit()
{
  union REGS i, o;

  i.x.ax = 0x4406;		/* IOCTL get input status */
  i.x.bx = 0x0000;		/* 0 = stdin */
  intdos(&i, &o);
  return (int) o.h.al;		/* Return non-zero if device ready */
}

/*
 * Send a string to the local screen.
 */
void keyboard_write(unsigned char *text, size_t length)
{
  union REGS i, o;

  if (!text)
    return;

  i.h.ah = 0x06;		/* Direct console output */

  while (length-- > 0) {
    switch (*text) {
     case 0xFF:			/* We can't output this character, sorry */
      text++;			/* (DOS thinks it means do input instead) */
      continue;
     case '\n':			/* NL -> CRLF */
      i.h.dl = '\r';		/* Write the CR */
      intdos(&i, &o);		/* (fall through...) */
     default:
      i.h.dl = *text++;
      intdos(&i, &o);
      continue;
    }
  }
}



/*
 * tasks_run() function, using system-independent tasking queue.
 */

static bits32_t glue_callin_when;
static void (*glue_callin_who)(void);

/* This is the function we use to provide GLUE_CALLIN(). */
void glue_callin(bits32_t when, void (*who)(void))
{
  glue_callin_when = when + glue_now();
  glue_callin_who = who;
}

/*
 * This is the main body of the task dispatcher.
 * If it ever returns, main() should exit immediately with the same value.
 */
int tasks_run()
{
  struct task *task;

  for (;;) {
    if (kbd_handler && kbd_kbhit()) {
      unsigned char c = kbd_getch();
      (*kbd_handler)(&c, 1);
      if (snark_exit_flag)
	break;
    }
    if ((task = task_deq()) != 0 && task->func != 0) {
      task->func(task, task->cookie);
      if (snark_exit_flag)
	break;
    }
    if (glue_callin_who &&
	((sbits32_t) (glue_callin_when - glue_now())) <= 0) {
      void (*who)(void) = glue_callin_who;
      glue_callin_who = 0;
      who();
      if (snark_exit_flag)
	break;
    }
  }

  snark_shutdown();
  return snark_exit_value;
}



#if INSTALL_ATTACHE

/*
 * Network configuration.
 */

void netconfig_find()
{
  pktd_driver_find(netconfig_if);
}

#endif /* INSTALL_ATTACHE */



/* Initialization and shutdown. */

void snark_init()
{
  clock_init();
  tasks_init();
#if INSTALL_ATTACHE
  attache_init();
#endif
#if INSTALL_ENVOY
  envoy_init();
#endif
  sty_init();
#if INSTALL_ATTACHE
  netconfig();
#endif
#if INSTALL_SNARK_BUG_CONF
  bug_config();
#endif
}

void snark_shutdown()
{
#if INSTALL_ATTACHE && INSTALL_ATTACHE_SHUTDOWN
  attache_shutdown();
#endif
  clock_shutdown();
}