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_ ), 0 );
  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 }
 111 /*
 112   snapnie: dit kan toch automaties? Zie ook dstream.
 113   */
 114 void
 115 Lily_stream::indent()
 116 {
 117     indent_i_++;
 118     newline();
 119 }
 120
 121 void
 122 Lily_stream::newline()
 123 {
 124     *os_p_ << endl << String( '\t', indent_i_ );
 125     column_i_ = indent_i_ * 8;
 126     comment_mode_bo_ = false;
 127 }
 128
 129 void
 130 Lily_stream::open()
 131 {
 132     os_p_ = new ofstream( filename_str_ );
 133     if ( !*os_p_ )
 134         error ( "can't open `" + filename_str_ + "\'", 0 );
 135 }
 136
 137 void
 138 Lily_stream::tnedni()
 139 {
 140     assert( indent_i_ > 0 );
 141     indent_i_--;
 142     newline();
 143 }
 144