src/disassemble.c

   1 /*
   2 Copyright (C) 2001-2003, The Perl Foundation.
   3 $Id$
   4
   5 =head1 NAME
   6
   7 disassemble - Parrot disassembler
   8
   9 =head1 SYNOPSIS
  10
  11     disassemble file.pbc
  12
  13 =head1 DESCRIPTION
  14
  15 This uses the C<Parrot_disassemble()> function from F<src/embed.c>,
  16 which in turn uses the C<PDB_disassemble()> function from
  17 F<src/debug.c>.
  18
  19 =cut
  20
  21 */
  22
  23 #include <parrot/parrot.h>
  24 #include "parrot/embed.h"
  25 #include <stdio.h>
  26 #include <stdlib.h>
  27 #include <ctype.h>
  28
  29 static void do_dis(Parrot_Interp);
  30
  31 /*
  32
  33 int main(int argc, char *argv[])
  34
  35 The run-loop. Starts up an interpreter, loads the bytecode from the
  36 command-line and disassembles it.
  37
  38 */
  39
  40 int
  41 main(int argc, char *argv[])
  42 {
  43     Parrot_Interp interpreter;
  44     char *filename;
  45     Parrot_PackFile pf;
  46
  47     interpreter = Parrot_new(NULL);
  48
  49     if (!interpreter) {
  50         return 1;
  51     }
  52
  53     interpreter->lo_var_ptr = &interpreter;
  54
  55     if (argc != 2) {
  56         fprintf(stderr, "Usage: disassemble programfile \n");
  57         Parrot_exit(interpreter, 1);
  58     }
  59
  60     filename = argv[1];
  61
  62     pf = Parrot_readbc(interpreter, filename);
  63
  64     if (!pf) {
  65         return 1;
  66     }
  67
  68     Parrot_loadbc(interpreter, pf);
  69
  70     do_dis(interpreter);
  71
  72     Parrot_exit(interpreter, 0);
  73
  74     return 0;
  75 }
  76
  77 /*
  78
  79 static void do_dis(Parrot_Interp interpreter)
  80
  81 Do the disassembling.
  82
  83 */
  84
  85 static void
  86 do_dis(Parrot_Interp interpreter)
  87 {
  88     Parrot_disassemble(interpreter);
  89 }
  90
  91 /*
  92
  93 =head1 SEE ALSO
  94
  95 F<src/embed.c> and F<src/debug.c>.
  96
  97 =head1 HISTORY
  98
  99 Initial version by Daniel Grunblatt on 2002.5.26.
 100
 101 Florian Ragwitz: Moved POD documentation that's not necessary to know how to
 102 actually run the disassembler to normal C comments (Wed, 16 Nov 2005).
 103
 104 =cut
 105
 106 */
 107
 108
 109 /*
 110  * Local variables:
 111  *   c-file-style: "parrot"
 112  * End:
 113  * vim: expandtab shiftwidth=4:
 114  */