flower/source-file.cc

   1 /*
   2   source-file.cc -- implement Source_file
   3
   4   source file of the GNU LilyPond music typesetter
   5
   6   (c)  1997--2000 Jan Nieuwenhuizen <janneke@gnu.org>
   7   & Han-Wen Nienhuys <hanwen@cs.uu.nl>
   8 */
   9
  10
  11 #include <assert.h>
  12 #include <strstream.h>
  13
  14 #include "string.hh"
  15 #include "flower-proto.hh"
  16 #include "warn.hh"
  17 #include "source-file.hh"
  18 #include "simple-file-storage.hh"
  19 #include "string-storage.hh"
  20
  21 Source_file::Source_file (String filename_str)
  22 {
  23   name_str_ = filename_str;
  24   istream_p_ = 0;
  25   storage_p_ = new Simple_file_storage (filename_str);
  26   pos_ch_C_ = ch_C ();
  27 }
  28
  29 Source_file::Source_file (String name_str, String data_str)
  30 {
  31   name_str_ = name_str;
  32   istream_p_ = 0;
  33   storage_p_ = new String_storage (data_str);
  34   pos_ch_C_ = ch_C ();
  35 }
  36
  37 istream*
  38 Source_file::istream_l ()
  39 {
  40   /*
  41     if (!name_str_.length_i ())
  42       return &cin;
  43     */
  44
  45   if (!istream_p_)
  46     {
  47       if (length_i ()) // can-t this be done without such a hack?
  48         istream_p_ = new istrstream (ch_C (), length_i ());
  49       else
  50         {
  51           istream_p_ = new istrstream ("", 0);
  52           istream_p_->set (ios::eofbit);
  53         }
  54     }
  55   return istream_p_;
  56 }
  57
  58 String
  59 Source_file::file_line_column_str (char const *context_ch_C) const
  60 {
  61   if  (!ch_C ())
  62     return "(" + _ ("position unknown") + ")";
  63   else
  64     return name_str () + ":" + to_str (line_i (context_ch_C))
  65       + ":" + to_str (char_i (context_ch_C));
  66 }
  67
  68 String
  69 Source_file::name_str () const
  70 {
  71   return name_str_;
  72 }
  73
  74 Source_file::~Source_file ()
  75 {
  76   delete istream_p_;
  77   istream_p_ = 0;
  78   delete storage_p_;
  79 }
  80
  81 Slice
  82 Source_file::line_slice (char const* pos_ch_C) const
  83 {
  84   if (!in_b (pos_ch_C))
  85     return Slice (0,0);
  86
  87   char const* data_ch_C = ch_C ();
  88   char const * eof_C_ = data_ch_C + length_i ();
  89
  90   if (pos_ch_C == eof_C_)
  91     pos_ch_C --;
  92   char const* begin_ch_C = pos_ch_C;
  93   while (begin_ch_C > data_ch_C)
  94     if (*--begin_ch_C == '\n')
  95       {
  96         begin_ch_C++;
  97         break;
  98       }
  99
 100   char const* end_ch_C = pos_ch_C;
 101   while (end_ch_C < eof_C_)
 102     if (*end_ch_C++ == '\n')
 103       {
 104         end_ch_C--;
 105         break;
 106       }
 107
 108   return Slice (begin_ch_C - data_ch_C, end_ch_C - data_ch_C);
 109 }
 110
 111 String
 112 Source_file::line_str (char const* pos_ch_C) const
 113 {
 114   if (!in_b (pos_ch_C))
 115     return "";
 116
 117   Slice line = line_slice (pos_ch_C);
 118   char const* data_ch_C = ch_C ();
 119   return String ((Byte const*)data_ch_C + line[LEFT], line.length ());
 120 }
 121
 122 int
 123 Source_file::char_i (char const* pos_ch_C) const
 124 {
 125   if (!in_b (pos_ch_C))
 126     return 0;
 127
 128   char const* data_ch_C = ch_C ();
 129   return pos_ch_C - (line_slice (pos_ch_C)[SMALLER] + data_ch_C);
 130 }
 131
 132 int
 133 Source_file::column_i (char const* pos_ch_C) const
 134 {
 135   if (!in_b (pos_ch_C))
 136     return 0;
 137
 138   int ch_i = char_i (pos_ch_C);
 139   String line = line_str (pos_ch_C);
 140
 141   int col_i = 0;
 142   for (int i = 0; i < ch_i; i++)
 143     if (line[i] == '\t')
 144       col_i = (col_i / 8 + 1) * 8;
 145     else
 146       col_i++;
 147
 148   return col_i;
 149 }
 150
 151 String
 152 Source_file::error_str (char const* pos_ch_C) const
 153 {
 154   if (!in_b (pos_ch_C))
 155     return "(" + _ ("position unknown") + ")";
 156
 157   int ch_i = char_i (pos_ch_C);
 158   String line = line_str (pos_ch_C);
 159   String context = line.left_str (ch_i)
 160     + to_str ('\n')
 161     + to_str (' ', column_i (pos_ch_C))
 162     + line.cut_str (ch_i, INT_MAX);
 163
 164   return context;
 165 }
 166
 167 bool
 168 Source_file::in_b (char const* pos_ch_C) const
 169 {
 170   return (pos_ch_C && (pos_ch_C >= ch_C ()) && (pos_ch_C <= ch_C () + length_i ()));
 171 }
 172
 173 int
 174 Source_file::line_i (char const* pos_ch_C) const
 175 {
 176   if (!in_b (pos_ch_C))
 177     return 0;
 178
 179   int i = 1;
 180   char const* scan_ch_C = ch_C ();
 181   if (!scan_ch_C)
 182     return 0;
 183
 184   while (scan_ch_C < pos_ch_C)
 185     if (*scan_ch_C++ == '\n')
 186       i++;
 187   return i;
 188 }
 189
 190 int
 191 Source_file::length_i () const
 192 {
 193   return storage_p_->length_i ();
 194 }
 195
 196 char const *
 197 Source_file::ch_C () const
 198 {
 199   return storage_p_->ch_C ();
 200 }
 201
 202 void
 203 Source_file::set_pos (char const * pos_ch_C)
 204 {
 205   if (in_b (pos_ch_C))
 206     pos_ch_C_ = pos_ch_C;
 207   else
 208     error (error_str (pos_ch_C) + "invalid pos");
 209 }
 210
 211 char const*
 212 Source_file::seek_ch_C (int n)
 213 {
 214   char const* new_ch_C = ch_C () + n;
 215   if (n < 0)
 216     new_ch_C += length_i ();
 217   if (in_b (new_ch_C))
 218     pos_ch_C_ = new_ch_C;
 219   else
 220     error (error_str (new_ch_C) + "seek past eof");
 221
 222   return pos_ch_C_;
 223 }
 224
 225 char const*
 226 Source_file::forward_ch_C (int n)
 227 {
 228   char const* old_pos_C = pos_ch_C_;
 229   char const* new_ch_C = pos_ch_C_ + n;
 230   if (in_b (new_ch_C))
 231     pos_ch_C_ = new_ch_C;
 232   else
 233     error (error_str (new_ch_C)  + "forward past eof");
 234
 235   return old_pos_C;
 236 }
 237
 238 String
 239 Source_file::get_str (int n)
 240 {
 241   String str ((Byte const*)forward_ch_C (n), n);
 242   return str;
 243 }