src/pbc_info.c

   1 /*
   2 Copyright (C) 2001-2003, The Perl Foundation.
   3 $Id$
   4
   5 =head1 NAME
   6
   7 pbc_info - PacFile demo
   8
   9 =head1 SYNOPSIS
  10
  11  pbc_info file.pbc
  12
  13 =head1 DESCRIPTION
  14
  15 Sample program for dumping PackFile segment names by iterating
  16 over the main directory.
  17
  18 =over 4
  19
  20 =cut
  21
  22 */
  23
  24 #include "parrot/parrot.h"
  25 #include "parrot/embed.h"
  26
  27 /*
  28
  29 =item C<static INTVAL iter(Interp*, struct PackFile_Segment *seg, void
  30  *user_data)>
  31
  32 This function is passed the callback to PackFile_map_segments() to print out
  33 the name of each segment in the directory.
  34
  35 =cut
  36
  37 */
  38
  39 static INTVAL
  40 iter(Interp* interp,
  41                 struct PackFile_Segment *seg, void *user_data)
  42 {
  43     int ident = (int)user_data;
  44     printf("%*.0s%s\n", ident, "", seg->name);
  45     if (seg->type == PF_DIR_SEG)
  46         PackFile_map_segments(interp, (struct PackFile_Directory*)seg,
  47                 iter, (void*)(ident+2));
  48     return 0;
  49 }
  50
  51 /*
  52
  53 =item C<int main(int argc, char **argv)>
  54
  55 Reads the PBC from argv[1], adds a few extra sections, and then iterates over
  56 the directory using PackFile_map_segments() and iter().
  57
  58 =cut
  59
  60 */
  61
  62 int
  63 main(int argc, char * argv[] )
  64 {
  65     struct PackFile *pf;
  66     Interp *interp;
  67     struct PackFile_Segment *seg;
  68
  69     interp = Parrot_new(NULL);
  70
  71     pf = Parrot_readbc(interp, argv[1]);
  72
  73     /*
  74      * add some more segments
  75      */
  76     seg = PackFile_Segment_new_seg(interp,
  77                     &pf->directory, PF_DIR_SEG, "dir2", 1);
  78     seg = PackFile_Segment_new_seg(interp,
  79                     (struct PackFile_Directory*)seg, PF_BYTEC_SEG, "code", 1);
  80     seg = PackFile_Segment_new_seg(interp,
  81                     &pf->directory, PF_DIR_SEG, "dir3", 1);
  82
  83     /*
  84      * show these
  85      */
  86     printf("%s\n", pf->directory.base.name);
  87     PackFile_map_segments(interp, &pf->directory, iter, (void*)2);
  88
  89     Parrot_exit(interp, 0);
  90     return 0;
  91 }
  92
  93 /*
  94
  95 =back
  96
  97 =head1 SEE ALSO
  98
  99 F<src/pbc.c>, F<include/parrot/pbc.h>.
 100
 101 =cut
 102
 103 */
 104
 105
 106 /*
 107  * Local variables:
 108  *   c-file-style: "parrot"
 109  * End:
 110  * vim: expandtab shiftwidth=4:
 111  */
 112