Lines Matching refs:fr
779 my( $fr, $to, $fl ) = @_;
785 for( my $i = 0; $i < length($fr); $i++ ){
786 my $fc = substr($fr,$i,1);
795 $fr = $to = '';
797 ( $fr, $to ) = ( '-', $tr{'-'} );
800 $fr = $to = '';
804 $fr .= $fc;
808 $fr =~ s/([{}])/\$1/g;
810 $fr =~ s/\n/\\n/g;
812 return $error ? undef() : "{ y{$fr}{$to}; }";
1430 my $fr = stripTrans( $d, \$cmd );
1431 if( ! defined( $fr ) || ! length( $cmd ) ){
1442 if( length($fr) != length($to) ){
1447 if( ! defined( $arg = makey( $fr, $to, $fl ) ) ){