Skip to content

Instantly share code, notes, and snippets.

@francescoagati

francescoagati/drupal.phn

Created June 13, 2011 11:56
Show Gist options
  • Save francescoagati/1022661 to your computer and use it in GitHub Desktop.
Save francescoagati/1022661 to your computer and use it in GitHub Desktop.
Download ZIP
using drupal with pharen lisp
Raw
drupal.phn
(def result
(-> (db_select #users #u)
(condition "u.uid" 0 "<>")
(fields #u [#uid #name #created #access])
(range 0 100)
(execute)))
Raw
drupal.php
<?php
require_once('/Users/Francesco/Downloads/Scriptor-pharen-aea8dc4/lang.php');
Lexical::$scopes['bindings'] = array();
$__scope_id = Lexical::init_closure("bindings", 55);
$result = db_select("users", "u")->condition("u.uid", 0, "<>")->fields("u", array("uid", "name", "created", "access"))->range(0, 100)->execute();
Lexical::bind_lexing("bindings", 55, '$result', $result);
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment