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
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
|
#! /usr/bin/env slsh
% -*- slang -*-
% This file is used to determine what functions still need documenting.
% I think that it provides a good example of the use of associative arrays.
_debug_info = 1;
variable Src_Files = "../../../src/*.c";
variable TM_Files = "*.tm";
variable Unwanted_Files = "../../../src/calc.c";
define grep (pat, files)
{
if (strlen (files) == 0)
return String_Type[0];
variable fp = popen (sprintf ("rgrep '%s' %s", pat, files), "r");
variable matches;
matches = fgetslines (fp);
() = pclose (fp);
return matches;
}
static define prune_array (a, b)
{
foreach (b) using ("keys")
{
variable k = ();
assoc_delete_key (a, k);
}
}
define get_with_pattern (a, pat, white)
{
variable f;
foreach (grep (pat, Src_Files))
{
f = ();
f = strtok (f, white)[1];
a [f] = 1;
}
if (Unwanted_Files != NULL) foreach (grep (pat, Unwanted_Files))
{
f = ();
f = strtok (f, white)[1];
assoc_delete_key (a, f);
}
}
define get_src_intrinsics ()
{
variable f;
variable src = Assoc_Type[Int_Type];
get_with_pattern (src, "^[ \t]+MAKE_INTRINSIC.*(\".*\"", "\"");
get_with_pattern (src, "^[ \t]+MAKE_MATH_UNARY.*(\".*\"", "\"");
get_with_pattern (src, "^[ \t]+MAKE_VARIABLE.*(\".*\"", "\"");
get_with_pattern (src, "^[ \t]+MAKE_DCONSTANT.*(\".*\"", "\"");
get_with_pattern (src, "^[ \t]+MAKE_ICONSTANT.*(\".*\"", "\"");
return src;
}
define get_doc_intrinsics ()
{
variable funs;
variable doc = Assoc_Type[Int_Type];
funs = grep ("^\\\\function{", TM_Files);
foreach (funs)
{
variable f;
f = ();
f = strtok (f, "{}")[1];
doc [f] = 1;
}
funs = grep ("^\\\\variable{", TM_Files);
foreach (funs)
{
f = ();
f = strtok (f, "{}")[1];
doc [f] = 1;
}
return doc;
}
define main ()
{
variable k;
variable src, doc;
doc = get_doc_intrinsics ();
src = get_src_intrinsics ();
prune_array (src, doc);
k = assoc_get_keys (src);
k = k[array_sort(k)];
foreach (k)
{
message ();
}
}
main ();
|
