#!/usr/bin/env python # # Copyright (c) 2005-2006 The ABINIT Group (Yann Pouillon) # All rights reserved. # # This file is part of the ABINIT software package. For license information, # please see the COPYING file in the top-level directory of the ABINIT source # distribution. # from __future__ import generators from time import gmtime,strftime import commands import os import re import sys # ---------------------------------------------------------------------------- # # # Subroutines # def makefile_header(name,stamp): return """# # Makefile for ABINIT -*- Automake -*- # Generated by %s on %s # # IMPORTANT NOTE # # Any manual change to this file will systematically be overwritten. # Please modify the %s script or its config file instead. # """ % (name,stamp,name) # Walk a directory tree (imported from Python 2.4, then hacked a little bit) def walk(top, topdown=True, onerror=None): """Directory tree generator. For each directory in the directory tree rooted at top (including top itself, but excluding '.' and '..'), yields a 3-tuple dirpath, dirnames, filenames dirpath is a string, the path to the directory. dirnames is a list of the names of the subdirectories in dirpath (excluding '.' and '..'). filenames is a list of the names of the non-directory files in dirpath. Note that the names in the lists are just names, with no path components. To get a full path (which begins with top) to a file or directory in dirpath, do os.path.join(dirpath, name). If optional arg 'topdown' is true or not specified, the triple for a directory is generated before the triples for any of its subdirectories (directories are generated top down). If topdown is false, the triple for a directory is generated after the triples for all of its subdirectories (directories are generated bottom up). When topdown is true, the caller can modify the dirnames list in-place (e.g., via del or slice assignment), and walk will only recurse into the subdirectories whose names remain in dirnames; this can be used to prune the search, or to impose a specific order of visiting. Modifying dirnames when topdown is false is ineffective, since the directories in dirnames have already been generated by the time dirnames itself is generated. By default errors from the os.listdir() call are ignored. If optional arg 'onerror' is specified, it should be a function; it will be called with one argument, an os.error instance. It can report the error to continue with the walk, or raise the exception to abort the walk. Note that the filename is available as the filename attribute of the exception object. Caution: if you pass a relative pathname for top, don't change the current working directory between resumptions of walk. walk never changes the current directory, and assumes that the client doesn't either. Example: from os.path import join, getsize for root, dirs, files in walk('python/Lib/email'): print root, "consumes", print sum([getsize(join(root, name)) for name in files]), print "bytes in", len(files), "non-directory files" if 'CVS' in dirs: dirs.remove('CVS') # don't visit CVS directories """ from os import listdir from os.path import join, isdir, islink # We may not have read permission for top, in which case we can't # get a list of the files the directory contains. os.path.walk # always suppressed the exception then, rather than blow up for a # minor reason when (say) a thousand readable directories are still # left to visit. That logic is copied here. try: # Note that listdir and error are globals in this module due # to earlier import-*. names = listdir(top) except os.error: if onerror is not None: onerror(err) return dirs, nondirs = [], [] for name in names: if isdir(join(top, name)): dirs.append(name) else: nondirs.append(name) if topdown: yield top, dirs, nondirs for name in dirs: path = join(top, name) if not islink(path): for x in walk(path, topdown, onerror): yield x if not topdown: yield top, dirs, nondirs # ---------------------------------------------------------------------------- # # # Main program # # Script name my_name = "make-makefiles-doc" my_configs = ["config/specs/documents.cf"] # Check if we are in the top of the ABINIT source tree if ( not os.path.exists("configure.ac") or not os.path.exists("src/main/abinit.F90") ): print "%s: You must be in the top of the ABINIT source tree." % my_name print "%s: Aborting now." % my_name sys.exit(1) # Read config file(s) for cnf in my_configs: if ( os.path.exists(cnf) ): execfile(cnf) else: print "%s: Could not find config file (%s)." % (my_name,cnf) print "%s: Aborting now." % my_name sys.exit(2) # What time is it? now = strftime("%Y/%m/%d %H:%M:%S +0000",gmtime()) # Init lists doc = "install-data-local:\n\t$(INSTALL) -d -m 755 $(DESTDIR)$(abinit_docdir)" ext = "EXTRA_DIST =" # Write one Makefile per subdirectory for root,dirs,files in walk("doc"): if ( not re.match(".arch-ids",root) ): # Clean-up lists if ( ".arch-ids" in dirs ): dirs.remove(".arch-ids") if ( ".arch-inventory" in files ): files.remove(".arch-inventory") if ( "Makefile.am" in files ): files.remove("Makefile.am") if ( "Makefile.in" in files ): files.remove("Makefile.in") # Relative root rel = re.sub("^doc","",root) # Install subdirectories for sub in dirs: doc += "\n\t$(INSTALL) -d -m 755 $(DESTDIR)$(abinit_docdir)%s/%s" % \ (rel,sub) # Install data files for dat in files: doc += "\n\t$(INSTALL_DATA) '$(srcdir)%s/%s' " % (rel,dat) \ + "'$(DESTDIR)$(abinit_docdir)%s'" % (rel) ext += " \\\n\t%s/%s" % (re.sub("^doc",".",root),dat) doc += "\n" ext += "\n" # Write makefile mf = file("doc/Makefile.am","w") mf.write(makefile_header(my_name,now)) mf.write(doc) mf.write("\n"+ext) # Write additional data add= "config/makefiles/doc.am" if( os.path.exists(add) ): mf.write("\n"+file(add,"r").read()) # End of file mf.close()