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.
Code Select
> (array 1)
(nil)
> (setq *a* (array 1))
(nil)
> (setf (nth 0 *a*) '(1 2 3))
(1 2 3)
> (source '*a*)
"(set '*a* (array 1 (flat '(rn (1 2 3)))))rnrn"
>
Code Select
(import "libc.so.6" "dup2")
;Standard input value, stdin. Its value is 0.
(constant 'STDIN_FILENO 0)
;Standard output value, stdout. Its value is 1.
(constant 'STDOUT_FILENO 1)
;Standard error value, stderr. Its value is 2.
(constant 'STDERR_FILENO 2)
(println STDOUT_FILENO)
(set 'socket (net-listen 1234))
(set 'cnn (net-accept socket))
(net-close socket)
(println "Connection successed!")
;/* duplicate socket on stdout */
(dup2 cnn STDOUT_FILENO)
; /* duplicate socket on stderr too */
(dup2 cnn STDIN_FILENO)
(debug (fibo 2))
(exit)
Code Select
(set 'socket (net-connect "127.0.0.1" 1234))
(println "Connection successed!")
(setq g_end "s|tep n|ext c|ont q|uit >")
(catch
(let ((buffer (dup "x00" 1))
(output ""))
(while true
;判断是否 s|tep n|ext c|ont q|uit > 结尾，如果是，则打印出来后再读取一个字符
(net-select socket "e" 0)
(when (net-error)
(println (net-error))
(throw 'Exception))
(net-receive socket buffer 1)
(print buffer)
(setq output (append output buffer))
(when (ends-with output g_end)
(setq output "")
(letn ((cmd (read-line))
(send_cmd (append cmd "n")))
(net-send socket send_cmd)
)
)
)
)
'Result)
(exit)
Code Select
# makefile for newLISP v. 10.5.x and after with UTF8 support for the Emscripten SDK
#
# With Emscripten version v1.22.0 all execption handling related problems
# known have been solved. (November 2014)
#
# see also: https://github.com/kripken/emscripten/wiki
#
# Uses custom random() and srandom() in nl-filesys.c
#
# Does not implement the newLISP functions:
# semaphore, net-packet, net-service, fork, spawn, sync, abort
#
# Will not do file and network I/O functions in the sandboxed JavaScript
# environment
#
# Generates newlisp-js-lib.js and newlisp-js-lib.html.
# The html file can be discarded use newlisp-js/newlisp-js.html instead
#
# this makefile has been tested on a MAC OSX 10.9/10 platforms
OBJS = newlisp.o nl-symbol.o nl-math.o nl-list.o nl-liststr.o nl-string.o nl-filesys.o
nl-sock.o nl-web.o nl-xml-json.o nl-matrix.o nl-debug.o pcre.o nl-utf8.o unix-lib.o
CFLAGS = -m32 -Wall -c -DMAC_OSX -DLIBRARY -DEMSCRIPTEN -DSUPPORT_UTF8
CC = emcc
default: $(OBJS)
cp qa-specific-tests/qa-bench newlisp-js
cp modules/canvas.lsp newlisp-js
$(CC) $(OBJS) -m32 -O2 -s WASM=1 -o newlisp-js-lib.html -s EXPORTED_FUNCTIONS="['_newlispEvalStr']"
-s EXTRA_EXPORTED_RUNTIME_METHODS='["ccall", "cwrap"]'
-s TOTAL_MEMORY=33554432 --closure 1
--embed-file newlisp-js/readme.txt --embed-file newlisp-js/qa-bench --embed-file newlisp-js/canvas.lsp
rm newlisp-js/qa-bench newlisp-js/canvas.lsp
.c.o:
$(CC) -O2 --closure 1 $(CFLAGS) $<
$(OBJS): primes.h protos.h makefile_emscripten_lib_utf8
public static Image getImageFromPath(String path, Class cls)
{
if(path.startsWith("/local/")) {
return(Toolkit.getDefaultToolkit().getImage(cls.getResource("/images" + path.substring(6))));
//return(Toolkit.getDefaultToolkit().getImage(cls.getClass().getResource("/images" + path.substring(6))));
}
else
return(Toolkit.getDefaultToolkit().getImage(path));
}
public static ImageIcon getIconFromPath(String path, Class cls)
{
if(path.startsWith("/local/"))
//return(new ImageIcon(Toolkit.getDefaultToolkit().getImage(cls.getClass().getResource("/images" + path.substring(6)))));
return(new ImageIcon(Toolkit.getDefaultToolkit().getImage(cls.getResource("/images" + path.substring(6)))));
else
return(new ImageIcon(path));
}
Code Select
(define (test)
(setq *a* (array 1))
(rest *a*))
(test)
ERR: array index out of bounds in function rest : 1
called from user defined function test
Code Select
(define (test )
(setq *a* (array 1))
#(rest *a*)#
(println "OK"))
RESULT: nil
Code Select
(define (db-clear-sync-queues-vlog clearlist)
(let ((conds '())
(sql ""))
(dolist (_item clearlist)
(if (and (> (length _item) 1)
(string? (nth 0 _item))
(number? (nth 2 _item))
)
(extend conds (list (format "(tablename='%s' and orderid=%d)" (nth 0 _item) (nth 2 _item))))
)
)
(setq sql (append "delete from tbl_sync_queues_vlog where " (join conds " or ")))
))
(debug (db-clear-sync-queues-vlog '(("tbl_test" "2014-10-21 10:35:35.873000000" 1))))
Code Select
(define (db-clear-sync-queues-vlog clearlist)
(let ((conds '()) (sql ""))
(dolist (_item clearlist)
(if (and (> (length _item) 1) (string? (nth 0 _item)) (number? (nth 2 _item)))
(extend conds (list (format "(tablename='(null)' and orderid=10503914)" (nth 0 _item)
(nth 2 _item))))))
(setq sql (append "delete from tbl_sync_queues_vlog where " (join conds " or ")))))
Code Select
(define (db-clear-sync-queues-vlog clearlist)
(let ((conds '()) (sql ""))
#(dolist (_item clearlist)
(if (and (> (length _item) 1) (string? (nth 0 _item)) (number? (nth 2 _item)))
(extend conds (list (format "(tablename='(null)' and orderid=10503914)" (nth 0 _item)
(nth 2 _item))))))#
(setq sql (append "delete from tbl_sync_queues_vlog where " (join conds " or ")))))
... and you also should try:Quote from: "Lutz"
(import "msvcrt.dll" "sscanf" "cdecl") ; <- C-calling conventions for varargs
C-calling conventions may handle variable number of arguments insscanfbetter.
Code Select
(import "msvcrt.dll" "sscanf")
(let ((day 0) (mon 0) (year 0))
(sscanf "1990-01-01" "%d-%d-%d" (address year) (address mon) (address day)))
Code Select
upstream localhost {
server localhost:4242;
server localhost:4243;
}