newlispfanclub.alh.net

Sleeper

in newlisp-edit.lsp:

(constant 'TEMP_DIR (if (= ostype Win32) "C:\\temp" "/tmp"))

Win32 must be in quotes.
i already mentioned this in previous topic

Sleeper

thanks Lutz!
i found this place in the beginning of newlisp-edit.lsp, i think there also must be

Code: Select all

(if (= ostype "Win32") "C:\\temp" "/tmp")

("Win32" instead of Win32)
i fixed that, created "c:\\temp" directory and now it works.

Sleeper

the same problem with newlisp-edit.lsp

message-dialog: cannot be applied to MAIN:TheEditor

all other demos runs fine, including new 2D-graphics stuff
(this looks great. congrats Lutz!)

Sleeper

i have updated all this files to the latest version before posting here
just checked this again
i have newlisp 9.1.1 installed. maybe this is the reason

Sleeper

Hi, Lutz!
maybe i missed something but newlisp-edit.lsp doesn't work on my system.
it shows an error:

message-dialog:
cannot be applied to MAIN:TheEditor

and then it exits
all other demos works fine

Sleeper

hi
i am trying to work with sockets for the first time.
i need a function that reads exactly n bytes from the socket (and blocks until they are available)
how can i do this?

Sleeper

you're right, i put x after comma just in case :)

good idea with currying, it may be useful
i used for different tasks similar recursive walk function (much like in python os.walk) but without curry.

Sleeper

i totally agree ;D

Sleeper

I put "x" and "full" in define statement to make them local to this function.

http://newlisp.org/CodePatterns.html#locals

Also in this case they don't pollute global namespace. In recursive functions non-local variables may cause big problems, as they are shared between all running functions.

Sleeper

Code: Select all

(set 'b1 (list cmin cmin cmin))

Sleeper

this recursive version is better i forgot about it :) (define (remove-all root, x full) (dolist (x (directory root)) (set 'full (append root "/" x)) (if (directory? full) (if (and (!= x "..") (!= x ".")) (begin (remove-all full) (remove-dir full))) (delete-file full)))) example: (remove-all "c:\\tem...

Sleeper

Hi, SHX! try this function: (define (remove-all dir) (set 'fnames (list dir)) (set 'dirs '()) (while (not (empty? fnames)) (set 'fname (pop fnames)) (if (directory? fname) (begin (dolist (x (directory fname)) (if (and (!= x ".") (!= x "..")) (push (append fname "/" x) fnames))) (if (!= fname dir) (p...

Sleeper

Recently i wrote a few opengl demos in newlisp just for fun, in which i used simple TGA texture loading function. The problem is that in tga image data colors go in BGR or BGRA order and i use GL_BGR_EXT and GL_BGRA_EXT extensions. What i want is to change color order to standard RGB and RGBA in a f...

Sleeper

Thanx Lutz!
Now all works fine.

Sleeper

perhaps something is wrong with my system..
newlisp 9.0 - same results.
i have Intel Core 2 Duo and NTFS-formatted disk

Sleeper

I get the same errors with newlisp 9.0.9 and 9.0.11 on WinXP:

Code: Select all

...
2140000 record -> Ok 02140000
2150000 record -> Error reading 02140001
...
4290000 record -> Error reading 02140215
4300000 record -> Error reading ########
...
4990000 record -> Error reading ########

Sleeper

Sorry for maybe stupid question.. Why do i get nil when use "seek" builtin function on big binary files? (up to 6 GB) > (set 'f (open "storage.tmp" "r")) 3 > (seek f) 0 > (seek f -1) nil > (seek f 5893610690) 1598643394 I'm sure that position 5893610690 exists in that file. Sometimes i get negative ...

Sleeper

right. thanks Sammo!
i didn't notice it

Sleeper

Hi all!
I get an error with net-ping.

Code: Select all

newLISP v.9.0.9 on Win32, execute 'newlisp -h' for more info.

> (net-ping "www.google.com")

invalid function : (net-ping "www.google.com")

what's wrong with it?

Sleeper

great, i like it! ; circle.lsp -- ; prints itself in a circle (set 'cc (find-all "[^\t\n\r]" (read-file (main-args 1)))) (set 'w (int (sqrt (div (length cc) 1.7 0.25)))) (set 'h (int (div w 1.5))) (set 'g (dup (dup " " w true) h true)) (set 'r (div w 2.2)) (for (i 1 h) (for (j 1 w) (if (> (length cc...

Sleeper

Code: Select all

(import "kernel32.dll" "FreeConsole")
(FreeConsole)

this code works for me... it hides console window when you want.
just add this as first two lines of your script

Sleeper

newdep wrote: PS: I created this vigenere (which is indeed upper-case as cormullion mentioned) to encrypt base64 listings.. ;-) Just so it stays readable..

that's a good idea!

Sleeper

to solve this i found some new-lisp function names like "map" "char" "sequence" and calculated difference between char-codes.

then i found out that these differences repeat every six characters..

encoded version works fine, but looks like decodes itself with code "annorm" instead of "norman" :)

Sleeper

;; create the Vigenere list (setq alpha (rotate (map char (sequence 97 122)))) (dotimes (x 26) (push (rotate alpha -1) vlist -1)) ;; return the corresponding letters from x and y coding indexes (define (return-encode x y) (vlist (find x (first vlist)) (find y (first vlist)))) ;; return the correspo...

newlispfanclub.alh.net

Search found 24 matches

reading exact number of bytes from the socket

change byte order in string data

seek on big files

net-ping error