Search found 72 matches

by kosh
Fri Aug 29, 2014 8:40 am
Forum: newLISP and the O.S.
Topic: mingw patch
Replies: 5
Views: 3877

Re: mingw patch

This: http://www.newlisp.org/downloads/development/inprogress/ now should work independent of compilers and without compiler warning messages when time_t is 64-bit on 32-bit newLISP It looks good to me :) thanks again. What version of MINGW are you running? I used MinGW gcc 4.8.1 (latest version). ...
by kosh
Wed Aug 27, 2014 7:40 pm
Forum: newLISP and the O.S.
Topic: mingw patch
Replies: 5
Views: 3877

Re: mingw patch

Lutz, thank you for the merge my patch. However please modified a little. $ wget http://www.newlisp.org/downloads/development/inprogress/newlisp-10.6.1.tgz $ tar xf newlisp-10.6.1.tgz $ cd newlisp-10.6.1 $ make -f makefile_mingw_utf8 CC=gcc STRIP=touch ... $ newlisp newLISP v.10.6.1 32-bit on Win32 ...
by kosh
Sun Aug 24, 2014 4:45 pm
Forum: newLISP and the O.S.
Topic: mingw patch
Replies: 5
Views: 3877

mingw patch

Hi Lutz. This patch is solves about 2 problems on MinGW compile. 1. _WIN32_WINNT macros must define before windows.h and other headers Because of most of mingw headers (stdio.h, signal.h, ...) include _mingw.h and sdkddkver.h. And define _WIN32_WINNT there if not defined. diff --git a/newlisp.h b/ne...
by kosh
Sun Jul 20, 2014 6:17 am
Forum: newLISP and the O.S.
Topic: crc32 bug on newlisp 32-bit
Replies: 1
Views: 2582

crc32 bug on newlisp 32-bit

crc32 function may return wrong value on 32-bit machine. > (crc32 "hello") 907060870 ; OK > (crc32 "HELLO") -1052482506 ; NG [0xffffffffc1446436] > (& (crc32 "HELLO") 0x00000000ffffffff) 3242484790 ; OK [0x00000000c144643] This problem occurs because of difference between internal value and CELL va...
by kosh
Mon Dec 16, 2013 7:11 pm
Forum: newLISP and the O.S.
Topic: [patch] require dlerror before dlsym
Replies: 1
Views: 2379

[patch] require dlerror before dlsym

Hi Lutz. I found unusual behavior when 'import' called from url. newLISP v.10.5.4 32-bit on BSD IPv4/6 UTF-8 libffi, options: newlisp -h > (setq url "http://lambda.que.jp/files/x.lsp") > (get-url url) "(import \"libc.so\" \"printf\")\n" > (load url) ERR: import function not found in function import ...
by kosh
Sat Dec 14, 2013 4:41 pm
Forum: newLISP newS
Topic: newLISP Stable Release v.10.5.4
Replies: 21
Views: 17040

Re: newLISP Stable Release v.10.5.4

the qa-dot test runs but fails at semaphore To use semaphore function in cygwin, try install cygserver service. http://cygwin.com/cygwin-ug-net/using-cygserver.html $ (login as root) $ cygserver-config $ cygrunsrv --install cygserver -p /usr/sbin/cygserver $ cygrunsrv --start cygserver $ make -f ma...
by kosh
Sat Oct 12, 2013 7:06 pm
Forum: newLISP newS
Topic: Alternative git repository
Replies: 8
Views: 8931

Re: Alternative git repository

Did you do this with a specific purpose or just for replication? Both. This repo is a replication, because it contains a set of newlisp sources. I did manually commit from SF sources. I have no idea about how to automate it :-( This git repository made for my personal development. For example, it w...
by kosh
Fri Oct 11, 2013 11:01 am
Forum: newLISP newS
Topic: Alternative git repository
Replies: 8
Views: 8931

Alternative git repository

Hi.

http://repo.or.cz/w/newlisp/alt-newlisp.git

I forked newlisp mirror repository in repo.or.cz.

These original sources are available here: http://sourceforge.net/projects/newlisp/files/
All commit message are based on doc/CHANGES.

You can view the difference between commits. and clone it.
by kosh
Thu Aug 29, 2013 6:42 am
Forum: newLISP and the O.S.
Topic: closesocket in MinGW
Replies: 1
Views: 1928

closesocket in MinGW

Hi. This patch is resolve problems which fail to close the file descriptor. diff --git a/nl-sock.c b/nl-sock.c index 00efa7b..9acdaa7 100644 --- a/nl-sock.c +++ b/nl-sock.c @@ -1485,7 +1485,12 @@ handle = open(logFile, O_RDWR | O_APPEND | O_BINARY | O_CREAT, if(write(handle, text, strlen(text)) < 0)...
by kosh
Fri Jun 28, 2013 1:03 pm
Forum: So, what can you actually DO with newLISP?
Topic: JSON checker
Replies: 0
Views: 2594

JSON checker

This test code is based on JSON Checker (http://www.json.org/JSON_checker/) json-test.lsp: http://pastebin.com/9nqJHSW3 The results are here: > newlisp -v newLISP v.10.5.2 32-bit on Win32 IPv4/6 UTF-8 libffi. > newlisp json-test.lsp fail1.json -> pass : "A JSON payload should be an object or array, ...
by kosh
Fri Jun 28, 2013 12:39 pm
Forum: So, what can you actually DO with newLISP?
Topic: json-parse with inner double quote
Replies: 3
Views: 2957

Re: json-parse with inner double quote

Thanks Lutz.

Code: Select all

newLISP v.10.5.2 32-bit on Win32 IPv4/6 UTF-8 libffi, options: newlisp -h

> (json-parse [text]{"a backslash":"\\"}[/text])
(("a backslash" "\\\\"))
This retun value is maybe (("a backslash" "\\"))

Regards.
by kosh
Thu Jun 20, 2013 11:56 am
Forum: So, what can you actually DO with newLISP?
Topic: json-parse with inner double quote
Replies: 3
Views: 2957

json-parse with inner double quote

Hi. json-parse cannot handle JSON data with inner double quote chars. > (setf data [text]{"foo": ["bar", "\"baz\""]}[/text]) "{\"foo\": [\"bar\", \"\\\"baz\\\"\"]}" > (json-parse data) nil > (json-error) ("invalid JSON array format" 19) This problem doesn't occur in previous json module. > (module "...
by kosh
Thu May 30, 2013 10:49 am
Forum: newLISP newS
Topic: Built-in, unlimited precision, big integer arithmetik
Replies: 18
Views: 12478

Re: Built-in, unlimited precision, big integer arithmetik

Thanks, Lutz.

I found another problem.
division operator (/) with bigint works strangely.

Code: Select all

> (/ 123000000000L 1)
123L
> (/ 12300000000000000000000000000L 1)
12300000000000000001L
> (/ 123000000000000000000000000000L 1)
123000000001^[,),(-*,(L
regards.
by kosh
Wed May 29, 2013 9:49 am
Forum: newLISP newS
Topic: Built-in, unlimited precision, big integer arithmetik
Replies: 18
Views: 12478

Re: Built-in, unlimited precision, big integer arithmetik

hi. Does bigint function allow non-numerical characters? newLISP v.10.5.0 32-bit on Win32 IPv4/6 UTF-8 libffi, options: newlisp -h > (bigint "HELLO") 264111L > (bigint "") (null)L > (bigint "-L") ; segmentation fault and, what value returns with a floating-point string? > (int "3.14") 3 > (bigint "3...
by kosh
Fri Mar 29, 2013 3:06 am
Forum: Dragonfly
Topic: newlisp crashes
Replies: 4
Views: 2625

Re: newlisp crashes

After those 2 fixes, newlisp would compile, but behaved erroneously like this: $ newlisp newLISP v.10.4.6 on Win32 IPv4/6 UTF-8, execute 'newlisp -h' for options. > (+ 10 20 30) ERR: missing parenthesis : "...(+ 10 20 30 " > (exit) ERR: missing parenthesis : "...(exit " please try this http://newli...
by kosh
Fri Mar 29, 2013 2:52 am
Forum: newLISP and the O.S.
Topic: Substitute _CRT_fmode
Replies: 1
Views: 1552

Substitute _CRT_fmode

Hi Lutz. in nl-filesys.c:76 /* Set binary as default file mode for Windows. See also http://www.mingw.org/MinGWiki/index.php/binary */ unsigned int _CRT_fmode = _O_BINARY; This technique cannot available because of unimplemented in MinGW64. and URL has changed to http://oldwiki.mingw.org/index.php/b...
by kosh
Mon Oct 08, 2012 5:47 pm
Forum: newLISP and the O.S.
Topic: kill function fow MinGW
Replies: 1
Views: 1519

kill function fow MinGW

Hello Lutz. This patch is implementation 'kill' function for MinGW (Windows). and modified 'plainProcess' and 'p_destroy' functions. int kill(pid_t pid, int sig); 'kill' function terminates specified process by process ID. However, second argument (int sig) will be ignored. diff -wru newlisp-10.4.4-...
by kosh
Sun Jun 03, 2012 7:23 pm
Forum: newLISP and the O.S.
Topic: [text] tag and EOF
Replies: 2
Views: 1387

Re: [text] tag and EOF

Thanks! It works well.
by kosh
Sat Jun 02, 2012 9:38 am
Forum: newLISP and the O.S.
Topic: [text] tag and EOF
Replies: 2
Views: 1387

[text] tag and EOF

Hi Lutz. This file is a script which assign a string into str. but missing [/text] tag. ;; foo.lsp (setq str [text] AAA BBB CCC EOF When execute this script, becomes the error by lack of memory. $ newlisp foo.lsp ERR: not enough memory I want to work as follows: $ newlisp foo.lsp ERR: missing end of...
by kosh
Mon Mar 26, 2012 6:05 pm
Forum: newLISP and the O.S.
Topic: Patch for xmlrpc module
Replies: 1
Views: 1367

Patch for xmlrpc module

Hello Lutz. This patch is for correcting XML-RPC module (xmlrpc.cgi and xmlrpc-client.lsp). example/xmlrpc.cgi: --- newlisp-10.4.0/examples/xmlrpc.cgi.orig 2012-03-07 02:42:20.000000000 +0900 +++ newlisp-10.4.0/examples/xmlrpc.cgi 2012-03-26 14:40:35.000000000 +0900 @@ -128,7 +128,7 @@ (define (syst...
by kosh
Sun Mar 25, 2012 6:36 pm
Forum: newLISP and the O.S.
Topic: ostype from sys-info
Replies: 1
Views: 1454

ostype from sys-info

According to document, '(sys-info 9)' returns a following value: Operating system constant: linux=1, bsd=2, osx=3, solaris=4, cygwin=5, win32=6, os/2=7, tru64unix=9 But in newlisp.c is written like this: #ifdef CYGWIN int opsys = 8; #endif #ifdef TRU64 int opsys = 9; #endif #ifdef AIX int opsys = 10...
by kosh
Sun Nov 20, 2011 10:49 pm
Forum: Whither newLISP?
Topic: Lambda calculus and newLISP
Replies: 1
Views: 3392

Re: Lambda calculus and newLISP

I think that I probably wrote that snippet 2 years ago.
But posted to Gist(github). I do not know the Pastebin's :-P

https://gist.github.com/262332

And that snippet is may not work, because of emulate lexical-closure incompletely ...
by kosh
Tue Oct 18, 2011 12:56 pm
Forum: newLISP and the O.S.
Topic: IPv6 headers in Cygwin
Replies: 0
Views: 1560

IPv6 headers in Cygwin

Hi Lutz. According to cygwin mailing list, IPv6 headers don't exist in Cygwin. http://cygwin.com/ml/cygwin/2011-03/msg00459.html On Mar 15 22:07, Olivier Lefevre wrote: > I am trying to compile mtr-0.80. configure completed without > errors but make puts: > > net.h:25:25: error: netinet/ip6.h: No su...
by kosh
Mon Jul 11, 2011 6:05 pm
Forum: newLISP and the O.S.
Topic: get-url debug option insecure
Replies: 3
Views: 3313

Re: get-url debug option insecure

Thanks Lutz. fixed newlisp working fine :) I found similar problem in 'get-url' with custom header. --- nl-web.orig.c 2011-07-12 01:48:20.000000000 +0900 +++ nl-web.c 2011-07-12 01:40:20.000000000 +0900 @@ -427,7 +427,7 @@ /* send optional custom header entries */ if (customHeader != NULL) - sendf(s...
by kosh
Sun Jun 19, 2011 5:23 pm
Forum: newLISP and the O.S.
Topic: get-url debug option insecure
Replies: 3
Views: 3313

get-url debug option insecure

Hi. When url-encoded string to "get-url" is passed, the debug output is not correctly. It happens because passing the url-encoded string directly to the varPrintf function argument. newLISP v.10.3.0 on BSD IPv4/6 UTF-8, execute 'newlisp -h' for more info. > (get-url "http://localhost/%E6%97%A5%E6%9C...