From 39f0ac3d9554bea4ce048b485bf3675ebae022e3 Mon Sep 17 00:00:00 2001
From: Pragmatic Software <pragma78@gmail.com>
Date: Mon, 27 May 2019 19:40:50 -0700
Subject: [PATCH] compiler_vm: add tcl language

---
 modules/compiler_vm/languages/tcl.pm | 28 ++++++++++++++++++++++++++++
 1 file changed, 28 insertions(+)
 create mode 100755 modules/compiler_vm/languages/tcl.pm

diff --git a/modules/compiler_vm/languages/tcl.pm b/modules/compiler_vm/languages/tcl.pm
new file mode 100755
index 00000000..f3a219e8
--- /dev/null
+++ b/modules/compiler_vm/languages/tcl.pm
@@ -0,0 +1,28 @@
+#!/usr/bin/env perl
+
+use warnings;
+use strict;
+
+package tcl; 
+use parent '_default';
+
+sub initialize {
+  my ($self, %conf) = @_;
+
+  $self->{sourcefile}      = 'prog.tcl';
+  $self->{execfile}        = 'prog.tcl';
+  $self->{default_options} = '';
+  $self->{cmdline}         = 'tclsh $options $sourcefile';
+
+  if (length $self->{arguments}) {
+    $self->{cmdline} .= " $self->{arguments}";
+  }
+
+  $self->{cmdline_opening_comment} = "set CMDLINE {\n";
+  $self->{cmdline_closing_comment} = "}\n";
+
+  $self->{output_opening_comment} = "set OUTPUT {\n";
+  $self->{output_closing_comment} = "}\n";
+}
+
+1;