From 8d79000cf86ba0e8537ceea569dcee15fb6c823f Mon Sep 17 00:00:00 2001
From: Thomas Conway <conway@cs.mu.oz.au>
Date: Thu, 11 Sep 1997 22:08:56 +0000
Subject: [PATCH] Place various bits of sample code in the public domain.

Estimated hours taken: 0.1

Place various bits of sample code in the public domain.

extras/complex_numbers/samples/fft.m:
extras/graphics/samples/calc/calc.m:
extras/graphics/samples/maze/maze.m:
samples/ultra_sub.m:
	place the source in the public domain.
---
 extras/complex_numbers/samples/fft.m | 2 ++
 extras/graphics/samples/calc/calc.m  | 7 ++-----
 extras/graphics/samples/maze/maze.m  | 2 ++
 samples/ultra_sub.m                  | 2 ++
 4 files changed, 8 insertions(+), 5 deletions(-)

diff --git a/extras/complex_numbers/samples/fft.m b/extras/complex_numbers/samples/fft.m
index 15a3cb9e2..0a4191ba4 100644
--- a/extras/complex_numbers/samples/fft.m
+++ b/extras/complex_numbers/samples/fft.m
@@ -4,6 +4,8 @@
 % main author: conway.
 % data: August 1996
 %
+% This source file is hereby placed in the public domain. -conway (the author).
+%
 % This module provides a predicate for performing the Fast Fourier Transfrom
 % (fft) on a list of complex numbers. The list must be a power of 2 in length
 % (ie 4, 8, 16, ... elements).
diff --git a/extras/graphics/samples/calc/calc.m b/extras/graphics/samples/calc/calc.m
index 04293a1de..3cc0077a1 100644
--- a/extras/graphics/samples/calc/calc.m
+++ b/extras/graphics/samples/calc/calc.m
@@ -1,13 +1,10 @@
 %-----------------------------------------------------------------------------%
-% Copyright (C) 1997 The University of Melbourne.
-% This file may only be copied under the terms of the GNU Library General
-% Public License - see the file COPYING.LIB in the Mercury distribution.
-%-----------------------------------------------------------------------------%
-%-----------------------------------------------------------------------------%
 %
 % file: calc.m
 % main author: conway.
 %
+% This source file is hereby placed in the public domain. -conway (the author).
+%
 % A simple Tcl/Tk based calculator.
 %
 %-----------------------------------------------------------------------------%
diff --git a/extras/graphics/samples/maze/maze.m b/extras/graphics/samples/maze/maze.m
index 5c5f234ea..049d70450 100644
--- a/extras/graphics/samples/maze/maze.m
+++ b/extras/graphics/samples/maze/maze.m
@@ -2,6 +2,8 @@
 % file: maze.m
 % author: conway, June 1997
 %
+% This source file is hereby placed in the public domain. -conway (the author).
+%
 % maze is a 2D maze generator. It uses a 'perfect' algorithm that was posted
 % to rec.games.programmer by Kent Quirk. The algorithm is 'perfect' in the
 % sense that there is a single path between any two cells in the maze; every
diff --git a/samples/ultra_sub.m b/samples/ultra_sub.m
index af027c003..3fffb4634 100644
--- a/samples/ultra_sub.m
+++ b/samples/ultra_sub.m
@@ -3,6 +3,8 @@
 % file: ultra_sub.m
 % author: conway.
 %
+% This source file is hereby placed in the public domain. -conway (the author).
+%
 % 'ultra_sub' is an extended version of zs' 'sub' command. The idea is that
 % it takes a pattern, a template and some strings, and matches the strings
 % against the patter, binding some variables in the process. Then it