audiostuff: intercom/gsm/add

comparison intercom/gsm/add_test.c @ 2:13be24d74cd2

import intercom-0.4.1

author	Peter Meerwald <pmeerw@cosy.sbg.ac.at>
date	Fri, 25 Jun 2010 09:57:52 +0200
parents
children

comparison

equal deleted inserted replaced

-:9cadc470e3da
+:13be24d74cd2
+/*
+* Copyright 1992 by Jutta Degener and Carsten Bormann, Technische
+* Universitaet Berlin.  See the accompanying file "COPYRIGHT" for
+* details.  THERE IS ABSOLUTELY NO WARRANTY FOR THIS SOFTWARE.
+*
+* Updated by KIRCHHERR (FI/DBP Telekom) for Alpha VMS/Apx: included unixio.h
+*/
+/* $Header: /home/kbs/jutta/src/gsm/gsm-1.0/add-test/RCS/add_test.c,v 1.1 1992/10/28 00:09:10 jutta Exp $ */
+#include <stdio.h>
+#include <stdlib.h>
+#include <string.h>
+#ifdef VMS
+#include <unixio.h>
+#endif
+#define	GSM_IMPLEMENTATION
+#include "private.h"
+#include "gsm.h"
+#include "add.c"
+int interactive = 1;
+char *opname;
+longword L_op1, L_op2, L_expect;
+word op1, op2, expect;
+int do_expect;
+void help()
+{
+puts("  add a b      sub a b     mult a b   div    a b");
+puts("L_add A B    L_sub A B   L_mult A B   mult_r a b");
+puts("");
+puts("abs   a      norm  a        >> a b      << a b");
+puts("                          L_>> A B    L_<< A B");
+}
+char *strtek P2((str, sep), char *str, char *sep)
+{
+static char *S = (char *) 0;
+char *c, *base;
+if (str)
+S = str;
+if (!S || !*S)
+return (char *) 0;
+/*  Skip delimiters.
+*/
+while (*S) {
+for (c = sep; *c && *c != *S; c++);
+if (*c)
+*S++ = 0;
+else
+break;
+}
+base = S;
+/*   Skip non-delimiters.
+*/
+for (base = S; *S; S++) {
+for (c = sep; *c; c++)
+if (*c == *S) {
+*S++ = 0;
+return base;
+}
+}
+return base == S ? (char *) 0 : base;
+}
+long value P1((s), char *s)
+{
+switch (*s) {
+case '-':
+switch (s[1]) {
+case '\0':
+return MIN_WORD;
+case '-':
+return MIN_LONGWORD;
+default:
+break;
+}
+break;
+case '+':
+switch (s[1]) {
+case '\0':
+return MAX_WORD;
+case '+':
+return MAX_LONGWORD;
+default:
+break;
+}
+default:
+break;
+}
+return strtol(s, (char **) 0, 0);
+}
+char *parse P1((buf), char *buf)
+{
+char *s, *a;
+long l;
+if ((a = strchr(buf, '=')) != NULL)
+*a++ = 0;
+opname = s = strtek(buf, " \t(");
+if (!s)
+return (char *) 0;
+op1 = op2 = L_op1 = L_op2 = 0;
+if ((s = strtek((char *) 0, "( \t,")) != NULL) {
+op1 = L_op1 = value(s);
+if ((s = strtek((char *) 0, ", \t)")) != NULL)
+op2 = L_op2 = value(s);
+}
+if (a) {
+do_expect = 1;
+while (*a == ' ' || *a == '\t')
+a++;
+expect = L_expect = value(a);
+}
+return opname;
+}
+void fprint_word P2((f, w), FILE * f, word w)
+{
+if (!w)
+putc('0', f);
+else
+fprintf(f, "0x%4.4x (%d%s)",
+(unsigned int) w,
+(int) w, w == MIN_WORD ? "/-" : (w == MAX_WORD ? "/+" : ""));
+}
+void print_word P1((w), word w)
+{
+fprint_word(stdout, w);
+}
+void fprint_longword P2((f, w), FILE * f, longword w)
+{
+if (!w)
+putc('0', f);
+else
+fprintf(f, "0x%8.8x (%ld%s)",
+w, w, w == MIN_WORD ? "/-"
+: (w == MAX_WORD ? "/+"
+: (w == (longword) MIN_LONGWORD ? "/--"
+: (w == (longword) MAX_LONGWORD ? "/++" : ""))));
+}
+void print_longword P1((w), longword w)
+{
+fprint_longword(stdout, w);
+}
+void do_longword P1((w), longword w)
+{
+if (interactive)
+print_longword(w);
+if (do_expect) {
+if (w != L_expect) {
+if (!interactive)
+fprint_longword(stderr, w);
+fprintf(stderr, " != %s (%ld, %ld) -- expected ",
+opname, L_op1, L_op2);
+fprint_longword(stderr, L_expect);
+putc('\n', stderr);
+}
+} else if (interactive)
+putchar('\n');
+}
+void do_word P1((w), word w)
+{
+if (interactive)
+print_word(w);
+if (do_expect) {
+if (w != expect) {
+if (!interactive)
+fprint_word(stderr, w);
+fprintf(stderr, " != %s (%ld, %ld) -- expected ",
+opname, L_op1, L_op2);
+fprint_word(stderr, expect);
+putc('\n', stderr);
+}
+} else if (interactive)
+putchar('\n');
+}
+int main(argc, argv)
+int argc;
+char *argv[];
+{
+char buf[299];
+char *c;
+FILE *datain;
+if (argc > 1)
+datain = fopen(argv[1], "r");
+else
+datain = stdin;
+if (datain == NULL) {
+perror("Invalid input file!\n");
+exit(1);
+}
+interactive = isatty(fileno(datain));
+for (;;) {
+if (interactive)
+fprintf(stderr, "? ");
+if (!fgets(buf, sizeof(buf), datain))
+exit(0);
+if ((c = strchr(buf, '\n')) != NULL)
+*c = 0;
+if (*buf == ';' || *buf == '#')
+continue;
+if (*buf == '\'') {
+puts(buf + 1);
+continue;
+}
+if (*buf == '\"') {
+fprintf(stderr, "%s\n", buf + 1);
+continue;
+}
+c = parse(buf);
+if (!c)
+continue;
+if (!strcmp(c, "add")) {
+do_word(gsm_add(op1, op2));
+continue;
+}
+if (!strcmp(c, "sub")) {
+do_word(gsm_sub(op1, op2));
+continue;
+}
+if (!strcmp(c, "mult")) {
+do_word(gsm_mult(op1, op2));
+continue;
+}
+if (!strcmp(c, "mult_r")) {
+do_word(gsm_mult_r(op1, op2));
+continue;
+}
+if (!strcmp(c, "abs")) {
+do_word(gsm_abs(op1));
+continue;
+}
+if (!strcmp(c, "div")) {
+do_word(gsm_div(op1, op2));
+continue;
+}
+if (!strcmp(c, "norm")) {
+do_word(gsm_norm(L_op1));
+continue;
+}
+if (!strcmp(c, "<<")) {
+do_word(gsm_asl(op1, op2));
+continue;
+}
+if (!strcmp(c, ">>")) {
+do_word(gsm_asr(op1, op2));
+continue;
+}
+if (!strcmp(c, "L_mult")) {
+do_longword(gsm_L_mult(op1, op2));
+continue;
+}
+if (!strcmp(c, "L_add")) {
+do_longword(gsm_L_add(L_op1, L_op2));
+continue;
+}
+if (!strcmp(c, "L_sub")) {
+do_longword(gsm_L_sub(L_op1, L_op2));
+continue;
+}
+if (!strcmp(c, "L_<<")) {
+do_longword(gsm_L_asl(L_op1, L_op2));
+continue;
+}
+if (!strcmp(c, "L_>>")) {
+do_longword(gsm_L_asr(L_op1, L_op2));
+continue;
+}
+help();
+}
+}

Mercurial > hg > audiostuff

comparison intercom/gsm/add_test.c @ 2:13be24d74cd2