Illumination » lisp http://irpan.csui02.net/blog Life Through The Light Tue, 05 Jan 2010 04:43:53 +0000 http://wordpress.org/?v=2.9 en hourly 1 Simple Script dengan Newlisp (2) http://irpan.csui02.net/blog/2009/02/27/simple-script-dengan-newlisp-2/ http://irpan.csui02.net/blog/2009/02/27/simple-script-dengan-newlisp-2/#comments Fri, 27 Feb 2009 04:11:41 +0000 Maulana http://irpan.csui02.net/blog/2009/02/27/simple-script-dengan-newlisp-2/ Dalam postingan sebelumnya saya mencoba untuk membuat file atau directory dan juga meng-copy file, sekarang saya akan mencoba membaca suatu file. Dalam newlisp ada fungsi yang dapat digunakan untuk membuka file, yaitu

(open file-source "read")

untuk membaca file tersebut bisa menggunakan beberapa fungsi seperti read-file, read-buffer, read-char atau read-line, misalkan

(read-line input-file)

sedangkan untuk menulis suatu file juga bisa menggunakan fungsi-fungsi built-in yang disediakan seperti write-file, write-buffer, write-char atau write-line, misalkan

(write-line out-file "Hello World!")

Kita dapat membuat fungsi baru berdasarkan fungsi-fungsi tersebut untuk membuka file, membaca file tersebut kemudian menuliskan content dari file ke newlisp shell

(define (read-file-source file-source)
((set 'in-file (open file-source "read"))
(while (read-line in-file)
(write-line))
(close in-file)))

Setelah mencoba menggunakan fungsi-fungsi operasi file dan fungsi copy file yang telah dibuat pada postingan sebelumnya, maka akhirnya saya dapat membuat script file yang saya inginkan untuk meng-copy file-file yang ada atau didaftarkan pada suatu file

(define (copy-file-from-text-file file-text home-path dest-path)
(begin
(set 'in-file (open file-text "read"))
(while (set 'line-read (read-line in-file))
(begin
(set 'src (append home-path line-read))
(set 'dest (append dest-path line-read))
(my-copy-file src dest)))
(close in-file)))

Hehehe sederhana sekali yah, memang seharusnya suatu scripting language seperti newlisp dapat digunakan dengan mudah dan sederhana mungkin tetapi tetap powerfull untuk membantu programmer menyelesaikan task-task nya.

]]> http://irpan.csui02.net/blog/2009/02/27/simple-script-dengan-newlisp-2/feed/ 0 Simple Script dengan Newlisp (1) http://irpan.csui02.net/blog/2009/02/23/simple-script-dengan-newlisp-1/ http://irpan.csui02.net/blog/2009/02/23/simple-script-dengan-newlisp-1/#comments Mon, 23 Feb 2009 11:13:46 +0000 Maulana http://irpan.csui02.net/blog/2009/02/23/simple-script-dengan-newlisp-1/ Karena untuk mengupdate aplikasi java web mulai menggunakan sistem patch yaitu dengan melakukan copy file class-class baru atau fix update tidak seperti sebelumnya yaitu selalu deploy ulang aplikasinya, mulai deh kerepotan menyiapkan file-file tersebut. Permasalahannya adalah struktur direktori aplikasi web java ditambah lagi dengan struktur package-nya java sendiri terlihat cukup ribet apalagi jika harus meng-copy satu persatu file-file yang mesti dipersiapkan buat di patch ke aplikasinya.
Mulai deh mempertimbangkan buat membuat script sederhana untuk menyiapkan file-file patch tersebut, dan saya memutuskan untuk membuatnya dengan newlisp. Ada beberapa alasan mengapa saya akhirnya memutuskan menggunakan newlisp, pertama newlisp merupakan lisp/scheme-like programming language, kedua newlisp surprisingly small ketika diinstall hanya membutuhkan kurang lebih 2Mb (coba bandingkan dengan perl, python atau ruby), ketiga fungsinya lumayan lengkap dan cukup buat membantu menyelesaikan task tersebut, keempat sudah bisa GUI programming dengan memanfaatkan runtime java JRE 1.5 keatas.
Sebenernya ingin juga menulis tentang lisp dan dialectnya termasuk scheme, tetapi mungkin dilain posting aja kali yah. Focus ke newlisp lagi, kalau melihat syntax lisp/scheme-like language sepertinya terlihat aneh dan bikin sakit kepala karena kebanyakan parenthesesnya, tapi kalau sudah sering mencoba akan mulai terbiasa. Newlisp tidak seperti common lisp dimana construct programnya lebih dekat dengan scheme dan lebih simple bahkan lebih simple dari scheme sekalipun. Seperti juga lisp dan scheme, newlisp juga memiliki interaktif shell atau biasa disebut dengan REPL (read, eval, print, loop).
Balik ke script yang ingin saya buat, idenya sederhana saja yaitu copy file-file yang sudah saya daftarkan pada sebuah file. Oke langkah pertama saya membutuhkan fungsi untuk copy file, di newlisp ada fungsi yang bisa digunakan untuk copy file, yaitu

(copy-file file-src file-dest)

fungsi tersebut bisa digunakan tetapi jika file-dest terdapat path direktori pada file tujuan maka fungsi tersebut tidak bisa menghandle-nya. Berarti saya membutuhkan fungsi untuk mengambil direktori kemudian membuat direktori tersebut

(parse "path/to/a/file.txt" "/") akan me-return list ("path" "to" "a" "file.txt")

sedangkan untuk membuat direktori dari list nama direktori tersebut

(dotimes (i (- (length list-dest) 1))
(if (directory? (list-dest i))
(change-dir (list-dest i))
(begin
(make-dir (list-dest i))
(change-dir (list-dest i)))))

nah berarti saya sudah bisa membuat sebuah fungsi untuk copy file dengan direktorinya

(define (my-copy-file src dest)
(begin
(set 'working-dir (real-path))
(set 'src-file (read-file src))
(set 'list-dest (parse dest "/"))
(dotimes (i (- (length list-dest) 1))
(if (directory? (list-dest i))
(change-dir (list-dest i))
(begin
(make-dir (list-dest i))
(change-dir (list-dest i)))))
(write-file (last list-dest) src-file)
(change-dir working-dir)))

dan saya dapat memanggilnya dengan

(my-copy-file "file.txt" "path/to/a/file.txt")

jika folder path/to/a/ belum ada maka akan di-create oleh fungsi tersebut.

to be continued…

]]> http://irpan.csui02.net/blog/2009/02/23/simple-script-dengan-newlisp-1/feed/ 6