update from MirBSD CVS: adds Python, Perl
authormirabilos <t.glaser@tarent.de>
Wed, 3 Oct 2018 18:41:46 +0000 (20:41 +0200)
committermirabilos <mirabilos@evolvis.org>
Wed, 3 Oct 2018 18:41:46 +0000 (20:41 +0200)
unfortunately, throws SyntaxError on first ` in py3k

other/getshver

index 3451a99..f964fac 100644 (file)
@@ -1,6 +1,6 @@
-# $MirOS: contrib/code/Snippets/getshver,v 1.18 2016/04/14 11:55:42 tg Exp $
+# $MirOS: contrib/code/Snippets/getshver,v 1.20 2018/06/29 01:01:27 tg Exp $
 #-
-# Copyright (c) 2009, 2010, 2011, 2012, 2013, 2014, 2016
+# Copyright (c) 2009, 2010, 2011, 2012, 2013, 2014, 2016, 2018
 #      mirabilos <m@mirbsd.org>
 #
 # Provided that these terms and disclaimer and all copyright notices
@@ -22,6 +22,9 @@
 # http://www.in-ulm.de/~mascheck/various/whatshell/whatshell.sh.html
 
 # escape this from tclsh \
+`""""true; echo true` unless q\ 1 # escape from Python, Perl
+
+# escape this from tclsh \
 set x = 1
 # escape this from tclsh \
 test 1 = "$x" && goto CSH
@@ -239,3 +242,14 @@ else
        echo csh
 endif
 exit 0
+
+# back to Perl
+\ 1 eq '';
+print "perl $] on $^O\n";
+exit 0;
+__END__
+
+# back to Python
+"""`
+import sys
+print("Python " + sys.version)