File: probe.c

package info (click to toggle)
audacity 1.2.4b-2.1
  • links: PTS
  • area: main
  • in suites: etch, etch-m68k
  • size: 24,136 kB
  • ctags: 20,445
  • sloc: ansic: 139,567; cpp: 55,998; sh: 24,963; lisp: 3,772; makefile: 1,683; python: 272
file content (38 lines) | stat: -rw-r--r-- 749 bytes parent folder | download | duplicates (10) 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
 
/* probe.c -- used to test resampling */

#include "stdio.h"
#include "string.h"
#include "xlisp.h"

static FILE* probefile = NULL;
static long line_num = 0;

void probe_init(int readflag)
{
    line_num = 0;
    probefile = fopen("probe.log", (readflag ? "r" : "w"));
}


double probe(char *s, double x)
{
    fprintf(probefile, "%s %g\n", s, x);
    return x;
}


double probe2(char *s, double x)
{
    char buf1[100], buf2[100];
    sprintf(buf1, "%s %g\n", s, x);
    fgets(buf2, 100, probefile);
    line_num++;
    if (strcmp(buf1, buf2)) {
        nyquist_printf("probe2: difference at line %ld: \n", line_num);
        nyquist_printf("correct: %s", buf2);
        nyquist_printf("actual:  %s", buf1);
        abort();
    }
    return x;
}