strformat: default for numbers is right alignment

This commit is contained in:
Araq 2017-12-17 20:34:32 +01:00
commit 3fc7082887

View file

@ -100,10 +100,11 @@ The optional align flag can be one of the following:
'<' '<'
Forces the field to be left-aligned within the available Forces the field to be left-aligned within the available
space (This is the default.) space. (This is the default for strings.)
'>' '>'
Forces the field to be right-aligned within the available space. Forces the field to be right-aligned within the available space.
(This is the default for numbers.)
'^' '^'
Forces the field to be centered within the available space. Forces the field to be centered within the available space.
@ -273,14 +274,14 @@ macro fmt*(pattern: string): untyped =
# Int tests # Int tests
check fmt"{12345}", "12345" check fmt"{12345}", "12345"
check fmt"{ - 12345}", "-12345" check fmt"{ - 12345}", "-12345"
check fmt"{12345:6}", "12345 " check fmt"{12345:6}", " 12345"
check fmt"{12345:>6}", " 12345" check fmt"{12345:>6}", " 12345"
check fmt"{12345:4}", "12345" check fmt"{12345:4}", "12345"
check fmt"{12345:08}", "00012345" check fmt"{12345:08}", "00012345"
check fmt"{-12345:08}", "-0012345" check fmt"{-12345:08}", "-0012345"
check fmt"{0:0}", "0" check fmt"{0:0}", "0"
check fmt"{0:02}", "00" check fmt"{0:02}", "00"
check fmt"{-1:3}", "-1 " check fmt"{-1:3}", " -1"
check fmt"{-1:03}", "-01" check fmt"{-1:03}", "-01"
check fmt"{10}", "10" check fmt"{10}", "10"
check fmt"{16:#X}", "0x10" check fmt"{16:#X}", "0x10"
@ -296,9 +297,9 @@ macro fmt*(pattern: string): untyped =
check fmt"{-255:X}", "-FF" check fmt"{-255:X}", "-FF"
check fmt"{255:x} uNaffeCteD CaSe", "ff uNaffeCteD CaSe" check fmt"{255:x} uNaffeCteD CaSe", "ff uNaffeCteD CaSe"
check fmt"{255:X} uNaffeCteD CaSe", "FF uNaffeCteD CaSe" check fmt"{255:X} uNaffeCteD CaSe", "FF uNaffeCteD CaSe"
check fmt"{255:>4x}", " ff" check fmt"{255:4x}", " ff"
check fmt"{255:04x}", "00ff" check fmt"{255:04x}", "00ff"
check fmt"{-255:>4x}", " -ff" check fmt"{-255:4x}", " -ff"
check fmt"{-255:04x}", "-0ff" check fmt"{-255:04x}", "-0ff"
# Float tests # Float tests
@ -313,7 +314,7 @@ macro fmt*(pattern: string): untyped =
check fmt"{123.456:.0f}", "123." check fmt"{123.456:.0f}", "123."
#check fmt"{123.456:.0f}", "123." #check fmt"{123.456:.0f}", "123."
check fmt"{123.456:>9.3f}", " 123.456" check fmt"{123.456:>9.3f}", " 123.456"
check fmt"{123.456:9.3f}", "123.456 " check fmt"{123.456:9.3f}", " 123.456"
check fmt"{123.456:>9.4f}", " 123.4560" check fmt"{123.456:>9.4f}", " 123.4560"
check fmt"{123.456:>9.0f}", " 123." check fmt"{123.456:>9.0f}", " 123."
check fmt"{123.456:<9.4f}", "123.4560 " check fmt"{123.456:<9.4f}", "123.4560 "
@ -410,7 +411,7 @@ proc mkDigit(v: int, typ: char): string {.inline.} =
else: else:
result = $chr(ord(if typ == 'x': 'a' else: 'A') + v - 10) result = $chr(ord(if typ == 'x': 'a' else: 'A') + v - 10)
proc alignString*(s: string, minimumWidth: int; align = '<'; fill = ' '): string = proc alignString*(s: string, minimumWidth: int; align = '\0'; fill = ' '): string =
## Aligns ``s`` using ``fill`` char. ## Aligns ``s`` using ``fill`` char.
## This is only of interest if you want to write a custom ``format`` proc that ## This is only of interest if you want to write a custom ``format`` proc that
## should support the standard format specifiers. ## should support the standard format specifiers.
@ -421,7 +422,7 @@ proc alignString*(s: string, minimumWidth: int; align = '<'; fill = ' '): string
let toFill = minimumWidth - sRuneLen let toFill = minimumWidth - sRuneLen
if toFill <= 0: if toFill <= 0:
result = s result = s
elif align == '<': elif align == '<' or align == '\0':
result = s & repeat(fill, toFill) result = s & repeat(fill, toFill)
elif align == '^': elif align == '^':
let half = toFill div 2 let half = toFill div 2
@ -512,7 +513,7 @@ proc parseStandardFormatSpecifier*(s: string; start = 0;
## an unknown suffix after the ``type`` field is not an error. ## an unknown suffix after the ``type`` field is not an error.
const alignChars = {'<', '>', '^'} const alignChars = {'<', '>', '^'}
result.fill = ' ' result.fill = ' '
result.align = '<' result.align = '\0'
result.sign = '-' result.sign = '-'
var i = start var i = start
if i + 1 < s.len and s[i+1] in alignChars: if i + 1 < s.len and s[i+1] in alignChars:
@ -593,8 +594,10 @@ proc format*(value: SomeReal; specifier: string; res: var string) =
var f = formatBiggestFloat(value, fmode, spec.precision) var f = formatBiggestFloat(value, fmode, spec.precision)
if value >= 0.0 and spec.sign != '-': if value >= 0.0 and spec.sign != '-':
f = spec.sign & f f = spec.sign & f
# the default for numbers is right-alignment:
let align = if spec.align == '\0': '>' else: spec.align
let result = alignString(f, spec.minimumWidth, let result = alignString(f, spec.minimumWidth,
spec.align, spec.fill) align, spec.fill)
if spec.typ in {'A'..'Z'}: if spec.typ in {'A'..'Z'}:
res.add toUpperAscii(result) res.add toUpperAscii(result)
else: else: