Recent content by ExpectTheUnexpected

// Base class declaration class CEmployee { public: CEmployee(char* f, char* l, int salary); CEmployee(int s); ~CEmployee(void); int getSalary(); int age; protected: char* fname; char* lname; int salary; }; // Derived...

If you are using Expect, you can try send_user command.

Shot in the dark, but have you tried: puts -nonewline "$channel ATMY\x0d" and maybe: flush $channel

I am not familiar with Ubuntu & source code installations. If you just care to install tcl/tk, other forums seem to suggest this: sudo apt-get tcl tk Other option is downloading binaries from: www.ActiveState.com/activetcl/downloads Unzip the tar. Run install.sh from the directory where you...

Primilinary search indicates to me that TCL maynot be sufficient to open usb port. You may have to look into writing C/C++ code to accmplish that. For Unix, you have to use open, read, close etc. file functions to read usb port. For example, under Unix you can run command "man 2 read" to...

In Linux, everything is a file. The /dev directory is part of Linux OS architecture containing special device files that allow for user applications to interface with hardware. This mechanism of communicating with devices does not exist on MS Windows which you are trying to do. I have used...

No problems here running above script in bash shell w/ and w/o "package require Expect".

You can sort the list with or without hex elements (0x30A) as shown in the response code sample above. what happen if my list is i get from a database which i set it to foreach part $partno{ set count "" set count [<command> $partno] } It is hard to infer what you are trying to do from your...

Do you have TCL installed? You can set the PATH in Windows to point to TCL intrepreter or explicitly type the path when running scripts, i.e, \path\to\tclsh.exe \script\lives\here\tcl_script.tcl You can also set file association in Windows so when a script name is entered Windows know to call...

Glad to hear it is working for you. You are welcome.

Hmm. I think I understand your concern. Change the code as follows: set a1 "Hello" set a2 "there" set a3 "UchihaItachi!!!" set status [catch {exec /path/to/exe/cpp_app.exe "\$a1" $a1 "\$a2" $a2 "\$a3" $a3} result] puts "$result" if {$status} { puts "cpp_app error: $status} Notice now...

You have to compile C/C++ code. You have to include iostream header. I had to install C++ compiler using yum. I ran above script code with TCL interpreter with no problems. Good luck

It looks like you have incorrect syntax. Your code is wrong! if ([catch (exec / path / to / exe / cpp_app.exe $ a1 $ a2 $ a3)]) ( if ([lIndex $:: errorCode 2] eq "1") ( puts "cpp_app.exe error: [lIndex $:: errorCode 2] Else () # Something else went wrong ) ) What language...

You can check how procedure p1 modified flag in file1. Updated file2.tcl: # calls ONLY procedure p1 w/ 2 arguments in file1! set flag [p1 10 20] puts "flag in file2: $flag"

What in the world are you trying to do? If variable flag is constant then why not set it in file2? If flag is being manipulated and modified then file1 must execute!!! It seems you may need to modularize file1. By that I mean, you need to create procedures that do very specific tasks in...