Parent Directory | Revision Log | Patch
revision 1.37 by spiralvoice, Tue Jul 12 23:08:57 2005 UTC | revision 1.38 by spiralvoice, Tue Aug 9 10:48:37 2005 UTC | |
---|---|---|
# | Line 42 let buf = Buffer.create 1000 | Line 42 let buf = Buffer.create 1000 |
42 | ||
43 | let gui_send writer sock t = | let gui_send writer sock t = |
44 | try | try |
45 | Buffer.clear buf; | Buffer.reset buf; |
46 | buf_int buf 0; | buf_int buf 0; |
47 | writer buf t; | writer buf t; |
48 | let s = Buffer.contents buf in | let s = Buffer.contents buf in |
|
savannah-hackers-public@gnu.org | ViewVC Help |
Powered by ViewVC 1.1.26 |