initial commit, resurrect one of my realy old projects

1 files changed, 147 insertions, 0 deletions

diff --git a/find-systype.sh b/find-systype.sh
new file mode 100644
index 0000000..2c5b3a3
--- /dev/null
+++ b/find-systype.sh
@@ -0,0 +1,147 @@
+# oper-:arch-:syst-:chip-:kern-
+# oper = operating system type; e.g., sunos-4.1.4
+# arch = machine language; e.g., sparc
+# syst = which binaries can run; e.g., sun4
+# chip = chip model; e.g., micro-2-80
+# kern = kernel version; e.g., sun4m
+# dependence: arch --- chip
+#                 \        \
+#          oper --- syst --- kern
+# so, for example, syst is interpreted in light of oper, but chip is not.
+# anyway, no slashes, no extra colons, no uppercase letters.
+# the point of the extra -'s is to ease parsing: can add hierarchies later.
+# e.g., *:i386-*:*:pentium-*:* would handle pentium-100 as well as pentium,
+# and i386-486 (486s do have more instructions, you know) as well as i386.
+# the idea here is to include ALL useful available information.
+
+exec 2>/dev/null
+
+sys="`uname -s | tr '/:[A-Z]' '..[a-z]'`"
+if [ x"$sys" != x ]; then
+	unamer="`uname -r | tr /: ..`"
+	unamem="`uname -m | tr /: ..`"
+	unamev="`uname -v | tr /: ..`"
+	
+	case "$sys" in
+		bsd.os|freebsd|netbsd|openbsd)
+		# in bsd 4.4, uname -v does not have useful info.
+		# in bsd 4.4, uname -m is arch, not chip.
+		oper="$sys-$unamer"
+		arch="$unamem"
+		syst=""
+		chip="`sysctl -n hw.model`" # hopefully
+		kern=""
+		;;
+		
+		linux)
+		# as in bsd 4.4, uname -v does not have useful info.
+		oper="$sys-$unamer"
+		syst=""
+		chip="$unamem"
+		kern=""
+		case "$chip" in
+			i386|i486|i586|i686)
+			arch="i386"
+			;;
+			alpha)
+			arch="alpha"
+			;;
+		esac
+		;;
+		
+		aix)
+		# naturally IBM has to get uname -r and uname -v backwards. dorks.
+		oper="$sys-$unamev-$unamer"
+		arch="`arch | tr /: ..`"
+		syst=""
+		chip="$unamem"
+		kern=""
+		;;
+		
+		sunos)
+		oper="$sys-$unamer-$unamev"
+		arch="`(uname -p || mach) | tr /: ..`"
+		syst="`arch | tr /: ..`"
+		chip="$unamem" # this is wrong; is there any way to get the real info?
+		kern="`arch -k | tr /: ..`"
+		;;
+		unix_sv)
+		oper="$sys-$unamer-$unamev"
+		arch="`uname -m`"
+		syst=""
+		chip="$unamem"
+		kern=""
+		;;
+		
+		*)
+		oper="$sys-$unamer-$unamev"
+		arch="`arch | tr /: ..`"
+		syst=""
+		chip="$unamem"
+		kern=""
+		;;
+	esac
+else
+	gcc -c trycpp.c
+	gcc -o trycpp trycpp.o
+	case `./trycpp` in
+		nextstep)
+		oper="nextstep-`hostinfo | sed -n 's/^[ 	]*NeXT Mach \([^:]*\):.*$/\1/p'`"
+		arch="`hostinfo | sed -n 's/^Processor type: \(.*\) (.*)$/\1/p' | tr /: ..`"
+		syst=""
+		chip="`hostinfo | sed -n 's/^Processor type: .* (\(.*\))$/\1/p' | tr ' /:' '...'`"
+		kern=""
+		;;
+		
+		*)
+		oper="unknown"
+		arch=""
+		syst=""
+		chip=""
+		kern=""
+		;;
+	esac
+	rm -f trycpp.o trycpp
+fi
+
+case "$chip" in
+	80486)
+	# let's try to be consistent here. (BSD/OS)
+	chip=i486
+	;;
+	i486DX)
+	# respect the hyphen hierarchy. (FreeBSD)
+	chip=i486-dx
+	;;
+	i486.DX2)
+	# respect the hyphen hierarchy. (FreeBSD)
+	chip=i486-dx2
+	;;
+	Intel.586)
+	# no, you nitwits, there is no such chip. (NeXTStep)
+	chip=pentium
+	;;
+	i586)
+	# no, you nitwits, there is no such chip. (Linux)
+	chip=pentium
+	;;
+	i686)
+	# STOP SAYING THAT! (Linux)
+	chip=ppro
+esac
+
+if gcc -c x86cpuid.c
+then
+	if gcc -o x86cpuid x86cpuid.o
+	then
+		x86cpuid="`./x86cpuid | tr /: ..`"
+		case "$x86cpuid" in
+			?*)
+			chip="$x86cpuid"
+			;;
+		esac
+	fi
+fi
+rm -f x86cpuid x86cpuid.o
+
+echo "$oper-:$arch-:$syst-:$chip-:$kern-" | tr ' [A-Z]' '.[a-z]'