From 62b694c0abcb47d7f13c6e8299a793ccde3e84cf Mon Sep 17 00:00:00 2001 From: Marina Latini Date: Wed, 31 Oct 2018 02:52:07 +0100 Subject: [PATCH 1/2] hello_world in tcl --- HelloWorld/hello_world.tcl | 7 +++++++ 1 file changed, 7 insertions(+) create mode 100755 HelloWorld/hello_world.tcl diff --git a/HelloWorld/hello_world.tcl b/HelloWorld/hello_world.tcl new file mode 100755 index 00000000..288aee9f --- /dev/null +++ b/HelloWorld/hello_world.tcl @@ -0,0 +1,7 @@ +#!/usr/bin/tclsh + +puts -nonewline "Enter your name: " +flush stdout +set name [gets stdin] + +puts "Hello $name!" From cabaaf7e882b54e66173400941d44aa639f2645d Mon Sep 17 00:00:00 2001 From: Marina Latini Date: Wed, 31 Oct 2018 02:55:38 +0100 Subject: [PATCH 2/2] added author --- HelloWorld/hello_world.tcl | 2 ++ 1 file changed, 2 insertions(+) diff --git a/HelloWorld/hello_world.tcl b/HelloWorld/hello_world.tcl index 288aee9f..b6f302ab 100755 --- a/HelloWorld/hello_world.tcl +++ b/HelloWorld/hello_world.tcl @@ -1,5 +1,7 @@ #!/usr/bin/tclsh +#By Marina Latini https://github.com/deneb-alpha + puts -nonewline "Enter your name: " flush stdout set name [gets stdin]