ppt

 view release on metacpan or  search on metacpan

bin/bc  view on Meta::CPAN

;# "var" field if it is a variable, in the "func" field if it is a 
;# function.
my %sym_table;
my @stmt_list = ();
my @ope_stack;
my @backup_sym_table;
my $input;
my $cur_file = '-';

$debug = 0;
sub debug(&) {
  my $fn = shift;
  print STDERR "\t".&$fn()
    if $debug;
}

;#$yydebug=1;

#line 32 "y.tab.pl"
$INT=257;
$FLOAT=258;

html/commands/bc/bc.plx  view on Meta::CPAN

;# "var" field if it is a variable, in the "func" field if it is a 
;# function.
my %sym_table;
my @stmt_list = ();
my @ope_stack;
my @backup_sym_table;
my $input;
my $cur_file = '-';

$debug = 0;
sub debug(&) {
  my $fn = shift;
  print STDERR "\t".&$fn()
    if $debug;
}

;#$yydebug=1;

#line 32 "y.tab.pl"
$INT=257;
$FLOAT=258;

html/commands/bc/bc.y  view on Meta::CPAN

# "var" field if it is a variable, in the "func" field if it is a 
# function.
my %sym_table;
my @stmt_list = ();
my @ope_stack;
my @backup_sym_table;
my $input;
my $cur_file = '-';

$debug = 0;
sub debug(&) {
  my $fn = shift;
  print STDERR "\t".&$fn()
    if $debug;
}

#$yydebug=1;

%}

%token INT

src/bc/bc.plx  view on Meta::CPAN

;# "var" field if it is a variable, in the "func" field if it is a 
;# function.
my %sym_table;
my @stmt_list = ();
my @ope_stack;
my @backup_sym_table;
my $input;
my $cur_file = '-';

$debug = 0;
sub debug(&) {
  my $fn = shift;
  print STDERR "\t".&$fn()
    if $debug;
}

;#$yydebug=1;

#line 32 "y.tab.pl"
$INT=257;
$FLOAT=258;

src/bc/bc.y  view on Meta::CPAN

# "var" field if it is a variable, in the "func" field if it is a 
# function.
my %sym_table;
my @stmt_list = ();
my @ope_stack;
my @backup_sym_table;
my $input;
my $cur_file = '-';

$debug = 0;
sub debug(&) {
  my $fn = shift;
  print STDERR "\t".&$fn()
    if $debug;
}

#$yydebug=1;

%}

%token INT