1 files changed, 25 insertions, 0 deletions
diff --git a/mnv/ci/if_ver-1.mnv b/mnv/ci/if_ver-1.mnv
new file mode 100644
index 0000000000..eb5cbc6cae
--- /dev/null
+++ b/mnv/ci/if_ver-1.mnv
@@ -0,0 +1,25 @@
+" Print all interface versions. Part 1.
+
+if 1 " This prevents it from being run in tiny versions
+  execute 'source' expand('<sfile>:h') .. '/if_ver-cmd.mnv'
+
+  echo "*** Interface versions ***\n"
+
+  echo 'Lua:'
+  PrintVer lua print(mnv.lua_version, jit and "(LuaJIT)" or "")
+
+  echo 'MzScheme:'
+  PrintVer mzscheme (display (version))
+
+  echo 'Perl:'
+  PrintVer perl print $^V
+
+  echo 'Ruby:'
+  PrintVer ruby print RUBY_VERSION
+
+  echo 'Tcl:'
+  PrintVer tcl puts [info patchlevel]
+
+  echo 'Python 2:'
+  PrintVer python print sys.version
+endif