session.cxx

   1 // session functions
   2 // Copyright (C) 2010-2011 Red Hat Inc.
   3 //
   4 // This file is part of systemtap, and is free software.  You can
   5 // redistribute it and/or modify it under the terms of the GNU General
   6 // Public License (GPL); either version 2, or (at your option) any
   7 // later version.
   8
   9 #include "config.h"
  10 #include "session.h"
  11 #include "cache.h"
  12 #include "elaborate.h"
  13 #include "translate.h"
  14 #include "buildrun.h"
  15 #include "coveragedb.h"
  16 #include "hash.h"
  17 #include "task_finder.h"
  18 #include "csclient.h"
  19 #include "rpm_finder.h"
  20 #include "util.h"
  21 #include "git_version.h"
  22
  23 #include <cerrno>
  24 #include <cstdlib>
  25
  26 extern "C" {
  27 #include <getopt.h>
  28 #include <limits.h>
  29 #include <grp.h>
  30 #include <sys/stat.h>
  31 #include <sys/utsname.h>
  32 #include <elfutils/libdwfl.h>
  33 }
  34
  35 #if HAVE_NSS
  36 extern "C" {
  37 #include <nspr.h>
  38 }
  39 #endif
  40
  41 #include <string>
  42
  43 using namespace std;
  44
  45 /* getopt variables */
  46 extern int optind;
  47
  48 #define PATH_TBD string("__TBD__")
  49
  50 bool systemtap_session::NSPR_Initialized = false;
  51
  52 systemtap_session::systemtap_session ():
  53   // NB: pointer members must be manually initialized!
  54   // NB: don't forget the copy constructor too!
  55   base_hash(0),
  56   pattern_root(new match_node),
  57   user_file (0),
  58   be_derived_probes(0),
  59   dwarf_derived_probes(0),
  60   kprobe_derived_probes(0),
  61   hwbkpt_derived_probes(0),
  62   perf_derived_probes(0),
  63   uprobe_derived_probes(0),
  64   utrace_derived_probes(0),
  65   itrace_derived_probes(0),
  66   task_finder_derived_probes(0),
  67   timer_derived_probes(0),
  68   profile_derived_probes(0),
  69   mark_derived_probes(0),
  70   tracepoint_derived_probes(0),
  71   hrtimer_derived_probes(0),
  72   procfs_derived_probes(0),
  73   op (0), up (0),
  74   sym_kprobes_text_start (0),
  75   sym_kprobes_text_end (0),
  76   sym_stext (0),
  77   module_cache (0),
  78   last_token (0)
  79 {
  80   struct utsname buf;
  81   (void) uname (& buf);
  82   kernel_release = string (buf.release);
  83   release = kernel_release;
  84   kernel_build_tree = "/lib/modules/" + kernel_release + "/build";
  85   architecture = machine = normalize_machine(buf.machine);
  86
  87   for (unsigned i=0; i<5; i++) perpass_verbose[i]=0;
  88   verbose = 0;
  89
  90   have_script = false;
  91   runtime_specified = false;
  92   include_arg_start = -1;
  93   timing = false;
  94   guru_mode = false;
  95   bulk_mode = false;
  96   unoptimized = false;
  97   suppress_warnings = false;
  98   panic_warnings = false;
  99   listing_mode = false;
 100   listing_mode_vars = false;
 101
 102 #ifdef ENABLE_PROLOGUES
 103   prologue_searching = true;
 104 #else
 105   prologue_searching = false;
 106 #endif
 107
 108   buffer_size = 0;
 109   last_pass = 5;
 110   module_name = "stap_" + lex_cast(getpid());
 111   stapconf_name = "stapconf_" + lex_cast(getpid()) + ".h";
 112   output_file = ""; // -o FILE
 113   save_module = false;
 114   keep_tmpdir = false;
 115   cmd = "";
 116   target_pid = 0;
 117   use_cache = true;
 118   use_script_cache = true;
 119   poison_cache = false;
 120   tapset_compile_coverage = false;
 121   need_uprobes = false;
 122   uprobes_path = "";
 123   consult_symtab = false;
 124   ignore_vmlinux = false;
 125   ignore_dwarf = false;
 126   load_only = false;
 127   skip_badvars = false;
 128   unprivileged = false;
 129   omit_werror = false;
 130   compatible = VERSION; // XXX: perhaps also process GIT_SHAID if available?
 131   unwindsym_ldd = false;
 132   client_options = false;
 133   server_cache = NULL;
 134   use_server_on_error = false;
 135   try_server_status = try_server_unset;
 136   systemtap_v_check = false;
 137
 138   /*  adding in the XDG_DATA_DIRS variable path,
 139    *  this searches in conjunction with SYSTEMTAP_TAPSET
 140    *  to locate stap scripts, either can be disabled if
 141    *  needed using env $PATH=/dev/null where $PATH is the
 142    *  path you want disabled
 143    */
 144   const char* s_p1 = getenv ("XDG_DATA_DIRS");
 145   if ( s_p1 != NULL )
 146   {
 147     vector<string> dirs;
 148     tokenize(s_p1, dirs, ":");
 149     for(vector<string>::iterator i = dirs.begin(); i != dirs.end(); ++i)
 150     {
 151       include_path.push_back(*i + "/systemtap/tapset");
 152     }
 153   }
 154
 155   const char* s_p = getenv ("SYSTEMTAP_TAPSET");
 156   if (s_p != NULL)
 157   {
 158     include_path.push_back (s_p);
 159   }
 160   else
 161   {
 162     include_path.push_back (string(PKGDATADIR) + "/tapset");
 163   }
 164
 165   const char* s_r = getenv ("SYSTEMTAP_RUNTIME");
 166   if (s_r != NULL)
 167     runtime_path = s_r;
 168   else
 169     runtime_path = string(PKGDATADIR) + "/runtime";
 170
 171   const char* s_d = getenv ("SYSTEMTAP_DIR");
 172   if (s_d != NULL)
 173     data_path = s_d;
 174   else
 175     data_path = get_home_directory() + string("/.systemtap");
 176   if (create_dir(data_path.c_str()) == 1)
 177     {
 178       const char* e = strerror (errno);
 179       if (! suppress_warnings)
 180         cerr << _F("Warning: failed to create systemtap data directory \"%s\":%s, disabling cache support.",
 181                    data_path.c_str(),e) << endl;
 182       use_cache = use_script_cache = false;
 183     }
 184
 185   if (use_cache)
 186     {
 187       cache_path = data_path + "/cache";
 188       if (create_dir(cache_path.c_str()) == 1)
 189         {
 190           const char* e = strerror (errno);
 191           if (! suppress_warnings)
 192             cerr << _F("Warning: failed to create cache directory (\" %s \"): %s, disabling cache support.",
 193                        cache_path.c_str(),e) << endl;
 194           use_cache = use_script_cache = false;
 195         }
 196     }
 197
 198   const char* s_tc = getenv ("SYSTEMTAP_COVERAGE");
 199   if (s_tc != NULL)
 200     tapset_compile_coverage = true;
 201
 202   const char* s_kr = getenv ("SYSTEMTAP_RELEASE");
 203   if (s_kr != NULL) {
 204     setup_kernel_release(s_kr);
 205   }
 206 }
 207
 208 systemtap_session::systemtap_session (const systemtap_session& other,
 209                                       const string& arch,
 210                                       const string& kern):
 211   // NB: pointer members must be manually initialized!
 212   // NB: this needs to consider everything that the base ctor does,
 213   //     plus copying any wanted implicit fields (strings, vectors, etc.)
 214   base_hash(0),
 215   pattern_root(new match_node),
 216   user_file (other.user_file),
 217   be_derived_probes(0),
 218   dwarf_derived_probes(0),
 219   kprobe_derived_probes(0),
 220   hwbkpt_derived_probes(0),
 221   perf_derived_probes(0),
 222   uprobe_derived_probes(0),
 223   utrace_derived_probes(0),
 224   itrace_derived_probes(0),
 225   task_finder_derived_probes(0),
 226   timer_derived_probes(0),
 227   profile_derived_probes(0),
 228   mark_derived_probes(0),
 229   tracepoint_derived_probes(0),
 230   hrtimer_derived_probes(0),
 231   procfs_derived_probes(0),
 232   op (0), up (0),
 233   sym_kprobes_text_start (0),
 234   sym_kprobes_text_end (0),
 235   sym_stext (0),
 236   module_cache (0),
 237   last_token (0)
 238 {
 239   release = kernel_release = kern;
 240   kernel_build_tree = "/lib/modules/" + kernel_release + "/build";
 241   architecture = machine = normalize_machine(arch);
 242   setup_kernel_release(kern.c_str());
 243
 244   // These are all copied in the same order as the default ctor did above.
 245
 246   copy(other.perpass_verbose, other.perpass_verbose + 5, perpass_verbose);
 247   verbose = other.verbose;
 248
 249   have_script = other.have_script;
 250   runtime_specified = other.runtime_specified;
 251   include_arg_start = other.include_arg_start;
 252   timing = other.timing;
 253   guru_mode = other.guru_mode;
 254   bulk_mode = other.bulk_mode;
 255   unoptimized = other.unoptimized;
 256   suppress_warnings = other.suppress_warnings;
 257   panic_warnings = other.panic_warnings;
 258   listing_mode = other.listing_mode;
 259   listing_mode_vars = other.listing_mode_vars;
 260
 261   prologue_searching = other.prologue_searching;
 262
 263   buffer_size = other.buffer_size;
 264   last_pass = other.last_pass;
 265   module_name = other.module_name;
 266   stapconf_name = other.stapconf_name;
 267   output_file = other.output_file; // XXX how should multiple remotes work?
 268   save_module = other.save_module;
 269   keep_tmpdir = other.keep_tmpdir;
 270   cmd = other.cmd;
 271   target_pid = other.target_pid; // XXX almost surely nonsense for multiremote
 272   use_cache = other.use_cache;
 273   use_script_cache = other.use_script_cache;
 274   poison_cache = other.poison_cache;
 275   tapset_compile_coverage = other.tapset_compile_coverage;
 276   need_uprobes = false;
 277   uprobes_path = "";
 278   consult_symtab = other.consult_symtab;
 279   ignore_vmlinux = other.ignore_vmlinux;
 280   ignore_dwarf = other.ignore_dwarf;
 281   load_only = other.load_only;
 282   skip_badvars = other.skip_badvars;
 283   unprivileged = other.unprivileged;
 284   omit_werror = other.omit_werror;
 285   compatible = other.compatible;
 286   unwindsym_ldd = other.unwindsym_ldd;
 287   client_options = other.client_options;
 288   server_cache = NULL;
 289   use_server_on_error = other.use_server_on_error;
 290   try_server_status = other.try_server_status;
 291   systemtap_v_check = other.systemtap_v_check;
 292
 293   include_path = other.include_path;
 294   runtime_path = other.runtime_path;
 295
 296   // NB: assuming that "other" created these already
 297   data_path = other.data_path;
 298   cache_path = other.cache_path;
 299
 300   tapset_compile_coverage = other.tapset_compile_coverage;
 301
 302
 303   // These are fields that were left to their default ctor, but now we want to
 304   // copy them from "other".  In the same order as declared...
 305   script_file = other.script_file;
 306   cmdline_script = other.cmdline_script;
 307   macros = other.macros;
 308   args = other.args;
 309   kbuildflags = other.kbuildflags;
 310   globalopts = other.globalopts;
 311
 312   client_options_disallowed = other.client_options_disallowed;
 313   server_status_strings = other.server_status_strings;
 314   specified_servers = other.specified_servers;
 315   server_trust_spec = other.server_trust_spec;
 316   server_args = other.server_args;
 317
 318   unwindsym_modules = other.unwindsym_modules;
 319 }
 320
 321 systemtap_session::~systemtap_session ()
 322 {
 323   delete_map(subsessions);
 324 }
 325
 326 void
 327 systemtap_session::NSPR_init ()
 328 {
 329 #if HAVE_NSS
 330   if (! NSPR_Initialized)
 331     {
 332       PR_Init (PR_SYSTEM_THREAD, PR_PRIORITY_NORMAL, 1);
 333       NSPR_Initialized = true;
 334     }
 335 #endif // HAVE_NSS
 336 }
 337
 338 systemtap_session*
 339 systemtap_session::clone(const string& arch, const string& release)
 340 {
 341   if (this->architecture == arch && this->kernel_release == release)
 342     return this;
 343
 344   systemtap_session*& s = subsessions[make_pair(arch, release)];
 345   if (!s)
 346     s = new systemtap_session(*this, arch, release);
 347   return s;
 348 }
 349
 350 void
 351 systemtap_session::version ()
 352 {
 353   clog << _F("Systemtap translator/driver (version %s/%s %s)\n"
 354              "Copyright (C) 2005-2011 Red Hat, Inc. and others\n"
 355              "This is free software; see the source for copying conditions.",
 356              VERSION, dwfl_version(NULL), GIT_MESSAGE) << endl;
 357   clog << _("enabled features:")
 358 #ifdef HAVE_AVAHI
 359        << " AVAHI"
 360 #endif
 361 #ifdef HAVE_LIBRPM
 362        << " LIBRPM"
 363 #endif
 364 #ifdef HAVE_LIBSQLITE3
 365        << " LIBSQLITE3"
 366 #endif
 367 #ifdef HAVE_NSS
 368        << " NSS"
 369 #endif
 370 #ifdef HAVE_BOOST_SHARED_PTR_HPP
 371        << " BOOST_SHARED_PTR"
 372 #endif
 373 #ifdef HAVE_TR1_UNORDERED_MAP
 374        << " TR1_UNORDERED_MAP"
 375 #endif
 376 #ifdef ENABLE_PROLOGUES
 377        << " PROLOGUES"
 378 #endif
 379 #ifdef ENABLE_NLS
 380        << " NLS"
 381 #endif
 382        << endl;
 383 }
 384
 385 void
 386 systemtap_session::usage (int exitcode)
 387 {
 388   version ();
 389   clog
 390     << endl
 391     //Session.cxx:287-390 detail systemtap usage from stap -h
 392     << _F("Usage: stap [options] FILE         Run script in file.\n"
 393      "   or: stap [options] -            Run script on stdin.\n"
 394      "   or: stap [options] -e SCRIPT    Run given script.\n"
 395      "   or: stap [options] -l PROBE     List matching probes.\n"
 396      "   or: stap [options] -L PROBE     List matching probes and local variables.\n\n"
 397      "Options:\n"
 398      "   --         end of translator options, script options follow\n"
 399      "   -h --help  show help\n"
 400      "   -V --version  show version\n"
 401      "   -p NUM     stop after pass NUM 1-5, instead of %d\n"
 402      "              (parse, elaborate, translate, compile, run)\n"
 403      "   -v         add verbosity to all passes\n"
 404      "   --vp {N}+  add per-pass verbosity [", last_pass);
 405   for (unsigned i=0; i<5; i++)
 406     clog << (perpass_verbose[i] <= 9 ? perpass_verbose[i] : 9);
 407   clog
 408     << "]" << endl;
 409     clog << _F("   -k         keep temporary directory\n"
 410      "   -u         unoptimized translation %s\n"
 411      "   -w         suppress warnings %s\n"
 412      "   -W         turn warnings into errors %s\n"
 413      "   -g         guru mode %s\n"
 414      "   -P         prologue-searching for function probes %s\n"
 415      "   -b         bulk (percpu file) mode %s\n"
 416      "   -s NUM     buffer size in megabytes, instead of %d\n"
 417      "   -I DIR     look in DIR for additional .stp script files", (unoptimized ? _(" [set]") : ""),
 418          (suppress_warnings ? _(" [set]") : ""), (panic_warnings ? _(" [set]") : ""),
 419          (guru_mode ? _(" [set]") : ""), (prologue_searching ? _(" [set]") : ""),
 420          (bulk_mode ? _(" [set]") : ""), buffer_size);
 421   if (include_path.size() == 0)
 422     clog << endl;
 423   else
 424     clog << _(", in addition to") << endl;
 425   for (unsigned i=0; i<include_path.size(); i++)
 426     clog << "              " << include_path[i].c_str() << endl;
 427   clog
 428     << _F("   -D NM=VAL  emit macro definition into generated C code\n"
 429     "   -B NM=VAL  pass option to kbuild make\n"
 430     "   -G VAR=VAL set global variable to value\n"
 431     //TRANSLATORS: translating 'runtime' is not advised
 432     "   -R DIR     look in DIR for runtime, instead of\n"
 433     "              %s\n"
 434     "   -r DIR     cross-compile to kernel with given build tree; or else\n"
 435     "   -r RELEASE cross-compile to kernel /lib/modules/RELEASE/build, instead of\n"
 436     "              %s\n"
 437     "   -a ARCH    cross-compile to given architecture, instead of %s\n"
 438     "   -m MODULE  set probe module name, instead of \n"
 439     "              %s\n"
 440     "   -o FILE    send script output to file, instead of stdout. This supports\n"
 441     "              strftime(3) formats for FILE\n"
 442     "   -c CMD     start the probes, run CMD, and exit when it finishes\n"
 443     "   -x PID     sets target() to PID\n"
 444     "   -F         run as on-file flight recorder with -o.\n"
 445     "              run as on-memory flight recorder without -o.\n"
 446     "   -S size[,n] set maximum of the size and the number of files.\n"
 447     "   -d OBJECT  add unwind/symbol data for OBJECT file", runtime_path.c_str(), kernel_build_tree.c_str(), architecture.c_str(), module_name.c_str());
 448   if (unwindsym_modules.size() == 0)
 449     clog << endl;
 450   else
 451     clog << _(", in addition to") << endl;
 452   {
 453     vector<string> syms (unwindsym_modules.begin(), unwindsym_modules.end());
 454     for (unsigned i=0; i<syms.size(); i++)
 455       clog << "              " << syms[i].c_str() << endl;
 456   }
 457   clog
 458     << _F("   --ldd      add unwind/symbol data for all referenced object files.\n"
 459     "   --all-modules\n"
 460     "              add unwind/symbol data for all loaded kernel objects.\n"
 461     "   -t         collect probe timing information\n"
 462 #ifdef HAVE_LIBSQLITE3
 463     "   -q         generate information on tapset coverage\n"
 464 #endif /* HAVE_LIBSQLITE3 */
 465     "   --unprivileged\n"
 466     "              restrict usage to features available to unprivileged users\n"
 467 #if 0 /* PR6864: disable temporarily; should merge with -d somehow */
 468     "   --kelf     make do with symbol table from vmlinux\n"
 469     "   --kmap[=FILE]\n"
 470     "              make do with symbol table from nm listing\n"
 471 #endif
 472   // Formerly present --ignore-{vmlinux,dwarf} options are for testsuite use
 473   // only, and don't belong in the eyesight of a plain user.
 474     "   --compatible=VERSION\n"
 475     "              suppress incompatible language/tapset changes beyond VERSION,\n"
 476     "              instead of %s\n"
 477     "   --check-version\n"
 478     "              displays warnings where a syntax element may be \n"
 479     "              version dependent\n"
 480     "   --skip-badvars\n"
 481     "              substitute zero for bad context $variables\n"
 482     "   --use-server[=SERVER-SPEC]\n"
 483     "              specify systemtap compile-servers\n"
 484     "   --list-servers[=PROPERTIES]\n"
 485     "              report on the status of the specified compile-servers\n"
 486 #if HAVE_NSS
 487     "   --trust-servers[=TRUST-SPEC]\n"
 488     "              add/revoke trust of specified compile-servers\n"
 489     "   --use-server-on-error[=yes/no]\n"
 490     "              retry compilation using a compile server upon compilation error\n"
 491 #endif
 492     "   --remote=HOSTNAME\n"
 493     "              run pass 5 on the specified ssh host.\n"
 494     "              may be repeated for targeting multiple hosts.", compatible.c_str()) << endl
 495   ;
 496
 497   time_t now;
 498   time (& now);
 499   struct tm* t = localtime (& now);
 500   if (t && t->tm_mon*3 + t->tm_mday*173 == 0xb6)
 501     clog << morehelp << endl;
 502
 503   exit (exitcode);
 504 }
 505
 506 int
 507 systemtap_session::parse_cmdline (int argc, char * const argv [])
 508 {
 509   client_options_disallowed = "";
 510   while (true)
 511     {
 512       int long_opt;
 513       char * num_endptr;
 514
 515       // NB: when adding new options, consider very carefully whether they
 516       // should be restricted from stap clients (after --client-options)!
 517 #define LONG_OPT_KELF 1
 518 #define LONG_OPT_KMAP 2
 519 #define LONG_OPT_IGNORE_VMLINUX 3
 520 #define LONG_OPT_IGNORE_DWARF 4
 521 #define LONG_OPT_VERBOSE_PASS 5
 522 #define LONG_OPT_SKIP_BADVARS 6
 523 #define LONG_OPT_UNPRIVILEGED 7
 524 #define LONG_OPT_OMIT_WERROR 8
 525 #define LONG_OPT_CLIENT_OPTIONS 9
 526 #define LONG_OPT_HELP 10
 527 #define LONG_OPT_DISABLE_CACHE 11
 528 #define LONG_OPT_POISON_CACHE 12
 529 #define LONG_OPT_CLEAN_CACHE 13
 530 #define LONG_OPT_COMPATIBLE 14
 531 #define LONG_OPT_LDD 15
 532 #define LONG_OPT_USE_SERVER 16
 533 #define LONG_OPT_LIST_SERVERS 17
 534 #define LONG_OPT_TRUST_SERVERS 18
 535 #define LONG_OPT_ALL_MODULES 19
 536 #define LONG_OPT_REMOTE 20
 537 #define LONG_OPT_CHECK_VERSION 21
 538 #define LONG_OPT_USE_SERVER_ON_ERROR 22
 539 #define LONG_OPT_VERSION 23
 540       // NB: also see find_hash(), usage(), switch stmt below, stap.1 man page
 541       static struct option long_options[] = {
 542         { "kelf", 0, &long_opt, LONG_OPT_KELF },
 543         { "kmap", 2, &long_opt, LONG_OPT_KMAP },
 544         { "ignore-vmlinux", 0, &long_opt, LONG_OPT_IGNORE_VMLINUX },
 545         { "ignore-dwarf", 0, &long_opt, LONG_OPT_IGNORE_DWARF },
 546         { "skip-badvars", 0, &long_opt, LONG_OPT_SKIP_BADVARS },
 547         { "vp", 1, &long_opt, LONG_OPT_VERBOSE_PASS },
 548         { "unprivileged", 0, &long_opt, LONG_OPT_UNPRIVILEGED },
 549 #define OWE5 "tter"
 550 #define OWE1 "uild-"
 551 #define OWE6 "fu-kb"
 552 #define OWE2 "i-kno"
 553 #define OWE4 "st"
 554 #define OWE3 "w-be"
 555         { OWE4 OWE6 OWE1 OWE2 OWE3 OWE5, 0, &long_opt, LONG_OPT_OMIT_WERROR },
 556         { "client-options", 0, &long_opt, LONG_OPT_CLIENT_OPTIONS },
 557         { "help", 0, &long_opt, LONG_OPT_HELP },
 558         { "disable-cache", 0, &long_opt, LONG_OPT_DISABLE_CACHE },
 559         { "poison-cache", 0, &long_opt, LONG_OPT_POISON_CACHE },
 560         { "clean-cache", 0, &long_opt, LONG_OPT_CLEAN_CACHE },
 561         { "compatible", 1, &long_opt, LONG_OPT_COMPATIBLE },
 562         { "ldd", 0, &long_opt, LONG_OPT_LDD },
 563         { "use-server", 2, &long_opt, LONG_OPT_USE_SERVER },
 564         { "list-servers", 2, &long_opt, LONG_OPT_LIST_SERVERS },
 565         { "trust-servers", 2, &long_opt, LONG_OPT_TRUST_SERVERS },
 566         { "use-server-on-error", 2, &long_opt, LONG_OPT_USE_SERVER_ON_ERROR },
 567         { "all-modules", 0, &long_opt, LONG_OPT_ALL_MODULES },
 568         { "remote", 1, &long_opt, LONG_OPT_REMOTE },
 569         { "check-version", 0, &long_opt, LONG_OPT_CHECK_VERSION },
 570         { "version", 0, &long_opt, LONG_OPT_VERSION },
 571         { NULL, 0, NULL, 0 }
 572       };
 573       int grc = getopt_long (argc, argv, "hVvtp:I:e:o:R:r:a:m:kgPc:x:D:bs:uqwl:d:L:FS:B:WG:",
 574                              long_options, NULL);
 575       // NB: when adding new options, consider very carefully whether they
 576       // should be restricted from stap clients (after --client-options)!
 577
 578       if (grc < 0)
 579         break;
 580       bool push_server_opt = false;
 581       switch (grc)
 582         {
 583         case 'V':
 584           push_server_opt = true;
 585           version ();
 586           exit (0);
 587
 588         case 'v':
 589           push_server_opt = true;
 590           for (unsigned i=0; i<5; i++)
 591             perpass_verbose[i] ++;
 592           verbose ++;
 593           break;
 594
 595         case 'G':
 596           // Make sure the global option is only composed of the
 597           // following chars: [_=a-zA-Z0-9]
 598           assert_regexp_match("-G parameter", optarg, "^[a-z_][a-z0-9_]+=[a-z0-9_-]+$");
 599
 600           globalopts.push_back (string(optarg));
 601           break;
 602
 603         case 't':
 604           push_server_opt = true;
 605           timing = true;
 606           break;
 607
 608         case 'w':
 609           push_server_opt = true;
 610           suppress_warnings = true;
 611           break;
 612
 613         case 'W':
 614           push_server_opt = true;
 615           panic_warnings = true;
 616           break;
 617
 618         case 'p':
 619           last_pass = (int)strtoul(optarg, &num_endptr, 10);
 620           if (*num_endptr != '\0' || last_pass < 1 || last_pass > 5)
 621             {
 622               cerr << _("Invalid pass number (should be 1-5).") << endl;
 623               return 1;
 624             }
 625           if (listing_mode && last_pass != 2)
 626             {
 627               cerr << _("Listing (-l) mode implies pass 2.") << endl;
 628               return 1;
 629             }
 630           push_server_opt = true;
 631           break;
 632
 633         case 'I':
 634           if (client_options)
 635             client_options_disallowed += client_options_disallowed.empty () ? "-I" : ", -I";
 636           if (include_arg_start == -1)
 637             include_arg_start = include_path.size ();
 638           include_path.push_back (string (optarg));
 639           break;
 640
 641         case 'd':
 642           push_server_opt = true;
 643           {
 644             // At runtime user module names are resolved through their
 645             // canonical (absolute) path.
 646             const char *mpath = canonicalize_file_name (optarg);
 647             if (mpath == NULL) // Must be a kernel module name
 648               mpath = optarg;
 649             unwindsym_modules.insert (string (mpath));
 650             // PR10228: trigger vma tracker logic early if -d /USER-MODULE/
 651             // given. XXX This is actually too early. Having a user module
 652             // is a good indicator that something will need vma tracking.
 653             // But it is not 100%, this really should only trigger through
 654             // a user mode tapset /* pragma:vma */ or a probe doing a
 655             // variable lookup through a dynamic module.
 656             if (mpath[0] == '/')
 657               enable_vma_tracker (*this);
 658             break;
 659           }
 660
 661         case 'e':
 662           if (have_script)
 663             {
 664               cerr << _("Only one script can be given on the command line.")
 665                    << endl;
 666               return 1;
 667             }
 668           push_server_opt = true;
 669           cmdline_script = string (optarg);
 670           have_script = true;
 671           break;
 672
 673         case 'o':
 674           // NB: client_options not a problem, since pass 1-4 does not use output_file.
 675           push_server_opt = true;
 676           output_file = string (optarg);
 677           break;
 678
 679         case 'R':
 680           if (client_options) { cerr << _F("ERROR: %s invalid with %s", "-R", "--client-options") << endl; return 1; }
 681           runtime_specified = true;
 682           runtime_path = string (optarg);
 683           break;
 684
 685         case 'm':
 686           if (client_options)
 687             client_options_disallowed += client_options_disallowed.empty () ? "-m" : ", -m";
 688           module_name = string (optarg);
 689           save_module = true;
 690           {
 691             // If the module name ends with '.ko', chop it off since
 692             // modutils doesn't like modules named 'foo.ko.ko'.
 693             if (endswith(module_name, ".ko"))
 694               {
 695                 module_name.erase(module_name.size() - 3);
 696                 cerr << _F("Truncating module name to '%s'", module_name.c_str()) << endl;
 697               }
 698
 699             // Make sure an empty module name wasn't specified (-m "")
 700             if (module_name.empty())
 701             {
 702                 cerr << _("Module name cannot be empty.") << endl;
 703                 return 1;
 704             }
 705
 706             // Make sure the module name is only composed of the
 707             // following chars: [a-z0-9_]
 708             assert_regexp_match("-m parameter", module_name, "^[a-z0-9_]+$");
 709
 710             // Make sure module name isn't too long.
 711             if (module_name.size() >= (MODULE_NAME_LEN - 1))
 712               {
 713                 module_name.resize(MODULE_NAME_LEN - 1);
 714                 cerr << _F("Truncating module name to '%s'", module_name.c_str()) << endl;
 715               }
 716           }
 717
 718           push_server_opt = true;
 719           use_script_cache = false;
 720           break;
 721
 722         case 'r':
 723           if (client_options) // NB: no paths!
 724             assert_regexp_match("-r parameter from client", optarg, "^[a-z0-9_.-]+$");
 725           push_server_opt = true;
 726           setup_kernel_release(optarg);
 727           break;
 728
 729         case 'a':
 730           assert_regexp_match("-a parameter", optarg, "^[a-z0-9_-]+$");
 731           push_server_opt = true;
 732           architecture = string(optarg);
 733           break;
 734
 735         case 'k':
 736           push_server_opt = true;
 737           keep_tmpdir = true;
 738           use_script_cache = false; /* User wants to keep a usable build tree. */
 739           break;
 740
 741         case 'g':
 742           push_server_opt = true;
 743           guru_mode = true;
 744           break;
 745
 746         case 'P':
 747           push_server_opt = true;
 748           prologue_searching = true;
 749           break;
 750
 751         case 'b':
 752           push_server_opt = true;
 753           bulk_mode = true;
 754           break;
 755
 756         case 'u':
 757           push_server_opt = true;
 758           unoptimized = true;
 759           break;
 760
 761         case 's':
 762           buffer_size = (int) strtoul (optarg, &num_endptr, 10);
 763           if (*num_endptr != '\0' || buffer_size < 1 || buffer_size > 4095)
 764             {
 765               cerr << _("Invalid buffer size (should be 1-4095).") << endl;
 766               return 1;
 767             }
 768           push_server_opt = true;
 769           break;
 770
 771         case 'c':
 772           push_server_opt = true;
 773           cmd = string (optarg);
 774           if (cmd == "")
 775             {
 776               // This would mess with later code deciding to pass -c
 777               // through to staprun
 778               cerr << _("Empty CMD string invalid.") << endl;
 779               return 1;
 780             }
 781           break;
 782
 783         case 'x':
 784           target_pid = (int) strtoul(optarg, &num_endptr, 10);
 785           if (*num_endptr != '\0')
 786             {
 787               cerr << _("Invalid target process ID number.") << endl;
 788               return 1;
 789             }
 790           push_server_opt = true;
 791           break;
 792
 793         case 'D':
 794           assert_regexp_match ("-D parameter", optarg, "^[a-z_][a-z_0-9]*(=-?[a-z_0-9]+)?$");
 795           if (client_options)
 796             client_options_disallowed += client_options_disallowed.empty () ? "-D" : ", -D";
 797           push_server_opt = true;
 798           macros.push_back (string (optarg));
 799           break;
 800
 801         case 'S':
 802           assert_regexp_match ("-S parameter", optarg, "^[0-9]+(,[0-9]+)?$");
 803           push_server_opt = true;
 804           size_option = string (optarg);
 805           break;
 806
 807         case 'q':
 808           if (client_options) { cerr << _F("ERROR: %s invalid with %s", "-q", "--client-options") << endl; return 1; }
 809           push_server_opt = true;
 810           tapset_compile_coverage = true;
 811           break;
 812
 813         case 'h':
 814           usage (0);
 815           break;
 816
 817         case 'L':
 818           listing_mode_vars = true;
 819           unoptimized = true; // This causes retention of variables for listing_mode
 820           // fallthrough
 821         case 'l':
 822           suppress_warnings = true;
 823           listing_mode = true;
 824           last_pass = 2;
 825           if (have_script)
 826             {
 827               cerr << _("Only one script can be given on the command line.")
 828                    << endl;
 829               return 1;
 830             }
 831           push_server_opt = true;
 832           cmdline_script = string("probe ") + string(optarg) + " {}";
 833           have_script = true;
 834           break;
 835
 836         case 'F':
 837           push_server_opt = true;
 838           load_only = true;
 839           break;
 840
 841         case 'B':
 842           if (client_options) { cerr << _F("ERROR: %s invalid with %s", "-B", "--client-options") << endl; return 1; }
 843           push_server_opt = true;
 844           kbuildflags.push_back (string (optarg));
 845           break;
 846
 847         case 0:
 848           switch (long_opt)
 849             {
 850             case LONG_OPT_VERSION:
 851               push_server_opt = true;
 852               version ();
 853               exit (0);
 854               break;
 855             case LONG_OPT_KELF:
 856               push_server_opt = true;
 857               consult_symtab = true;
 858               break;
 859             case LONG_OPT_KMAP:
 860               // Leave consult_symtab unset for now, to ease error checking.
 861               if (!kernel_symtab_path.empty())
 862                 {
 863                   cerr << _("You can't specify multiple --kmap options.") << endl;
 864                   return 1;
 865                 }
 866               push_server_opt = true;
 867               if (optarg)
 868                 kernel_symtab_path = optarg;
 869               else
 870                 kernel_symtab_path = PATH_TBD;
 871               break;
 872             case LONG_OPT_IGNORE_VMLINUX:
 873               push_server_opt = true;
 874               ignore_vmlinux = true;
 875               break;
 876             case LONG_OPT_IGNORE_DWARF:
 877               push_server_opt = true;
 878               ignore_dwarf = true;
 879               break;
 880             case LONG_OPT_VERBOSE_PASS:
 881               {
 882                 bool ok = true;
 883                 if (strlen(optarg) < 1 || strlen(optarg) > 5)
 884                   ok = false;
 885                 if (ok)
 886                   for (unsigned i=0; i<strlen(optarg); i++)
 887                     if (isdigit (optarg[i]))
 888                       perpass_verbose[i] += optarg[i]-'0';
 889                     else
 890                       ok = false;
 891
 892                 if (! ok)
 893                   {
 894                     cerr << _("Invalid --vp argument: it takes 1 to 5 digits.") << endl;
 895                     return 1;
 896                   }
 897                 // NB: we don't do this: last_pass = strlen(optarg);
 898                 push_server_opt = true;
 899                 break;
 900               }
 901             case LONG_OPT_SKIP_BADVARS:
 902               push_server_opt = true;
 903               skip_badvars = true;
 904               break;
 905             case LONG_OPT_UNPRIVILEGED:
 906               push_server_opt = true;
 907               unprivileged = true;
 908               /* NB: for server security, it is essential that once this flag is
 909                  set, no future flag be able to unset it. */
 910               break;
 911             case LONG_OPT_OMIT_WERROR:
 912               push_server_opt = true;
 913               omit_werror = true;
 914               break;
 915             case LONG_OPT_CLIENT_OPTIONS:
 916               client_options = true;
 917               break;
 918             case LONG_OPT_USE_SERVER:
 919               if (client_options)
 920                 client_options_disallowed += client_options_disallowed.empty () ? "--use-server" : ", --use-server";
 921               if (optarg)
 922                 specified_servers.push_back (optarg);
 923               else
 924                 specified_servers.push_back ("");
 925               break;
 926             case LONG_OPT_USE_SERVER_ON_ERROR:
 927               if (client_options)
 928                 client_options_disallowed += client_options_disallowed.empty () ? "--use-server-on-error" : ", --use-server-on-error";
 929               if (optarg)
 930                 {
 931                   string arg = optarg;
 932                   for (unsigned i = 0; i < arg.size (); ++i)
 933                     arg[i] = tolower (arg[i]);
 934                   if (arg == "yes" || arg == "ye" || arg == "y")
 935                     use_server_on_error = true;
 936                   else if (arg == "no" || arg == "n")
 937                     use_server_on_error = false;
 938                   else
 939                     cerr << _F("Invalid argument '%s' for --use-server-on-error.", optarg) << endl;
 940                 }
 941               else
 942                 use_server_on_error = true;
 943               break;
 944             case LONG_OPT_LIST_SERVERS:
 945               if (client_options)
 946                 client_options_disallowed += client_options_disallowed.empty () ? "--list-servers" : ", --list-servers";
 947               if (optarg)
 948                 server_status_strings.push_back (optarg);
 949               else
 950                 server_status_strings.push_back ("");
 951               break;
 952             case LONG_OPT_TRUST_SERVERS:
 953               if (client_options)
 954                 client_options_disallowed += client_options_disallowed.empty () ? "--trust-servers" : ", --trust-servers";
 955               if (optarg)
 956                 server_trust_spec = optarg;
 957               else
 958                 server_trust_spec = "ssl";
 959               break;
 960             case LONG_OPT_HELP:
 961               usage (0);
 962               break;
 963
 964             // The caching options should not be available to server clients
 965             case LONG_OPT_DISABLE_CACHE:
 966               if (client_options) {
 967                   cerr << _F("ERROR: %s is invalid with %s", "--disable-cache", "--client-options") << endl;
 968                   return 1;
 969               }
 970               use_cache = use_script_cache = false;
 971               break;
 972             case LONG_OPT_POISON_CACHE:
 973               if (client_options) {
 974                   cerr << _F("ERROR: %s is invalid with %s", "--poison-cache", "--client-options") << endl;
 975                   return 1;
 976               }
 977               poison_cache = true;
 978               break;
 979             case LONG_OPT_CLEAN_CACHE:
 980               if (client_options) {
 981                   cerr << _F("ERROR: %s is invalid with %s", "--clean-cache", "--client-options") << endl;
 982                   return 1;
 983               }
 984               clean_cache(*this);
 985               exit(0);
 986
 987             case LONG_OPT_COMPATIBLE:
 988               push_server_opt = true;
 989               compatible = optarg;
 990               break;
 991
 992             case LONG_OPT_LDD:
 993               if (client_options) {
 994                   cerr << _F("ERROR: %s is invalid with %s", "--ldd", "--client-options") << endl;
 995                   return 1;
 996               }
 997               push_server_opt = true;
 998               unwindsym_ldd = true;
 999               break;
1000
1001             case LONG_OPT_ALL_MODULES:
1002               if (client_options) {
1003                   cerr << _F("ERROR: %s is invalid with %s", "--all-modules", "--client-options") << endl;
1004                   return 1;
1005               }
1006               insert_loaded_modules();
1007               break;
1008
1009             case LONG_OPT_REMOTE:
1010               if (client_options) {
1011                   cerr << _F("ERROR: %s is invalid with %s", "--remote", "--client-options") << endl;
1012                   return 1;
1013               }
1014
1015               remote_uris.push_back(optarg);
1016               break;
1017
1018             case LONG_OPT_CHECK_VERSION:
1019               push_server_opt = true;
1020               systemtap_v_check = true;
1021               break;
1022
1023             default:
1024               // NOTREACHED unless one added a getopt option but not a corresponding switch/case:
1025               cerr << _F("Unhandled long argument id %d", long_opt) << endl;
1026               return 1;
1027             }
1028           break;
1029
1030         case '?':
1031           // Invalid/unrecognized option given or argument required, but
1032           // not given. In both cases getopt_long() will have printed the
1033           // appropriate error message to stderr already.
1034           return 1;
1035           break;
1036
1037         default:
1038           // NOTREACHED unless one added a getopt option but not a corresponding switch/case:
1039           cerr << _F("Unhandled argument code %d", (char)grc) << endl;
1040           return 1;
1041           break;
1042         }
1043
1044       // Pass selected options on to the server, if any.
1045       if (push_server_opt)
1046         {
1047           if (grc == 0)
1048             server_args.push_back (string ("--") +
1049                                    long_options[long_opt - 1].name);
1050           else
1051             server_args.push_back (string ("-") + (char)grc);
1052           if (optarg)
1053             server_args.push_back (optarg);
1054         }
1055     }
1056
1057   return 0;
1058 }
1059
1060 void
1061 systemtap_session::check_options (int argc, char * const argv [])
1062 {
1063   for (int i = optind; i < argc; i++)
1064     {
1065       if (! have_script)
1066         {
1067           script_file = string (argv[i]);
1068           have_script = true;
1069         }
1070       else
1071         args.push_back (string (argv[i]));
1072     }
1073
1074   // need a user file
1075   // NB: this is also triggered if stap is invoked with no arguments at all
1076   if (! have_script)
1077     {
1078       // We don't need a script if --list-servers or --trust-servers was specified
1079       if (server_status_strings.empty () && server_trust_spec.empty ())
1080         {
1081           cerr << _("A script must be specified.") << endl;
1082           usage(1);
1083         }
1084     }
1085
1086 #if ! HAVE_NSS
1087   if (client_options)
1088     cerr << _("WARNING: --client-options is not supported by this version of systemtap") << endl;
1089 #endif
1090
1091 #if ! HAVE_NSS
1092   if (! server_trust_spec.empty ())
1093     {
1094       cerr << _("WARNING: --trust-servers is not supported by this version of systemtap") << endl;
1095       server_trust_spec.clear ();
1096     }
1097 #endif
1098
1099   if (runtime_specified && ! specified_servers.empty ())
1100     {
1101       cerr << _("Warning: Ignoring --use-server due to the use of -R") << endl;
1102       specified_servers.clear ();
1103     }
1104
1105   if (client_options && last_pass > 4)
1106     {
1107       last_pass = 4; /* Quietly downgrade.  Server passed through -p5 naively. */
1108     }
1109
1110   // If phase 5 has been requested and the user is a member of stapusr but not
1111   // stapdev, then add --unprivileged and --use-server to the invocation,
1112   // if not already specified.
1113   // XXX Eventually we could check remote hosts, but disable that case for now.
1114   if (last_pass > 4 && have_script && remote_uris.empty())
1115     {
1116       struct group *stgr = getgrnam ("stapusr");
1117       if (stgr && in_group_id (stgr->gr_gid))
1118         {
1119           stgr = getgrnam ("stapdev");
1120           if (! stgr || ! in_group_id (stgr->gr_gid))
1121             {
1122               if (! unprivileged)
1123                 {
1124                   if (perpass_verbose[0] > 1)
1125                     cerr << _("Using --unprivileged for member of the group stapusr") << endl;
1126                   unprivileged = true;
1127                   server_args.push_back ("--unprivileged");
1128                 }
1129               if (specified_servers.empty ())
1130                 {
1131                   if (perpass_verbose[0] > 1)
1132                     cerr << _("Using --use-server for member of the group stapusr") << endl;
1133                   specified_servers.push_back ("");
1134                 }
1135             }
1136         }
1137     }
1138
1139   if (client_options && unprivileged && ! client_options_disallowed.empty ())
1140     {
1141       cerr << _F("You can't specify %s when --unprivileged is specified.",
1142                  client_options_disallowed.c_str()) << endl;
1143       usage (1);
1144     }
1145   if ((cmd != "") && (target_pid))
1146     {
1147       cerr << _F("You can't specify %s and %s together.", "-c", "-x") << endl;
1148       usage (1);
1149     }
1150   if (unprivileged && guru_mode)
1151     {
1152       cerr << _F("You can't specify %s and %s together.", "-g", "--unprivileged") << endl;
1153       usage (1);
1154     }
1155   if (!kernel_symtab_path.empty())
1156     {
1157       if (consult_symtab)
1158       {
1159         cerr << _F("You can't specify %s and %s together.", "--kelf", "--kmap") << endl;
1160         usage (1);
1161       }
1162       consult_symtab = true;
1163       if (kernel_symtab_path == PATH_TBD)
1164         kernel_symtab_path = string("/boot/System.map-") + kernel_release;
1165     }
1166   // Warn in case the target kernel release doesn't match the running one.
1167   if (last_pass > 4 &&
1168       (release != kernel_release ||
1169        machine != architecture)) // NB: squashed ARCH by PR4186 logic
1170    {
1171      if(! suppress_warnings)
1172        cerr << _("WARNING: kernel release/architecture mismatch with host forces last-pass 4.") << endl;
1173      last_pass = 4;
1174    }
1175
1176   // translate path of runtime to absolute path
1177   if (runtime_path[0] != '/')
1178     {
1179       char cwd[PATH_MAX];
1180       if (getcwd(cwd, sizeof(cwd)))
1181         {
1182           runtime_path = string(cwd) + "/" + runtime_path;
1183         }
1184     }
1185
1186   // Abnormal characters in our temp path can break us, including parts out
1187   // of our control like Kbuild.  Let's enforce nice, safe characters only.
1188   const char *tmpdir = getenv("TMPDIR");
1189   if (tmpdir)
1190     assert_regexp_match("TMPDIR", tmpdir, "^[-/._0-9a-z]+$");
1191 }
1192
1193
1194 void
1195 systemtap_session::init_try_server ()
1196 {
1197 #if HAVE_NSS
1198   // If the option is disabled or we are a server or we are already using a
1199   // server, then never retry compilation using a server.
1200   if (! use_server_on_error || client_options || ! specified_servers.empty ())
1201     try_server_status = dont_try_server;
1202   else
1203     try_server_status = try_server_unset;
1204 #else
1205   // No client, so don't bother.
1206   try_server_status = dont_try_server;
1207 #endif
1208 }
1209
1210 void
1211 systemtap_session::set_try_server (int t)
1212 {
1213   if (try_server_status != dont_try_server)
1214     try_server_status = t;
1215 }
1216
1217
1218 void systemtap_session::insert_loaded_modules()
1219 {
1220   char line[1024];
1221   ifstream procmods ("/proc/modules");
1222   while (procmods.good()) {
1223     procmods.getline (line, sizeof(line));
1224     strtok(line, " \t");
1225     if (line[0] == '\0')
1226       break;  // maybe print a warning?
1227     unwindsym_modules.insert (string (line));
1228   }
1229   procmods.close();
1230   unwindsym_modules.insert ("kernel");
1231 }
1232
1233 void
1234 systemtap_session::setup_kernel_release (const char* kstr)
1235 {
1236   // Sometimes we may get dupes here... e.g. a server may have a full
1237   // -r /path/to/kernel followed by a client's -r kernel.
1238   if (kernel_release == kstr)
1239     return; // nothing new here...
1240
1241   kernel_release = kernel_build_tree = kernel_source_tree = "";
1242   if (kstr[0] == '/') // fully specified path
1243     {
1244       kernel_build_tree = kstr;
1245       string version_file_name = kernel_build_tree + "/include/config/kernel.release";
1246       // The file include/config/kernel.release within the
1247       // build tree is used to pull out the version information
1248       ifstream version_file (version_file_name.c_str());
1249       if (version_file.fail ())
1250         {
1251           if (verbose > 1)
1252             //TRANSLATORS: Missing a file
1253             cerr << _F("Missing %s", version_file_name.c_str()) << endl;
1254           return; // pass0 will realize the failure
1255         }
1256       else
1257         {
1258           char c;
1259           while (version_file.get(c) && c != '\n')
1260             kernel_release.push_back(c);
1261         }
1262
1263       // PR10745
1264       // Maybe it's a full kernel source tree, for purposes of PR10745.
1265       // In case CONFIG_DEBUG_INFO was set, we'd find it anyway with the
1266       // normal search in tapsets.cxx.  Without CONFIG_DEBUG_INFO, we'd
1267       // need heuristics such as this one:
1268
1269       string some_random_source_only_file = kernel_build_tree + "/COPYING";
1270       ifstream epic (some_random_source_only_file.c_str());
1271       if (! epic.fail())
1272         {
1273           kernel_source_tree = kernel_build_tree;
1274           if (verbose > 2)
1275             clog << _F("Located kernel source tree (COPYING) at '%s'", kernel_source_tree.c_str()) << endl;
1276         }
1277     }
1278   else
1279     {
1280       kernel_release = string (kstr);
1281       if (!kernel_release.empty())
1282         kernel_build_tree = "/lib/modules/" + kernel_release + "/build";
1283
1284       // PR10745
1285       // Let's not look for the kernel_source_tree; it's definitely
1286       // not THERE.  tapsets.cxx might try to find it later if tracepoints
1287       // need it.
1288     }
1289 }
1290
1291
1292 // Register all the aliases we've seen in library files, and the user
1293 // file, as patterns.
1294 void
1295 systemtap_session::register_library_aliases()
1296 {
1297   vector<stapfile*> files(library_files);
1298   files.push_back(user_file);
1299
1300   for (unsigned f = 0; f < files.size(); ++f)
1301     {
1302       stapfile * file = files[f];
1303       for (unsigned a = 0; a < file->aliases.size(); ++a)
1304         {
1305           probe_alias * alias = file->aliases[a];
1306           try
1307             {
1308               for (unsigned n = 0; n < alias->alias_names.size(); ++n)
1309                 {
1310                   probe_point * name = alias->alias_names[n];
1311                   match_node * mn = pattern_root;
1312                   for (unsigned c = 0; c < name->components.size(); ++c)
1313                     {
1314                       probe_point::component * comp = name->components[c];
1315                       // XXX: alias parameters
1316                       if (comp->arg)
1317                         throw semantic_error(_F("alias component %s contains illegal parameter",
1318                                                 comp->functor.c_str()));
1319                       mn = mn->bind(comp->functor);
1320                     }
1321                   mn->bind(new alias_expansion_builder(alias));
1322                 }
1323             }
1324           catch (const semantic_error& e)
1325             {
1326               semantic_error* er = new semantic_error (e); // copy it
1327               stringstream msg;
1328               msg << e.msg2;
1329               msg << _(" while registering probe alias ");
1330               alias->printsig(msg);
1331               er->msg2 = msg.str();
1332               print_error (* er);
1333               delete er;
1334             }
1335         }
1336     }
1337 }
1338
1339
1340 // Print this given token, but abbreviate it if the last one had the
1341 // same file name.
1342 void
1343 systemtap_session::print_token (ostream& o, const token* tok)
1344 {
1345   assert (tok);
1346
1347   if (last_token && last_token->location.file == tok->location.file)
1348     {
1349       stringstream tmpo;
1350       tmpo << *tok;
1351       string ts = tmpo.str();
1352       // search & replace the file name with nothing
1353       size_t idx = ts.find (tok->location.file->name);
1354       if (idx != string::npos)
1355           ts.replace (idx, tok->location.file->name.size(), "");
1356
1357       o << ts;
1358     }
1359   else
1360     o << *tok;
1361
1362   last_token = tok;
1363 }
1364
1365
1366
1367 void
1368 systemtap_session::print_error (const semantic_error& e)
1369 {
1370   string message_str[2];
1371   string align_semantic_error ("        ");
1372
1373   // We generate two messages.  The second one ([1]) is printed
1374   // without token compression, for purposes of duplicate elimination.
1375   // This way, the same message that may be generated once with a
1376   // compressed and once with an uncompressed token still only gets
1377   // printed once.
1378   for (int i=0; i<2; i++)
1379     {
1380       stringstream message;
1381
1382       message << _F("semantic error: %s", e.what ());
1383       if (e.tok1 || e.tok2)
1384         message << ": ";
1385       if (e.tok1)
1386         {
1387           if (i == 0) print_token (message, e.tok1);
1388           else message << *e.tok1;
1389         }
1390       message << e.msg2;
1391       if (e.tok2)
1392         {
1393           if (i == 0) print_token (message, e.tok2);
1394           else message << *e.tok2;
1395         }
1396       message << endl;
1397       message_str[i] = message.str();
1398     }
1399
1400   // Duplicate elimination
1401   if (seen_errors.find (message_str[1]) == seen_errors.end())
1402     {
1403       seen_errors.insert (message_str[1]);
1404       cerr << message_str[0];
1405
1406       if (e.tok1)
1407         print_error_source (cerr, align_semantic_error, e.tok1);
1408
1409       if (e.tok2)
1410         print_error_source (cerr, align_semantic_error, e.tok2);
1411     }
1412
1413   if (e.chain)
1414     print_error (* e.chain);
1415 }
1416
1417 void
1418 systemtap_session::print_error_source (std::ostream& message,
1419                                        std::string& align, const token* tok)
1420 {
1421   unsigned i = 0;
1422
1423   assert (tok);
1424   if (!tok->location.file)
1425     //No source to print, silently exit
1426     return;
1427
1428   unsigned line = tok->location.line;
1429   unsigned col = tok->location.column;
1430   const string &file_contents = tok->location.file->file_contents;
1431
1432   size_t start_pos = 0, end_pos = 0;
1433   //Navigate to the appropriate line
1434   while (i != line && end_pos != std::string::npos)
1435     {
1436       start_pos = end_pos;
1437       end_pos = file_contents.find ('\n', start_pos) + 1;
1438       i++;
1439     }
1440   //TRANSLATORS:  Here were are printing the source string of the error
1441   message << align << _("source: ") << file_contents.substr (start_pos, end_pos-start_pos-1) << endl;
1442   message << align << "        ";
1443   //Navigate to the appropriate column
1444   for (i=start_pos; i<start_pos+col-1; i++)
1445     {
1446       if(isspace(file_contents[i]))
1447         message << file_contents[i];
1448       else
1449         message << ' ';
1450     }
1451   message << "^" << endl;
1452 }
1453
1454 void
1455 systemtap_session::print_warning (const string& message_str, const token* tok)
1456 {
1457   // Duplicate elimination
1458   string align_warning (" ");
1459   if (seen_warnings.find (message_str) == seen_warnings.end())
1460     {
1461       seen_warnings.insert (message_str);
1462       clog << _("WARNING: ") << message_str;
1463       if (tok) { clog << ": "; print_token (clog, tok); }
1464       clog << endl;
1465       if (tok) { print_error_source (clog, align_warning, tok); }
1466     }
1467 }
1468
1469 // --------------------------------------------------------------------------
1470
1471 /*
1472 Perngrq sebz fzvyrlgnc.fit, rkcbegrq gb n 1484k1110 fzvyrlgnc.cat,
1473 gurapr  catgbcnz | cazfpnyr -jvqgu 160 |
1474 cczqvgure -qvz 4 -erq 2 -terra 2 -oyhr 2  | cczgbnafv -2k4 | bq -i -j19 -g k1 |
1475 phg -s2- -q' ' | frq -r 'f,^,\\k,' -r 'f, ,\\k,t' -r 'f,^,",'  -r 'f,$,",'
1476 */
1477 const char*
1478 systemtap_session::morehelp =
1479 "\x1b\x5b\x30\x6d\x1b\x5b\x33\x37\x6d\x20\x20\x20\x20\x20\x20\x20\x20\x20\x20"
1480 "\x20\x20\x20\x20\x20\x20\x20\x20\x20\x20\x20\x20\x20\x20\x20\x20\x20\x20\x20"
1481 "\x20\x20\x20\x20\x20\x20\x20\x20\x20\x20\x20\x20\x20\x20\x20\x20\x20\x20\x20"
1482 "\x20\x20\x20\x60\x20\x20\x2e\x60\x20\x20\x20\x20\x20\x20\x20\x20\x20\x20\x20"
1483 "\x20\x20\x20\x20\x20\x20\x20\x20\x20\x20\x20\x20\x20\x0a\x20\x20\x20\x20\x20"
1484 "\x20\x20\x20\x20\x20\x20\x20\x20\x20\x20\x20\x20\x20\x20\x20\x20\x20\x20\x20"
1485 "\x20\x20\x20\x20\x20\x20\x20\x20\x20\x20\x20\x20\x20\x20\x20\x20\x20\x20\x20"
1486 "\x20\x20\x60\x20\x60\x20\x60\x20\x60\x20\x60\x20\x60\x20\x60\x20\x60\x1b\x5b"
1487 "\x33\x33\x6d\x20\x1b\x5b\x33\x37\x6d\x20\x20\x20\x20\x20\x20\x20\x20\x20\x20"
1488 "\x20\x20\x20\x20\x20\x20\x20\x20\x20\x0a\x20\x20\x20\x20\x20\x20\x20\x20\x20"
1489 "\x20\x20\x20\x20\x20\x20\x20\x20\x20\x20\x20\x20\x20\x20\x20\x20\x20\x20\x20"
1490 "\x20\x20\x20\x20\x20\x20\x20\x20\x20\x20\x20\x20\x1b\x5b\x33\x33\x6d\x20\x60"
1491 "\x2e\x60\x1b\x5b\x33\x37\x6d\x20\x3a\x2c\x3a\x2e\x60\x20\x60\x20\x60\x20\x60"
1492 "\x2c\x3b\x2c\x3a\x20\x1b\x5b\x33\x33\x6d\x60\x2e\x60\x20\x1b\x5b\x33\x37\x6d"
1493 "\x20\x20\x20\x20\x20\x20\x20\x20\x20\x20\x20\x20\x20\x20\x20\x0a\x20\x20\x20"
1494 "\x20\x20\x20\x20\x20\x20\x20\x20\x20\x20\x20\x20\x20\x20\x20\x20\x20\x20\x20"
1495 "\x20\x20\x20\x20\x20\x20\x20\x20\x20\x20\x20\x20\x20\x20\x20\x20\x1b\x5b\x33"
1496 "\x33\x6d\x20\x60\x20\x60\x20\x3a\x27\x60\x1b\x5b\x33\x37\x6d\x20\x60\x60\x60"
1497 "\x20\x20\x20\x60\x20\x60\x60\x60\x20\x1b\x5b\x33\x33\x6d\x60\x3a\x60\x20\x60"
1498 "\x20\x60\x20\x1b\x5b\x33\x37\x6d\x20\x20\x20\x20\x20\x20\x20\x20\x20\x20\x20"
1499 "\x20\x20\x0a\x20\x20\x20\x20\x20\x20\x20\x20\x20\x20\x20\x20\x20\x20\x20\x20"
1500 "\x20\x20\x20\x20\x20\x20\x20\x20\x20\x20\x20\x20\x20\x20\x20\x20\x20\x20\x20"
1501 "\x20\x2e\x1b\x5b\x33\x33\x6d\x60\x2e\x60\x20\x60\x20\x60\x20\x20\x1b\x5b\x33"
1502 "\x37\x6d\x20\x3a\x20\x20\x20\x60\x20\x20\x20\x60\x20\x20\x2e\x1b\x5b\x33\x33"
1503 "\x6d\x60\x20\x60\x2e\x60\x20\x60\x2e\x60\x20\x1b\x5b\x33\x37\x6d\x20\x20\x20"
1504 "\x20\x20\x20\x20\x20\x20\x20\x20\x0a\x20\x20\x20\x20\x20\x20\x2e\x3a\x20\x20"
1505 "\x20\x20\x20\x20\x20\x20\x2e\x20\x20\x20\x20\x20\x20\x20\x20\x20\x20\x20\x20"
1506 "\x20\x20\x2e\x76\x53\x1b\x5b\x33\x34\x6d\x53\x1b\x5b\x33\x37\x6d\x53\x1b\x5b"
1507 "\x33\x31\x6d\x2b\x1b\x5b\x33\x33\x6d\x60\x20\x60\x20\x60\x20\x20\x20\x20\x1b"
1508 "\x5b\x33\x31\x6d\x3f\x1b\x5b\x33\x30\x6d\x53\x1b\x5b\x33\x33\x6d\x2b\x1b\x5b"
1509 "\x33\x37\x6d\x20\x20\x20\x20\x20\x20\x20\x2e\x1b\x5b\x33\x30\x6d\x24\x1b\x5b"
1510 "\x33\x37\x6d\x3b\x1b\x5b\x33\x31\x6d\x7c\x1b\x5b\x33\x33\x6d\x20\x60\x20\x60"
1511 "\x20\x60\x20\x60\x1b\x5b\x33\x31\x6d\x2c\x1b\x5b\x33\x32\x6d\x53\x1b\x5b\x33"
1512 "\x37\x6d\x53\x53\x3e\x2c\x2e\x20\x20\x20\x20\x20\x0a\x20\x20\x20\x20\x20\x2e"
1513 "\x3b\x27\x20\x20\x20\x20\x20\x20\x20\x20\x20\x60\x3c\x20\x20\x20\x20\x20\x20"
1514 "\x20\x20\x20\x2e\x2e\x3a\x1b\x5b\x33\x30\x6d\x26\x46\x46\x46\x48\x46\x1b\x5b"
1515 "\x33\x33\x6d\x60\x2e\x60\x20\x60\x20\x60\x20\x60\x1b\x5b\x33\x30\x6d\x4d\x4d"
1516 "\x46\x1b\x5b\x33\x33\x6d\x20\x20\x1b\x5b\x33\x37\x6d\x20\x20\x20\x20\x1b\x5b"
1517 "\x33\x33\x6d\x20\x3a\x1b\x5b\x33\x30\x6d\x4d\x4d\x46\x1b\x5b\x33\x33\x6d\x20"
1518 "\x20\x20\x60\x20\x60\x2e\x60\x1b\x5b\x33\x31\x6d\x3c\x1b\x5b\x33\x30\x6d\x46"
1519 "\x46\x46\x24\x53\x46\x1b\x5b\x33\x37\x6d\x20\x20\x20\x20\x20\x0a\x20\x20\x20"
1520 "\x20\x2e\x3c\x3a\x60\x20\x20\x20\x20\x2e\x3a\x2e\x3a\x2e\x2e\x3b\x27\x20\x20"
1521 "\x20\x20\x20\x20\x2e\x60\x2e\x3a\x60\x60\x3c\x27\x1b\x5b\x33\x31\x6d\x3c\x27"
1522 "\x1b\x5b\x33\x33\x6d\x20\x60\x20\x60\x20\x60\x20\x20\x20\x60\x3c\x1b\x5b\x33"
1523 "\x30\x6d\x26\x1b\x5b\x33\x31\x6d\x3f\x1b\x5b\x33\x33\x6d\x20\x1b\x5b\x33\x37"
1524 "\x6d\x20\x1b\x5b\x33\x33\x6d\x20\x20\x20\x20\x20\x1b\x5b\x33\x37\x6d\x60\x1b"
1525 "\x5b\x33\x30\x6d\x2a\x46\x1b\x5b\x33\x37\x6d\x27\x1b\x5b\x33\x33\x6d\x20\x60"
1526 "\x20\x60\x20\x60\x20\x60\x20\x1b\x5b\x33\x31\x6d\x60\x3a\x1b\x5b\x33\x37\x6d"
1527 "\x27\x3c\x1b\x5b\x33\x30\x6d\x23\x1b\x5b\x33\x37\x6d\x3c\x60\x3a\x20\x20\x20"
1528 "\x0a\x20\x20\x20\x20\x3a\x60\x3a\x60\x20\x20\x20\x60\x3a\x2e\x2e\x2e\x2e\x3c"
1529 "\x3c\x20\x20\x20\x20\x20\x20\x3a\x2e\x60\x3a\x60\x20\x20\x20\x60\x1b\x5b\x33"
1530 "\x33\x6d\x3a\x1b\x5b\x33\x31\x6d\x60\x1b\x5b\x33\x33\x6d\x20\x60\x2e\x60\x20"
1531 "\x60\x20\x60\x20\x60\x20\x60\x1b\x5b\x33\x37\x6d\x20\x20\x1b\x5b\x33\x33\x6d"
1532 "\x20\x60\x20\x20\x20\x60\x1b\x5b\x33\x37\x6d\x20\x60\x20\x60\x1b\x5b\x33\x33"
1533 "\x6d\x20\x60\x2e\x60\x20\x60\x2e\x60\x20\x60\x3a\x1b\x5b\x33\x37\x6d\x20\x20"
1534 "\x20\x60\x3a\x2e\x60\x2e\x20\x0a\x20\x20\x20\x60\x3a\x60\x3a\x60\x20\x20\x20"
1535 "\x20\x20\x60\x60\x60\x60\x20\x3a\x2d\x20\x20\x20\x20\x20\x60\x20\x60\x20\x20"
1536 "\x20\x20\x20\x60\x1b\x5b\x33\x33\x6d\x3a\x60\x2e\x60\x20\x60\x20\x60\x20\x60"
1537 "\x20\x60\x20\x20\x2e\x3b\x1b\x5b\x33\x31\x6d\x76\x1b\x5b\x33\x30\x6d\x24\x24"
1538 "\x24\x1b\x5b\x33\x31\x6d\x2b\x53\x1b\x5b\x33\x33\x6d\x2c\x60\x20\x60\x20\x60"
1539 "\x20\x60\x20\x60\x20\x60\x2e\x1b\x5b\x33\x31\x6d\x60\x1b\x5b\x33\x33\x6d\x3a"
1540 "\x1b\x5b\x33\x37\x6d\x20\x20\x20\x20\x60\x2e\x60\x20\x20\x0a\x20\x20\x20\x60"
1541 "\x3a\x3a\x3a\x3a\x20\x20\x20\x20\x3a\x60\x60\x60\x60\x3a\x53\x20\x20\x20\x20"
1542 "\x20\x20\x3a\x2e\x60\x2e\x20\x20\x20\x20\x20\x1b\x5b\x33\x33\x6d\x3a\x1b\x5b"
1543 "\x33\x31\x6d\x3a\x1b\x5b\x33\x33\x6d\x2e\x60\x2e\x60\x20\x60\x2e\x60\x20\x60"
1544 "\x20\x3a\x1b\x5b\x33\x30\x6d\x24\x46\x46\x48\x46\x46\x46\x46\x46\x1b\x5b\x33"
1545 "\x31\x6d\x53\x1b\x5b\x33\x33\x6d\x2e\x60\x20\x60\x2e\x60\x20\x60\x2e\x60\x2e"
1546 "\x1b\x5b\x33\x31\x6d\x3a\x1b\x5b\x33\x33\x6d\x3a\x1b\x5b\x33\x37\x6d\x20\x20"
1547 "\x20\x2e\x60\x2e\x3a\x20\x20\x0a\x20\x20\x20\x60\x3a\x3a\x3a\x60\x20\x20\x20"
1548 "\x60\x3a\x20\x2e\x20\x3b\x27\x3a\x20\x20\x20\x20\x20\x20\x3a\x2e\x60\x3a\x20"
1549 "\x20\x20\x20\x20\x3a\x1b\x5b\x33\x33\x6d\x3c\x3a\x1b\x5b\x33\x31\x6d\x60\x1b"
1550 "\x5b\x33\x33\x6d\x2e\x60\x20\x60\x20\x60\x20\x60\x2e\x1b\x5b\x33\x30\x6d\x53"
1551 "\x46\x46\x46\x53\x46\x46\x46\x53\x46\x46\x1b\x5b\x33\x33\x6d\x20\x60\x20\x60"
1552 "\x20\x60\x2e\x60\x2e\x60\x3a\x1b\x5b\x33\x31\x6d\x3c\x1b\x5b\x33\x37\x6d\x20"
1553 "\x20\x20\x20\x3a\x60\x3a\x60\x20\x20\x0a\x20\x20\x20\x20\x60\x3c\x3b\x3c\x20"
1554 "\x20\x20\x20\x20\x60\x60\x60\x20\x3a\x3a\x20\x20\x20\x20\x20\x20\x20\x3a\x3a"
1555 "\x2e\x60\x20\x20\x20\x20\x20\x3a\x1b\x5b\x33\x33\x6d\x3b\x1b\x5b\x33\x31\x6d"
1556 "\x3c\x3a\x60\x1b\x5b\x33\x33\x6d\x2e\x60\x2e\x60\x20\x60\x3a\x1b\x5b\x33\x30"
1557 "\x6d\x53\x46\x53\x46\x46\x46\x53\x46\x46\x46\x53\x1b\x5b\x33\x33\x6d\x2e\x60"
1558 "\x20\x60\x2e\x60\x2e\x60\x3a\x1b\x5b\x33\x31\x6d\x3c\x1b\x5b\x33\x33\x6d\x3b"
1559 "\x1b\x5b\x33\x37\x6d\x27\x20\x20\x20\x60\x3a\x3a\x60\x20\x20\x20\x0a\x20\x20"
1560 "\x20\x20\x20\x60\x3b\x3c\x20\x20\x20\x20\x20\x20\x20\x3a\x3b\x60\x20\x20\x20"
1561 "\x20\x20\x20\x20\x20\x20\x60\x3a\x60\x2e\x20\x20\x20\x20\x20\x3a\x1b\x5b\x33"
1562 "\x33\x6d\x3c\x3b\x1b\x5b\x33\x31\x6d\x3c\x1b\x5b\x33\x33\x6d\x3a\x1b\x5b\x33"
1563 "\x31\x6d\x3a\x1b\x5b\x33\x33\x6d\x2e\x60\x2e\x60\x20\x1b\x5b\x33\x31\x6d\x3a"
1564 "\x1b\x5b\x33\x30\x6d\x46\x53\x46\x53\x46\x53\x46\x53\x46\x1b\x5b\x33\x31\x6d"
1565 "\x3f\x1b\x5b\x33\x33\x6d\x20\x60\x2e\x60\x2e\x3a\x3a\x1b\x5b\x33\x31\x6d\x3c"
1566 "\x1b\x5b\x33\x33\x6d\x3b\x1b\x5b\x33\x31\x6d\x3c\x1b\x5b\x33\x37\x6d\x60\x20"
1567 "\x20\x20\x3a\x3a\x3a\x60\x20\x20\x20\x20\x0a\x20\x20\x20\x20\x20\x20\x53\x3c"
1568 "\x20\x20\x20\x20\x20\x20\x3a\x53\x3a\x20\x20\x20\x20\x20\x20\x20\x20\x20\x20"
1569 "\x20\x60\x3a\x3a\x60\x2e\x20\x20\x20\x20\x60\x3a\x1b\x5b\x33\x31\x6d\x3c\x1b"
1570 "\x5b\x33\x33\x6d\x3b\x1b\x5b\x33\x31\x6d\x3c\x3b\x3c\x1b\x5b\x33\x33\x6d\x3a"
1571 "\x60\x2e\x60\x3c\x1b\x5b\x33\x30\x6d\x53\x46\x53\x24\x53\x46\x53\x24\x1b\x5b"
1572 "\x33\x33\x6d\x60\x3a\x1b\x5b\x33\x31\x6d\x3a\x1b\x5b\x33\x33\x6d\x3a\x1b\x5b"
1573 "\x33\x31\x6d\x3a\x3b\x3c\x1b\x5b\x33\x33\x6d\x3b\x1b\x5b\x33\x31\x6d\x3c\x1b"
1574 "\x5b\x33\x33\x6d\x3a\x1b\x5b\x33\x37\x6d\x60\x20\x20\x2e\x60\x3a\x3a\x60\x20"
1575 "\x20\x20\x20\x20\x0a\x20\x20\x20\x20\x20\x20\x3b\x3c\x2e\x2e\x2c\x2e\x2e\x20"
1576 "\x3a\x3c\x3b\x20\x20\x20\x20\x20\x20\x20\x20\x20\x20\x20\x20\x60\x3a\x3a\x3a"
1577 "\x60\x20\x20\x20\x20\x20\x60\x3a\x1b\x5b\x33\x33\x6d\x3c\x3b\x1b\x5b\x33\x31"
1578 "\x6d\x3c\x3b\x3c\x1b\x5b\x33\x33\x6d\x3b\x1b\x5b\x33\x31\x6d\x3c\x1b\x5b\x33"
1579 "\x33\x6d\x3b\x1b\x5b\x33\x31\x6d\x3c\x3c\x1b\x5b\x33\x30\x6d\x53\x24\x53\x1b"
1580 "\x5b\x33\x31\x6d\x53\x1b\x5b\x33\x37\x6d\x27\x1b\x5b\x33\x33\x6d\x2e\x3a\x3b"
1581 "\x1b\x5b\x33\x31\x6d\x3c\x3b\x3c\x1b\x5b\x33\x33\x6d\x3a\x1b\x5b\x33\x31\x6d"
1582 "\x3c\x1b\x5b\x33\x33\x6d\x3a\x1b\x5b\x33\x37\x6d\x60\x20\x20\x20\x60\x2e\x3a"
1583 "\x3a\x20\x20\x20\x20\x20\x20\x20\x0a\x20\x20\x2e\x3a\x3a\x3c\x53\x3c\x3a\x60"
1584 "\x3a\x3a\x3a\x3a\x53\x1b\x5b\x33\x32\x6d\x53\x1b\x5b\x33\x37\x6d\x3b\x27\x3a"
1585 "\x3c\x2c\x2e\x20\x20\x20\x20\x20\x20\x20\x20\x20\x60\x3a\x3a\x3a\x3a\x2e\x60"
1586 "\x2e\x60\x2e\x60\x3a\x1b\x5b\x33\x33\x6d\x3c\x3a\x1b\x5b\x33\x31\x6d\x3c\x1b"
1587 "\x5b\x33\x33\x6d\x53\x1b\x5b\x33\x31\x6d\x3c\x1b\x5b\x33\x33\x6d\x3b\x1b\x5b"
1588 "\x33\x31\x6d\x3c\x2c\x1b\x5b\x33\x33\x6d\x3c\x3b\x3a\x1b\x5b\x33\x31\x6d\x2c"
1589 "\x1b\x5b\x33\x33\x6d\x3c\x3b\x1b\x5b\x33\x31\x6d\x3c\x1b\x5b\x33\x33\x6d\x53"
1590 "\x1b\x5b\x33\x31\x6d\x3c\x1b\x5b\x33\x33\x6d\x3b\x3c\x1b\x5b\x33\x37\x6d\x3a"
1591 "\x60\x2e\x60\x2e\x3b\x1b\x5b\x33\x34\x6d\x53\x1b\x5b\x33\x37\x6d\x53\x3f\x27"
1592 "\x20\x20\x20\x20\x20\x20\x20\x20\x0a\x2e\x60\x3a\x60\x3a\x3c\x53\x53\x3b\x3c"
1593 "\x3a\x60\x3a\x3a\x53\x53\x53\x3c\x3a\x60\x3a\x1b\x5b\x33\x30\x6d\x53\x1b\x5b"
1594 "\x33\x37\x6d\x2b\x20\x20\x20\x20\x20\x20\x60\x20\x20\x20\x3a\x1b\x5b\x33\x34"
1595 "\x6d\x53\x1b\x5b\x33\x30\x6d\x53\x46\x24\x1b\x5b\x33\x37\x6d\x2c\x60\x3a\x3a"
1596 "\x3a\x3c\x3a\x3c\x1b\x5b\x33\x33\x6d\x53\x1b\x5b\x33\x37\x6d\x3c\x1b\x5b\x33"
1597 "\x33\x6d\x53\x1b\x5b\x33\x31\x6d\x53\x1b\x5b\x33\x33\x6d\x3b\x1b\x5b\x33\x31"
1598 "\x6d\x53\x3b\x53\x1b\x5b\x33\x33\x6d\x3b\x1b\x5b\x33\x31\x6d\x53\x1b\x5b\x33"
1599 "\x33\x6d\x53\x1b\x5b\x33\x37\x6d\x3c\x1b\x5b\x33\x33\x6d\x53\x1b\x5b\x33\x37"
1600 "\x6d\x3c\x53\x3c\x3a\x3a\x3a\x3a\x3f\x1b\x5b\x33\x30\x6d\x53\x24\x48\x1b\x5b"
1601 "\x33\x37\x6d\x27\x60\x20\x60\x20\x20\x20\x20\x20\x20\x0a\x2e\x60\x3a\x60\x2e"
1602 "\x60\x3a\x60\x2e\x60\x3a\x60\x2e\x60\x3a\x60\x2e\x60\x3a\x60\x2e\x1b\x5b\x33"
1603 "\x30\x6d\x53\x46\x1b\x5b\x33\x37\x6d\x20\x20\x20\x20\x60\x20\x20\x20\x60\x20"
1604 "\x60\x3a\x1b\x5b\x33\x30\x6d\x3c\x46\x46\x46\x1b\x5b\x33\x37\x6d\x3f\x2e\x60"
1605 "\x3a\x60\x3a\x60\x3a\x60\x3a\x60\x3a\x3c\x3a\x60\x3a\x27\x3a\x60\x3a\x60\x3a"
1606 "\x60\x3a\x60\x3b\x1b\x5b\x33\x30\x6d\x53\x46\x48\x46\x1b\x5b\x33\x37\x6d\x27"
1607 "\x20\x60\x20\x60\x20\x60\x20\x20\x20\x20\x0a\x20\x3c\x3b\x3a\x2e\x60\x20\x60"
1608 "\x2e\x60\x20\x60\x2e\x60\x20\x60\x2e\x60\x2c\x53\x1b\x5b\x33\x32\x6d\x53\x1b"
1609 "\x5b\x33\x30\x6d\x53\x1b\x5b\x33\x37\x6d\x20\x20\x20\x20\x20\x20\x20\x20\x20"
1610 "\x20\x20\x60\x20\x60\x3c\x1b\x5b\x33\x30\x6d\x46\x46\x46\x1b\x5b\x33\x34\x6d"
1611 "\x2b\x1b\x5b\x33\x37\x6d\x3a\x20\x60\x20\x60\x20\x60\x2e\x60\x20\x60\x2e\x60"
1612 "\x20\x60\x2e\x60\x20\x60\x20\x60\x2c\x1b\x5b\x33\x30\x6d\x24\x46\x48\x46\x1b"
1613 "\x5b\x33\x37\x6d\x27\x20\x60\x20\x20\x20\x60\x20\x20\x20\x20\x20\x20\x0a\x20"
1614 "\x60\x3a\x1b\x5b\x33\x30\x6d\x53\x24\x1b\x5b\x33\x37\x6d\x53\x53\x53\x3b\x3c"
1615 "\x2c\x60\x2c\x3b\x3b\x53\x3f\x53\x1b\x5b\x33\x30\x6d\x24\x46\x3c\x1b\x5b\x33"
1616 "\x37\x6d\x20\x20\x20\x20\x20\x20\x20\x20\x20\x20\x20\x20\x20\x20\x60\x20\x60"
1617 "\x3c\x1b\x5b\x33\x30\x6d\x48\x46\x46\x46\x1b\x5b\x33\x37\x6d\x3f\x2e\x60\x20"
1618 "\x60\x20\x60\x20\x60\x20\x60\x20\x60\x20\x60\x20\x3b\x76\x1b\x5b\x33\x30\x6d"
1619 "\x48\x46\x48\x46\x1b\x5b\x33\x37\x6d\x27\x20\x60\x20\x20\x20\x60\x20\x20\x20"
1620 "\x20\x20\x20\x20\x20\x0a\x20\x20\x20\x60\x3c\x1b\x5b\x33\x30\x6d\x46\x24\x1b"
1621 "\x5b\x33\x37\x6d\x53\x53\x53\x53\x53\x53\x1b\x5b\x33\x30\x6d\x53\x24\x53\x46"
1622 "\x46\x46\x1b\x5b\x33\x37\x6d\x27\x20\x20\x20\x20\x20\x20\x20\x20\x20\x20\x20"
1623 "\x20\x20\x20\x20\x20\x20\x20\x20\x60\x3c\x1b\x5b\x33\x30\x6d\x23\x46\x46\x46"
1624 "\x24\x1b\x5b\x33\x37\x6d\x76\x2c\x2c\x20\x2e\x20\x2e\x20\x2c\x2c\x76\x1b\x5b"
1625 "\x33\x30\x6d\x26\x24\x46\x46\x48\x3c\x1b\x5b\x33\x37\x6d\x27\x20\x20\x20\x20"
1626 "\x20\x20\x20\x20\x20\x20\x20\x20\x20\x20\x20\x20\x0a\x20\x20\x20\x20\x20\x60"
1627 "\x3c\x1b\x5b\x33\x30\x6d\x53\x46\x46\x24\x46\x24\x46\x46\x48\x46\x53\x1b\x5b"
1628 "\x33\x37\x6d\x20\x20\x20\x20\x20\x20\x20\x20\x2e\x60\x20\x60\x2e\x60\x2e\x60"
1629 "\x2e\x60\x2e\x60\x3a\x3a\x3a\x3a\x3a\x1b\x5b\x33\x30\x6d\x2a\x46\x46\x46\x48"
1630 "\x46\x48\x46\x48\x46\x46\x46\x48\x46\x48\x46\x48\x1b\x5b\x33\x37\x6d\x3c\x22"
1631 "\x2e\x60\x2e\x60\x2e\x60\x2e\x60\x2e\x60\x20\x20\x20\x20\x20\x20\x20\x20\x0a"
1632 "\x20\x20\x20\x20\x20\x20\x20\x60\x3a\x1b\x5b\x33\x30\x6d\x48\x46\x46\x46\x48"
1633 "\x46\x46\x46\x1b\x5b\x33\x37\x6d\x27\x20\x20\x20\x60\x20\x60\x2e\x60\x20\x60"
1634 "\x2e\x60\x2e\x60\x3a\x60\x3a\x60\x3a\x60\x3a\x60\x3a\x3a\x3a\x60\x3a\x3c\x3c"
1635 "\x1b\x5b\x33\x30\x6d\x3c\x46\x48\x46\x46\x46\x48\x46\x46\x46\x1b\x5b\x33\x37"
1636 "\x6d\x27\x3a\x60\x3a\x60\x3a\x60\x3a\x60\x2e\x60\x2e\x60\x20\x60\x2e\x60\x20"
1637 "\x60\x20\x60\x20\x20\x0a\x20\x20\x20\x20\x20\x20\x20\x20\x20\x60\x22\x1b\x5b"
1638 "\x33\x30\x6d\x2a\x46\x48\x46\x1b\x5b\x33\x37\x6d\x3f\x20\x20\x20\x60\x20\x60"
1639 "\x2e\x60\x20\x60\x2e\x60\x2e\x60\x3a\x60\x2e\x60\x3a\x60\x3a\x60\x3a\x60\x3a"
1640 "\x60\x3a\x60\x3a\x60\x3a\x60\x3a\x1b\x5b\x33\x30\x6d\x46\x46\x48\x46\x48\x46"
1641 "\x1b\x5b\x33\x37\x6d\x27\x3a\x60\x3a\x60\x3a\x60\x3a\x60\x2e\x60\x3a\x60\x2e"
1642 "\x60\x2e\x60\x20\x60\x2e\x60\x20\x60\x20\x60\x0a\x20\x20\x20\x20\x20\x20\x20"
1643 "\x20\x20\x20\x20\x60\x3c\x1b\x5b\x33\x30\x6d\x48\x46\x46\x1b\x5b\x33\x37\x6d"
1644 "\x2b\x60\x20\x20\x20\x60\x20\x60\x20\x60\x20\x60\x20\x60\x20\x60\x2e\x60\x20"
1645 "\x60\x2e\x60\x20\x60\x2e\x60\x20\x60\x3a\x60\x2e\x60\x3b\x1b\x5b\x33\x30\x6d"
1646 "\x48\x46\x46\x46\x1b\x5b\x33\x37\x6d\x27\x2e\x60\x2e\x60\x20\x60\x2e\x60\x20"
1647 "\x60\x2e\x60\x20\x60\x20\x60\x20\x60\x20\x60\x20\x20\x20\x60\x20\x20\x0a\x20"
1648 "\x20\x20\x20\x20\x20\x20\x20\x20\x20\x20\x20\x20\x22\x1b\x5b\x33\x30\x6d\x3c"
1649 "\x48\x46\x53\x1b\x5b\x33\x37\x6d\x2b\x3a\x20\x20\x20\x60\x20\x60\x20\x60\x20"
1650 "\x60\x20\x60\x20\x60\x20\x60\x20\x60\x20\x60\x20\x60\x20\x60\x20\x60\x2c\x1b"
1651 "\x5b\x33\x30\x6d\x24\x46\x48\x46\x1b\x5b\x33\x37\x6d\x3f\x20\x60\x20\x60\x20"
1652 "\x60\x20\x60\x20\x60\x20\x60\x20\x60\x20\x60\x20\x60\x20\x60\x20\x20\x20\x60"
1653 "\x20\x20\x20\x20\x0a\x20\x20\x20\x20\x20\x20\x20\x20\x20\x20\x20\x20\x20\x20"
1654 "\x60\x22\x3c\x1b\x5b\x33\x30\x6d\x48\x24\x46\x46\x1b\x5b\x33\x37\x6d\x3e\x2c"
1655 "\x2e\x2e\x20\x20\x20\x20\x20\x20\x20\x20\x60\x20\x20\x20\x60\x20\x20\x20\x3b"
1656 "\x2c\x2c\x1b\x5b\x33\x30\x6d\x24\x53\x46\x46\x46\x1b\x5b\x33\x37\x6d\x27\x22"
1657 "\x20\x20\x60\x20\x20\x20\x60\x20\x20\x20\x60\x20\x20\x20\x20\x20\x20\x20\x20"
1658 "\x20\x20\x20\x20\x20\x20\x20\x20\x20\x20\x0a\x20\x20\x20\x20\x20\x20\x20\x20"
1659 "\x20\x20\x20\x20\x20\x20\x20\x20\x20\x60\x22\x1b\x5b\x33\x30\x6d\x2a\x3c\x48"
1660 "\x46\x46\x24\x53\x24\x1b\x5b\x33\x37\x6d\x53\x53\x53\x3e\x3e\x3e\x3e\x3e\x53"
1661 "\x3e\x53\x1b\x5b\x33\x30\x6d\x24\x53\x24\x46\x24\x48\x46\x23\x1b\x5b\x33\x37"
1662 "\x6d\x27\x22\x20\x20\x20\x20\x20\x20\x20\x20\x20\x20\x20\x20\x20\x20\x20\x20"
1663 "\x20\x20\x20\x20\x20\x20\x20\x20\x20\x20\x20\x20\x20\x20\x20\x20\x0a\x20\x20"
1664 "\x20\x20\x20\x20\x20\x20\x20\x20\x20\x20\x20\x20\x20\x20\x20\x20\x20\x20\x20"
1665 "\x60\x60\x22\x3c\x1b\x5b\x33\x30\x6d\x2a\x3c\x3c\x3c\x48\x46\x46\x46\x48\x46"
1666 "\x46\x46\x23\x3c\x1b\x5b\x33\x36\x6d\x3c\x1b\x5b\x33\x37\x6d\x3c\x27\x22\x22"
1667 "\x20\x20\x20\x20\x20\x20\x20\x20\x20\x20\x20\x20\x20\x20\x20\x20\x20\x20\x20"
1668 "\x20\x20\x20\x20\x20\x20\x20\x20\x20\x20\x20\x20\x20\x20\x20\x20\x20\x0a\x1b"
1669                                                                 "\x5b\x30\x6d";
1670
1671 /* vim: set sw=2 ts=8 cino=>4,n-2,{2,^-2,t0,(0,u0,w1,M1 : */