newLISP Fan Club

Quote> (load "/usr/share/newlisp/util/link.lsp")

(lambda (orgExe newExeName lispSourceName) (println "original newlisp executable:"

  orgExe)

 (println "new executable:" newExeName)

 (println "source:" lispSourceName)

 (set 'size (first (file-info orgExe)))

 (copy-file orgExe newExeName)

 (set 'buff (pack "ld" size))

 (set 'handle (open newExeName "u"))

 (search handle "@@@@@@@@")

 (write-buffer handle buff 4)

 (set 'buff (read-file lispSourceName))

 (set 'keylen (pack "ld" (length buff)))

 (write-buffer handle keylen 4)

 (seek handle size)

 (set 'buff (encrypt buff (string (length buff))))

 (write-buffer handle buff (length buff))

 (close handle))

Quote> (link "/usr/bin/newlisp" "hw" "hw.lsp")

original newlisp executable:/usr/bin/newlisp

new executable:hw

source:hw.lsp

true

Quoteasdf@asdf:~$ newlisp link.lsp

newLISP v.10.4.3 on Linux IPv4/6 UTF-8 libffi, execute 'newlisp -h' for more info.



> (link "newlisp" "hw" "hw.lsp")



ERR: invalid function : (link "newlisp" "hw" "hw.lsp")

Quote#!/usr/bin/newlisp

;  hw.lsp



(println "Hello World!")

(exit)

Quoteasdf@asdf:~$ newlisp hw.lsp

Hello World!

Quoteasdf@asdf:~$ newlisp

newLISP v.10.4.3 on Linux IPv4/6 UTF-8 libffi, execute 'newlisp -h' for more info.



> (link "newlisp" "hw" "hw.lsp")



ERR: invalid function : (link "newlisp" "hw" "hw.lsp")