usr/src/lib/efcode/fcode_test/find.fth

   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
  26 ." Execute test: "
  27         : etest ['] 1 dup dup execute swap execute + swap execute + ;
  28         " " etest 3 = .passed?
  29   " evaluate.1"  " 1 2 +" evaluate 3 = .passed?
  30 cr
  31
  32 ." $find testing: "
  33 " $find.1" 0 1 " drop" $find if execute then 0= .passed?
  34 " $find.2" " qwerty" $find if false else " qwerty" $= then .passed?
  35 cr