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