List box with specific directory ?

[Maximus172]

Hello,

I would like to know if it is possible to create a list box, in which I will have all the files in a specific directory.

In fact, instead of complete the "Range" for a variable, I would like to "scan" the directory and increase the list...


I'm not sure to be clear

Thanks

[clausb]

I'm assuming we're talking about Modeling, not Drafting.

Well, AFAIK, the range can be filled with just about anything, including the results of directory scanning.

Claus

[Maximus172]

Ok

I will try to do that, but do you know how to scan a directory ?

Thanks

[clausb]

See Common Lisp documentation on (directory) - http://www.lisp.org/HyperSpec/Body/fun_directory.html.

A while back, I wrote sample code which also uses (directory), see
http://www.clausbrod.de/OneSpaceModeling/MacroListDirectory.

[Wolfgang]

about:

PHP Code:

(sd-defdialog ....
 (dir-range :range ("dummy")
            :initial-value
              (let ((dir-contents (mapcar 'namestring (directory "c:/*.*")))
                (sd-set-range 'dir-range dir-contents)
                (car dir-contents))) 


The 'trick' is using sd-set-range, which makes a range dynamic at run time.

not tested these lines, only written

[Maximus172]

Hello,

I'm back with this post today...I didn't need before, but now...

(sd-defdialog ....
(dir-range :range ("dummy")
:initial-value
(let ((dir-contents (mapcar 'namestring (directory "c:/*.*")))
(sd-set-range 'dir-range dir-contents)
(car dir-contents)))

I have problems to create this macro due to my poor knowledge in Lisp language . Could you help me ?

I used these lines, but I have nothing in my listbox...I would like to find all pkg files in a directory...

[Wolfgang]

.. half a year later...

Hi Maximus,

try to create TINY test dialogs when you have a problem. Just with that part you have a problem with. And post this tiny thing completely. This saves time , for me and for you.

The problem you might have had is a parentheses issue. Well that's typical lisp: Either you have 2 parentheses to less or 3 to much or some/one at the wrong place or something in between

PHP Code:

(in-package :my-tools)
(use-package :oli)
(sd-defdialog 'dir_as_range
 :variables
  '((dir-range :range ("dummy")
               :initial-value
                 (let ((dir-contents (mapcar 'namestring (directory "d:/*.png"))))
                       (sd-set-range 'dir-range dir-contents)
                       (car dir-contents))
    ) ;; end dir-range
   ) ; end variables
  ) ; end dialog 


compare carefully with your code snippet!

LISP Lost In Stupid Parentheses

PS: please use the [code] BB Code when posting sources, then we can see indenting, too.

[clausb]

Originally Posted by Wolfgang

try to create TINY test dialogs when you have a problem.

Truer words have rarely been spoken. Many programming problems which come up in forums like this become blindingly obvious once they are broken down to a few lines of code.

To avoid problems like this, get an editor which matches parentheses and indents Lisp code automatically. With such an editor, you'll be able to detect if there are too many or not enough parentheses just by looking at the physical layout of your code.

For example, your version of the :initial-value form looks roughly like this in Emacs:

  :initial-value
  (let ((dir-contents (mapcar 'namestring (directory "c:/*.*")))
        (sd-set-range 'dir-range dir-contents)
        (car dir-contents)))

Note how the sd-set-range and car calls line up with the definition of dir-contents, i.e. as if sd-set-range and car were two more local variables! (And indeed, this is how Lisp will try to parse your code.)

And here's Wolfgang's version:

  :initial-value
   (let ((dir-contents (mapcar 'namestring (directory "d:/*.png"))))
     (sd-set-range 'dir-range dir-contents)
     (car dir-contents)))

[Maximus172]

Thanks for your help. I will take care

I have one problem with this code.

Now, I have a list of all pkg file, but in the active directory, and not in a specific (c:\*.pkg for example).

[clausb]

The local test example that I use works as expected.

What does your current code look like, and which version of CoCreate Modeling do you use?

Claus

[Maximus172]

The version of OSD is 14.50.

I'm confus, it's works..I forgot to specify the good directory.

Can we avoid to have the paths of the files, and show in the listbox just the pkg file ?


Thanks a lot for your help

[clausb]

The list box displays whatever you feed it. So if you don't want the path to be displayed, feed the list box with just the file names.

Maybe you can also use the special :label syntax for range variables to achieve what you want. See the IKIT documentation on sd-set-range.

Claus

[clausb]

Here's a code example based on Wolfgang's proposal:

(in-package :my-tools)
(use-package :oli)

(sd-defdialog 
 'dir_as_range
 :variables
 '((dir-range :range ("dummy")
    :initial-value
    (let ((dir-contents 
           (mapcar #'(lambda(path) 
                       (list (namestring path) :label (file-namestring path)))
                   (directory "c:/temp/*.pkg"))))
      (sd-set-range 'dir-range dir-contents)
      (car dir-contents))
    )))

[Wolfgang]

Originally Posted by clausb

...To avoid problems like this, get an editor which matches parentheses and indents Lisp code automatically.

We promote NotePad++ at several places. Language dependent "indent" functionality is the only reason that I'm still using emacs (in parallel to NotePad++) . And the best is that emacs can do this job even on already written code!

[clausb]

Yup, Notepad++ is a great little editor because it knows how to properly deal with Unicode-encoded text files, and because it can highlight Lisp code. It's just so much better than the editors which come with Windows.

However, for any serious Lisp development, I'd still recommend Emacs. For new users, EmacsW32 ( http://www.ourcomments.org/Emacs/EmacsW32.html ) can be an interesting option, as it tries to make it easier for Windows users to learn Emacs. Other important Emacs versions are XEmacs and, of course, [GNU Emacs.

Claus