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