annotate nt/installer/Wise/filelist.py @ 2527:491f8cf78a9c
[xemacs-hg @ 2005-01-28 02:58:38 by ben]
Abstract font-list/color-list
font-menu.el, font.el, frame.el, gtk-font-menu.el, minibuf.el, msw-faces.el, msw-font-menu.el, obsolete.el, x-faces.el, x-font-menu.el: list-fonts->font-list. Create color-list. Abstract out
x/msw-specific versions and obsolete the x/msw-specific Lisp
functions.
console-impl.h, objects-gtk.c, objects-msw.c, objects-tty.c, objects-x.c, objects.c: list-fonts->font-list. Create color-list. Abstract out
x/msw-specific versions and obsolete the x/msw-specific Lisp
functions.
| author |
ben |
| date |
Fri, 28 Jan 2005 02:58:52 +0000 |
| parents |
74fd4e045ea6 |
| children |
|
| rev |
line source |
|
398
|
1 import os
|
|
|
2 import dirs
|
|
|
3 import string
|
|
|
4
|
|
|
5 def listdir_recursive(basedir):
|
|
|
6 ret = []
|
|
|
7 for f in os.listdir(basedir):
|
|
|
8 if os.path.isfile(basedir+"\\"+f):
|
|
|
9 ret.append(f)
|
|
|
10 elif os.path.isdir(basedir+"\\"+f):
|
|
|
11 for f1 in listdir_recursive(basedir+"\\"+f):
|
|
|
12 ret.append(f+"\\"+f1)
|
|
|
13 return ret
|
|
|
14
|
|
|
15 all = []
|
|
|
16
|
|
|
17
|
|
|
18
|
|
|
19 for f in listdir_recursive(dirs.installed):
|
|
|
20 if string.find(f,'CVS')>=0:
|
|
|
21 continue
|
|
|
22 all.append((f, dirs.installed, dirs.dst))
|
|
|
23
|
