File Coverage

MegaHAL.xs
Criterion Covered Total %
statement 0 33 0.0
branch n/a
condition n/a
subroutine n/a
pod n/a
total 0 33 0.0


line stmt bran cond sub pod time code
1             #include "EXTERN.h"
2             #include "perl.h"
3             #include "XSUB.h"
4              
5             #include "megahal.h"
6              
7             static int
8 0           not_here(char *s)
9             {
10 0           croak("%s not implemented on this architecture", s);
11             return -1;
12             }
13              
14             static double
15 0           constant(char *name, int arg)
16             {
17 0           errno = 0;
18 0           switch (*name) {
19             case 'A':
20 0           break;
21             case 'B':
22 0           break;
23             case 'C':
24 0           break;
25             case 'D':
26 0           break;
27             case 'E':
28 0           break;
29             case 'F':
30 0           break;
31             case 'G':
32 0           break;
33             case 'H':
34 0           break;
35             case 'I':
36 0           break;
37             case 'J':
38 0           break;
39             case 'K':
40 0           break;
41             case 'L':
42 0           break;
43             case 'M':
44 0           break;
45             case 'N':
46 0           break;
47             case 'O':
48 0           break;
49             case 'P':
50 0           break;
51             case 'Q':
52 0           break;
53             case 'R':
54 0           break;
55             case 'S':
56 0           break;
57             case 'T':
58 0           break;
59             case 'U':
60 0           break;
61             case 'V':
62 0           break;
63             case 'W':
64 0           break;
65             case 'X':
66 0           break;
67             case 'Y':
68 0           break;
69             case 'Z':
70 0           break;
71             }
72 0           errno = EINVAL;
73 0           return 0;
74              
75             not_there:
76             errno = ENOENT;
77             return 0;
78             }
79              
80              
81             MODULE = AI::MegaHAL PACKAGE = AI::MegaHAL
82             PROTOTYPES: DISABLE
83              
84             double
85             constant(name,arg)
86             char * name
87             int arg
88              
89             void
90             megahal_setnoprompt ()
91              
92             void
93             megahal_setnowrap ()
94              
95             void
96             megahal_setnobanner ()
97              
98             void
99             megahal_seterrorfile(filename)
100             char* filename
101              
102             void
103             megahal_setstatusfile(filename)
104             char* filename
105              
106             void
107             megahal_initialize()
108              
109             char*
110             megahal_initial_greeting()
111              
112             int
113             megahal_command(input)
114             char* input
115              
116             char*
117             megahal_do_reply(input,log)
118             char* input
119             int log
120              
121             void
122             megahal_learn(input,log)
123             char* input
124             int log
125              
126             void
127             megahal_output(output)
128             char* output
129              
130             char*
131             megahal_input(prompt)
132             char* prompt
133              
134             void
135             megahal_cleanup()
136