/usr/share/tf5/tf-lib/alias.tf is in tf5 5.0beta8-5+b1.
This file is owned by root:root, with mode 0o644.
The actual contents of the file can be viewed below.
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 | ;;; Aliases.
; Create command aliases. Like simple macros, but no leading '/' is required.
; syntax: /alias <name> <command...>
; syntax: /unalias <name>
/loaded __TFLIB__/alias.tf
/if ( alias =~ "old" ) \
/echo -e Note: you have alias=old, so argument substitutions will follow \
the old style, where %%1 is the alias name, %%2 is the first \
argument, etc.%;\
/endif
/def -i alias = \
/if ( {#} < 2 ) \
/quote -S /~listalias `/@list -s -I -mglob ~alias_body_%{1-*}%; \
/else \
/def -i ~alias_body_%1 = %-1%;\
; The ~alias_call_* macro /shifts unless [alias=~"old"] at runtime.
/def -i -ag -mglob -h"send {%1}*" ~alias_call_%1 = \
/shift $$[alias !~ "old"]%%; \
/~alias_body_%1 %%*%; \
/endif
/def -i ~listalias = /echo /alias $[substr({L}, 12)] ${%{L}}
/def -i unalias = \
/if /ismacro ~alias_call_%1%; /then \
/undef ~alias_call_%1%; \
/undef ~alias_body_%1%; \
/else \
/echo -e - %% %0: "%1": no such alias%; \
/endif
/def -i purgealias = \
/purge -I ~alias_call_*%; \
/purge -I ~alias_body_*
|