silentbob/sblib/TT.cxx

   1 /*
   2  * (c) Oleg Puchinin 2007
   3  * graycardinalster@gmail.com
   4  *
   5  */
   6
   7 #include <head.h>
   8 #include <the_tt.h>
   9 #include <TT.h>
  10
  11 TT::TT ()
  12 {
  13         tt = NULL;
  14         d_out = NULL;
  15         d_ptr = NULL;
  16 }
  17
  18 TT::~TT ()
  19 {
  20         if (tt)
  21                 free_tt_state (tt);
  22 }
  23
  24 int TT::loadFile (char * fileName)
  25 {
  26         if (! fileName)
  27                 return -1;
  28         tt = CNEW (tt_state_t, 1);
  29         memset (tt, 0, sizeof (tt_state_t));
  30         tt->fileName = strdup (fileName);
  31         if (do_tt (tt) == NULL) {
  32                 DROP (tt->fileName);
  33                 DROP (tt);
  34                 return -1;
  35         }
  36
  37         return 0;
  38 }
  39
  40 int TT::drop ()
  41 {
  42         if (tt) {
  43                 free_tt_state (tt);
  44                 tt = NULL;
  45         }
  46         return 0;
  47 }
  48
  49 int TT::init ()
  50 {
  51         if (! tt)
  52                 return -1;
  53         d_out = tt->result;
  54         d_ptr = tt->result;
  55         ENV->t_op_no = 0;
  56         bracketDepth = 0;
  57         depthModif = 0;
  58         return 0;
  59 }
  60
  61 char * TT::op ()
  62 {
  63         return d_out;
  64 }
  65
  66 char * TT::nextOperator ()
  67 {
  68         if (depthModif > 0) {
  69                 ++bracketDepth;
  70                 depthModif = 0;
  71         } else if (depthModif < 0) {
  72                 if (--bracketDepth < 0)
  73                         bracketDepth = 0;
  74                 depthModif = 0;
  75         }
  76
  77         ch = t_op (&d_ptr, &d_out);
  78         if (! ch)
  79                 return NULL;
  80
  81         if (ch == '{')
  82                 depthModif = 1;
  83         if (ch == '}')
  84                 depthModif = -1;
  85
  86         ENV->t_op_no ++;
  87         return d_out;
  88 }
  89
  90 int TT::wit ()
  91 {
  92         return what_is_this (d_out, ch);
  93 }
  94