This is the revision history for ln in <freenode.net:#regexen>
factoid_id | subject | copula | predicate | author | namespace |
---|---|---|---|---|---|
14911 | ln | is | `compose `eval $a=`fact _getarg_perl_array `arg~~;$s=$a->[0]eq'-s'; @$a=grep{!/-s/}@$a; if(@$a!=2){return "<echo Syntax: ln [-s] existing_factoid new_factoid>"}; ($l,$r)=@$a; return "<fact macro $r is [fact $l [arg]]>" if $s; "<fact $r is <fact $l>>"~~ Stored source is [fact ##NULL source [arg]] |
simcop2387 | <freenode.net:#regex> |
14907 | ln | is | `compose `eval $a=`fact _getarg_perl_array `arg~~;$s=$a->[0]eq'-s'; @$a=grep{!/-s/}@$a; if(@$a!=2){return "<echo Syntax: ln [-s] existing_factoid new_factoid>"}; ($l,$r)=@$a; return "<fact macro $r is [fact $l [arg]]>" if $s; "<fact $r is <fact $l>>"~~ Not Available |
simcop2387 | <freenode.net:#regex> |
12639 | ln | is | `compose `eval $a=`fact _getarg_perl_array `arg~~;$s=$a->[0]eq'-s'; @$a=grep{!/-s/}@$a; if(@$a!=2){return "<echo Syntax: ln [-s] one two>"}; ($l,$r)=@$a; return "<fact macro $r is [fact $l [arg]]>" if $s; "<fact $r is <fact $l>>"~~ Not Available |
simcop2387 | <freenode.net:#regex> |