NetBSD/sys/netiso/xebec/putdriver.c

244 lines
4.2 KiB
C

/* $Id: putdriver.c,v 1.3 1994/05/13 06:10:34 mycroft Exp $ */
/*
* This code is such a kludge that I don't want to put my name on it.
* It was a ridiculously fast hack and needs rewriting.
* However it does work...
*/
/* The original idea was to put all the driver code
* in one place so it would be easy to modify
* but as hacks got thrown in it got worse and worse...
* It's to the point where a user would be better off
* writing his own driver and xebec should JUST produce
* the tables.
*/
#include <stdio.h>
#include "main.h"
#include "debug.h"
extern char protocol[];
char Eventshiftstring[10];
static char statename[] = {'_', 's', 't', 'a', 't', 'e', 0 };
static char *strings[] = {
#define PART1 { 0,3 }
"\n#include \"",
kerneldirname,
protocol,
"_states.h\"",
(char *)0,
(char *)0,
(char *)0,
(char *)0,
(char *)0,
(char *)0,
#define PART12 { 10,12 }
"\n\nstatic struct act_ent {\n",
"\tint a_newstate;\n\tint a_action;\n",
"} statetable[] = { {0,0},\n",
(char *)0,
(char *)0,
(char *)0,
(char *)0,
(char *)0,
(char *)0,
(char *)0,
#define PART2 { 20,20 }
"};\n",
(char *)0,
(char *)0,
(char *)0,
(char *)0,
(char *)0,
(char *)0,
(char *)0,
(char *)0,
(char *)0,
#define PART3 { 30,41 }
"\n",
protocol,
"_driver(p, e)\nregister ",
protocol,
PCBNAME,
" *p;\nregister struct ",
protocol,
"_event *e;\n",
"{\n",
"\tregister int index, error=0;\n",
"\tstruct act_ent *a;\n",
"\tstatic struct act_ent erroraction = {0,-1};\n",
(char *)0,
(char *)0,
(char *)0,
(char *)0,
(char *)0,
(char *)0,
(char *)0,
(char *)0,
#define PART4 { 50,54 }
"\textern int ",
protocol,
"_debug;\n\textern FILE *",
protocol,
"_astringfile;\n",
(char *)0,
(char *)0,
(char *)0,
(char *)0,
(char *)0,
#define PART6 { 60, 65 }
"\n\tindex = inx[1 + e->ev_number][p->",
protocol,
statename,
"];\n\tif(index<0) index=_Xebec_index(e, p);\n",
"\tif (index==0) {\n\t\ta = &erroraction;\n",
"\t} else\n\t\ta = &statetable[index];\n\n",
(char *)0,
(char *)0,
(char *)0,
(char *)0,
#define PART7 {70, 77 }
"\tif(",
protocol,
"_debug) fprintf(",
protocol,
"_astringfile, \"%15s <-- %15s [%15s] \\n\\t%s\\n\",\n",
"\t\tsstring[a->a_newstate], sstring[p->",
protocol,
"_state], estring[e->ev_number], astring[a->a_action]);\n\n",
(char *)0,
(char *)0,
#define PART8 { 80, 84 }
"\tif(a->a_action)\n",
"\t\terror = _Xebec_action( a->a_action, e, p );\n",
"\tif(error==0)\n\tp->",
protocol,
"_state = a->a_newstate;\n\treturn error;\n}\n",
(char *)0,
(char *)0,
(char *)0,
(char *)0,
(char *)0,
#define PART9 { 90, 99 }
"\n_XEBEC_PG int _Xebec_action(a,e,p)\nint a;\nstruct ",
protocol,
"_event *e;\n",
protocol,
PCBNAME,
" *p;\n{\n",
"switch(a) {\n",
"case -1: return ",
protocol,
"_protocol_error(e,p);\n",
(char *)0,
#define PART10 { 101, 105 }
"\tif(",
protocol,
"_debug) fprintf(",
protocol,
"_astringfile, \"index 0x%5x\\n\", index);\n",
(char *)0,
(char *)0,
(char *)0,
(char *)0,
#define PART5 { 110, 121 }
"\n_XEBEC_PG int\n_Xebec_index( e,p )\n",
"\tstruct ",
protocol,
"_event *e;\n\t",
protocol,
PCBNAME,
" *p;\n{\nswitch( (e->ev_number<<",
Eventshiftstring,
")+(p->",
protocol,
statename,
") ) {\n",
(char *)0,
(char *)0,
(char *)0,
(char *)0,
(char *)0,
(char *)0,
(char *)0,
(char *)0,
#define PART11 {130, 137 }
"\tIFTRACE(D_DRIVER)\n",
"\t",
protocol,
"trace(DRIVERTRACE,",
"\t\ta->a_newstate, p->",
protocol,
"_state, e->ev_number, a->a_action, 0);\n\n",
"\tENDTRACE\n",
(char *)0,
(char *)0,
#define PART13 {140, 147 }
"\tif(",
protocol,
"_debug) fprintf(",
protocol,
"_astringfile, \"%15s <-- %15s [%15s] \\n\",\n",
"\t\tsstring[a->a_newstate], sstring[p->",
protocol,
"_state], estring[e->ev_number]);\n\n",
(char *)0,
(char *)0,
#define PART14 { 150,150 }
"#define _XEBEC_PG static\n",
#define PART15 { 151,151 }
"#define _XEBEC_PG \n",
};
static struct { int start; int finish; } parts[] = {
{ 0,0 },
PART1,
PART2,
PART3,
PART4,
PART5,
PART6,
PART7,
PART8,
PART9,
PART10,
PART11,
PART12,
PART13,
PART14,
PART15,
};
putdriver(f, x)
FILE *f;
int x;
{
register int i;
for( i = parts[x].start; i<= parts[x].finish; i++)
fprintf(f, "%s", strings[i]);
IFDEBUG(d)
fflush(f);
ENDDEBUG
}