newlispfanclub.alh.net

winger

libcrypto path is " /usr/lib/libcrypto.so.0.9.8 " on "ubuntu 12.04 i386" $ uname -a Linux L4F 3.2.0-54-generic-pae #82-Ubuntu SMP Tue Sep 10 20:29:22 UTC 2013 i686 i686 i686 GNU/Linux $ locate libcrypto /lib/i386-linux-gnu/libcrypto.so.0.9.8 /usr/lib/libcrypto++.so.9 /usr/lib/libcrypto++.so.9.0.0 /u...

winger

Code: Select all

> (println(join  ( 0 4 (explode "好汉不吃眼前亏"))) " ")
好汉
" "

This trick is very cool!

winger

I'm new to new lisp (love it!) but this doesn't work for numbers with a decimal part. My try: (define (format1000 n) (let (t (parse (string n) ".")) (append (reverse (join (explode (reverse (first t)) 3) ",")) (if (empty? (rest t)) "" (append "." (last t)))))) > (format1000 12131) "12,131" > (forma...

winger

http://weitz.de/rdnzl/#download
Now only need to write a library call the RDNZL.DLL........
Unfortunately, I am not familiar with.Net.55555

winger

It's just an idea.
We know .Net does not provide a standard DLL for other languages.
Should we write a DLL to complete the call to.NET and provide the interface for other languages ?
Anyone idea?

winger

VERY THX Lutz ! Everything there is reason. My knowledge is so poor that it did not notice the problem is the signal. Now I found two ways to avoid this problem. (signal 17 "ignore") ; The SIGCHLD signal is sent to the parent of a child process when it exits, is interrupted, or resumes after being i...

winger

I THINK This's a bug ?! #p1.lsp (while 1 (sleep 5000) (dotimes (n 2) (process (string "/usr/bin/newlisp " " p2.lsp " n)) ) ) (exit) #ps.lsp (println "Current PIS is " (sys-info 7) " ---> " (last $main-args)) (exit) $ newlisp -v newLISP v.10.5.4 32-bit on Linux IPv4/6 UTF-8 libffi. $newlisp p1.lsp p1...

winger

;#t2.lsp (set 'ARGS (main-args)) (define (get-arg argname '_result) (let (ix (find argname ARGS)) (and ix (pop ARGS ix)) (if (catch (ARGS ix) '_result) (and (pop ARGS ix) _result) nil ) ) ) (constant 'EXECUTE_PATH "/usr/bin/newlisp") (constant 'ARG_SECOND "t2.lsp") (constant 'TIME_CLOCK 4000) (cons...

winger

r is a string "'connection is closed" "when socket been closed by romote.
Then expr "(min q number)" will broke .

winger

Code: Select all

(= -1 q)
to
(> (int q) -1)

because

Code: Select all

(throw-error "connection is closed")

winger

Don't work! newLISP v.10.4.7 on Linux IPv4/6 libffi, execute 'newlisp -h' for options. >(get-url "http://newlisp.org" "header debug") HEAD / HTTP/1.1 Host: newlisp.org User-Agent: newLISP v10407 Connection: close HEAD / HTTP/1.1 Host: www.newlisp.org User-Agent: newLISP v10407 Connection: close "Dat...

winger

Sometimes we need get http status code . But get-url only return 404 status code. > (setf xo2 (get-url "http://www.baidu.com/link?url=kX6MGJqjJ4zBBpC8yDF8xDhzsTii46BoCipLx6xJ2t3626ZBIWUltBgpQyK" "list debug" 10000 )) GET /link?url=kX6MGJqjJ4zBBpC8yDF8xDhzsTii46BoCipLx6xJ2t3626ZBIWUltBgpQyK HTTP/1.1 ...

winger

Code: Select all

;; env.lsp 
(println (real-path "env_ubuntu.lsp"))

Must define a root path then "changer-dir" to it .......

winger

;i change report function to following : (define (report pid) (semaphore sid -1) (when (< pcount allipnum) (spawn (sym (allip pcount)) (if (begin (catch (brute_path (allip pcount)) 'result) result) (println "----:----> "result (read-key))) ) ) (inc pcount) (semaphore sid 1) ) But code (println "---...

winger

thx lutz...

冏
I forgot to paste the code about "sync" portion.
I use "sync"from the outset. --!

Post it to github now:
https://github.com/freewinger/wsec_tool ... canner.lsp

winger

I found where the problem.

Code: Select all

get-url

Function get-url always not return on child process.
Even if you set the timeout does not work。
Comment out the line that contains the “get-url”, will be able to perform good.

winger

first: I have wirted a multiporcess scanner. i use ten process. All of them blocked sometimes later!!! (define (check_path host , url url2 result str socket) (if-not (starts-with host "http://") (setf url2 (string "http://" host))) (dolist (port portlst) (when (and (setf socket (net-connect host (in...

winger

i just want get "http://www.google.com/bank.html" as a text argument.
(last-error) can't get the url.

Of course we can pass parameter as this :

Code: Select all

newlisp a.lsp  www.google.com/bank.html

Then add prefix in the code.

Code: Select all

(setf url (string "http://" (main-args -1)))

这不和谐啊

winger

create a empty file a.lsp winger@winger$ newlisp a.lsp http://www.google.com/bank.html ERR: problem accessing file : "ERR: server code 404: HTTP/1.1 404 Not Found\r\n<!DOCTYPE html>\n<html lang=en>\n <meta charset=utf-8>\n <meta name=viewport content=\"initial-scale=1, minimum-scale=1, width=device-...

winger

No accumulation No Future

winger

We need to submit code and search script code in a very convenient place.
These codes can be very easily applied to the actual work.
Now everyone each write their own.
I think we need a CPAN or an appstore.
http://search.cpan.org/

winger

(setf lst '("exb" "BEGIN" "unknown" "num" "of" "items" "END" "BEGIN" "ex3" "END" "something" "and" "so" "on" )) (setf ix (map (fn (x) (first x)) (ref-all {BEGIN|END} lst regex))) (push 0 ix) (apply (fn (, y z) (println (push ( y (inc (- z y)) lst) result -1))) ix 3) ;result (("BEGIN" "unknown" "num...

winger

(setf lst '("exb" "BEGIN" "unknown" "num" "of" "items" "END" "BEGIN" "ex3" "END" "something" "and" "so" "on" )) (setf ix (map (fn (x) (first x)) (ref-all {BEGIN|END} lst regex))) (push 0 ix) (apply (fn (, y z) (println (push ( y (inc (- z y)) lst) result -1))) ix 3) ;result (("BEGIN" "unknown" "num...

winger

Very thanks cormullion !
You are right.
All right if don't use 'true' parameter.

Code: Select all

(println (txml (ref  '(portid *)  txml match )))

But Why?
Call @Lutz

winger

thx share!
EE is a good editor!

newlispfanclub.alh.net

Search found 46 matches

Re: newLISP Development Release v.10.5.7

Re: Fore nth to not use utf8 ?

Re: Thousand's separator

Re: Maybe We can call .Net Function from a Custom DLL ?

Maybe We can call .Net Function from a Custom DLL ?

Re: process and sleep function error on a self-calling scrip

Re: process and sleep function error on a self-calling scrip

process and sleep function error on a self-calling script

Re: timeout question about net-receive

Re: timeout question about net-receive

Re: get-url can't return 302 status code

get-url can't return 302 status code

Re: Issue about loading modules from different directory

Re: Some issuses about socket function

Re: Some issuses about socket function

Re: Some issuses about socket function

Some issuses about socket function

Re: When command-line arguments contain "http://" something

When command-line arguments contain "http://" something ....

Re: We need a app store or cpan !

We need a app store or cpan !

Re: Exploding a list using patterns

Re: Exploding a list using patterns

Re: (ref) can't process big data?

Re: emEditor newlisp syntax highlight