(setq Words (list))
(in "words.txt" 
  (while (line) (push1 Words (any (pack @)))))
(setq Words (sort (car Words)))
(balance 'Words2 Words)
(out "words" (print Words2))

Input is on the form of one “word” per line. Will read all words and create a balanced index tree and save it to the “words” file.

Importing the tree:

(setq *Words (any (in "words" (till NIL T))))

Rerouting the output buffer :

(pipe (xml El) (line T))

In the above case we know that (xml) is not printing line endings, (pipe) will in this case return all that is being printed in (xml) and no output will take place. Similar to ob_start() and ob_flush() in PHP.

Getting a page with CURL (provided that you have done apt-get install curl first):

(out "ongoing.xml" (prin (in '(curl "http://www.tbray.org/ongoing/ongoing.atom") (till NIL T))))

Sponsored links

Car Decal
Guaranteed Search Engine Optimization