Home | History | Annotate | Download | only in atari 
      1 #!/usr/bin/env awk
      2 
      3 
      4 function shift( array, \
      5                 junk, elm0, l )
      6 {
      7   elm0 = array[0]
      8   for ( l = 0; l < asorti( array, junk ) - 1; l++ )
      9     array[l] = array[l+1];
     10   delete array[l]
     11   return elm0
     12 }
     13 
     14 
     15 function init_cpp_src_line()
     16 {
     17   logical_line = ""
     18   delete break_pos
     19 }
     20 
     21 
     22 function shift_valid_bp( array, \
     23                          junk, elm )
     24 {
     25   elm = -1
     26 
     27   if ( 0 < asorti( array, junk ) )
     28     do {
     29       elm = shift( array )
     30     } while ( 0 > elm );
     31 
     32   return elm
     33 }
     34 
     35 
     36 function check_cpp_src_line_break_pos( \
     37                                        i, junk )
     38 {
     39   printf( "break_pos:" )
     40   for ( i = 0; i < asorti( break_pos, junk ); i++ )
     41     printf( " %d", break_pos[i] );
     42   printf( "\n" )
     43 }
     44 
     45 
     46 function check_cpp_src_line()
     47 {
     48   printf( "logical_line[%s]\n", logical_line )
     49   check_cpp_src_line_break_pos()
     50 }
     51 
     52 
     53 function append_line( phys_line, \
     54                       filt_line, bp_len )
     55 {
     56   filt_line = phys_line
     57   sub( /\\$/, " ", filt_line )
     58   logical_line    = logical_line filt_line
     59   bp_len = asorti( break_pos, junk )
     60   break_pos[bp_len] = length( logical_line ) - 1
     61 }
     62 
     63 
     64 function print_line( \
     65                      c0, c1, i, junk, part_str )
     66 {
     67   c0 = 0
     68 
     69   while( asorti( break_pos, junk ) > 1 )
     70   {
     71     if ( ( c1 = shift_valid_bp( break_pos ) ) < 1 )
     72     {
     73       part_str = substr( logical_line, c0 + 1 )
     74       printf( "%s\n", part_str )
     75       return
     76     }
     77 
     78     part_str = substr( logical_line, c0 + 1, c1 - c0 + 1 )
     79     gsub( / $/, "\\", part_str )
     80     printf( "%s\n", part_str )
     81     c0 = c1 + 1
     82   }
     83 
     84   part_str = substr( logical_line, c0 + 1 )
     85   printf( "%s\n", part_str )
     86 }
     87 
     88 
     89 function shrink_spaces( pos, \
     90                         tail, removed_length, k )
     91 {
     92   tail = substr( logical_line, pos )
     93   sub( /^[ \t]+/, " ", tail )
     94   removed_length = length( logical_line ) - pos - length( tail ) + 1
     95   logical_line = substr( logical_line, 0, pos - 1 ) tail
     96 
     97 
     98   for ( k = 0; k < asorti( break_pos, junk ); k++ )
     99     if ( ( pos + removed_length ) <= break_pos[k] )
    100       break_pos[k] = break_pos[k] - removed_length;
    101     else if ( pos <= break_pos[k] )
    102       break_pos[k] = -1;
    103 
    104   return removed_length
    105 }
    106 
    107 
    108 function shrink_spaces_to_linebreak( pos, \
    109                                      junk, part_str, removed_length, i )
    110 {
    111   for ( i = 0; i < asorti( break_pos, junk ) && break_pos[i] < pos ; i++ )
    112     ;
    113 
    114   if ( break_pos[i] < 1 )
    115     return;
    116 
    117   part_str = substr( logical_line, pos, break_pos[i] - pos + 1 )
    118   sub( /^[ \t]+/, " ", part_str )
    119   removed_length = ( break_pos[i] - pos + 1 ) - length( part_str )
    120 
    121   tail = substr( logical_line, pos + removed_length )
    122   logical_line = substr( logical_line, 0, pos - 1 ) tail
    123 
    124   for ( ; i < asorti( break_pos, junk ); i++ )
    125     break_pos[i] -= removed_length;
    126 
    127   return removed_length
    128 }
    129 
    130 
    131 function delete_linebreaks_in_2nd_token( \
    132                                            tail, paren_depth, junk, i, j, k, l )
    133 {
    134   if ( logical_line ~ /^[ \t]*#[ \t]*define[ \t]+[0-9A-Za-z_]+\(/ )
    135   {
    136     tail = logical_line
    137     sub( /^[ \t]*#[ \t]*define[ \t]+[0-9A-Za-z_]+/, "", tail )
    138 
    139     paren_depth = 0
    140     l = 0
    141     i = length( logical_line ) - length( tail ) + 1 # seek to the 1st op paren
    142     j = i
    143     do {
    144       if ( substr( logical_line, j, 2 ) ~ /[ \t][ \t]/ )
    145         l = shrink_spaces( j );
    146       else if ( substr( logical_line, j, 1 ) == "(" )
    147         paren_depth += 1;
    148       else if ( substr( logical_line, j, 1 ) == ")" )
    149         paren_depth -= 1;
    150       j += 1
    151     } while ( j < length( logical_line ) && paren_depth != 0 )
    152 
    153     for ( k = 0; k < asorti( break_pos, junk ); k++ )
    154       if ( i <= break_pos[k] && break_pos[k] < j )
    155         break_pos[k] = -1;
    156 
    157     if ( l > 0 )
    158       shrink_spaces_to_linebreak( j );
    159   }
    160 }
    161 
    162 
    163 BEGIN{
    164   init_cpp_src_line()
    165 }
    166 {
    167   append_line( $0 )
    168   if ( $0 !~ /\\$/ )
    169   {
    170     delete_linebreaks_in_2nd_token()
    171     print_line()
    172     init_cpp_src_line()
    173   }
    174 }
    175 END{
    176   if ( 0 < length( logical_line ) )
    177   {
    178     delete_linebreaks_in_2nd_token()
    179     print_line()
    180   }
    181 }
    182