newlispfanclub.alh.net

lyl

A good solution! Then, what or where is use of "SW_SHOW" in your code?

lyl

I use a function "f" to store data by calling another function "g" like this: (define (g (x y)) x) (define (f data) (setf (nth '(0 0 1) g) data) ) ;;test: (f 1) (g) ;; -> 1 Right. This is what I want. (g) ;; -> 1 Right. This is what I want. (f '(+ 1 2)) (g) ;; -> 3 This is not what I want. I can't u...

lyl

I'd like to make a series of functions whose names come from a list, as shown by the following codes: (setq a '(a1 a2)) (dolist (x a) (let (z $idx) (setq x (lambda(y) z)) )) what I want is to get two functions a1: (lambda (y) 0) a2: (lambda (y) 1) But I fail. What's wrong with my code, and how to so...

lyl

Many thanks.
Still, how is the lambda list updated in my example? Or, which element of the lambda list is changed by inc?

lyl

The meaning of "place" in the syntax: (inc place [num]) is: either a symbol or a place in a list structure holding a number, or a number returned by an expression.(from the newlisp manuel) I still don't quite understand the real meaning of "place", as in the following code coming from 《Code Patterns...

lyl

Many thanks! But where is the value stored in the expression "(setq 'f 100)"

lyl

I wonder where or how I can get the value which is assign by setq to a symbol like this:

Code: Select all

(setq 'f 100)
'f ;;-> f
''f ;;->'f

How can I get the value 100?

lyl

Thank you, cameyo. I think the argument "lst" of "f" has been evaled during the call of (f a), so why must it be evaled again by "letex" in function body ?
And could you please give more information about the function "typeof"?

lyl

Then, in the following example

Code: Select all

(define(f lst)
  (+ lst 1))

(setq a '(+ 2 3)) 
(f a)

As arguments of function in lisp are evaled first, I think (f a) is the same as (+ (+ 2 3) 1) which should be 6, but what I get is: "ERR: value expected in function + : (+ 2 3)". Why?

lyl

Thank you, cameyo. In my example, the expression that is to be evaled is the last element in the list which make it possible to use (setf (last lst)...) evaluating the expression. I wonder if there is an universal method to evluating any expression at any position in a list. Here I'd like give anoth...

lyl

(setq a "time")
(setq b '(set xlabel a))

My question is:
how to design a function to transfer a list("b" in this example) into a string. That is to say, replace the parentheses of b with quotation marks to get "set xlabel "time"".

lyl

Oh, I understand it! @rickyboy And learn a lot from you. I will use "apply" more carefully.

lyl

Thank you so much for this detail explaination. As you say, "so, you end up passing a symbol as the second argument to append". The symbol 'var which is passed to "append" has been binded to "b", why is the evaluator not able to see it? Dose that mean each element of a list which will be passed to a...

lyl

First example: (setq var "b") (apply append '("a" var)) ;; I believe the result will be "ab", but what I get is error message. Second example: (setq var "b") (append "a" var);; -> "ab" I think the two examples are equivalent, but it seems not. Why? And why the first example is a wrong way to use "ap...

lyl

A key value(integer) can be obtained by the built-in function "char".
For example,

Code: Select all

(char "a")          → 97

My question is: How to obtain the value of combinated keys like this:
(myfunc "ctrl a") which means "CTRL + a" . And also "CTRL+Alt+a" , "CTRL+SHIFT+a" are wanted.
Thank you.

lyl

when ：

Code: Select all

(load "hpwAutoIt.lsp")

error message given：ERR: problem loading library in function import : "AutoItDLL.dll"
Why?

Ps:
newlisp v10.7.4, win7
AutoItDLL.dll, hpwAutoIt.lsp, newlisp.exe are in the same folder.

lyl

(setq a '(1 2 3)) ;; This list can not be evaled (setq b '(1 a)) ;; This list can be evaled, (eval b) --> (2 3) (setq c '(+ 1 2)) ;; This list can be evaled, (eval c) --> 3 My quesstion is: Is there an universal method to determine whether a list can be evaluated or not? In the following example: (...

lyl

Yet, is there a better way to evaluate elements in hash-table when constructing hash-table, as like the comma expression in common lisp?

lyl

Since l in my example has the same structure as the initializer expressions of let, why does not it work in :
(setq l '((a 1) (b 2)))
(let l (+ a b)) ?

lyl

I think the following two examples of using "let" say the same thing but they get different result: Example #1: (setq l '((a 1) (b 2))) (let l (+ a b)) ;; ERR: invalid let parameter list in function let : l Example #2: (let ((a 1) (b 2)) (+ a b)) ;; get 3 as expected Why is the first example a wrong...

lyl

Sorry, I didn't make my question clear.
What I want is not the result of each first element evaluation. I want to get a easy way to construct "mytable" from

Code: Select all

'(((char "a") "a: choiceA" (+ 0 101))  ((char "b") "b: choiceB" (+ 0 102)))

to

Code: Select all

'((97 "a: choiceA" (+ 0 101)) (98 "b: choiceB" (+ 0 102)))

lyl

I construct a hash-table like this: (setq mytable '( ((char "a") "a: choiceA" (+ 0 101)) ((char "b") "b: choiceB" (+ 0 102)) )) In this example, I want the first element of each sublist to be evaluated while other elements not. That is to say, (char "a") should be 97, (char "b") should be 98. Or, in...

lyl

Many thanks @ ralph.ronnquist for your solution!!
Though I can't understand why the case term is designed not to evaluate the branch keys. Anyone knows the reason?

lyl

I construct the following function by the primitive "case"

Code: Select all

(define (f obj a da b db)
  (case obj
	(a da)
	(b db)
	(true obj)
	))
(f 1 1 "a" 2 "b") ;;=> I get 1, but what I want is "a".

What is the cause? And how to get what I want in the above code by the use of "case"?

lyl

I meet this problem too, and has been waiting for answer!

newlispfanclub.alh.net

Search found 44 matches

Re: HOWTO - Hiding the console on Windows

how to prevent unwanted eval?

Setup functions by setq

Re: "place" in the function "inc"

"place" in the function "inc"

Re: where is the value which is assigned by setq to a symbol?

where is the value which is assigned by setq to a symbol?

Re: difference result by eval in macro and in S-expr

Re: difference result by eval in macro and in S-expr

Re: replace parentheses of a list with quotation marks

replace parentheses of a list with quotation marks

Re: what's wrong with the use of apply append

Re: what's wrong with the use of apply append

what's wrong with the use of apply append

How to use "char" for combinated keys

Re: hpwNLAutoItDll released

How to determine whether a list can be evaluated

Re: How to partially evaluate elements in a hash-table

Re: initializer expressions by a predefined list in "let"

initializer expressions by a predefined list in "let"

Re: How to partially evaluate elements in a hash-table

How to partially evaluate elements in a hash-table

Re: Primitive "case" does not work

Primitive "case" does not work

Re: case design