The unified diff between revisions [afdbb938..] and [8482057d..] is displayed below. It can also be downloaded as a raw diff.

This diff has been restricted to the following files: 'src/lsi/makeabi'

#
# old_revision [afdbb9388305ae66464ad4acb0437922656e3059]
# new_revision [8482057dd1a991674bb30b63b9397a3c5d069df9]
#
# add_file "src/lsi/makeabi"
#  content [af04da9852be189b121ae5a7e48a4664afc10c7d]
# 
#   set "src/lsi/makeabi"
#  attr "mtn:execute"
# value "true"
#
============================================================
--- /dev/null	
+++ src/lsi/makeabi	af04da9852be189b121ae5a7e48a4664afc10c7d
@@ -0,0 +1,79 @@
+#!/bin/sh
+
+INFILE=$1
+
+if [ "X${INFILE}" = "X" ]
+then
+	echo "Usage: $0 abispec"
+	exit 1
+fi
+
+if [ ! -f "${INFILE}" ]
+then
+	echo "$0: ${INFILE}: not found"
+	exit 1
+fi
+
+ABI=abi.c
+HEADER=abi.lh
+
+
+# This is pretty evil. We use sed to produce shell commands which set
+# variables which contain 8-character chunks of the sha1 hash.
+# eval takes care of defining them in the current shell, rather than in
+# a subshell.
+for VER in `sha1 -n ${INFILE} | sed 's/\(........\)\(........\)\(........\)\(........\)\(........\).*$/ABIVER1=\1 ABIVER2=\2 ABIVER3=\3 ABIVER4=\4 ABIVER5=\5/'`
+do
+	eval ${VER}
+done
+
+
+FNCOUNT=0
+
+do_function()
+{
+	echo "	vm_intfn_${ARG1}," >>${ABI}
+	echo "fndefint ${ARG1} ${FNCOUNT};" >>${HEADER}
+	FNCOUNT=$((${FNCOUNT}+1))
+}
+
+cat <<EOF >${ABI}
+/* abi.c */
+/* autogenerated - do not edit */
+
+#include "abi.h"
+
+const long vm_abiversion1 = 0x${ABIVER1};
+const long vm_abiversion2 = 0x${ABIVER2};
+const long vm_abiversion3 = 0x${ABIVER3};
+const long vm_abiversion4 = 0x${ABIVER4};
+const long vm_abiversion5 = 0x${ABIVER5};
+
+vm_intfn vm_intfn_table[] = {
+EOF
+
+cat <<EOF >${HEADER}
+/* abi.lh */
+/* autogenerated - do not edit */
+
+constant __abiversion1 0x${ABIVER1};
+constant __abiversion2 0x${ABIVER2};
+constant __abiversion3 0x${ABIVER3};
+constant __abiversion4 0x${ABIVER4};
+constant __abiversion5 0x${ABIVER5};
+
+EOF
+
+while read TYPE ARG1 ARG2
+do
+	case "$TYPE" in
+		function) do_function
+			;;
+	esac
+done <${INFILE}
+
+cat <<EOF >>${ABI}
+};
+
+const int vm_intfn_size = sizeof(vm_intfn_table) / sizeof(vm_intfn);
+EOF