view release on metacpan or  search on metacpan

lib/Rc/Csh.pm  view on Meta::CPAN

    '{'.indent { nl.$n->kid(0)->chp }.nl.'}'.
	(!$k1->isa('Rc::Undef')? $k1->chp:'')
}

sub Rc::Assign::chp {
    my ($n) = @_;
    my $name = $n->kid(0)->chp;
    if ($Local{$name}) {
	'set '.$name.' = '.$n->kid(1)->chp.nl
    } else {
	'setenv '.$name.' '.$n->kid(1)->chp.nl
    }
}

sub Rc::Pre::chp {
    my $n=shift;
    my @l;
    my @s = ("# LOCALISATION BLOCK");
    while (1) {
	my $mod = $n->kid(0);
	if ($mod->isa('Rc::Assign')) {