void receive_data(char MsgNum)
{
SFRPAGE = CAN0_PAGE; //Saves
for (count1 = MsgNum; count1 >= 0;count1--)
{
rxframe[1].MsgNum = 30;
CAN0ADR = IF2CMDMSK; // Point to Command Mask 1
CAN0DATL = 0x3F; // Config to READ CAN RAM, read data bytes, clr NewDat and IntPnd, arb ID
CAN0ADR = IF2CMDRQST; // Point to Command Request Reg.
CAN0DATL = rxframe[1].MsgNum; // Move new data for RX from Msg Obj "MsgNum"
//Get Arb ID
CAN0ADR = IF2ARB2; //Point to Arbitration 2
rxframe[1].arbID = (CAN0DAT & 0x1FFF) >> 2;
//Get Data Size
CAN0ADR = IF2MSGC; //Point to IF2 Message Control Register
rxframe[1].sz = CAN0DATL & 0x0F;
//Move new data to a buffer
CAN0ADR = IF2DATA1; // Point to 1st byte of Data Field
rxframe[1].cdat[0] = CAN0DATL;
CAN0ADR = IF2DATA1;
rxframe[1].cdat[1] = CAN0DATH;
CAN0ADR = IF2DATA2;
rxframe[1].cdat[2] = CAN0DATL;
CAN0ADR = IF2DATA2;
rxframe[1].cdat[3] = CAN0DATH;
CAN0ADR = IF2DATB1;
rxframe[1].cdat[4] = CAN0DATL;
CAN0ADR = IF2DATB1;
rxframe[IntReg].cdat[5] = CAN0DATH;
check_lang(); // change configuration message depending on request from radio
}
}
int
main(int argc, char **argv)
{
char *p, *ename;
char const *const *cpp;
int got_language = 0;
char *got_include = 0;
char *got_prefix = ".";
char lcname[6];
#ifdef AFS_AIX32_ENV
/*
* The following signal action for AIX is necessary so that in case of a
* crash (i.e. core is generated) we can include the user's data section
* in the core dump. Unfortunately, by default, only a partial core is
* generated which, in many cases, isn't too useful.
*/
struct sigaction nsa;
sigemptyset(&nsa.sa_mask);
nsa.sa_handler = SIG_DFL;
nsa.sa_flags = SA_FULLDUMP;
sigaction(SIGSEGV, &nsa, NULL);
#endif
/* argument parsing */
debug = 0;
filename = 0;
whoami = argv[0];
p = strrchr(whoami, '/');
if (p)
whoami = p + 1;
while (argv++, --argc) {
char *arg = *argv;
if (arg[0] != '-') {
if (filename)
dup_err("filenames", filename, arg);
filename = arg;
} else {
arg++;
if (check_arg(debug_args, arg))
debug++;
else if (check_arg(lang_args, arg)) {
got_language++;
arg = *++argv, argc--;
if (!arg)
usage();
if (language)
dup_err("languanges", language_names[(int)language], arg);
#define check_lang(x,v) if (!strcasecmp(arg,x)) language = v
check_lang("c", lang_C);
check_lang("ansi_c", lang_C);
check_lang("ansi-c", lang_C);
check_lang("krc", lang_KRC);
check_lang("kr_c", lang_KRC);
check_lang("kr-c", lang_KRC);
check_lang("k&r-c", lang_KRC);
check_lang("k&r_c", lang_KRC);
check_lang("c++", lang_CPP);
check_lang("cplusplus", lang_CPP);
check_lang("c-plus-plus", lang_CPP);
#undef check_lang
if (!language) {
fprintf(stderr, "%s: unknown language name `%s'\n",
whoami, arg);
fprintf(stderr, "\tpick one of: C K&R-C\n");
exit(1);
}
} else if (strcmp(arg, "h") == 0) {
arg = *++argv, argc--;
if (!arg)
usage();
got_include = arg;
} else if (strcmp(arg, "p") == 0) {
arg = *++argv, argc--;
if (!arg)
usage();
got_prefix = arg;
} else if (strcmp(arg, "v") == 0) {
arg = *++argv, argc--;
version = atoi(arg);
if (version != 1 && version != 2) {
fprintf(stderr, "%s: unknown control argument -`%s'\n",
whoami, arg);
usage();
exit(1);
}
if (version == 2)
use_msf = 1;
} else {
fprintf(stderr, "%s: unknown control argument -`%s'\n",
whoami, arg);
usage();
}
}
}
if (!filename)
usage();
if (!got_language)
language = lang_C;
else if (language == lang_CPP) {
fprintf(stderr, "%s: Sorry, C++ support is not yet finished.\n",
whoami);
exit(1);
}
p = strrchr(filename, '/');
if (p == (char *)NULL)
p = filename;
else
p++;
ename = xmalloc(strlen(p) + 5);
strcpy(ename, p);
/* Now, flush .et suffix if it exists. */
p = strrchr(ename, '.');
if (p != NULL) {
if (strcmp(p, ".et") == 0)
*p = 0;
}
if (use_msf) {
sprintf(msf_file, "%s.msf", ename);
} else {
sprintf(c_file, "%s.c", ename);
}
if (got_include) {
sprintf(h_file, "%s.h", got_include);
} else {
sprintf(h_file, "%s.h", ename);
}
p = strrchr(filename, '.');
if (p == NULL) {
p = xmalloc(strlen(filename) + 4);
sprintf(p, "%s.et", filename);
filename = p;
}
sprintf(et_file, "%s/%s", got_prefix, filename);
yyin = fopen(et_file, "r");
if (!yyin) {
perror(et_file);
exit(1);
}
/* on NT, yyout is not initialized to stdout */
if (!yyout) {
yyout = stdout;
}
hfile = fopen(h_file, "w");
if (hfile == (FILE *) NULL) {
perror(h_file);
exit(1);
}
fprintf(hfile, warning, h_file);
if (got_include) {
char buffer[BUFSIZ];
char prolog_h_file[MAXPATHLEN];
FILE *prolog_hfile;
int count, written;
strcpy(prolog_h_file, got_prefix);
strcat(prolog_h_file, "/");
strcat(prolog_h_file, got_include);
strcat(prolog_h_file, ".p.h");
prolog_hfile = fopen(prolog_h_file, "r");
if (prolog_hfile) {
fprintf(stderr, "Including %s at beginning of %s file.\n",
prolog_h_file, h_file);
fprintf(hfile, "/* Including %s at beginning of %s file. */\n\n",
prolog_h_file, h_file);
do {
count =
fread(buffer, sizeof(char), sizeof(buffer), prolog_hfile);
if (count == EOF) {
perror(prolog_h_file);
exit(1);
}
written = fwrite(buffer, sizeof(char), count, hfile);
if (count != written) {
perror(prolog_h_file);
exit(1);
}
} while (count > 0);
fprintf(hfile, "\n/* End of prolog file %s. */\n\n",
prolog_h_file);
}
}
if (use_msf) {
msfile = fopen(msf_file, "w");
if (msfile == (FILE *) NULL) {
perror(msf_file);
exit(1);
}
fprintf(msfile, msf_warning, msf_file);
} else {
cfile = fopen(c_file, "w");
if (cfile == (FILE *) NULL) {
perror(c_file);
exit(1);
}
fprintf(cfile, warning, c_file);
/* prologue */
if (language == lang_C)
cpp = c_src_prolog;
else if (language == lang_KRC)
cpp = krc_src_prolog;
else
abort();
while (*cpp)
fputs(*cpp++, cfile);
}
/* parse it */
yyparse();
fclose(yyin); /* bye bye input file */
if (!use_msf) {
fputs(" 0\n};\n\n", cfile);
fprintf(cfile,
"static const struct error_table et = { text, %ldL, %d };\n\n",
(long int)table_number, current);
fputs("static struct et_list etlink = { 0, &et};\n\n", cfile);
fprintf(cfile, "void initialize_%s_error_table(void) {\n",
table_name);
fputs(" afs_add_to_error_table(&etlink);\n", cfile);
fputs("}\n", cfile);
fclose(cfile);
fprintf(hfile, "extern void initialize_%s_error_table(void);\n",
table_name);
} else {
fprintf(hfile, "#define initialize_%s_error_table(void)\n",
table_name);
}
fprintf(hfile, "#define ERROR_TABLE_BASE_%s (%ldL)\n", table_name,
(long int)table_number);
/* compatibility... */
fprintf(hfile, "\n/* for compatibility with older versions... */\n");
fprintf(hfile, "#define init_%s_err_tbl initialize_%s_error_table\n",
table_name, table_name);
fprintf(hfile, "#define %s_err_base ERROR_TABLE_BASE_%s\n", table_name,
table_name);
fprintf(hfile, "\n/* for compatibility with other users... */\n");
lcstring(lcname, table_name, sizeof(lcname));
fprintf(hfile, "#define ERROR_TABLE_BASE_%s (%ldL)\n", lcname,
(long int)table_number);
fprintf(hfile, "#define init_%s_err_tbl initialize_%s_error_table\n",
lcname, table_name);
fprintf(hfile,
"#define initialize_%s_error_table initialize_%s_error_table\n",
lcname, table_name);
fprintf(hfile, "#define %s_err_base ERROR_TABLE_BASE_%s\n", lcname,
lcname);
fclose(hfile); /* bye bye include file */
if (use_msf)
fclose(msfile);
return 0;
}