From adbcd7318331f8c2d4bff87ebb0594586c35f55d Mon Sep 17 00:00:00 2001
From: tv <tv@nomic.retiolum>
Date: Sun, 29 Dec 2013 21:09:04 +0100
Subject: ship build: add #@mainifyme [NAME] directive

If NAME is not provided, then "main" will be used.
---
 ship/build | 12 ++++++++++++
 1 file changed, 12 insertions(+)

(limited to 'ship/build')

diff --git a/ship/build b/ship/build
index f7dcf3c2..3f96cfe1 100755
--- a/ship/build
+++ b/ship/build
@@ -59,6 +59,18 @@ $1a\\
 EOF
 }
 
+## usage: #@mainifyme\( \([A-Za-z_][A-Za-z0-9_]*\)\)\? -> build_mainifyme \1 \3
+build_mainifyme() {
+  mainifyme_name="${2:-main}"
+  cat<<EOF
+  $1a\\
+$mainifyme_name(){
+  \$a\\
+}\\
+$mainifyme_name "\$@"
+EOF
+}
+
 ###
 ### main subroutines
 ###
-- 
cgit v1.2.3