newlispfanclub.alh.net

ssqq

Thanks, most of bug that difficulty to find is these type error. I am writing a strict code tools to check un-declared symbol beside it is a global symbol by explicit defined (like: $symbol-name).

ssqq

Following code would throw error:

Code: Select all

> 'fn
ERR: invalid lambda expression : "fn\n"
> 'lambda
ERR: invalid lambda expression : "lambda\n"
> (quote fn)
ERR: invalid lambda expression : " fn)\n"
> (quote lambda)
ERR: invalid lambda expression : " lambda)\n"

If it is a bug?

ssqq

In newLISP, lexical symbol is declare with *let*, *letn*, *letex* and *args expression*. If it is possible that add *Perl-lish* style lexical declare function like *my*(expr scope) in newLISP? (define (sub-name arg) (expression-list) (my lexical-symbol 1) (+ 1 lexical-symbol)) (= lexical-symbol nil)...

ssqq

;; indent-newlisp.lsp ;; Author: ssqq ;; http://www.newlisp.cn ;; usage: ;; ~> newlisp indent-newlisp.lsp your-script.lsp 4 > output.lsp (define (indent-code input-file (indent 2)) (local (v-level new-level file-txt file-lines indent-line indent-lines) (setq v-level 0) (setq file-text (read-file in...

ssqq

I used Vim to write newLISP code, How to set following indent: (define (sub-name args) (built-in-sub args) ) (if (= expr nil) (dosth) ) if last parenthesis is first char of line, have same indent with his corresponding start parenthesis. Just like *{ ... }* in C-like indent.

ssqq

As write newLISP code, if write a spell error symbol name, newLISP would make it as nil, and continue run. How to check these error? If have any tools could help me?

ssqq

yes, I write error code. I found the int-option in replace is could not ignore like *regex*. if ignore the int-option, newLISP would make "find-str" as *literal str*, if add int-option, newLISP would treat *find-str* as *regex-str". (replace "(a)" "aabb" "c") => "aabb" > (replace "(a)" "aabb" "c" 0)...

ssqq

When I test *repace* in ubuntu 14.04, I found following test would fail:

(set 'str "---axb--ayb---")
(replace "(a)(.)(b)" str (append $3 $3 $1) 0)
(= str "---bxa---bya---")

ssqq

In bigger project, Context as hash in function maybe pollute global symbol tree.

Code: Select all

(define (make-local-hash)
  (let (local-hash (new Tree 'a-hash))
    (a-hash "one" 1)
    (a-hash "two" 2)
))

(set 'a-hash 2)
(println a-hash) ; => 2
(make-local-hash)
(println a-hash) ; => a-hash

(exit)

ssqq

When default functor used as a pseudo hash function, How to set a local 'Hash'? Because Context is global.

Code: Select all

(define (check-key x)
    ;; I don't know whether environment have defined this symbol
    (define aHash:aHash)
    (aHash 'key-1 1)
    (aHash 'key-2 2)
    (if (aHash x) true nil))

ssqq

Thanks all, I have not test this case. Because I found newlisp must decalare the function in advance before use it. So I think this case may throw a error.

ssqq

If I design a function, need call other function which also call this function. How to Decalare it:

(define (sub-1 arg)
(if (> arg 1) (sub-2 arg)))

(define (sub-2 arg)
(if (< arg 1) (sub-1 arg)))

ssqq

Code: Select all

newLISP v.10.6.0 32-bit on Win32 IPv4/6 libffi, options: newlisp -h
> (net-ping "192.168.1.253")

ERR: invalid function : (net-ping "192.168.1.253")
> (primitive? net-ping)
nil
> (net-packet)

ERR: invalid function : (net-packet)
> (primitive? net-packet)
nil

ssqq

Because the context is global, so the dictionary implemented with factor is global constants variable. any module which use factor would pollute other modules namespace. any list or string implements with factor which could pass reference to function also is global variable, It has same problem when...

ssqq

I think newLISP should add syntax of "array literals", but [..] have been used by symbol. without "array literals", a list with elements need evaluted is as following: (set 'str-quote (char 34)) (set lst (list str-quote (list str-quote))) If add [..] as array literal: (set 'arr [str-quote [str-quote...

ssqq

> (let (file "temp.txt") (write-file file (append "[text]" (dup "[text]" 5) "[/text]")) (eval-string (read-file "temp.txt"))) "[text][text][text][text][text]" > (let (file "temp.txt") (write-file file (append "[text]" (dup "[/text]" 5) "[/text]")) (eval-string (read-file "temp.txt"))) nil quote of ...

ssqq

If other dialect of lisp could match your expect? Common Lisp or Clojure? cljs.user> (flatten '('(1 2) (3 4))) (quote 1 2 3 4) Common Lisp have not buil-in flatten function: (defun flatten (obj) (do* ((result (list obj)) (node result)) ((null node) (delete nil result)) (cond ((consp (car node)) (whe...

ssqq

I learned from "newlisp code Pattern":

; import functions from the newLISP shared library
(import LIBRARY "newlispEvalStr")

If I want know more functions could use from newLISP shared library, Where I should go?

ssqq

richyboy, yes, you are right. I think so.

ssqq

Following code could make a infinite sequence: (define (f) (begin (println (inc cnt)) (push (last f) f -1) (if (> (length f) 3) (pop f 1)))) But it is not lazy list: (first (f)) --> not 1 How to design a infinite sequence just like iterate and take in Clojure. (take 10 (iterate inc 5))

ssqq

Thanks ralph.ronnquist！ I want make a extend enviroment (context) to prevent all primitive function to evualte. (new Class 'extend-env) (define (create-funcs f) (set (eval f) (append (lambda ()) (list (list 'cons f '(args)))))) (setq built-in (difference (filter eval (symbols)) '(define context MAIN...

ssqq

I want design a function:

Code: Select all

(context 'extend-env)
(extend-env:filter 1 2 3) --> (extend-env:filter 1 2 3)

In this context, some primitive function call would not evalute anything.

How to design this function?

ssqq

I make a function to get it. (define (get-utf8-index utf8-str byte-index) (letn ((str-lst (explode utf8-str)) (str-len (length str-lst)) (chop-lst (sequence (- str-len 1) 0)) (char-len-lst (map length str-lst))) (find byte-index (map (curry apply +) (map (curry chop char-len-lst) chop-lst))))) (get-...

ssqq

Code: Select all

> (length (char 0xff))
2
> (utf8len (char 0xff))
1
> (regex (char 0xff) (char 0xff))
("ÿ" 0 2)
> (regex (char 0xff) (char 0xff) 2048)
("ÿ" 0 2)

I think in UTF_8 mode, regex should return character location with utf-8 length.

ssqq

I meet a strange problem: When I load the module with content below: (define Token-char:Token-char) (Token-char "key" 123) REPL output: ERR: context expected in function define : Token-char When I use other context name like: (define Token:Token) (Token "key" 123) That is ok. If have any reserved co...

newlispfanclub.alh.net

Search found 88 matches

Re: un-declared symbol name would set to nil

(quote fn) or (quote lambda) error

lexical declare function

Re: How to make balanced indent

How to make balanced indent

un-declared symbol name would set to nil

Re: function replace could not catch $0, $1 in Ubuntu 14.0

function replace could not catch $0, $1 in Ubuntu 14.04

Re: How to set a local 'Contexts Hash'

How to set a local 'Contexts Hash'

Re: How to call function each other with declaration

How to call function each other with declaration

Invalid function "net-ping" and "net-packet"

context should be orthometric

array literals

quote of large string

Re: flat enough?

more functions from the newLISP shared library

Re: How to design a function like Clojure 'iterate'

How to design a function like Clojure 'iterate'

Re: make a function like lambda

make a function like lambda

Re: in utf-8 mode regex return byte length

in utf-8 mode regex return byte length

load default functor Token-char:Token-char failed.