languages/tcl/tools/gen_builtins.pl

   1 #! perl
   2
   3 # Copyright (C) 2003-2006, The Perl Foundation.
   4 # $Id$
   5
   6 use strict;
   7 use warnings;
   8 use lib qw(lib);
   9
  10 my $static_dir  = 'runtime/builtin';
  11
  12 print <<EOH;
  13 # This file automatically generated by $0.
  14
  15 EOH
  16
  17 # commands that are in Tcl's :: namespace directly
  18 my @static_cmds = pir_cmds_in_dir($static_dir);
  19
  20 print " .HLL 'tcl', 'tcl_group'\n";
  21
  22 print "  .include 'languages/tcl/$static_dir/$_.pir'\n" for @static_cmds;
  23
  24 sub pir_cmds_in_dir {
  25     my ($dir) = @_;
  26
  27     opendir( DIR, $dir );
  28
  29     # only return pir files (and strip the extension)
  30     my @files = grep { s/\.pir$// } readdir(DIR);
  31     closedir(DIR);
  32
  33     return @files;
  34 }
  35
  36 # Local Variables:
  37 #   mode: cperl
  38 #   cperl-indent-level: 4
  39 #   fill-column: 100
  40 # End:
  41 # vim: expandtab shiftwidth=4: