OpenSolaris Launch

1 files changed, 70 insertions, 0 deletions

diff --git a/usr/src/lib/efcode/fcode_test/test.fth b/usr/src/lib/efcode/fcode_test/test.fth
new file mode 100644
index 0000000000..86e27b33f7
--- /dev/null
+++ b/usr/src/lib/efcode/fcode_test/test.fth
@@ -0,0 +1,70 @@
+\ #ident	"%Z%%M%	%I%	%E% SMI"
+\ Copyright 2005 Sun Microsystems, Inc.  All rights reserved.
+\ Use is subject to license terms.
+\
+\ CDDL HEADER START
+\
+\ The contents of this file are subject to the terms of the
+\ Common Development and Distribution License, Version 1.0 only
+\ (the "License").  You may not use this file except in compliance
+\ with the License.
+\
+\ You can obtain a copy of the license at usr/src/OPENSOLARIS.LICENSE
+\ or http://www.opensolaris.org/os/licensing.
+\ See the License for the specific language governing permissions
+\ and limitations under the License.
+\
+\ When distributing Covered Code, include this CDDL HEADER in each
+\ file and include the License file at usr/src/OPENSOLARIS.LICENSE.
+\ If applicable, add the following below this CDDL HEADER, with the
+\ fields enclosed by brackets "[]" replaced with your own identifying
+\ information: Portions Copyright [yyyy] [name of copyright owner]
+\
+\ CDDL HEADER END
+\
+
+fcode-version1
+
+alias headerless headers
+
+ fload calling.fth
+ noop
+ : .noop  noop noop  ;
+
+ : .failed	." failed!"  ;
+
+ : .passed	." OK"  ;
+
+ fload iftest.fth
+
+ : .chkstk  depth if ." Stack Changed: " .s cr then ;
+
+ .chkstk
+ fload arithmetic.fth
+ .chkstk
+ fload stack.fth
+ .chkstk
+ fload create.fth
+ .chkstk
+ fload bytemanipulate.fth
+ .chkstk
+ fload loop.fth
+ .chkstk
+ fload storage.fth
+ .chkstk
+ fload access.fth
+ .chkstk
+ fload case.fth
+ .chkstk
+ fload catch.fth
+ .chkstk
+ fload parse.fth
+ .chkstk
+ fload find.fth
+ .chkstk
+ fload misc.fth
+ .chkstk
+ cr ." End of Tests" cr
+
+end0
+