#!/usr/bin/env bash

# @(#) s1	Demonstrate tcl script calling c++ executable.

# Utility functions: print-as-echo, print-line-with-visual-space, debug.
# export PATH="/usr/local/bin:/usr/bin:/bin"
pe() { for _i;do printf "%s" "$_i";done; printf "\n"; }
pl() { pe;pe "-----" ;pe "$*"; }
db() { ( printf " db, ";for _i;do printf "%s" "$_i";done;printf "\n" ) >&2 ; }
db() { : ; }
C=$HOME/bin/context && [ -f $C ] && $C tclsh g++

pl " Input cpp source:"
cat one.cpp
g++ one.cpp

pl " Input tcl script:"
cat tcl1

pl " Results, tcl script runs cpp executable, saves result:"
./tcl1

rm -f a.out
exit 0

% ./s1

Environment: LC_ALL = C, LANG = C
(Versions displayed with local utility "version")
OS, ker|rel, machine: Linux, 2.6.26-2-amd64, x86_64
Distribution        : Debian GNU/Linux 5.0.8 (lenny) 
GNU bash 3.2.39
tclsh 8.4
g++ (Debian 4.3.2-1.1) 4.3.2

-----
 Input cpp source:
#include <iostream>

using namespace std;

int main()
{
  cout << " Hello, world from c++" << endl;
  return ( 0 );
}

-----
 Input tcl script:
#!/usr/bin/env tclsh

# @(#) tcl1     Demonstrate tcl return output from system executable.

puts stdout ""
set message [ exec ./a.out ]
puts stdout $message

exit 0


-----
 Results, tcl script runs cpp executable, saves result:

 Hello, world from c++