lily/input.cc

   1 /*
   2   This file is part of LilyPond, the GNU music typesetter.
   3
   4   Copyright (C) 1997--2011 Han-Wen Nienhuys <hanwen@xs4all.nl>
   5
   6   LilyPond is free software: you can redistribute it and/or modify
   7   it under the terms of the GNU General Public License as published by
   8   the Free Software Foundation, either version 3 of the License, or
   9   (at your option) any later version.
  10
  11   LilyPond is distributed in the hope that it will be useful,
  12   but WITHOUT ANY WARRANTY; without even the implied warranty of
  13   MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  14   GNU General Public License for more details.
  15
  16   You should have received a copy of the GNU General Public License
  17   along with LilyPond.  If not, see <http://www.gnu.org/licenses/>.
  18 */
  19
  20 #include "input.hh"
  21
  22 #include <cstdio>
  23 using namespace std;
  24
  25 #include "international.hh"
  26 #include "program-option.hh"
  27 #include "source-file.hh"
  28 #include "sources.hh"
  29 #include "warn.hh"
  30
  31 Input::Input (Input const &i)
  32 {
  33   source_file_ = i.source_file_;
  34   start_ = i.start_;
  35   end_ = i.end_;
  36 }
  37
  38 Input::Input ()
  39 {
  40   source_file_ = 0;
  41   start_ = 0;
  42   end_ = 0;
  43 }
  44
  45 Input
  46 Input::spot () const
  47 {
  48   return *this;
  49 }
  50
  51 void
  52 Input::set_spot (Input const &i)
  53 {
  54   *this = i;
  55 }
  56
  57 void
  58 Input::step_forward ()
  59 {
  60   if (end_ == start_)
  61     end_++;
  62   start_++;
  63 }
  64
  65 void
  66 Input::set_location (Input const &i_start, Input const &i_end)
  67 {
  68   source_file_ = i_start.source_file_;
  69   start_ = i_start.start_;
  70   end_ = i_end.end_;
  71 }
  72
  73 /*
  74   Produce GNU-compliant error message.  Correcting lilypond source is
  75   such a breeze if you ('re edidor) know (s) the error column too
  76
  77   Format:
  78
  79   [file:line:column:][warning:]message
  80 */
  81 string
  82 Input::message_string (string msg) const
  83 {
  84   if (source_file_)
  85     return msg + "\n" + source_file_->quote_input (start_);
  86   else
  87     return msg;
  88 }
  89
  90 string
  91 Input::message_location () const
  92 {
  93   return (source_file_) ? location_string () : "";
  94 }
  95 void
  96 Input::error (string s) const
  97 {
  98   ::non_fatal_error (message_string (s), message_location ());
  99   // UGH, fix naming or usage (use non_fatal_error in most places, instead)
 100   // exit (1);
 101 }
 102
 103 void
 104 Input::programming_error (string s) const
 105 {
 106   if (get_program_option ("warning-as-error"))
 107     ::error (message_string (s), message_location ());
 108   else
 109     ::programming_error (message_string (s), message_location ());
 110 }
 111
 112 void
 113 Input::non_fatal_error (string s) const
 114 {
 115   ::non_fatal_error (message_string (s), message_location ());
 116 }
 117
 118 void
 119 Input::warning (string s) const
 120 {
 121   if (get_program_option ("warning-as-error"))
 122     ::non_fatal_error (message_string (s), message_location ());
 123   else
 124     ::warning (message_string (s), message_location ());
 125 }
 126
 127 void
 128 Input::message (string s) const
 129 {
 130   ::message (message_string (s), true, message_location ());
 131 }
 132
 133 void
 134 Input::debug_output (string s) const
 135 {
 136   ::debug_output (message_string (s), true, message_location ());
 137 }
 138
 139 string
 140 Input::location_string () const
 141 {
 142   if (source_file_)
 143     return source_file_->file_line_column_string (start_);
 144   return " (" + _ ("position unknown") + ")";
 145 }
 146
 147 string
 148 Input::line_number_string () const
 149 {
 150   if (source_file_)
 151     return to_string (source_file_->get_line (start_));
 152   return "?";
 153 }
 154
 155 string
 156 Input::file_string () const
 157 {
 158   if (source_file_)
 159     return source_file_->name_string ();
 160   return "";
 161 }
 162
 163 int
 164 Input::line_number () const
 165 {
 166   if (source_file_)
 167     return source_file_->get_line (start_);
 168   return 0;
 169 }
 170
 171 int
 172 Input::column_number () const
 173 {
 174   int line, chr, col, offset = 0;
 175   source_file_->get_counts (start_, &line, &chr, &col, &offset);
 176
 177   return col;
 178 }
 179
 180 int
 181 Input::end_line_number () const
 182 {
 183   if (source_file_)
 184     return source_file_->get_line (end_);
 185   return 0;
 186 }
 187
 188 int
 189 Input::end_column_number () const
 190 {
 191   int line, chr, col, offset = 0;
 192   source_file_->get_counts (end_, &line, &chr, &col, &offset);
 193
 194   return col;
 195 }
 196
 197 void
 198 Input::get_counts (int *line, int *chr, int *col, int *offset) const
 199 {
 200   source_file_->get_counts (start_, line, chr, col, offset);
 201 }
 202
 203 void
 204 Input::set (Source_file *sf, char const *start, char const *end)
 205 {
 206   source_file_ = sf;
 207   start_ = start;
 208   end_ = end;
 209 }
 210
 211 Source_file *
 212 Input::get_source_file () const
 213 {
 214   return source_file_;
 215 }
 216
 217 char const *
 218 Input::start () const
 219 {
 220   return start_;
 221 }
 222
 223 char const *
 224 Input::end () const
 225 {
 226   return end_;
 227 }