development release newLISP v.9.9.91

[Lutz]

• more changes towards http://www.newlisp.org/downloads/development/newLISP-10.0-Release.html">version 10.0



files and changes notes: http://www.newlisp.org/downloads/development">http://www.newlisp.org/downloads/development

[HPW]

Last newlisp-tk.exe is no more running with 9.9.91



One change is needed in newlisp-tk.tcl to get it back running:

Code Select Expand


(define (net-read-line socket buff)
        (net-receive socket buff 1000 "n")
        (set 'buff (chop (eval buff)))) ;buff now quoted for 9.991


Edit: With this change demo.lsp runs fine.

[newdep]

Lutz,



The ! and utf8 extention in the manual is very usefull for quick information.



Is it possible to extent it with function that return float and integer too?



Something im realy realy missing in the manual is a quick-list

of all functions that return 'nil or return "out of bound...." or empty lists..







Errors in the manual 9991->



define &nbap;!   should be define !





PS: "System Symbols and Constants" nice addon table ...

PPS: I like those chinese examples inside the doc! very nice..

(utf8-len "我能吞下玻璃而不伤身体。")    → 12

(length "我能吞下玻璃而不伤身体。")      → 36

[newdep]

Lutz,



A question regarding ->



***

New 'net-interface' allows selecting a default network interface card on

multihoned network nodes. In previous versions only net-listen could

specify a specific interface IP address, now a different interface card can also

be selected for outgoing communications by changing the default IP-address.

***



Why would you limit this to multihomed-Nic's ?



If you would remove that limitation the function 'net-interface is able

to realtime switch ip-identity's without being on a multihomed machine.



This is particular usefull for packet forwarding to different remote machines.

Where the remote machines expect the originator address

and not the ip-address of the man-in-the-middle.



personaly i would remove the limitation of "being" multihomed and

make net-interface variable by forcing the source-ip address from

net-interface into the packet...



PS: on tcp its upto the remote to make sure the originator ip exists

its not upto the sender...



Norman.





PS: edited... I looked into the C code and you actualy dont do anything..

You arnt even touching the tcp packets...mmmm... pitty ;-)

[Lutz]

personally i would remove the limitation of "being" multihomed and

make net-interface variable by forcing the source-ip address from

net-interface into the packet...

'net-interface' will let you configure whatever IP the OS allows you with normal user access rights and whatever that machine is configured for. Address spoofing is not allowed and to implement that, you would need special access rights for raw socket access. 'net-ping' does this, but needs newLISP to be run in super-user mode.



There are so many utilities available in the UNIX word for packet forwarding, IP configuration etc. In my opinion it is not wise to burden newLISP with this. The exception is 'net-ping', where a minimum is done to support node discovery in a network for distributed applications.

[itistoday]

The system variable $status-header can be set to a different string.  Currently

    "HTTP/1.0 200 OKrn" is the fixed response. As an example for a no response

    header you would specify:

        (set '$status-header "HTTP/1.0 204 No Responsern")

So I tried this in my code and it doesn't appear to work...



Take a look, I'm using a heavily modified version of Jeff's Response class (see the print-header function):

Code Select Expand

(context 'Response)

;; mark Public API

(define (Response:Response str)
(_response 200 str)
)

(define (redirect path)
(header "Location" path)
(_response 302)
)

(define (not-found str)
(_response 404 str)
)

(define (error str)
(_response 500 str)
)

;; mark Headers

;; add the header with key and associated value to the list of headers
;; replaces the old value if key is already in there
(define (header key val)
(set 'key (join (map title-case (parse key "-")) "-"))
(if (member key _headers)
    (setf (assoc key _headers) (list key val))
    (push (list key val) _headers)
)
)

(define (header? key)
(lookup key _headers)
)

(define (headers)
_headers
)


;; mark Cookies

(define (set-cookie key value domain path expires)
(if (cookie-set? key '? domain path)
(delete-cookie key domain path)
)
(push (list key value domain path expires) _cookies -1)
)


;; needs to check for set cookies in _cookies and remove
(define (delete-cookie key domain path)
(if (cookie-set? key '? domain path)
(pop _cookies (find (list key '? domain path '?) _cookies match))
(set-cookie key nil domain path (date-value))
)
)

; NOTE: bug fixed: definition was (cookie-set? key domain path)
(define (cookie-set? key value domain path)
(true? (find (list key value domain path '?) _cookies match))
)

;; mark Private API

; returns a string version ready for sending to browser of the cookie
(define (_format-cookie key value domain path expires)
;; expires must be timestamp (use date-value)
(set 'value (if value (string value) ""))
(let (cookie "")
(write-buffer cookie (format "%s=%s;" key value))
(if domain (write-buffer cookie (format "; domain=.%s" domain)))
(if path (write-buffer cookie (format "; path=%s" path)))
(if expires (write-buffer cookie (format "; expires=%s" (date (int expires) 0 "%a, %d %b %Y %H:%M:%S %Z"))))
cookie
)
)

; hack to get it work on both newlisp and apache because of bug in newlisp
(define (print-header code , header)
; (if (env "SERVER_PROTOCOL")
; (println "Status: " code " " (lookup code _response-codes))
; (println "HTTP/1.0 " code " " (lookup code _response-codes))
; )
(set 'header (string code " " (lookup code _response-codes)))
(set '$status-header (append "HTTP/1.0 " header "rn")) ; for newlisp
(println "Status: " header)
)

;; http://en.kioskea.net/contents/internet/http.php3
;; http://hoohoo.ncsa.uiuc.edu/cgi/out.html

;; NOTE: completely changed
(define (_response code content)
(print-header code)
(dolist (hdrs _headers) (println (hdrs 0) ": " (hdrs 1)))
(dolist (cookie _cookies) (println "Set-Cookie: " (apply _format-cookie cookie)))
(println "Content-type: " _content-type "n")
(print (string content))
(exit)
)

;; mark Private variables

(set '_response-codes
  '((200 "OK")
(302 "Found")
    (404 "Not Found")
    (500 "Internal Error"))
)

(set '_content-type "text/html; charset=utf-8")
(set '_headers '())
(set '_cookies '())

(context MAIN)


[Lutz]

Yes, its not working, wait for the next development version 9.9.92, November 1st.

[itistoday]

Yes, its not working, wait for the next development version 9.9.92, November 1st.

No probs! Thanks again!

[m35]

"我能吞下玻璃而不伤身体。"

"I can swallow down the glass not to burst oneself the body."



o.O