[go: up one dir, main page]

File: get-radio-cal

package info (click to toggle)
altos 1.9.21-1
  • links: PTS, VCS
  • area: main
  • in suites: trixie
  • size: 83,636 kB
  • sloc: ansic: 119,717; java: 42,907; makefile: 8,459; sh: 4,995; xml: 2,154; pascal: 2,008
file content (66 lines) | stat: -rwxr-xr-x 1,384 bytes parent folder | download | duplicates (7)
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
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
#!/usr/bin/nickle

import File;

string timed_read(file f, int timeout) {
	thread reader = fork func() { try { return fgets(f); } catch Thread::signal(int i) { return ""; } }();
	thread killer = fork func() { sleep (timeout); Thread::send_signal(reader, 1); }();
	poly v = Thread::join(reader);
	if (is_string(v))
		return v;
	return "";
}

void flush_input(file f) {
	for (;;) {
		string s = timed_read(f, 100);
		if (s == "")
			break;
	}
}

string[*] settings(file f) {
	string[...] x = {};

	flush_input(f);
	fprintf (f, "c s\nv\n");
	flush(f);
	for (;;) {
		string l = File::fgets(f);
		x[dim(x)] = l;
		if (String::index(l, "software-version") == 0)
			break;
	}
	return x;
}

string[*] find_setting(string[*] s, string match) {
	for (int i = 0; i < dim(s); i++)
		if (String::index(s[i], match) == 0)
			return String::split(s[i], " ");
	return (string[*]) {};
}

int[*]
get_radio (file f) {
	string[*] s = settings(f);

	string[*] cal = find_setting(s, "Radio cal:");
	string[*] freq = find_setting(s, "Frequency:");
	if (dim(cal) == 0 || dim(freq) == 0)
		return (int[2]) { 0, 0 };

	int cal_val = string_to_integer(cal[2]);
	int freq_val = string_to_integer(freq[1]);
	return (int[2]) { cal_val, freq_val };
}

void main () {
	string	name = argv[1];
	file	f = open(name, "r+");

	int[*] vals = get_radio(f);
	printf ("cal %d freq %f\n", vals[0], vals[1] / 1000);
}

main();