Illumination

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.