lily/input.cc

   1 /*
   2  input.cc -- implement Input
   3
   4  source file of the LilyPond music typesetter
   5
   6   (c) 1997--2000 Han-Wen Nienhuys <hanwen@cs.uu.nl>
   7 */
   8
   9 #include <stdio.h>
  10
  11 #include "flower-proto.hh"
  12 #include "input.hh"
  13 #include "string.hh"
  14 #include "source.hh"
  15 #include "source-file.hh"
  16
  17 Input::Input (Source_file*s, char const *cl)
  18 {
  19   source_file_=s;
  20   defined_str0_=cl;
  21 }
  22
  23 Input::Input ()
  24 {
  25   source_file_ = 0;
  26   defined_str0_ = 0;
  27 }
  28
  29 Input
  30 Input::spot () const
  31 {
  32   return *this;
  33 }
  34
  35 void
  36 Input::set_spot (Input const &i)
  37 {
  38   *this = i;
  39 }
  40
  41 /*
  42   Produce GNU-compliant error message.  Correcting lilypond source is
  43   such a breeze if you ('re edidor) know (s) the error column too
  44
  45   Format:
  46
  47     [file:line:column:][warning:]message
  48
  49  */
  50 void
  51 Input::message (String message_string) const
  52 {
  53   String str;
  54
  55   /*
  56     marked "Work in prgress" in GNU iostream
  57       libg++ 2.7.2.8
  58       libstdc++ 2.8.1
  59
  60     why not just return always -1 (unknown),
  61     iso breaking the interface?
  62
  63   int col = cerr.rdbuf ()->column ();
  64
  65    */
  66
  67   // well, we don't want to loose first warning...
  68   int col = 1;
  69   if (col > 0)
  70     str += "\n";
  71
  72   if (source_file_)
  73     str += location_string () + String (": ");
  74
  75   str += message_string;
  76   if (source_file_)
  77    {
  78     str += ":\n";
  79     str += source_file_->error_string (defined_str0_);
  80    }
  81   fprintf (stderr, "%s\n", str.to_str0 ());
  82 }
  83
  84 void
  85 Input::warning (String message_string) const
  86 {
  87   message (_ ("warning: ") + message_string);
  88 }
  89 void
  90 Input::error (String s) const
  91 {
  92   message (_ ("error: ")+ s);
  93 }
  94
  95 void
  96 Input::non_fatal_error (String s) const
  97 {
  98   message (_ ("non fatal error: ") + s);
  99 }
 100 String
 101 Input::location_string () const
 102 {
 103   if (source_file_)
 104     return source_file_->file_line_column_string (defined_str0_);
 105   else
 106     return " (" + _ ("position unknown") + ")";
 107 }
 108
 109 String
 110 Input::line_number_string () const
 111 {
 112   if (source_file_)
 113     return to_string (source_file_->get_line (defined_str0_));
 114   else
 115     return "?";
 116 }
 117
 118 String
 119 Input::file_string () const
 120 {
 121   if (source_file_)
 122     return source_file_->name_string ();
 123   else
 124     return "";
 125 }
 126
 127
 128 int
 129 Input::line_number () const
 130 {
 131   if (source_file_)
 132     return source_file_->get_line (defined_str0_);
 133   else
 134     return 0;
 135
 136 }
 137
 138 int
 139 Input::column_number () const
 140 {
 141   if (source_file_)
 142     return source_file_->get_column (defined_str0_);
 143   else
 144     return 0;
 145
 146 }