added open status to the [info( report

svn path=/trunk/externals/iem/comport/; revision=6213

2 files changed, 212 insertions, 200 deletions

diff --git a/comport/comport-help.pd b/comport/comport-help.pd
index db9e305..c64e894 100644
--- a/comport/comport-help.pd
+++ b/comport/comport-help.pd
@@ -1,200 +1,203 @@
-#N canvas 349 113 882 646 10;

-#X obj 18 415 comport 1 9600;

-#X msg 13 189 66;

-#X msg 7 147 64;

-#X text 40 189 point;

-#X text 32 147 stream;

-#X msg 18 238 86;

-#X text 46 239 position;

-#X msg 24 283 70;

-#X msg 25 323 71;

-#X text 49 283 run;

-#X text 50 323 sleep;

-#X msg 314 61 bits 8;

-#X msg 314 87 stopbit 0;

-#X msg 314 113 parity 0;

-#X text 381 112 parity 1=even \, -1=odd \, 0=off;

-#X text 392 86 extra stopbit 1=on \, 0=off;

-#X text 363 60 databits 5 \, 6 \, 7 \, 8;

-#X obj 43 394 r comctl;

-#X obj 199 417 s comctl;

-#X text 394 138 use handshake xon/off 1=on 0=off;

-#X text 392 166 cts/rts hardwarehandshake 1=on 0=off;

-#X msg 318 214 pollintervall 1;

-#X text 428 214 (default is 1 tick 1ms);

-#X msg 317 246 close;

-#X msg 317 272 open 1;

-#X text 356 246 Close Serial port;

-#X msg 458 385 devicename /dev/ttyS1;

-#X text 458 402 Danger !!! you can open every file in your system and

-maybe if suid is root damage the system.;

-#X text 4 -9 (C) 1998-2005 IEM Winfried Ritsch GPL (see LICENSE.txt)

-;

-#X obj 144 50 hsl 128 15 0 255 0 0 empty empty empty -2 -6 0 8 -262144

--1 -1 0 1;

-#X floatatom 183 76 5 0 0 0 - - -;

-#X text 60 35 you can send bytes directly (0-255):;

-#X text 360 272 Open serial port by number;

-#X text 611 385 open the serial port by name;

-#X msg 313 353 dtr \$1;

-#X obj 293 353 tgl 15 0 empty empty empty 0 -6 0 8 -262144 -1 -1 0

-1;

-#X obj 292 388 tgl 15 0 empty empty empty 0 -6 0 8 -262144 -1 -1 0

-1;

-#X msg 312 388 rts \$1;

-#X text 362 352 dtr output;

-#X text 361 388 rts output;

-#X msg 172 384 help;

-#X msg 313 323 verbose \$1;

-#X obj 294 323 tgl 15 0 empty empty empty 0 -6 0 8 -262144 -1 -1 0

-1;

-#X text 377 197 set poll interval for read in ms;

-#X msg 123 191 info;

-#X floatatom 111 469 7 0 0 1 baud - -;

-#X floatatom 237 517 4 0 0 3 parity - -;

-#X floatatom 279 517 4 0 0 2 stop - -;

-#X floatatom 322 517 4 0 0 3 data - -;

-#X obj 491 469 print;

-#X obj 111 440 route baud dsr cts parity stop data rtscts xonxoff port

-;

-#X floatatom 448 466 4 0 0 0 port - -;

-#X msg 136 291 devices;

-#X obj 141 74 % 255;

-#X floatatom 149 95 5 0 0 0 - - -;

-#X text 158 191 status list on right outlet;

-#X text 192 290 print available devices (wait for it...);

-#X text 393 -9 2006 Martin Peach;

-#X obj 69 75 key;

-#X obj 69 96 sel 0;

-#X floatatom 58 119 5 0 0 0 ascii - -;

-#X text 10 76 terminal:;

-#X msg 152 222 open 0;

-#X obj 364 484 tgl 15 0 empty empty rts/cts -10 -6 0 8 -262144 -1 -1

-0 1;

-#X obj 406 484 tgl 15 0 empty empty xon/xoff -10 20 0 8 -262144 -1

--1 0 1;

-#X text 87 516 serial packet format:;

-#X text 277 482 handshaking:;

-#X text 3 548 flow control inputs:;

-#X obj 153 549 tgl 15 0 empty empty dsr 0 22 0 8 -262144 -1 -1 0 1

-;

-#X obj 195 549 tgl 15 0 empty empty cts 0 20 0 8 -262144 -1 -1 0 1

-;

-#N canvas 513 0 735 499 bauds 0;

-#X msg 229 314 baud 57600;

-#X msg 229 358 baud 230400;

-#X msg 229 336 baud 115200;

-#X msg 222 288 baud 38400;

-#X msg 229 261 baud 19200;

-#X msg 229 239 baud 9600;

-#X msg 229 217 baud 4800;

-#X msg 229 195 baud 2400;

-#X obj 162 375 s comctl;

-#X msg 229 173 baud 1800;

-#X msg 229 151 baud 1200;

-#X msg 229 129 baud 600;

-#X msg 229 107 baud 300;

-#X msg 229 85 baud 200;

-#X msg 229 41 baud 134;

-#X msg 229 19 baud 110;

-#X msg 229 -3 baud 75;

-#X msg 229 -25 baud 50;

-#X msg 229 -47 baud 0;

-#X msg 229 63 baud 150;

-#X text 303 282 this is a special baud rate that can be configured

-;

-#X text 12 -48 standard baud rates for linux:;

-#X text 279 -48 0 deasserts control lines and resets the serial port

-;

-#X text 316 358 won't work with standard setup. See setserial;

-#X msg 381 227 baud \$1;

-#X text 386 210 on Windows some other baud rates might work;

-#X text 304 295 on-the-fly with setserial:;

-#X text 383 324 gives 14400 baud instead of 38400;

-#X text 369 310 "setserial /dev/ttyS0 spd_cust divisor 8";

-#X msg 381 32 115200;

-#X floatatom 395 60 7 1 115200 1 divisor - -;

-#X obj 381 98 / 1;

-#X obj 395 77 sel 0;

-#X floatatom 381 120 7 0 0 0 - - -;

-#X text 442 71 (1-115200);

-#X connect 0 0 8 0;

-#X connect 1 0 8 0;

-#X connect 2 0 8 0;

-#X connect 3 0 8 0;

-#X connect 4 0 8 0;

-#X connect 5 0 8 0;

-#X connect 6 0 8 0;

-#X connect 7 0 8 0;

-#X connect 9 0 8 0;

-#X connect 10 0 8 0;

-#X connect 11 0 8 0;

-#X connect 12 0 8 0;

-#X connect 13 0 8 0;

-#X connect 14 0 8 0;

-#X connect 15 0 8 0;

-#X connect 16 0 8 0;

-#X connect 17 0 8 0;

-#X connect 18 0 8 0;

-#X connect 19 0 8 0;

-#X connect 24 0 8 0;

-#X connect 29 0 31 0;

-#X connect 30 0 32 0;

-#X connect 31 0 33 0;

-#X connect 32 1 31 1;

-#X connect 33 0 24 0;

-#X restore 622 72 pd bauds;

-#X msg 314 139 xonxoff \$1;

-#X obj 275 139 tgl 15 0 empty empty empty 0 -6 0 8 -262144 -1 -1 0

-1;

-#X msg 314 167 rtscts \$1;

-#X obj 274 167 tgl 15 0 empty empty empty 0 -6 0 8 -262144 -1 -1 0

-1;

-#X text 117 11 comport: a serial port interface;

-#X msg 102 118 13;

-#X connect 0 1 50 0;

-#X connect 1 0 0 0;

-#X connect 2 0 0 0;

-#X connect 5 0 0 0;

-#X connect 7 0 0 0;

-#X connect 8 0 0 0;

-#X connect 11 0 18 0;

-#X connect 12 0 18 0;

-#X connect 13 0 18 0;

-#X connect 17 0 0 0;

-#X connect 21 0 18 0;

-#X connect 23 0 18 0;

-#X connect 24 0 18 0;

-#X connect 26 0 18 0;

-#X connect 29 0 30 0;

-#X connect 29 0 53 0;

-#X connect 34 0 18 0;

-#X connect 35 0 34 0;

-#X connect 36 0 37 0;

-#X connect 37 0 18 0;

-#X connect 40 0 18 0;

-#X connect 41 0 18 0;

-#X connect 42 0 41 0;

-#X connect 44 0 0 0;

-#X connect 50 0 45 0;

-#X connect 50 1 68 0;

-#X connect 50 2 69 0;

-#X connect 50 3 46 0;

-#X connect 50 4 47 0;

-#X connect 50 5 48 0;

-#X connect 50 6 63 0;

-#X connect 50 7 64 0;

-#X connect 50 8 51 0;

-#X connect 50 9 49 0;

-#X connect 52 0 0 0;

-#X connect 53 0 0 0;

-#X connect 53 0 54 0;

-#X connect 58 0 59 0;

-#X connect 59 1 60 0;

-#X connect 59 1 0 0;

-#X connect 62 0 0 0;

-#X connect 71 0 18 0;

-#X connect 72 0 71 0;

-#X connect 73 0 18 0;

-#X connect 74 0 73 0;

-#X connect 76 0 0 0;

+#N canvas 95 38 746 619 10;
+#X obj 18 415 comport 1 9600;
+#X msg 13 189 66;
+#X msg 7 147 64;
+#X text 40 189 point;
+#X text 32 147 stream;
+#X msg 18 238 86;
+#X text 46 239 position;
+#X msg 24 283 70;
+#X msg 25 323 71;
+#X text 49 283 run;
+#X text 50 323 sleep;
+#X msg 314 61 bits 8;
+#X msg 314 87 stopbit 0;
+#X msg 314 113 parity 0;
+#X text 381 112 parity 1=even \, -1=odd \, 0=off;
+#X text 392 86 extra stopbit 1=on \, 0=off;
+#X text 363 60 databits 5 \, 6 \, 7 \, 8;
+#X obj 43 394 r comctl;
+#X obj 199 447 s comctl;
+#X text 394 138 use handshake xon/off 1=on 0=off;
+#X text 392 166 cts/rts hardwarehandshake 1=on 0=off;
+#X msg 318 214 pollintervall 1;
+#X text 428 214 (default is 1 tick 1ms);
+#X msg 317 246 close;
+#X msg 317 272 open 1;
+#X text 356 246 Close Serial port;
+#X msg 313 415 devicename /dev/ttyS1;
+#X text 313 432 Danger !!! you can open every file in your system and
+maybe if suid is root damage the system.;
+#X text 4 -9 (C) 1998-2005 IEM Winfried Ritsch GPL (see LICENSE.txt)
+;
+#X obj 144 50 hsl 128 15 0 255 0 0 empty empty empty -2 -6 0 8 -262144
+-1 -1 0 1;
+#X floatatom 183 76 5 0 0 0 - - -;
+#X text 60 35 you can send bytes directly (0-255):;
+#X text 360 272 Open serial port by number;
+#X text 473 416 open the serial port by name;
+#X msg 313 353 dtr \$1;
+#X obj 293 353 tgl 15 0 empty empty empty 0 -6 0 8 -262144 -1 -1 0
+1;
+#X obj 292 388 tgl 15 0 empty empty empty 0 -6 0 8 -262144 -1 -1 0
+1;
+#X msg 312 388 rts \$1;
+#X text 362 352 dtr output;
+#X text 361 388 rts output;
+#X msg 172 384 help;
+#X msg 313 323 verbose \$1;
+#X obj 294 323 tgl 15 0 empty empty empty 0 -6 0 8 -262144 -1 -1 0
+1;
+#X text 377 197 set poll interval for read in ms;
+#X msg 123 191 info;
+#X floatatom 111 499 7 0 0 1 baud - -;
+#X floatatom 237 547 4 0 0 3 parity - -;
+#X floatatom 279 547 4 0 0 2 stop - -;
+#X floatatom 322 547 4 0 0 3 data - -;
+#X obj 526 498 print;
+#X floatatom 448 496 4 0 0 0 port - -;
+#X msg 136 291 devices;
+#X obj 141 74 % 255;
+#X floatatom 149 95 5 0 0 0 - - -;
+#X text 158 191 status list on right outlet;
+#X text 192 290 print available devices (wait for it...);
+#X text 393 -9 2006 Martin Peach;
+#X obj 69 75 key;
+#X obj 69 96 sel 0;
+#X floatatom 58 119 5 0 0 0 ascii - -;
+#X text 10 76 terminal:;
+#X msg 152 222 open 0;
+#X obj 364 514 tgl 15 0 empty empty rts/cts -10 20 1 11 -262144 -1
+-1 0 1;
+#X obj 406 514 tgl 15 0 empty empty xon/xoff -14 20 1 11 -262144 -1
+-1 0 1;
+#X text 87 546 serial packet format:;
+#X text 277 512 handshaking:;
+#X text 3 571 flow control inputs:;
+#X obj 153 572 tgl 15 0 empty empty dsr 0 20 1 11 -262144 -1 -1 0 1
+;
+#X obj 195 572 tgl 15 0 empty empty cts 0 20 1 11 -262144 -1 -1 0 1
+;
+#N canvas 513 22 735 499 bauds 0;
+#X msg 229 314 baud 57600;
+#X msg 229 358 baud 230400;
+#X msg 229 336 baud 115200;
+#X msg 222 288 baud 38400;
+#X msg 229 261 baud 19200;
+#X msg 229 239 baud 9600;
+#X msg 229 217 baud 4800;
+#X msg 229 195 baud 2400;
+#X obj 162 375 s comctl;
+#X msg 229 173 baud 1800;
+#X msg 229 151 baud 1200;
+#X msg 229 129 baud 600;
+#X msg 229 107 baud 300;
+#X msg 229 85 baud 200;
+#X msg 229 41 baud 134;
+#X msg 229 19 baud 110;
+#X msg 229 -3 baud 75;
+#X msg 229 -25 baud 50;
+#X msg 229 -47 baud 0;
+#X msg 229 63 baud 150;
+#X text 303 282 this is a special baud rate that can be configured
+;
+#X text 12 -48 standard baud rates for linux:;
+#X text 279 -48 0 deasserts control lines and resets the serial port
+;
+#X text 316 358 won't work with standard setup. See setserial;
+#X msg 381 227 baud \$1;
+#X text 386 210 on Windows some other baud rates might work;
+#X text 304 295 on-the-fly with setserial:;
+#X text 383 324 gives 14400 baud instead of 38400;
+#X text 369 310 "setserial /dev/ttyS0 spd_cust divisor 8";
+#X msg 381 32 115200;
+#X floatatom 395 60 7 1 115200 1 divisor - -;
+#X obj 381 98 / 1;
+#X obj 395 77 sel 0;
+#X floatatom 381 120 7 0 0 0 - - -;
+#X text 442 71 (1-115200);
+#X connect 0 0 8 0;
+#X connect 1 0 8 0;
+#X connect 2 0 8 0;
+#X connect 3 0 8 0;
+#X connect 4 0 8 0;
+#X connect 5 0 8 0;
+#X connect 6 0 8 0;
+#X connect 7 0 8 0;
+#X connect 9 0 8 0;
+#X connect 10 0 8 0;
+#X connect 11 0 8 0;
+#X connect 12 0 8 0;
+#X connect 13 0 8 0;
+#X connect 14 0 8 0;
+#X connect 15 0 8 0;
+#X connect 16 0 8 0;
+#X connect 17 0 8 0;
+#X connect 18 0 8 0;
+#X connect 19 0 8 0;
+#X connect 24 0 8 0;
+#X connect 29 0 31 0;
+#X connect 30 0 32 0;
+#X connect 31 0 33 0;
+#X connect 32 1 31 1;
+#X connect 33 0 24 0;
+#X restore 622 72 pd bauds;
+#X msg 314 139 xonxoff \$1;
+#X obj 275 139 tgl 15 0 empty empty empty 0 -6 0 8 -262144 -1 -1 0
+1;
+#X msg 314 167 rtscts \$1;
+#X obj 274 167 tgl 15 0 empty empty empty 0 -6 0 8 -262144 -1 -1 0
+1;
+#X text 117 11 comport: a serial port interface;
+#X msg 102 118 13;
+#X obj 111 470 route baud dsr cts parity stop data rtscts xonxoff port
+open;
+#X obj 484 499 tgl 15 0 empty empty open -6 20 1 11 -262144 -1 -1 0
+1;
+#X connect 0 1 76 0;
+#X connect 1 0 0 0;
+#X connect 2 0 0 0;
+#X connect 5 0 0 0;
+#X connect 7 0 0 0;
+#X connect 8 0 0 0;
+#X connect 11 0 18 0;
+#X connect 12 0 18 0;
+#X connect 13 0 18 0;
+#X connect 17 0 0 0;
+#X connect 21 0 18 0;
+#X connect 23 0 18 0;
+#X connect 24 0 18 0;
+#X connect 26 0 18 0;
+#X connect 29 0 30 0;
+#X connect 29 0 52 0;
+#X connect 34 0 18 0;
+#X connect 35 0 34 0;
+#X connect 36 0 37 0;
+#X connect 37 0 18 0;
+#X connect 40 0 18 0;
+#X connect 41 0 18 0;
+#X connect 42 0 41 0;
+#X connect 44 0 0 0;
+#X connect 51 0 0 0;
+#X connect 52 0 0 0;
+#X connect 52 0 53 0;
+#X connect 57 0 58 0;
+#X connect 58 1 59 0;
+#X connect 58 1 0 0;
+#X connect 61 0 0 0;
+#X connect 70 0 18 0;
+#X connect 71 0 70 0;
+#X connect 72 0 18 0;
+#X connect 73 0 72 0;
+#X connect 75 0 0 0;
+#X connect 76 0 45 0;
+#X connect 76 1 67 0;
+#X connect 76 2 68 0;
+#X connect 76 3 46 0;
+#X connect 76 4 47 0;
+#X connect 76 5 48 0;
+#X connect 76 6 62 0;
+#X connect 76 7 63 0;
+#X connect 76 8 50 0;
+#X connect 76 9 77 0;
+#X connect 76 10 49 0;
diff --git a/comport/comport.c b/comport/comport.c
index 0aabdf9..c5fa729 100644
--- a/comport/comport.c
+++ b/comport/comport.c
@@ -1415,6 +1415,14 @@ static void comport_output_xonxoff(t_comport *x)
     comport_output_status(x, gensym("xonxoff"), x->xonxoff);
 }
 
+static void comport_output_open_status(t_comport *x)
+{
+    if(x->comhandle == INVALID_HANDLE_VALUE)
+		comport_output_status(x, gensym("open"), 0);
+	else
+		comport_output_status(x, gensym("open"), 1);
+}
+
 static void comport_devices(t_comport *x)
 {
 	comport_output_print(x);
@@ -1422,6 +1430,7 @@ static void comport_devices(t_comport *x)
 
 static void comport_info(t_comport *x)
 {
+	comport_output_open_status(x);
     comport_output_port_status(x);
     comport_output_baud_rate(x);
     comport_output_dsr_status(x);