ribbon.c (1888B)
1 2 #include "ribbon.h" 3 #include "math.h" 4 #include "limits.h" 5 6 char *ribbon(char *data, char *opts) { 7 var dat = verifyData(data); 8 if (!dat) ret NULL; 9 10 createSmallJson(newOpts); 11 parseG(&newOpts, "{\ 12 barWidth: 1,\ 13 left: 1,\ 14 width: 60,\ 15 padding: 1,\ 16 style: '*'\ 17 }"); 18 19 createAllocateSmallJson(oopts); 20 if (opts) { 21 parseG(oopts, opts); 22 } 23 24 mergeNSmashG(&newOpts, oopts); 25 26 var barWidth = getG(&newOpts, rtI64, "barWidth"); 27 var left = getG(&newOpts, rtI64, "left"); 28 var width = getG(&newOpts, rtI64, "width"); 29 var padding = getG(&newOpts, rtI64, "padding"); 30 var style = getG(&newOpts, rtChar, "style"); 31 32 var result = repeatS(PAD, left); 33 34 35 createSmallArray(values); 36 37 iter(dat, V) { 38 cast(smallDictt*, v, V); 39 pushG(&values, getNumG(v, "value")); 40 } 41 42 f64 sum = 0; 43 44 range(i, lenG(&values)) { 45 sum += getNumG(&values, i); 46 } 47 var maxKeyLength = maxKeyLen(dat); 48 var valLength = lenG(dat); 49 50 range(wd, barWidth) { 51 range(i, valLength) { 52 var tmp = getG(dat, rtSmallDictt, i); 53 var ratioLength = round(width * getNumG(tmp, "value") / sum); 54 55 var padChar = style; 56 if (hasG(tmp, "style")) padChar = getG(tmp, rtChar, "style"); 57 58 var pads = repeatS(padChar, ratioLength); 59 60 iAppendS(&result, pads); 61 62 free(pads); 63 64 finishG(tmp); 65 } 66 67 var eol = repeatS(EOL, padding); 68 var pad = repeatS(PAD, left); 69 iAppendManyS(&result, eol, pad); 70 freeManyS(eol,pad); 71 } 72 73 range(i, valLength) { 74 var tmp = getG(dat, rtSmallDictt, i); 75 var ratioLength = round(width * getNumG(tmp, "value") / sum); 76 77 var k = catS(PAD, getG(tmp, rtChar, "key")); 78 iPadEndS(&k, ratioLength, PAD); 79 80 iAppendS(&result, k); 81 82 free(k); 83 84 finishG(tmp); 85 } 86 87 freeManyG(&newOpts, &values); 88 terminateG(dat); 89 90 ret result; 91 } 92 // vim: set expandtab ts=2 sw=2: