add pascal stub

1 files changed, 40 insertions, 0 deletions

diff --git a/xmake/languages/pascal/check_main.lua b/xmake/languages/pascal/check_main.lua
new file mode 100644
index 000000000..a66f70427
--- /dev/null
+++ b/xmake/languages/pascal/check_main.lua
@@ -0,0 +1,40 @@
+--!A cross-platform build utility based on Lua
+--
+-- Licensed under the Apache License, Version 2.0 (the "License");
+-- you may not use this file except in compliance with the License.
+-- You may obtain a copy of the License at
+--
+--     http://www.apache.org/licenses/LICENSE-2.0
+--
+-- Unless required by applicable law or agreed to in writing, software
+-- distributed under the License is distributed on an "AS IS" BASIS,
+-- WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
+-- See the License for the specific language governing permissions and
+-- limitations under the License.
+--
+-- Copyright (C) 2015-present, TBOOX Open Source Group.
+--
+-- @author      ruki
+-- @file        check_main.lua
+--
+
+-- check it
+function main(sourcefile)
+
+    -- load source code
+    local sourcecode = io.readfile(sourcefile)
+
+    -- remove comment first
+    sourcecode = sourcecode:gsub("{%*.-%*}", "")
+    sourcecode = sourcecode:gsub("//.-\n", "\n")
+
+    -- find 'program xxx'
+    if sourcecode:find("program%s*%(.-%)") then
+        return true
+    end
+
+    -- no main function
+    return false
+end
+
+