00:00:00 --- log: started forth/01.01.15 00:26:14 --- quit: edrx ([x]chat) 03:03:50 --- quit: I440r (Ping timeout for I440r[purplecoder.com]) 03:03:54 --- join: I440r (mark4@purplecoder.com) joined #forth 03:21:22 --- quit: I440r (Ping timeout for I440r[purplecoder.com]) 03:28:07 --- join: I440r (mark4@purplecoder.com) joined #forth 03:38:10 --- quit: I440r (Ping timeout for I440r[purplecoder.com]) 03:40:18 --- join: I440r (mark4@purplecoder.com) joined #forth 06:02:36 --- join: adu (andrew@adsl-63-201-88-164.dsl.snfc21.pacbell.net) joined #forth 06:02:42 hi 06:02:44 hello 06:02:46 hi there 06:02:53 how are all of you? 06:03:04 l440r? having fun, hehe 06:03:07 ? 06:24:32 --- part: adu left #forth 09:08:24 --- join: Fare (fare@ppp83-net1-idf2-bas1.isdnet.net) joined #forth 11:10:41 --- quit: I440r (Reality Strikes Again!) 12:26:04 --- join: mark4 (mark4@purplecoder.com) joined #forth 12:26:18 --- part: mark4 left #forth 12:27:19 --- join: I440r (mark4@purplecoder.com) joined #forth 12:27:19 --- mode: ChanServ set mode: +o I440r 12:27:23 thats better heh 13:23:21 --- quit: I440r (Reality Strikes Again!) 15:25:58 --- quit: Fare (3053) 16:45:46 --- join: TheBlueWizard (TheBlueWiz@216.25.203.203) joined #forth 16:45:47 --- mode: ChanServ set mode: +o TheBlueWizard 16:45:51 hiya 18:39:19 --- join: aaronl (aaronl@vitelus.com) joined #forth 18:43:03 hiya aaronl 18:43:06 --- mode: TheBlueWizard set mode: +o aaronl 18:43:14 find . -name '*.bz2' -size -15k|perl -e 'while(<>){chomp;($ownd,$a,$b) = split(/[\/.]+/);system("cd ".$a.";wget http://www.ibiblio.org/pub/docs/books/gutenberg/".$a."/".$b.".txt&&bzip2 -c ".$b.".txt >".$b.".bz2&&rm ".$b.".txt");}' 18:43:30 huh? 18:44:04 hehe 18:44:09 dont ask 18:44:47 um...ok, whatever....looks like you're trying to collect all book "names" 18:45:44 not really 18:45:51 k 18:45:56 i'm trying to fix a book collection i messed up 18:46:26 I see....um, wonder how one would go at it in Forth :) 18:46:44 hehe 19:22:03 bye all 19:22:08 --- part: TheBlueWizard left #forth 19:46:32 --- join: I440r (mark4@purplecoder.com) joined #forth 19:46:32 --- mode: ChanServ set mode: +o I440r 21:56:27 --- join: adu (andrew@adsl-63-201-92-77.dsl.snfc21.pacbell.net) joined #forth 21:56:31 --- part: adu left #forth 22:05:11 --- quit: aaronl (barnes.openprojects.net lackey.openprojects.net) 22:44:19 --- join: aaronl (aaronl@vitelus.com) joined #forth 22:45:07 hi aaronl 22:45:10 --- mode: I440r set mode: +o aaronl 22:45:39 yo 22:45:45 finals tomorrow 22:45:53 yea??? 22:45:56 go study :P 22:46:00 heh 22:46:01 cram cram cram cram! 22:46:01 no :P 22:46:04 it's a math final 22:46:05 heh 22:46:06 very easy 22:46:10 geometry 22:46:10 1+1=2 22:46:12 i will ace it 22:46:13 just remember that 22:46:21 geom is cool :) 22:46:22 i am more concerned about chemistry and frnehc 22:46:28 no, 1 1 + 22:46:34 geom is cool. and easy. 22:46:49 boil ur french teacher in carbolic acid and pass both tests :) 22:53:18 yeah 22:54:51 :) 22:56:00 tomorrow i plan to fix a broken emulator 22:56:10 what sort of emulator ? 22:56:17 68k 22:56:39 \aha 22:56:41 cool 22:56:41 generic 68000, serial chip, timer emu 22:56:47 i really want to start coding some asm 23:06:24 find . -name \*.bz2 -size -15k|perl -le 'while(<>){($c,$a,$b)=split(/[\/.]+/);$c="$a/$b";system("wget http://www.ibiblio.org/pub/docs/books/gutenberg/$c.txt&&bzip2 -c $c.txt>$c.bz2&&rm $c.txt");}' 23:09:05 looks compiled to me :P 23:16:37 heh 23:16:45 i optimized it for size even more 23:16:46 find . -name \*.bz2 -size -15k|perl -pe '($c,$a,$b)=split(/[\/.]+/);system("wget -qO /dev/fd/1 http://www.ibiblio.org/pub/docs/books/gutenberg/$a/$b.txt|bzip2 -c>$a/$b.bz2");' 23:26:33 whats it do ? 23:27:02 hey could u write a script to take a file and outout it in the form.... 23:27:07 line1 line2 23:27:11 line3 line4 23:27:22 in columns for the whole file ? 23:30:17 i guess 23:30:34 yeah, sure i will 23:30:39 want it to be readable or tiny? 23:31:01 erm its a text file hehe 23:31:10 i know 23:31:13 package name 23:31:15 what my CODE to be readbale or tiny? 23:31:16 description 23:31:18 package name 23:31:19 description 23:31:20 oh 23:31:22 either hehe 23:31:28 want it in the form 23:31:36 package name description 23:31:37 package name description 23:31:37 package name description 23:32:11 make it huge and it prolly wont be readable to me hehe 23:32:24 heh 23:33:15 so you just want: 23:33:18 line1 line2 23:33:26 line3 line4 23:33:26 ? 23:33:31 up to 23:33:40 should there just be a tab between the columns? 23:33:41 line 99999999999 line that number +1 hehe 23:33:56 erm if its just a tab then u wont get the columsn aligning 23:34:05 ok 23:34:18 ull get foo [tab] xxxxxx 23:34:20 erm 23:34:26 foopkg [tab] xxxxxx 23:34:40 how far in do you want column2 to start? 23:34:43 fffffooooooooooppppaaaacckkkaageeee [tab] not aligned 23:34:49 hmmm 23:34:53 try 40 23:34:59 ill be able to edit that rite ? 23:35:00 ok 23:35:03 yes 23:35:16 that part shud be obvious to a lamer l;ike me 23:35:22 just find '40' 23:35:24 i can put it in a varibale if you want 23:35:25 and make it '45' hehe 23:35:30 heh 23:35:56 "w e store the value of PI in a variable so that should the value of PI ever change....." 23:35:57 hehe 23:36:02 hehe 23:36:12 thats a quote from someone at ibm 23:36:15 i forget whohehe 23:43:19 mmmkay i got it 23:43:39 #!/usr/bin/perl 23:43:39 $bool=0; 23:43:39 $columnstart = 45; # here it is 23:43:39 while (<>) { 23:43:39 chomp; 23:43:39 if (!$bool) { 23:43:41 $colswriten = length; 23:43:43 print; 23:43:45 } else { 23:43:47 for ($i = $colswriten; $i < $columnstart; $i++) 23:43:49 { 23:43:51 print ' '; 23:43:53 } 23:43:55 print; 23:43:57 print "\n"; 23:43:59 } 23:44:01 $bool ^= 1; 23:44:04 } 23:44:07 basically: paste that crap into a file, then run: 23:44:09 perl thescript.pl < oldfile > newfile 23:44:11 have phun 23:44:13 i have to sleep 23:46:39 --- part: aaronl left #forth 23:51:00 reading and tnx :) 23:59:59 --- log: ended forth/01.01.15