Repatch (from linux) of OSX IRAF

1 files changed, 36 insertions, 0 deletions

diff --git a/sys/osb/xor.x b/sys/osb/xor.x
new file mode 100644
index 00000000..3ba0dd85
--- /dev/null
+++ b/sys/osb/xor.x
@@ -0,0 +1,36 @@
+# Copyright(c) 1986 Association of Universities for Research in Astronomy Inc.
+
+# XORI -- Boolean exclusive or of two integer operands.
+
+int procedure xori (a, b)
+
+int	a, b
+int	not(), and(), or()
+
+begin
+	return (or (and(a,not(b)), and(not(a),b)))
+end
+
+
+# XORS -- Boolean exclusive or of two short integer operands.
+
+short procedure xors (a, b)
+
+short	a, b
+short	nots(), ands(), ors()
+
+begin
+	return (ors (ands(a,nots(b)), ands(nots(a),b)))
+end
+
+
+# XORL -- Boolean exclusive or of two long integer operands.
+
+long procedure xorl (a, b)
+
+long	a, b
+long	notl(), andl(), orl()
+
+begin
+	return (orl (andl(a,notl(b)), andl(notl(a),b)))
+end