silentbob/plugins/plugin_perlpackages.cxx

   1 /*
   2  * (c) Oleg Puchinin 2006
   3  * graycardinalster@gmail.com
   4  *
   5  */
   6
   7 #include <stdio.h>
   8 #include <stdlib.h>
   9 #include <unistd.h>
  10 #include <ctype.h>
  11 #include <gclib/gclib.h>
  12 #include <mod.h>
  13 #include <head.h>
  14 #include <dbg.h>
  15 #include <the_tt.h>
  16 #include <the_fly.hpp>
  17
  18 extern "C" DArray * plugin_init (struct env_t *env);
  19 char t_op2 (char ** d_in, char ** d_prev);
  20
  21 void __perl_files (char * f_name)
  22 {
  23         unlink (f_name);
  24         sblib_find ("./", "*.pm", f_name);
  25         sblib_find ("./", "*.pl", f_name);
  26         sblib_find ("./", "*.ph", f_name);
  27 }
  28
  29 void plpkg_one (struct tt_state_t * tt)
  30 {
  31         char * d_out, *d_ptr; // for t_op2
  32         int block_depth = 0;
  33         char ch;
  34         char * S;
  35
  36         d_out = tt->result;
  37         d_ptr = d_out;
  38
  39         while (true) {
  40                 ch = t_op2 (&d_ptr, &d_out);
  41                 if (ch == '\0')
  42                         break;
  43
  44                 S = d_out;
  45                 if (*S == ' ')
  46                         ++S;
  47
  48                 if (! block_depth && !strncmp (S, "package ", 8))
  49                         printf ("%s\n", S);
  50
  51                 if (ch == '{')
  52                         ++block_depth;
  53
  54                 if (ch == '}')
  55                         --block_depth;
  56
  57                 if (block_depth < 0)
  58                         block_depth = 0;
  59
  60         }
  61 }
  62
  63 void try_packages ()
  64 {
  65         int i;
  66         struct tt_state_t * tt;
  67         DArray * d_files;
  68
  69         d_files = ENV->d_files;
  70         if (d_files->get_size () == 0) {
  71                 __perl_files (ENV->tmp_files);
  72                 d_files->from_file (ENV->tmp_files);
  73                 d_files->foreach ((Dfunc_t)chomp);
  74                 unlink (ENV->tmp_files);
  75         }
  76
  77         for (i = 0; i < d_files->get_size (); i++) {
  78                 tt = CNEW (tt_state_t, 1);
  79
  80                 memset (tt, 0, sizeof (struct tt_state_t));
  81                 if (! d_files->get (i))
  82                         continue;
  83
  84                 tt->fileName = strdup (d_files->get (i));
  85                 THE_FLY::fly_for_file (tt);
  86                 plpkg_one (tt);
  87                 free_tt_state (tt);
  88         }
  89 }
  90
  91 char pl_opt (DArray * d_opts, int * i)
  92 {
  93         if (! d_opts || ! i)
  94                 return 0;
  95
  96         if (EQ (d_opts->get (*i), "--packages")) {
  97                 if (EQ (ENV->language, "Perl")) {
  98                         try_packages ();
  99                         exit (1);
 100                 }
 101         }
 102
 103         return 0;
 104 }
 105
 106 void plug_short_info ()
 107 {
 108         printf ("Perl packages.");
 109 }
 110
 111 void plug_long_info ()
 112 {
 113         printf ("Perl packages.\n");
 114         printf ("Version: 1.0\n");
 115         printf ("options: --perl --packages\n");
 116 }
 117
 118 DArray * plugin_init (struct env_t * env)
 119 {
 120         DArray * Ret;
 121         mod_t * plug;
 122
 123         ENV = env;
 124         Ret = new DArray (32);
 125         plug = CNEW (mod_t, 1);
 126         memset (plug, 0, sizeof (mod_t));
 127         plug->Version = strdup ("1.0");
 128         plug->short_info = plug_short_info;
 129         plug->long_info = plug_long_info;
 130         plug->opt2 = pl_opt;
 131
 132         ENV->listOptions->add ("--packages");
 133         ENV->listOptions->add ("--perl");
 134
 135         Ret->add (LPCHAR (plug));
 136         return Ret;
 137 }
 138