main args, all arguments

[tom]

hey guys,



How can I make



(nth 3 (main-args))



into



(nth * (main-args))



Well, not quite like that, but so that main-args can use any number of arguments?



thanks.

[HPW]

I do not understand the question.

Code Select Expand


newlisp 1 2 3 4 . . .

> (main-args) =>  ("/usr/bin/newlisp" "1" "2" "3" "4" .  .  . )


(main-args) is not limited how much parameter are passed (Maybe the OS).



Tried later:

Code Select Expand


C:Programmenewlisp>newlisp 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20
newLISP v.8.7.1 on Win32 MinGW, execute 'newlisp -h' for more info.

> (main-args)
("newlisp" "1" "2" "3" "4" "5" "6" "7" "8" "9" "10" "11" "12" "13"
 "14" "15" "16" "17" "18" "19" "20")
>


[tom]

I can't quite seem to get what I'm trying to work.



I've been messing with rox-filer.  in rox, you can open

a sort of "send to" menu for a file or multiple files.

I wrote a single line script to send files to.



#!/usr/bin/newlisp

(!(append "aterm -e w3m " (nth 3 (main-args))))

(exit)



...it uses my favorite browser/pager w3m, of course :-)

it works if one file is selected.



if I call w3m from an xterm with "-N" then multiple

files or sites open up in tabs.



When I add the "-N" to my one-liner, and take away the

"nth 3" nothing happens.



I'm probably not being clear.  let me try this: I want

somthing like



$ w3m -N file file file file file file



(in rox, I may select multiple files to send to my

script)



any ideas?

[HPW]

Still not sure what you do!

Do you use direct execution mode or load a lisp-file for startup?

Do you start newlisp only to start w3m?

Why not direct?

And from where come the file-titles?



Maybe you want:



(rest (rest (main-args)))



Return all main-args without first and second.

[tom]

http://perpetualnewbie.info/pix/rox-shot1.png">



that's a rox window with the send-to (open-with)

context menu open.



I just can't get my script to work.  I can't launch w3m

directly because it's a console app, have to launch an

xterm and tell it to.

 



(print(append "aterm -e w3m -N " main-args)





If I can get that line to print out



aterm -e w3m -N blah blah blah foo whatever



then I could replace the print with a ! and my thing

would work.  I can't do it. grrrr. frustrating.

[newdep]

So you want ROX to call a newlisp script that does execute an aterm / xterm

which executes w3m ? If i look in the manpage of xterm it does tell that the "-e" needs to be the LAST option in the line, not sure if aterm has that too.



this works here..



> (exec "xterm -e "lynx http://www.newlisp.org">http://www.newlisp.org" ")



or



> (! "xterm -e "lynx http://www.newlisp.org">http://www.newlisp.org" ")

[newdep]

This works also ->



#!/usr/bin/newlisp

(! (append {xterm -e "lynx } ((main-args) 2) {"}) )





run it like ->



# script.lsp "http://www.newlisp.org">http://www.newlisp.org"

and xterm is started with lynx running the webpage...



(Using (start length (main-args)) here can be used to inside the "!" too)

[tom]

sorry, guys!



I'm really parading my ignorance around.  Here's what I have.  

Code Select Expand


#!/usr/bin/newlisp

(set 'a (string (rest (rest (main-args)))))

(print (append "aterm -e w3m -N " """ a """))
;(exit)


run like this,



$ stupidthing.lsp a-good-day.txt a-hot-day.txt



I get



aterm -e w3m -N "("a-good-day.txt" "a-hot-day.txt")"



how do I get rid of the parens?

[Lutz]

Try this:

Code Select Expand


#!/usr/bin/newlisp

(set 'a (join (rest (rest (main-args))) " "))

(! (append "aterm -e w3m -N " a))
(exit)


or shorter

Code Select Expand


#!/usr/bin/newlisp

(set 'a (join (2  (main-args)) " "))

(! (append "aterm -e w3m -N " a))
(exit)

Lutz

[tom]

ta daaaa!



that's it.  Thanks Lutz and everybody :-)