changeset 1294:4986500d464c

Added /grepeat wrapper for /repeat, that fixes some problems with plain vanilla /repeat.
author Matti Hamalainen <ccr@tnsp.org>
date Thu, 13 Jan 2011 01:10:01 +0000
parents 5fbe9210c31c
children ede339f380c9
files ggrtf.tf
diffstat 1 files changed, 7 insertions(+), 0 deletions(-) [+]
line wrap: on
line diff
--- a/ggrtf.tf	Sun Jan 09 01:47:45 2011 +0000
+++ b/ggrtf.tf	Thu Jan 13 01:10:01 2011 +0000
@@ -374,6 +374,13 @@
 	/eval /prlist_delete_do %{1} %{2} $$[%{1}]
 
 
+;; Define a /repeat, but work around the fact that /repeat does NOT
+;; return the process id although TF 5.0 beta documentation says so
+/def -i grepeat =\
+	/repeat %{*}%;\
+	/return "$(/last $(/ps -s -r))"
+
+
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 ;; Option, setting and hook definition macros
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;