mi2mu/lily-stream.cc

   1 //
   2 // lily-stream.cc
   3 //
   4 // source file of the LilyPond music typesetter
   5 //
   6 // (c) 1997 Jan Nieuwenhuizen <jan@digicash.com>
   7
   8 // should i be named Mudela_stream?
   9
  10 #include "mi2mu.hh"
  11
  12 Lily_stream::Lily_stream( String filename_str )
  13 {
  14     filename_str_ = filename_str;
  15     os_p_ = 0;
  16     indent_i_ = 0;
  17     comment_mode_bo_ = false;
  18     column_i_ = 0;
  19     wrap_column_i_ = 60;
  20     open();
  21     header();
  22 }
  23
  24 Lily_stream::~Lily_stream()
  25 {
  26     delete os_p_;
  27     if ( indent_i_ )
  28         warning( "lily indent level: " + String( indent_i_ ));
  29 }
  30
  31 Lily_stream&
  32 Lily_stream::operator <<( String str )
  33 {
  34     static String nobreak_str = "\\`'_-.^<>*@";
  35     while ( str.length_i() ) {
  36         int max_i = wrap_column_i_ - column_i_ - 1;
  37         int i = str.length_i() - 1 <? max_i;
  38         int nl_i = str.left_str( i + 1 ).index_i( '\n' );
  39         if ( nl_i != -1 ) {
  40             i = nl_i - 1;
  41             str = str.nomid_str( nl_i, 1 );
  42         }
  43
  44         if ( ( i != str.length_i() - 1 ) && ( nl_i == -1 ) ) {
  45             while ( i && ( isalnum( str[ i ] )
  46                            || ( nobreak_str.index_i( str[ i ] ) != -1 ) ) )
  47                 i--;
  48
  49             if ( !i ) { // no room left
  50                 if ( column_i_ > 8 * indent_i_ ) {
  51                     newline();
  52                     if ( comment_mode_bo_ && ( str[ 0 ] != '%' ) )
  53                         str = "%" + str;
  54                     continue;
  55                 }
  56                 else { // cannot break neatly...
  57                     i = max_i;
  58                 }
  59             }
  60         }
  61
  62         String line = str.left_str( i + 1 );
  63         str = str.mid_str( i + 1, INT_MAX );
  64         *os_p_ << line;
  65         column_i_ += line.length_i();
  66         if ( nl_i != -1 )
  67             newline();
  68         else
  69             check_comment( line );
  70         if ( ( str.length_i() && ( nl_i == -1 ) ) || ( column_i_ >= wrap_column_i_ ) ) {
  71             //brr.
  72             if ( comment_mode_bo_ )
  73                 str = "%" + str;
  74             newline();
  75         }
  76     }
  77     return *this;
  78 }
  79
  80 Lily_stream&
  81 Lily_stream::operator <<( Midi_event& midi_event_r )
  82 {
  83     midi_event_r.output_mudela( *this, false );
  84     *os_p_ << flush;
  85     return *this;
  86 }
  87
  88 void
  89 Lily_stream::check_comment( String str )
  90 {
  91     int newline_i = str.index_last_i( '\n' );
  92     if ( newline_i != -1 ) {
  93         str = str.mid_str( newline_i +1, INT_MAX );
  94         comment_mode_bo_ = false;
  95     }
  96     if ( str.index_i( '%' ) != -1 )
  97         comment_mode_bo_ = true;
  98 }
  99
 100 void
 101 Lily_stream::header()
 102 {
 103     *os_p_ << "% Creator: " << mi2mu_version_str() << "\n";
 104     *os_p_ << "% Automatically generated, at ";
 105     time_t t( time( 0 ) );
 106     *os_p_ << ctime( &t );
 107     *os_p_ << "% from input file: ";
 108     *os_p_ << midi_parser_l_g->filename_str_;
 109     *os_p_ << "\n\n";
 110     *os_p_ << "\\version \"0.0.58\";\n";
 111 }
 112 /*
 113   snapnie: dit kan toch automaties? Zie ook dstream.
 114   */
 115 void
 116 Lily_stream::indent()
 117 {
 118     indent_i_++;
 119     newline();
 120 }
 121
 122 void
 123 Lily_stream::newline()
 124 {
 125     *os_p_ << endl << String( '\t', indent_i_ );
 126     column_i_ = indent_i_ * 8;
 127     comment_mode_bo_ = false;
 128 }
 129
 130 void
 131 Lily_stream::open()
 132 {
 133     os_p_ = new ofstream( filename_str_ );
 134     if ( !*os_p_ )
 135         error ( "can't open `" + filename_str_ + "\'");
 136 }
 137
 138 void
 139 Lily_stream::tnedni()
 140 {
 141     assert( indent_i_ > 0 );
 142     indent_i_--;
 143     newline();
 144 }
 145