1\ #ident "%Z%%M% %I% %E% SMI" 2\ Copyright 2005 Sun Microsystems, Inc. All rights reserved. 3\ Use is subject to license terms. 4\ 5\ CDDL HEADER START 6\ 7\ The contents of this file are subject to the terms of the 8\ Common Development and Distribution License, Version 1.0 only 9\ (the "License"). You may not use this file except in compliance 10\ with the License. 11\ 12\ You can obtain a copy of the license at usr/src/OPENSOLARIS.LICENSE 13\ or http://www.opensolaris.org/os/licensing. 14\ See the License for the specific language governing permissions 15\ and limitations under the License. 16\ 17\ When distributing Covered Code, include this CDDL HEADER in each 18\ file and include the License file at usr/src/OPENSOLARIS.LICENSE. 19\ If applicable, add the following below this CDDL HEADER, with the 20\ fields enclosed by brackets "[]" replaced with your own identifying 21\ information: Portions Copyright [yyyy] [name of copyright owner] 22\ 23\ CDDL HEADER END 24\ 25 26fcode-version1 27 28alias headerless headers 29 30 fload calling.fth 31 noop 32 : .noop noop noop ; 33 34 : .failed ." failed!" ; 35 36 : .passed ." OK" ; 37 38 fload iftest.fth 39 40 : .chkstk depth if ." Stack Changed: " .s cr then ; 41 42 .chkstk 43 fload arithmetic.fth 44 .chkstk 45 fload stack.fth 46 .chkstk 47 fload create.fth 48 .chkstk 49 fload bytemanipulate.fth 50 .chkstk 51 fload loop.fth 52 .chkstk 53 fload storage.fth 54 .chkstk 55 fload access.fth 56 .chkstk 57 fload case.fth 58 .chkstk 59 fload catch.fth 60 .chkstk 61 fload parse.fth 62 .chkstk 63 fload find.fth 64 .chkstk 65 fload misc.fth 66 .chkstk 67 cr ." End of Tests" cr 68 69end0 70 71