newlispfanclub.alh.net

@m35, your help is very much appreciated. It seems a little weird to me doing the slice on the reverse of the bits but I couldn't find any bit_and functionality anywhere (quickly). Thanks, Bruce. ;code from m35 (constant 'SIZEOF_WCHAR 2) ; assumption (constant 'CP_UTF8 65001) (define (utf8->16 lpMul...

Wow, cool code!

Is there a reason you can't use the built in file-info function?

Perhaps I'm not seeing something that's right in front of me, but the manual doesn't say anything about returning the 'archive bit' status when using file-info.

The following NewLISP code shows me the file attributes of files under Win32. However, some of the filenames retrieved have Chinese characters in the name. When the GetFileAttributesA function encounters them, it gives me a -1 for the attribute. I looked at GetFileAttributesW but don't know how to m...

kks,

Yes, that's marvellous. Thanks very much. I can now get on with the rest of the project (and figure out why your fix works.)

Kind regards,
Bruce.

Nope. Dead end. s(setq res "") (define (proc procode) (local (codelen code separator elider) (begin (setq codelen (length procode)) (for (i 0 (- codelen 1) 1) (begin (setq code (procode i)) (when (= i 0) (setq res (append res "<@ " (string code) ">" ))) ;at this point, check to see whether OMT and S...

I think I've got it partly figured out. Still have to come up with a solution, though. (when (> i 0 ) (if (list? code) (proc code) (atom? code) (setq res (append res (string code) ) ) ) (if (< i (- codelen 1)) (begin (setq res (append res separator )) ) ) ) When one returns from the 'proc' routine, ...

G'day everyone I'm writing a translator which will take a Lisp-ish way of writing a language and outputting it in a more XML-ish form. This means taking this: (sai (ITEFORLITLITLITLIT 999999999 1 1 (SAYOPRCAP (SAYVALFOR ...) "thing"))(sayvar goose)) and changing it into this: <@ sai><@ ITEFORLITLITL...

G'day everyone W.r.t. complex numbers, how easy would it be to have (sqrt -1) return (0.0 1.0) and on the question of multiple answers, there are two correct answers to the square root of 4 (sqrt 4) --> (2 -2) Could there be a way in future newLISPs to be able to do complexes and also some system se...

Lutz, Here's my take on the twitter.lsp (v0.3ax) which uses my linked? and command-line stuff. This way the script can be executed either by newlisp.exe on the commandline or after use of link.lsp. Kind regards, Bruce. #!/usr/bin/newlisp ; post, delete and see user and friends messages and followers...

Change the link.lsp program so that after the script to be appended is loaded into memory, push a (set 'link.lsp? true) flag to the front of the code string, before the string is written to the .exe file being created. ... -- xytroxon Therein lies the difference between the guru and the disciple. M...

G'day everyone With this code ;margs.lsp (dolist (i (main-args)) (println $idx ": " i)) (exit) If I evaluate it using the interpreter I get the following >newlisp margs.lsp 1 2 3 0: newlisp 1: margs.lsp 2: 1 3: 2 4: 3 but if I link it using link.lsp I get the similar stuff but in different places >e...

(setq j 20) (for (i 1 10 1 (= j 0)) (println (string "i=" i "j=" j)) (setq j (- j 2)) ) However, what I ended up doing was: (setq i ?TestRange1Low) (setq j ?TestRange2Low) (while (and (!= i ?TestRange1High) (!= j ?TestRange2High)) (begin (inc i ?TestIncr1) (inc j ?TestIncr2) ) ) which, whilst not b...

HPW wrote:

Code: Select all

(setq j 20)
(for (i 1 10 1 (= j 0))
 (println (string "i=" i "j=" j))
 (setq j (- j 2))
)

Wow, would never of thought of that approach. Thanks!!

Kind regards,
Bruce.

G'day everyone I'm not sure how I'd handle this, as I'm just thinking about it now, but how would one implement a (for) that had two indices rather than the usual one? For example (pseudopseudocode): for i = 1 to 10 with j=20 to 2 step -2 do println i,j next The usual thing is to have the for j insi...

m35 wrote:Good to see you're exploring and trying new things. You might also be interested in this. ;)

Oh wow, that looks so cool. I've gotta try that out real soon.

Thanks.

Bruce.

G'day everyone Pardon my naivete, but I'm having trouble with (join (args)) in that I'm expecting to get a string out of it, but it fails when items in the args are non-string. For example (define (tracer) (begin (set 'str (join (args))) (append-file "trace.log" str) (print str) ) ) (tracer 1 0.2 "d...

G'day everyone Here's something I just cooked up as part of a test frame. It's a way of evaluating VBScript code from newLISP. (define (vbscript text) (begin (set 'aFile (open "c:/temp/temp.vbs" "write")) (write-line aFile (string text)) (close aFile) (exec "cmd.exe /C c:\\windows\\system32\\cscript...

Very interesting blog, axtens. Impressive number of programming languages. I encourage everyone to start writting blog because it really helps. Helps in what? To initiate or increase communication about topics you want to communicate. Thanks for the encouragement. Yes, maintaining a weblog is good ...

While we're on the subject of blogs, I've just made my first newLISP posting on my own blog

Kind regards,
Bruce.

HPW wrote:And you seems to want length instead of count (which takes 2 lists as arguments)

Umm ... er ... yes, I did want (length); finally read the friendly manual. Thanks.

Kind regards,
Bruce.

Just in case anyone's curious, newLISP runs fine under Windows 7. I did have to install Java to run the IDE, but apart from that everything worked straight out of the box. I'm getting closer to giving up on XP completely and going for W7, beta status notwithstanding. It's really is a very nice envir...

I think you are progressing quite good. Are you experienced programmer? Yes, just not in Lisp. I've been in the IT business in various ways since 1983. At the moment I'm working for The Protium Project and MyTongue as a Software/Test Engineer. I program in a variety of languages, including Ada, ass...

What is the equivalent for VBScript's RevInstr() wherein one searches for the first occurrence from the other end of the string? (find (reverse))? I think I'll have a go at answering my own question. (set 'reverse-find (lambda (findThis inThis) (- (length inThis) (find (reverse findThis) (reverse i...

G'day everyone

(find) is like VBScript's Instr(). What is the equivalent for VBScript's RevInstr() wherein one searches for the first occurrence from the other end of the string? (find (reverse))?

Kind regards,
Bruce.

Lutz wrote:
or even better:

Code: Select all

(set 'm (apply find (list k l 1))

ps: welcome to newLISP

Thanks for the welcome. And thanks for the help with the code -- much appreciated!!