[Anton Kovalenko]: GSM library for tcl ---- A library [http://45.free.net/~akovalenko/gsm-1.1.tar.gz] to communicate with GSM mobile phone and to send/receive SMS. Usage samples: set phone [open COM1 r+] foreach {manuf model revision} [gsm::phone::acquire $phone] {break} puts "Phone model: $manuf $model ($revision)" gsm::io::atcmd $phone Z # set default timeout gsm::io::timeout $phone 4000 set gdconts [gsm::io::atcmd $phone +CGDCONT] ... gsm::phone::sendsms $phone +79163453402 \ "Hello Anton, I'm testing your library" gsm::phone::sendsms $phone +79163453402 "Unicode test: \u0412 " foreach sm [gsm::pdu::assemble [gsm::phone::readsms $tty ME 4]] { array set sm1 $sm puts "Storage id $sm1(id), assembled from $sm1(parts)" puts "From/to $sm1(peer): $sm1(text)" } It is possible to use it with my [infrared] mini-extension. Just pass to gsm::phone::acquire a socket connected to IrDA:IrCOMM service. ---- This library is used in SMS Reception Center [http://sw4me.com] ---- As an alternative to the character conversion implemented in the gsm library, the [encoding] command can be extended with a gsm0338 encoding: [GSM 03.38 encoding]