Commit | Line | Data |
---|---|---|
8e7ff773 LC |
1 | /* Copyright (C) 2008 Free Software Foundation, Inc. |
2 | * | |
3 | * This library is free software; you can redistribute it and/or | |
4 | * modify it under the terms of the GNU Lesser General Public | |
5 | * License as published by the Free Software Foundation; either | |
6 | * version 2.1 of the License, or (at your option) any later version. | |
7 | * | |
8 | * This library is distributed in the hope that it will be useful, | |
9 | * but WITHOUT ANY WARRANTY; without even the implied warranty of | |
10 | * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU | |
11 | * Lesser General Public License for more details. | |
12 | * | |
13 | * You should have received a copy of the GNU Lesser General Public | |
14 | * License along with this library; if not, write to the Free Software | |
15 | * Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA | |
16 | */ | |
17 | ||
18 | /* Exercise `scm_c_read ()' and the port type API. Verify assumptions that | |
19 | can be made by port type implementations. */ | |
20 | ||
21 | #ifdef HAVE_CONFIG_H | |
22 | # include <config.h> | |
23 | #endif | |
24 | ||
25 | #include <libguile.h> | |
26 | #include <assert.h> | |
27 | ||
28 | ||
29 | \f | |
30 | /* Size of our port's internal buffer. */ | |
31 | #define PORT_BUFFER_SIZE 1024 | |
32 | ||
33 | /* Return a new port of type PORT_TYPE. */ | |
34 | static inline SCM | |
35 | make_port (scm_t_bits port_type) | |
36 | { | |
37 | SCM port; | |
38 | char *c_buffer; | |
39 | scm_t_port *c_port; | |
40 | ||
41 | c_buffer = scm_gc_calloc (PORT_BUFFER_SIZE, "custom-port-buffer"); | |
42 | ||
43 | port = scm_new_port_table_entry (port_type); | |
44 | ||
92834759 | 45 | /* Associate C_BUFFER with PORT, for test purposes. */ |
8e7ff773 LC |
46 | SCM_SETSTREAM (port, (scm_t_bits) c_buffer); |
47 | ||
92834759 | 48 | /* Use C_BUFFER as PORT's internal buffer. */ |
8e7ff773 LC |
49 | c_port = SCM_PTAB_ENTRY (port); |
50 | c_port->read_pos = c_port->read_buf = (unsigned char *) c_buffer; | |
51 | c_port->read_end = (unsigned char *) c_buffer + PORT_BUFFER_SIZE; | |
52 | c_port->read_buf_size = PORT_BUFFER_SIZE; | |
53 | ||
54 | /* Mark PORT as open and readable. */ | |
55 | SCM_SET_CELL_TYPE (port, port_type | SCM_OPN | SCM_RDNG); | |
56 | ||
57 | return port; | |
58 | } | |
59 | ||
60 | /* Read one byte from PORT. */ | |
61 | static int | |
62 | fill_input (SCM port) | |
63 | { | |
64 | int result; | |
65 | scm_t_port *c_port = SCM_PTAB_ENTRY (port); | |
66 | ||
67 | /* Make sure that C_PORT's internal buffer wasn't changed behind our back. | |
68 | See http://lists.gnu.org/archive/html/guile-devel/2008-11/msg00042.html | |
69 | for an example where this assumption matters. */ | |
70 | assert (c_port->read_buf == (unsigned char *) SCM_STREAM (port)); | |
71 | assert (c_port->read_buf_size == PORT_BUFFER_SIZE); | |
72 | ||
73 | if (c_port->read_pos >= c_port->read_end) | |
74 | result = EOF; | |
75 | else | |
76 | result = (int) *c_port->read_pos++; | |
77 | ||
78 | return result; | |
79 | } | |
80 | ||
81 | /* Return true (non-zero) if BUF contains only zeros. */ | |
82 | static inline int | |
83 | zeroed_buffer_p (const char *buf, size_t len) | |
84 | { | |
85 | size_t i; | |
86 | ||
87 | for (i = 0; i < len; i++) | |
88 | if (buf[i] != 0) | |
89 | return 0; | |
90 | ||
91 | return 1; | |
92 | } | |
93 | ||
94 | /* Run the test. */ | |
95 | static void * | |
96 | do_start (void *arg) | |
97 | { | |
98 | SCM port; | |
99 | scm_t_bits port_type; | |
100 | char buffer[PORT_BUFFER_SIZE + (PORT_BUFFER_SIZE / 2)]; | |
101 | size_t read, last_read; | |
102 | ||
103 | port_type = scm_make_port_type ("custom-input-port", fill_input, NULL); | |
104 | port = make_port (port_type); | |
105 | ||
106 | read = 0; | |
107 | do | |
108 | { | |
109 | last_read = scm_c_read (port, &buffer[read], 123); | |
110 | assert (last_read <= 123); | |
111 | assert (zeroed_buffer_p (&buffer[read], last_read)); | |
112 | ||
113 | read += last_read; | |
114 | } | |
115 | while (last_read > 0 && read < sizeof (buffer)); | |
116 | ||
117 | /* We shouldn't be able to read more than what's in PORT's buffer. */ | |
118 | assert (read == PORT_BUFFER_SIZE); | |
119 | ||
120 | return NULL; | |
121 | } | |
122 | ||
123 | \f | |
124 | int | |
125 | main (int argc, char *argv[]) | |
126 | { | |
127 | scm_with_guile (do_start, NULL); | |
128 | ||
129 | return 0; | |
130 | } |