This section allows you to view all posts made by this member. Note that you can only see posts made in areas you currently have access to.
Just in case you want to play with fuzzy logic, take a peek:Quote from: "Fanda"http://www.intricatevisions.com/index.cgi?page=nlfuzzy">http://www.intricatevisions.com/index.cgi?page=nlfuzzy
You will find a fuzzy logic library and an example of water temperature regulation.
Fanda
Code Select
(DF:activate-plugin "official/sqlite3")
(new Resource 'Resource.Coaching)
(context 'Resource.Coaching)
(define (Resource.Coaching:Resource.Coaching action id response-format)
(catch-all action id response-format)
)
(define (catch-all action id response-format)
(case action
("create"
)
("read"
)
("update"
)
("delete"
)
(true
(Response:content-type Response:text)
(println "This is API Version 1.0rn")
(println "Can't find called Action: " action "rn")
(println "Can't find called ID: " id "rn")
(println "Response format: " response-format "rn")
) ; END default
) ; END CASE
) ; END catch-all
(context MAIN)
Code Select http://localhost/coaching/create/1
http://localhost/coaching/read/1
http://localhost/coaching/delete/1
http://localhost/coaching/update/1Marc,Quote
Officially, newLISP is undeniably a lisp and can be used in Lisp in Summer Projects.
Personally, I'd love to see some newLISP projects! Anything in particular you have in mind?
Heow Goodman
Lisp In Summer Projects
Code Select
newlisp -m 4096 -s 10000 parse.lsp
newlisp(18433) malloc: *** mmap(size=4258476032) failed (error code=12)
*** error: can't allocate region
*** set a breakpoint in malloc_error_break to debug
ERR: not enough memory in function read-file
Code Select
(load "stdlib.lql")
(load "dblib.lql")
(timespace "day")
(define string-row *stream*)
(let ((row (reverse
(string-split (str string-row) ":"))))
(if (= (length row) 4)
(begin
(let ((os-ver (nth row 0))
(phone-model (nth row 1))
(error-class (nth row 2)))
(incdb "sessions" 1)
(incdb (session-by "osver" os-ver) 1)
(incdb (session-by "device" phone-model) 1)
(incdb (session-by "error" error-class) 1)
(incdb (session-by-crash "os_ver_class" os-ver error-class) 1)
(incdb (session-by-crash "device_class" phone-model error-class) 1)
(push! (unique "os_ver") os-ver)
(push! (unique "device") phone-model)
(push! (unique "error_class") error-class)))
#f))
A full blown custom LISP language written in C to implement queries, which is many times faster that having a VM (with a garbage collector) online all the timeQuote
Code Select
#!/usr/bin/env newlisp
;; BEGIN SETTINGS
;; Set Your own Dropbox API keys
;; You can create these keys here: https://www.dropbox.com/developers/apps
(set 'oauth-consumer-key "this-is-your-app-key") ;; this is the App key
(set 'oauth-signature "this-is-so-secret") ;; this is the App secret
(set 'curl "curl") ;; set path to curl executable
;; END SETTINGS
(set 'post-request (append {'Authorization: OAuth oauth_version="1.0", oauth_signature_method="PLAINTEXT", oauth_consumer_key="} oauth-consumer-key {", oauth_signature="} oauth-signature {&"'}))
(set 'post-target "https://api.dropbox.com/1/oauth/request_token")
;; GET TOKEN SECRET
(set 'curlpost (append curl " --silent --header " post-request " " post-target))
(set 'response (first (exec curlpost)))
(set 'oauth_token_secret (first (parse response "&")))
(set 'the-secret (last (parse oauth_token_secret "=")))
(set 'oauth_token (last (parse response "&")))
;; AUTH BY USER
(set 'authurl "https://www.dropbox.com/1/oauth/authorize?")
(set 'callbackurl "&oauth_callback=http://localhost/auth_complete")
(set 'curlauth (append curl " --silent " authurl oauth_token callbackurl))
(exec curlauth)
(println "Opening browser for authorization ... please follow further steps in Your browser.")
(set 'launchcmd (append "open " authurl oauth_token callbackurl))
(exec launchcmd)
(println "When authorization on Dropbox.com was successful press the 'a' key: ")
(while (!= (set 'key (read-key)) 97)
(println "When authorization on Dropbox.com was successful press the 'a' key: ")
)
;; GET ACCESS TOKEN
(set 'access-request (append {'Authorization: OAuth oauth_version="1.0", oauth_signature_method="PLAINTEXT", oauth_consumer_key="4n1wccbr1cyx3la", } oauth_token {", oauth_signature="xppxoa9rpqoviwc&} the-secret {"'}))
(set 'access-target "https://api.dropbox.com/1/oauth/access_token")
(set 'curlaccess (append curl " --silent --header " access-request " " access-target))
(set 'access_response (first (exec curlaccess)))
(println "Access response (JSON): " access_response)
(set 'access_token (parse access_response "&"))
(println "Access token: " access_token)
(set 'oauth_token (last (parse (nth 1 access_token) "=")))
(println "OAuth token: " oauth_token)
(write-file "oauth-token.txt" (string oauth_token))
(set 'access_token_secret (last (parse (first (parse access_response "&")) "=")))
(println "Access token secret: " access_token_secret)
(write-file "token.txt" (string access_token_secret))
(exit)
Code Select
#!/usr/bin/env newlisp
;; BEGIN SETTINGS
;; Set Your own Dropbox API keys
;; You can create these keys here: https://www.dropbox.com/developers/apps
(set 'oauth-consumer-key "this-is-your-app-key") ;; this is the App key
(set 'oauth-signature "this-is-so-secret") ;; this is the App secret
(set 'curl "curl") ;; set path to curl executable
;; END SETTINGS
(set 'access_token_secret (read-file "token.txt"))
(set 'oauth_token (read-file "oauth-token.txt"))
(set 'header (append {'Authorization: OAuth oauth_version="1.0", oauth_signature_method="PLAINTEXT", oauth_consumer_key="} oauth-consumer-key {", oauth_token="} oauth_token {", oauth_signature="} oauth-signature {&} access_token_secret {"'}))
(define (json2list response)
(json-parse (first response))
)
(define (accountinfo)
(set 'endpoint "https://api.dropbox.com/1/account/info")
(set 'url (append curl " --silent --header " header " " endpoint))
(set 'response (exec url))
(json2list response)
)
(println (accountinfo))
(exit)
Transform data types using float on the sub-expression, the second $1 is the return value for the float function when conversion fails:Quote
Code Select
(set 'jsdata (get-url "http://j.maxmind.com/app/geoip.js"))
(set 'location (find-all [text]'(.*)'[/text] jsdata))
(print location)
iOS does not allow shared libraries!
Why?
They are afraid your app will download a new version of the shared library at runtime and change the behavior and thus circumvent the whole Apple App Store Review process.