Drunken Dionysus the songwriting magus

Today's amusement - a HTTP 1/1 client in scsh :P

Fri, 06 Nov 2009 04:52:22 GMT

(define (get-web-page host url headers)
  (let* (
	 (s (socket-connect protocol-family/internet socket-type/stream host 80))
	 (op (socket:outport s))
	 (ip (socket:inport s))
	 (cj '())
	 (r "") (loopme #t) (read-chunk #f) (chunk-size 0)
	 (hdr "") (hdrs '()) (hname "") (hvalue "")
	 (wp "")
	 )
    (let ((portout (string-append 
		    "GET " url " HTTP/1.1\r\nHost: " host "\r\n" 
		    (fold (lambda (s s2) (string-append s "\r\n" s2)) 
			  "" headers) 
		    "\r\n")
		   )) 
      (display portout op)
      )
    (let ((status-line (regexp-substitute/global #f (rx "\r") (read-line ip) 'pre 'post)))
      (let loop ()
	(set! hdr (read-line ip))
	(call-with-values (lambda () (regexp-search (rx ":") hdr))
	  (lambda (m)
	    (if m (begin
		      (set! hvalue (substring hdr (+ (match:end m) 1) (- (string-length hdr) 1)))
		      (set! hname (substring hdr 0 (match:start m)))

		      (if (equal? hname "Content-Length") 
			  (begin
			    (set! chunk-size (string->number hvalue))
			    )
			    #f)
		      (if (and (equal? hname "Transfer-Encoding") 
			       (equal? hvalue "chunked"))

			  (set! read-chunk #t) #f)

		      (if (equal? hname "Set-Cookie") 
			  (set! cj (cons hvalue cj)) #f)
		      (set! hdrs (cons (cons hname hvalue) hdrs))
		      )

		(set! loopme #f))

	    ) ; lambda
	  ) ; call-with-values
	(if loopme (loop))
	)
      (if read-chunk 
	  (begin
	    (let chunkloop ((chunkline (regexp-substitute/global #f (rx bos (submatch (+ hex-digit)) (* ";" (+ nonl)) (* "\r")) (read-line ip) 'pre 1 'post)))
	      (let ((chunk-size (decode-hex-string chunkline)))
		(if (eq? chunk-size 0) #f 
		    (begin
		      (set! wp (string-append wp (read-string chunk-size ip))) ; read chunk
		      (display (read-line ip)) (newline) ; discard the CRLF
		      (chunkloop (regexp-substitute/global #f (rx bos (submatch (+ hex-digit)) (* ";" (+ nonl)) (* "\r")) (read-line ip) 'pre 1 'post)) ; process the next chunk
		      )
		    )
		)
	      )
	    ; Handle chunked encoding
	    (display "Blowing chunks...") (newline)
	    )
	  (begin
	    (display "reading chunk of size ") (display chunk-size) (newline)
	    (set! wp (read-string chunk-size ip))
	    )

	  )

      (list status-line (reverse! hdrs) cj wp)
      ) ; let status-line
    ) ; let* wp...
)

(define (basic-auth username password)
  (string-append "Authorization: Basic " (base64-encode (string-append username ":" password)))
  )

(define (decode-hex-string str)
  (let* ((s1 (string->list (string-downcase str))) (mul 1) (num 0) (zero (char->ascii #\0)) (a (- (char->ascii #\a) 10)))
    (display (map char->ascii s1))
    (for-each (lambda (ch) 
		(set! num (+ num (* mul (if (char-digit? ch) (- (char->ascii ch) zero) (- (char->ascii ch) a)))))
		(set! mul (* 16 mul)))
	      (reverse s1))
    num
    ) ; let
) ; define

(define (char-sequence start-char end-char)
  (let ((s '()))
    (let l ((x (char->ascii start-char)) (y (char->ascii end-char)))
      (set! s (cons (ascii->char y) s))
      (if (< x y) (l x (- y 1))
          (begin (if (< y x) (l x (+ y 1)) s))))
    )
  )

(define base64-charset (append (char-sequence #\A #\Z) (char-sequence #\a #\z) (char-sequence #\0 #\9) '(#\+ #\/ #\=)))

(define (base64-encode str)
  (let ((ret '()) (l (- (string-length str) 1)))
    (if (>= l 2)
        (begin
          (let encodeloop ((ref-loc 0))
            (let* (
                   (a (char->ascii (string-ref str ref-loc)))
                   (b (char->ascii (string-ref str (+ ref-loc 1))))
                   (c (char->ascii (string-ref str (+ ref-loc 2))))
                   (d (arithmetic-shift a -2))
                   (e (+ (bitwise-and 63 (arithmetic-shift a 4))
                         (arithmetic-shift b -4)))
                   (f (+ (arithmetic-shift (bitwise-and 15 b) 2)
                         (arithmetic-shift (bitwise-and 192 c) -6)))
                   (g (bitwise-and c 63))
                   )

              (set! ret (append ret (list (list-ref base64-charset d)
                                          (list-ref base64-charset e)
                                          (list-ref base64-charset f)
                                          (list-ref base64-charset g))))
              (if (<= (+ ref-loc 5) l) (encodeloop (+ ref-loc 3)) ret)
              ) ; let*
            ) ;let encodeloop
          ) #f)

    (let* ((r (remainder (+ l 1) 3))
           (ref-loc (- l (- r 1))))

      (let* (
             (a (if (>= r 1) (char->ascii (string-ref str ref-loc)) 0))
             (b (if (>= r 2) (char->ascii (string-ref str (+ ref-loc 1))) 0))
             (c (if (eq? r 0) 0 0))
             (d (arithmetic-shift a -2))
             (e (+ (bitwise-and 63 (arithmetic-shift a 4))
                   (arithmetic-shift b -4)))
             (f (if (eq? b 0) 64 (+ (arithmetic-shift (bitwise-and 15 b) 2)
                   (arithmetic-shift (bitwise-and 192 c) -6))))
             (g (if (eq? c 0) 64 (bitwise-and c 63)))
             )
        (if (not (eq? a 0))
            (set! ret (append ret (list (list-ref base64-charset d)
                                        (list-ref base64-charset e)
                                        (list-ref base64-charset f)
                                        (list-ref base64-charset g)))) #f
            )
        ) ; outer let*
      ) ; let r remainder...
    (list->string ret)
    ) ; let ret
  ) ; base64-encode

Random Scheme horror story

Fri, 30 Oct 2009 03:49:29 GMT

(define (flatten l) (letrec ((f (lambda (x y) (if (list? x) (append (fold-right f '() x) y) (cons x y))))) (fold-right f '() l)))

Thought while I was down with the flu but still working I might share this monster with you which I just derived today as an alternative form of flatten, which is really a beauty rather than a beast*. (letrec) ftw :D.

* Of course some people might shrink in horror from this example of recursion, but I'm slowly getting used to it as I learn to cope with the many variants of Scheme.

LISP + UFFI == Mind blown

Fri, 21 Aug 2009 02:09:26 GMT

I've been reading over the code to cl-canvas, a LISP library which allows you to do basic graphics programming in CLISP or even I believe in SBCL (among others) within Windows.

Looking at all the hic:def-function, hic:ff-defun-callable and hic:with-foreign-object forms within the module, I'm starting to realise. I might not know much about LISP besides the basics right now, but with the capacity to pass functions to functions as parameters and abstract the graphics layer, this is shit easy (or at least a lot easier) to create cross platform graphics code! I mean, the FFI basically seems to totally abstract the process of loading DLL's or other shared objects, and thats pretty fucking cool. I'm now really looking forward to attempt an install of LISP in a Box as well as SBCL at home to work this stuff out bit by bit.

To the edge of space

Fri, 07 Aug 2009 01:58:49 GMT

Truly breathtaking. Thanks Digg :)

Consciousness drives the universe (but whats the vehicle?)

Sat, 25 Jul 2009 06:02:43 GMT

Nice little video about my favourite subject of all, the C-word, featuring David Icke, David Lynch, Grant Morrison, and even a bit of Neil Kramer :)

Neil Kramer, on the Dr Love Podcast #3

Sat, 04 Jul 2009 00:40:38 GMT

As I fly above the islands of Albion
I feel as though I grow into God
The heartbeat of our ever loving mother
pumping lifeblood into me as here I am
within the womb of God

I can hear the echoes of the outside universe
And feel the emotions of mother as she nurtures me
As all is perfect in this place
All in all, All is... Nothing at All.

And in each full pulse I grow
Forwards, backwards, up, down,
Expanding in all directions
As the oceans thrum lovingly
Between earth and moon.

The jellyfish tendrils of the city below glow
As if lying upon the ocean's silent floor.
Gently drifting by me. Still in infinity.
Invisibly growing, elegantly.

But I feel that, as I question, I separate...
As I ponder I wander... further from the place I originated.
I turn to face the chittering chattering questioning
And again get lost... till I sit still...

Calming my mind to find the roaring silence...
As I cease to hunt and seek, I see the invisible vistas...
Where I touch an emptiness is bliss that can then cease to exist.
As all in all, all, is nothing at all.

I build this place but does this matter?
To clutter, distract... the view from the gut dropping void.
As intelligence patting itself on the back knocks itself back into whats the matter?
When after all it doesn't matter at all...
In all the mountains stand... the seas rock back and forth...
The oceans move the land without reason.
The seasons change slow upon the Wheel of Real as they wish.
As a moment... raindrops falls... it will never catch the one below.
As all in all, all is nothing at all.

And my addiction to this... questioning,
to this reaching in to understanding
Is standing under original feeling
And revealing God's sigh by continually asking "Why?"
So I seek to explain through these words of admitted confusion
That are blessed by the sun and the moon and the changing seasons

Adaptations of the unfolding petals of creation
Cause friction if I try to hold them.
With the jewel within witnessing the moment
I return to the ground with the present wrapped in my heart.
The gift from the ever flowing river.
The one day blooming flower
The shooting star the afternoon shower all passing by
Impossible to tether
Only to be noticed... and to be loved.

To be joyously praised as I grow in God-mother's belly
towards that light which is the moment of birth
Towards which I swim in perfect timing with the everything
For everything is EVERYTHING
And everything is nothing.

As all in all... All is Nothing at All.

Sun, 21 Jun 2009 00:29:04 GMT

I have wheat shoots sprouting in my measuring cup which I've been slowly sprouting over the last several days. I'm going to be using them to make rejuvelac eventually, if I don't manage to eat all of them first :P. They're so tasty!

Sat, 20 Jun 2009 22:49:39 GMT

Why be normal?

Be PARA-normal instead :P

QOTD

Sat, 13 Jun 2009 06:51:14 GMT

"The world is full of obvious things which nobody by any chance ever observed."
- Sir Arthur Conan Doyle, as Sherlock Holmes.

Supreme Love and Evolutionary Funk

Sat, 13 Jun 2009 01:06:25 GMT

supremelove
Originally uploaded by vega_33

This is the artwork that veleda, espiritkat and myself created for our Glamour Bombing/Quauour working with feyonna and L. The work of creating it consisted of following certain strictures set forth by Hadit in Liber AL, followed by an invocation to Quaour which was quite powerful. veleda then found the images to use in collage, and worked out some placements with espiritkat, who then made a black and gold shimmering background where the collage pieces would later be glued. I then painted the Ru in the center, the radiance coming from it and the song lines (bringing the vision down from heaven to earth), and all the other painted stuff, then affixed the collage pieces where they needed to go.

We were all pretty happy with the final result. Hopefully it brightened the day of some ppl walking about the Park ;).

Video girl - Classic Charlie Schmidt!

Fri, 22 May 2009 01:43:11 GMT

I loled hard :D

:D

Thu, 21 May 2009 21:01:03 GMT

It's a glorious day today :D. Why, I hear you ask? Because today is Friday. And that is the day before Saturday - the day that I begin my two weeks of vacation.

Bon voyage all! I'll be seeing you real soon... :)

Baking the perfect crispbread

Wed, 20 May 2009 12:25:29 GMT

Today I discovered, quite by accident, how to make the perfect crisp-bread. I had a batch of sourdough starter that was 3 days old (!) or more, and I was trying to turn them into cupcakes. That didn't work, but I noticed that the drippings around the sides of the pan which had crisped earlier tasted almost exactly like Jatz Crackers!

So it turns out that the alcoholic taste that the yeast imparts after too long, when it dries slowly along with the "dough"/batter, until the point where all the water has gone out of it, leaves a taste almost like cheese crackers. My guess is this may partly be to do with the dead yeast cells drying out and producing a kind of natural MSG.

So if you ever waste a sourdough or leave a ferment too long, spread a really thin layer on the bottom of a non stick pan, bake at 400 for at least 5-10 mins, then when one side is reasonably crisp, flip it and bake it on the other side.

The whole secret in breadmaking (and indeed in most other cooking is the management of the 4 elements, of which the most important is WATER. In order for crust to form, the 3 fields of earth, water and air must interact with the help of fire in order to crystallize the earthen portion in an appropriate manner. Sometimes you want to keep the water in, other times to take it out... really good cooking is all to do with how you mix these elements to produce a quintessence :D

I have found my calling... ;-)

Tue, 12 May 2009 01:37:10 GMT

http://www.dudeism.com/

"Heraclitus
Greek Philosopher

The man who wrote "you can never step into the same river twice" propagated the idea that everything was in flux, or "burning." Consequently one should make the most of it and spark one up whenever possible. And step into the river from time to time, preferably with a cocktail and an inner tube."

Mon, 04 May 2009 11:58:55 GMT

Change is inevitable.

We should learn to understand it. Crowley was on the right track with the Yi Ching.

Make the journey out and in.

My fave chord progressions ATM

Mon, 04 May 2009 11:20:29 GMT

Im V V7 Im I IVm Im V Im (from "Surf in Heaven")
and #2:
I iii(m) IV bIIIm V... (From "Beauty comes from the inside" by Adrian Woodhouse, a favourite song - lyrics not available online)

Relax, everything is under control :D

Sun, 03 May 2009 22:06:19 GMT

Hey, web cats and web kittehs! We now return you to yor regularly scheduled programming. You may be interested, especially you science buffs, in the Chemogenesis web book:
http://www.meta-synthesis.com/webbook.html

An online discussion of current chemical science.

Quote of the day

Sat, 02 May 2009 01:53:18 GMT

"To read a newspaper is to refrain from reading something worth while. The first discipline of education must therefore be to refuse resolutely to feed the mind with canned chatter."
-- Aleister Crowley.

Hey there Cthulhu

Tue, 28 Apr 2009 05:17:34 GMT

Classic :D

No ANZAC day holiday for me. :P

Sun, 26 Apr 2009 09:45:25 GMT

I thank the new Australian government for abolishing the ANZAC day long weekend this year in Sydney and several other states. Thanks guys! Way to remember the diggers! Cuz who needs to destroy commerce, right, for a bit of rememberance of people who fought to preserve our way of life, unrewarded, undesiring of war? Who needs to give thanks by resting and thinkin, when we could be propitiating the almighty fucking dollar in their name right?

Fuckers.

Etmology of the word venom and more

Sun, 26 Apr 2009 06:08:07 GMT

"Dans cet esprit il faut considérer deux formes dans son suc, et dans son venin. Son suc est double qui conserve tous les corps, par un Sel amer."

Here is an example of Green Language at its finest. This is from Vinceslas Lavinius and his "Treatise of the Terrestrial Sky". In literal translation it means:
"In this spirit it is necessary to consider two forms: in its juice, and in its poison. Its juice is double which preserves all the bodies, by a bitter salt."

Now the word for poison, venin (or venom) has a strange etymology. The same term which forms the word for venom, also formed the word for Venus, and also to venerate. A similar strange congruence of terms is found in Greek, where the word Kupris means the impure, a word which eventually forms the etymology for the word cupros (Venus, copper). In some strange way the word for Venus and for a love potion (venin) eventually evolved into a word for a poison. A text on toxicology says such:
'there is also a strange history behind the word venom. It began as
the simple word wen, meaning to wish or will, leading more or less
directly to "win". Along the way, the word also evolved into "venus",
"venery", and "venerate", all indicating varieties of love. The love
potion was called venin, which gradually acquired todays sense of
venom. Nobody can explain why the terms "poison" and "venom" come
from love potions."'

Similarly, the word for juice, comes from the Latin meaning to imbibe or take in. The word amer (also close to amor, love), interestingly enough, has one of its meanings as "clear", which in another English meaning is to be "succinct".

So a "bitter salt" might also be a "clear salt". We have double and triple meanings in this one little bit of text. And the term "clear salt", which my friend JK has translated as "bitter salt", is also used in texts such as Hollandus' text "The Philosopher's Stone".

We should ask ourselves, why should the words for clear and bitter be the same? (amer) Answering this should give us a clue as to the nature of this "bitter salt" which Lavinius speaks of.

Thus, many alchemical texts are written in the Green Language - that is, they employ etymologies and double-meanings in such a way as to make the student of alchemy search out the origins of language. This organic evolution of language is how alchemists mask their meaning in texts... and thus conceal a simple meaning beneath layers of text.

I'm lovin it!

Sat, 25 Apr 2009 01:03:14 GMT

"Space as such is infinite and our Cosmos or Universe may be considered as a particle of space, having form--- spherical form --- and being, of course, finite in extent."

Such a concise definition, but one that includes the possibility of alternate universes, though perhaps not necessarily in the Everett-Wheeler sense.

Quote of the day

Fri, 24 Apr 2009 10:05:35 GMT

"Anyone who sees in his own occupation merely a means of earning money degrades it; but he that sees in it a service to mankind ennobles both his labour and himself." - A. Lawrence Lowell.

Today's word of the day is: daggerin'

Fri, 24 Apr 2009 03:06:26 GMT

http://oddfactoids.blogspot.com/2009/04/thou-shalt-not-practice-daggering.html

The article is enough to make a guy wince ;-)

Father of Invention

Fri, 24 Apr 2009 01:57:57 GMT

Found this cool article while digging around on Keelynet earlier:
http://www.haaretz.com/hasen/spages/1074122.html