tcl support

v8oss · v8oss · commit db62da374459 · 2016-01-31T18:01:30.000-05:00
diff --git a/src/targets/index.js b/src/targets/index.js
@@ -14,5 +14,6 @@ module.exports = {
   python: require('./python'),
   ruby: require('./ruby'),
   shell: require('./shell'),
-  swift: require('./swift')
+  swift: require('./swift'),
+  tcl: require('./tcl')
 }
diff --git a/src/targets/tcl/index.js b/src/targets/tcl/index.js
@@ -0,0 +1,12 @@
+'use strict'
+
+module.exports = {
+  info: {
+    key: 'tcl',
+    title: 'tcl',
+    extname: '.tcl',
+    default: 'native'
+  },
+
+  native: require('./native')
+}
diff --git a/src/targets/tcl/native.js b/src/targets/tcl/native.js
@@ -0,0 +1,46 @@
+/**
+ * @description
+ * HTTP code snippet generator for TCL
+ *
+ * @author
+ * @lttlrck
+ *
+ */
+
+'use strict'
+
+var util = require('util')
+var CodeBuilder = require('../../helpers/code-builder')
+
+module.exports = function (source, options) {
+  var opts = util._extend({
+    indent: '  '
+  }, options)
+
+  var code = new CodeBuilder(opts.indent)
+
+  var settings = {
+    async: true,
+    crossDomain: true,
+    url: source.fullUrl,
+    method: source.method,
+    headers: source.allHeaders
+  }
+
+  code.push("package require http");
+  code.push("set url "+source.fullUrl);
+  code.push("set content "+source.postData.text);
+  code.push("set method "+source.method.toUpperCase());
+
+  code.push("set http [::http::geturl $url -method $method -type application/json -query $content]");
+  code.push("set html [::http::data $http]");
+
+  return code.join("\n");
+}
+
+module.exports.info = {
+  key: 'tcl',
+  title: 'tcl',
+  link: 'http://www.tcl.tk/',
+  description: 'Perform a TCL HTTP request'
+}

Original file line number	Diff line number	Diff line change
`@@ -14,5 +14,6 @@ module.exports = {`
`14`	`14`	`python: require('./python'),`
`15`	`15`	`ruby: require('./ruby'),`
`16`	`16`	`shell: require('./shell'),`
`17`		`- swift: require('./swift')`
	`17`	`+ swift: require('./swift'),`
	`18`	`+ tcl: require('./tcl')`
`18`	`19`	`}`