;;;; Tintin emulation macros. ;;; If you're converting to tf from tintin, you might find this useful. ;;; This file emulates most of the commands in tintin++, although some ;;; commands will behave somewhat differently. ;;; These commands have not been fully tested. /loaded __TFLIB__/tintin.tf ;;; Some useful stuff is stored in other files. /require tick.tf /require alias.tf /require spedwalk.tf /require map.tf /def -i action = /trig %* ;alias (see alias.tf) /def -i antisubstitute = /def -p9999 -t'$(/escape ' %*)' /def -i all = /send -W -- %* /def -i bell = /beep %* /def -i boss = /echo -e %0: Not implemented. /def -i char = /echo -e %0: Not implemented. ;/def echo = /toggle mecho%; /: The name "echo" conflicts with standard tf. /def -i end = /quit ;gag builtin ;help builtin /def -i highlight = /hilite %* /def -i history = /recall -i %{1-15} ;if builtin /def -i ignore = /toggle borg%; /set borg ;log builtin ;loop (see /for) ;map (see map.tf) ;mark (see map.tf) /def -i math = /@test %1 := %-1 /def -i message = /echo -e %0: Not implemented; use hooks with gags. /def -i -mregexp -p2 -h'send ^#([0-9]+) ' rep_hook = /repeat -S %P1 %PR /def -i nop = /@test 1 ;path (see map.tf) /def -i presub =/echo -e %0: Use the -F flag in triggers that call /substitute. ;redraw not needed (always on) ;return (see map.tf) /def -i read = /load %* ;savepath (see map.tf) /def -i session = \ /if ({#}) \ /if /addworld %*%; /then /world %1%; /endif%;\ /else \ /listsockets%;\ /endif%;\ /def %1 = \ /if ({#}) \ /send -w%1 %%*%;\ /else \ /world %1%;\ /endif /def -i showme = /echo %* /def -i snoop = \ /if /ismacro _snoop_%1%; /then \ /echo %% Snooping %1 disabled.%;\ /undef _snoop_%1%;\ /undef _snoopbg_%1%;\ /else \ /echo %% Snooping %1 enabled.%;\ /def -i -w%1 -hbackground -ag _snoopbg_%1%;\ /def -i -t* -p9999 -w%1 -ag -F _snoop_%1 = \ /echo $${world_name}: %%*%;\ /endif ;speedwalk (see spedwalk.tf) /def -i split = /isize %{1-3}%; /visual on ;subs (see /substitute) ;substitute (see /substitute) /def -i system = /sh %* ;togglesubs (no equiv) /def -i unaction = /untrig %* ;unalias (see alias.tf) ;unantisub (no equiv) /def -i ungag = /nogag %* /def -i unhighlight = /nohilite %* ;unpath (see map.tf) /def -i unsplit = /visual off ;unsubs (no equiv) /def -i unvariable = /unset %* /def -i variable = /set %* /def -i verbatim = /toggle sub ;version builtin /def -i wizlist = /help author /def -i write = /if ( {#} == 1 ) \ /save %1%;\ /else \ /echo -e %% usage: /%0 <filename>%;\ /endif /def -i zap = /dc %*