Initial commit

QUIK/lua/QuikSharp.lua

@@ -0,0 +1,140 @@
+--~ Copyright (c) 2014-2020 QUIKSharp Authors https://github.com/finsight/QUIKSharp/blob/master/AUTHORS.md. All rights reserved.
+--~ Licensed under the Apache License, Version 2.0. See LICENSE.txt in the project root for license information.
+
+-- is running from Quik
+function is_quik()
+    if getScriptPath then return true else return false end
+end
+
+quikVersion = nil
+
+script_path = "."
+
+if is_quik() then
+    script_path = getScriptPath()
+    
+	quikVersion = getInfoParam("VERSION")
+
+	if quikVersion ~= nil then
+		local t={}
+		for str in string.gmatch(quikVersion, "([^%.]+)") do
+			table.insert(t, str)
+        end
+		quikVersion = tonumber(t[1]) * 100 + tonumber(t[2])
+	end
+
+	if quikVersion == nil then
+		message("QUIK# cannot detect QUIK version", 3)
+		return
+	else
+		libPath = "\\clibs"
+	end
+    
+    -- MD dynamic, requires MSVCRT
+    -- MT static, MSVCRT is linked statically with luasocket
+    -- package.cpath contains info.exe working directory, which has MSVCRT, so MT should not be needed in theory, 
+    -- but in one issue someone said it doesn't work on machines that do not have Visual Studio. 
+    local linkage = "MD"
+    
+	if quikVersion >= 805 then
+        libPath = libPath .. "64\\53_"..linkage.."\\"
+	elseif quikVersion >= 800 then
+        libPath = libPath .. "64\\5.1_"..linkage.."\\"
+	else
+		libPath = "\\clibs\\5.1_"..linkage.."\\"
+	end
+end
+package.path = package.path .. ";" .. script_path .. "\\?.lua;" .. script_path .. "\\?.luac"..";"..".\\?.lua;"..".\\?.luac"
+package.cpath = package.cpath .. ";" .. script_path .. libPath .. '?.dll'..";".. '.' .. libPath .. '?.dll'
+
+local util = require("qsutils")
+local qf = require("qsfunctions")
+require("qscallbacks")
+
+log("Detected Quik version: ".. quikVersion .." and using cpath: "..package.cpath  , 0)
+
+local is_started = true
+
+-- we need two ports since callbacks and responses conflict and write to the same socket at the same time
+-- I do not know how to make locking in Lua, it is just simpler to have two independent connections
+-- To connect to a remote terminal - replace '127.0.0.1' with the terminal ip-address
+-- All this values could be replaced with values from config.json
+local response_host = '127.0.0.1'
+local response_port = 34130
+local callback_host = '127.0.0.1'
+local callback_port = response_port + 1
+
+function do_main()
+    log("Entered main function", 0)
+    while is_started do
+        -- if not connected, connect
+        util.connect(response_host, response_port, callback_host, callback_port)
+        -- when connected, process queue
+        -- receive message,
+        local requestMsg = receiveRequest()
+        if requestMsg then
+            -- if ok, process message
+            -- dispatch_and_process never throws, it returns lua errors wrapped as a message
+            local responseMsg, err = qf.dispatch_and_process(requestMsg)
+            if responseMsg then
+                -- send message
+                local res = sendResponse(responseMsg)
+            else
+                log("Could not dispatch and process request: " .. err, 3)
+            end
+        else
+            delay(1)
+        end
+    end
+end
+
+function main()
+    setup("QuikSharp")
+    run()
+end
+
+--- catch errors
+function run()
+    local status, err = pcall(do_main)
+    if status then
+        log("finished")
+    else
+        log(err, 3)
+    end
+end
+
+function setup(script_name)
+    if not script_name then
+        log("File name of this script is unknown. Please, set it explicity instead of scriptFilename() call inside your custom file", 3)
+        return false
+    end
+
+    local list = paramsFromConfig(script_name)
+    if list then
+        response_host = list[1]
+        response_port = list[2]
+        callback_host = list[3]
+        callback_port = list[4]
+        printRunningMessage(script_name)
+    elseif script_name == "QuikSharp" then
+        -- use default values for this file in case no custom config found for it
+        printRunningMessage(script_name)
+    else -- do nothing when config is not found
+        log("File config.json is not found or contains no entries for this script name: " .. script_name, 3)
+        return false
+    end
+
+    return true
+end
+
+function printRunningMessage(script_name)
+    log("Running from ".. script_name .. ", params: response " .. response_host .. ":" .. response_port ..", callback ".. " ".. callback_host ..":".. callback_port)
+end
+
+if not is_quik() then
+    log("Hello, QUIK#! Running outside Quik.")
+    setup("QuikSharp")
+    do_main()
+    logfile:close()
+end
+