Meat The Truth - Uma Verdade Mais Que Inconveniente
28 de Junho de 2009 @ 23:35 - LucindoArquivado sob vida | Sem Comentários | Link desta publicação | Enviar por e-mail
Lisp Joke
13 de Dezembro de 2008 @ 15:42 - LucindoArquivado sob common lisp, programação | Sem Comentários | Link desta publicação | Enviar por e-mail
Como tomar decisões
22 de Novembro de 2008 @ 00:47 - LucindoArquivado sob programação, vida, python | Sem Comentários | Link desta publicação | Enviar por e-mail
Agora pouco, no IM:
trajber: vou pedir ajuda ao meu querido PC
trajber: mauro@trajber:~$ python
Python 2.5.2 (r252:60911, Oct 5 2008, 19:24:49)
[GCC 4.3.2] on linux2
Type “help”, “copyright”, “credits” or “license” for more information.
>>> import random
>>> print random.randint(0,1)
trajber: 0 = ignorar
trajber: 1 = comer
trajber: ok ?
trajber: 0
>>>
trajber: foi justo…
Outro também fez algo parecido: http://twitter.com/igorrs/status/896944758
Book Meme
13 de Novembro de 2008 @ 22:34 - LucindoArquivado sob indefinido | 1 Comentário | Link desta publicação | Enviar por e-mail
Time is always critical because somebody might beat you to the punch
Founders at Work, Jessica Livingston
- Grab the nearest book.
- Open it to page 56.
- Find the fifth sentence.
- Post the text of the sentence in your journal along with these # instructions.
- Don’t dig for your favorite book, the cool book, or the intellectual one: pick the CLOSEST.
Javascript (Ajax) e HTML em Lisp
12 de Outubro de 2008 @ 15:56 - LucindoArquivado sob common lisp, javascript, web | 1 Comentário | Link desta publicação | Enviar por e-mail
Para testar algumas coisas refiz hoje o código do post Common Lisp e Ajax. Desta vez estou usando o patch para o HT-AJAX com suporte e jQuery. Além disso, para gerar código JavaScript uso Parenscript. Assim todo HTML e JS é produzido por s-exps:
(eval-when (:compile-toplevel :load-toplevel :execute)
(defparameter *dependencies*
‘(:asdf :hunchentoot :ht-ajax :cl-who :parenscript))
(map nil ‘require *dependencies*))
(defpackage :ajax-test
(:use :common-lisp :hunchentoot :ht-ajax :cl-who :parenscript))
(in-package :ajax-test)
(defparameter *local-dir* “/Users/lucindo/Documents/Lisp/web/3rdparty/”)
(defparameter *ajax-handler-url* “/ajax”)
(defparameter *ajax-processor*
(make-ajax-processor :type :jquery
:server-uri *ajax-handler-url*
:js-file-uris “/static/jquery.js”))
(defun testfunc (command)
(prin1-to-string (handler-case (eval (read-from-string command nil))
(error (c) (format nil “~a” c)))))
(defun js ()
(ps
(defun command_clicked ()
(let ((command (document.get-element-by-id “command”)))
(with-slots (value) command
(ajax_testfunc_set_element “result” value))))))
(defun main-page ()
(with-html-output-to-string
(*standard-output* nil :prologue t)
(:html
(:head
(:script :type “text/javascript” :src “/js”)
(:title “AJAX test”)
(fmt “~a” (generate-prologue *ajax-processor*)))
(:body
(:h1 “ajax test”)
(:table :width “50%”
(:tr
(:td :colspan “2″
(:span :id “result”
(:i “no results yet”))))
(:tr
(:td :width “70%”
(:input :type “text”
:size “70″
:name “command”
:id “command”))
(:td (:input :type “button”
:value “eval”
:onclick (ps-inline (command_clicked))))))))))
(eval-when (:load-toplevel :execute)
(export-func *ajax-processor* ‘testfunc :method :post)
(setf *dispatch-table*
(list ‘dispatch-easy-handlers
(create-folder-dispatcher-and-handler “/static/”
*local-dir* “text/plain”)
(create-prefix-dispatcher *ajax-handler-url*
(get-handler *ajax-processor*))
(create-prefix-dispatcher “/js” ‘js)
(create-prefix-dispatcher “/” ‘main-page))))
(defparameter *webserver* nil)
(defun start-web (&optional (port 4242))
(setf *webserver* (start-server :port port)))
(defun stop-web ()
(stop-server *webserver*))
Download: ajax2.lisp
Ruby sucks: parte 42
8 de Outubro de 2008 @ 12:13 - LucindoArquivado sob ruby | 5 Comentários | Link desta publicação | Enviar por e-mail
Há algum tempo eu desisti de Ruby. Como linguagem de programação tem coisas muito legais, mas ainda é muito imatura (apesar da idade). Poderia mostrar vários exemplos de coisas estranhas em Ruby, mas hoje vai a causa de um bug que me mostraram.
Veja se o defined? não funciona de maneira não intuitiva:
lucindo@marvin:~$ irb irb(main):001:0> defined?(cu) => nil irb(main):002:0> if false irb(main):003:1> cu = "ruby" irb(main):004:1> end => nil irb(main):005:0> defined?(cu) => "local-variable" irb(main):006:0> if defined?(cu) irb(main):007:1> puts "ruby cu" irb(main):008:1> end ruby cu => nil irb(main):009:0>
Imagina se você usa isso em algo como configuração…
ACE_Task-like em Python
28 de Setembro de 2008 @ 20:02 - LucindoArquivado sob programação, python | 2 Comentários | Link desta publicação | Enviar por e-mail
Nos últmos dias me reanimei a voltar a postar nesse blog.
Estou tentando mudar para Python como a minha principal linguagem de script, mas ainda preciso aprender a programar direito nessa linguagem. Enquanto isso não acontece, eu fico replicando código de outros lugares, como a cópia de pobre da ACE_Task abaixo:
import threading, Queue, signal
class Task(object):
def __init__(self):
self.queue = Queue.Queue(0)
def __worker(self):
while True:
item = self.queue.get()
self.process(item)
self.queue.task_done()
def __start(self):
thread = threading.Thread(target=self.__worker)
thread.setDaemon(True)
thread.start()
def activate(self, threads):
for thread in xrange(threads):
self.__start()
signal.signal(signal.SIGINT, signal.SIG_DFL)
def put(self, item):
self.queue.put(item)
def wait(self):
self.queue.join()
def process(self, item):
pass
class task(Task):
def __init__(self, func):
Task.__init__(self)
self.process = func
A única coisa pytônica do código é o decorator do final.
Bom, um exemplo de uso: digamos que você é um spammer e quer mandar vários emails. Você tem um arquivo em que cada linha tem as seguintes informações: servidor; email; subject; mensagem. Tudo separado por ponto e vírgula.
Usando o decorator acima o código ficaria mais ou menos assim (usando 100 threads):
from __future__ import with_statement
from task import task
import smtplib, sys
@task
def send_spam(item):
server, toaddr, subject, msg = item.strip().split(‘;’)
fromaddr = ’spammer@evil.org’
message = (“From: %s\r\nTo: %s\r\nSubject: %s\r\n\r\n%s”
% (fromaddr, toaddr, subject, msg))
try:
smtp = smtplib.SMTP(server)
smtp.sendmail(fromaddr, toaddr, message)
except Exception:
pass
def process_file(filename):
send_spam.activate(100)
with open(filename) as file:
map(lambda line: send_spam.put(line), file.readlines())
send_spam.wait()
if __name__ == ‘__main__’:
process_file(sys.argv[1])
Coloquei esse exemplo porque não tinha um melhor… é apenas um exemplo, não um programa de verdade, ok?
Download: task.py
To do: reescrever em Python 2.6 usando Multiprocessos
Frase do dia
21 de Setembro de 2008 @ 22:28 - LucindoArquivado sob common lisp | Sem Comentários | Link desta publicação | Enviar por e-mail
Só porque esse blog está muito parado:
Eight years to do TeX? How smart can he be? He should have used Lisp.
Kenny Tilton, sobre Donald Knuth
HT-AJAX e jQuery
1 de Junho de 2008 @ 17:46 - LucindoArquivado sob common lisp, programação, javascript, web | Sem Comentários | Link desta publicação | Enviar por e-mail
HT-AJAX (documentação aqui) é uma extenção do Hunchentoot que permite exportar suas funções lisp de modo que elas podem ser acessadas via JavaScript, usando AJAX. Um pequeno exemplo de uso dessa biblioteca está nesse post.
HT-AJAX suporta vários AJAX processors, como Prototype e Dojo, mas não jQuery. Então fiz um pequeno patch adicionando suporte a jQuery.
Download: ht-ajax_0.0.7-jquery.patch
Aplicando o patch (SBCL):
$ cd ~/.sbcl/site/ht-ajax_0.0.7 $ wget http://lucindo.com.br/lisp/ht-ajax_0.0.7-jquery.patch $ cat ht-ajax_0.0.7-jquery.patch | patch -p0 $ sbcl * (require :asdf) * (asdf:oos 'asdf:compile-op :ht-ajax)
About State
31 de Maio de 2008 @ 21:57 - LucindoArquivado sob common lisp, programação | 1 Comentário | Link desta publicação | Enviar por e-mail
Two options for lispers:
(blog ‘lucindo) | http://blog.lucindo.com.br