Text only | Text with Images

newLISP Fan Club

Forum => newLISP in the real world => Topic started by: cormullion on July 04, 2006, 10:42:29 AM

Title: Find parent directory of file
Post by: cormullion on July 04, 2006, 10:42:29 AM
Given a file coming in through the command line:


Code Select
(set 'f (main-args 2))

How can I find out what the directory of it is so that I can set the current directory to it?


Code Select
(change-dir ... f)

The only thing I can see to do is to parse the filename, which seems like the non-newLISP way...
Title:
Post by: Lutz on July 04, 2006, 11:05:34 AM
you could use real-path to get the full path and then isolate the path chopping off the filename from the end:
Code Select

(join (chop (parse (real-path (main-args 2)) "/")) "/")


Lutz
Title:
Post by: cormullion on July 04, 2006, 02:13:33 PM
Thanks, Lutz! I was trying things like parse and even stuff like:


Code Select
(reverse (member "/" (reverse (real-path f) )))

Yours looks more sensible.



I can imagine a more elegant solution one day - like if change-dir accepted a filename and found the containing directory ...
Title:
Post by: Sammo on July 04, 2006, 02:31:47 PM
Following Lutz's lead, in Windows I can define:
Code Select

(define (.. f)
  (join (chop (parse (real-path f) "\") 2) "\") )

(define (. f)
  (join (chop (parse (real-path f) "\") 1) "\") )

Then execute:
Code Select

(change-dir (.. "c:\path1\path2\path3\filename.txt"))

to change the directory focus to c:/path1/path2, or:
Code Select

(change-dir (. "c:\path1\path2\path3\filename.txt"))

to change the directory focus to c:/path1/path2/path3.



Something along these lines might be the ticket.
Title:
Post by: cormullion on July 04, 2006, 02:59:55 PM
Hi Sammo - nice to see you round here! I hadn't thought about the Windows backslash. Doesn't Windows now accept forward slashes? (Sorry I rarely use it at the moment.) So a generic function would be harder.



I like the idea of defining '..' and '.' as functions...
Text only | Text with Images