[Midnightbsd-cvs] src [10202] trunk/sys/boot/forth/delay.4th: sync delay

[laffer1 at midnightbsd.org]

Revision: 10202
          http://svnweb.midnightbsd.org/src/?rev=10202
Author:   laffer1
Date:     2018-06-01 20:02:57 -0400 (Fri, 01 Jun 2018)
Log Message:
-----------
sync delay

Modified Paths:
--------------
    trunk/sys/boot/forth/delay.4th

Modified: trunk/sys/boot/forth/delay.4th
===================================================================
--- trunk/sys/boot/forth/delay.4th	2018-06-02 00:00:58 UTC (rev 10201)
+++ trunk/sys/boot/forth/delay.4th	2018-06-02 00:02:57 UTC (rev 10202)
@@ -1,4 +1,4 @@
-\ Copyright (c) 2008-2011 Devin Teske <devinteske at hotmail.com>
+\ Copyright (c) 2008-2015 Devin Teske <dteske at FreeBSD.org>
 \ All rights reserved.
 \ 
 \ Redistribution and use in source and binary forms, with or without
@@ -21,11 +21,15 @@
 \ LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY
 \ OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
 \ SUCH DAMAGE.
-\ 
-\ $MidnightBSD$
+\
+\ $MidnightBSD$ 
+\ $FreeBSD: stable/10/sys/boot/forth/delay.4th 299706 2016-05-14 00:44:23Z pfg $
 
 marker task-delay.4th
 
+vocabulary delay-processing
+only forth also delay-processing definitions
+
 2  constant delay_default \ Default delay (in seconds)
 3  constant etx_key       \ End-of-Text character produced by Ctrl+C
 13 constant enter_key     \ Carriage-Return character produce by ENTER
@@ -36,6 +40,8 @@
 variable delay_cancelled  \ state variable for user cancellation
 variable delay_showdots   \ whether continually print dots while waiting
 
+only forth definitions also delay-processing
+
 : delay_execute ( -- )
 
 	\ make sure that we have a command to execute
@@ -61,7 +67,7 @@
 
 	false delay_showdots ! \ reset to zero and read from environment
 	s" delay_showdots" getenv dup -1 <> if
-		2drop \ don't need the value, just existance
+		2drop \ don't need the value, just existence
 		true delay_showdots !
 	else
 		drop
@@ -110,3 +116,5 @@
 		evaluate \ evaluate/execute the command string
  	then
 ;
+
+only forth definitions