Re: [9fans] rows to cols?

[Tharaneedharan Vilwanathan <vdharani@gmail.com>]

[-- Attachment #1.1: Type: text/plain, Size: 1242 bytes --]

hi,

i rustled up a small limbo program (attached) that does the trick.

hope this helps.

% cat num1.txt
one two three
four five six
seven eight nine
% ./trans num1.txt
     one      four     seven
     two      five     eight
   three       six      nine
% cat num2.txt
one two three four
five six seven
eight nine
ten
eleven twelve
thirteen fourteen fifteen
sixteen seventeen eighteen nineteen
% ./trans num2.txt
     one      five     eight       ten    eleven  thirteen   sixteen
     two       six      nine      ----    twelve  fourteen seventeen
   three     seven      ----      ----      ----   fifteen  eighteen
    four      ----      ----      ----      ----      ----  nineteen
%

thanks
dharani

On Fri, Nov 13, 2009 at 12:44 AM, Richard Miller <9fans@hamnavoe.com> wrote:
>
> > Is there an easy way to transpose the text so that rows become
> > columns, and vice versa? Delimiter is space.
>
> If you know in advance the number of rows & colums, it's easy:
>
> term% cat t
> one two three four
> five six seven eight
> nine ten eleven twelve
> term%  tr -s ' ' '\xA' <t | pr -t -3 -l4 | tr -s ' ' ' '
> one five nine
> two six ten
> three seven eleven
> four eight twelve
>
>

[-- Attachment #1.2: Type: text/html, Size: 3106 bytes --]

[-- Attachment #2: trans.b --]
[-- Type: application/octet-stream, Size: 1064 bytes --]

implement Trans;

include "sys.m";
	sys: Sys;

include "draw.m";
include "bufio.m";

MaxList : con 500;

Trans: module
{
	init:	fn(nil: ref Draw->Context, args: list of string);
};

init(nil: ref Draw->Context, args: list of string)
{
	sys = load Sys Sys->PATH;

	if (len args != 2) {
		sys->print("Error! File too big\n");
		exit;
	}

	File := hd tl args;
     	bufio := load Bufio Bufio->PATH;
	Iobuf : import bufio;
	lc := bufio->open(File, bufio->OREAD);

	MaxRow := 0;
	MaxCol := 0;
	List := array [500] of list of string;
	i := 0;
	while (1) {
     		text := lc.gets('\n');
		if (text == nil) break;
		Count := 0;
		(Count, List[i++]) = sys->tokenize(text, " \n");
		if (MaxCol < Count) {
			MaxCol = Count;
		}
		MaxRow++;
		if (MaxRow >= MaxList) {
			sys->print("Error! File too big\n");
			exit;
		}
	}

	for (i = 0; i < MaxCol; i++) {
		for (j := 0; j < MaxRow; j++) {
			#if (List[j] == nil) continue;
			if (List[j] == nil) {sys->print("%9s ", "----"); continue;}
			sys->print("%9s ", hd List[j]); List[j] = tl List[j];
		}
		sys->print("\n");
	}
}