about summary refs log blame commit diff stats
path: root/407right-justify.mu
blob: 5cb9e8d6a41dd3e0af4cdacb77c6d5f6e24b2c07 (plain) (tree)
1
2
3
4
5
6
7
8
9

                                                                                   
                                     

                                        
   
                          
               
                                        
                      



                               
# print 'n' with enough leading spaces to be right-justified in 'width'
fn print-int32-decimal-right-justified screen: (addr screen), n: int, _width: int {
  # tweak things for negative numbers
  var n-width/eax: int <- decimal-size n
  var width/ecx: int <- copy _width
  {
    compare n-width, width
    break-if->=
    print-grapheme screen, 0x20  # space
    width <- decrement
    loop
  }
  print-int32-decimal screen, n
}