PreviousUpNext

15.4.122  src/app/makelib/tools/dir/ilkify-filename.pkg

## ilkify-filename.pkg
## (C) 2000 Lucent Technologies, Bell Laboratories
## Author: Matthias Blume (blume@kurims.kyoto-u.ac.jp)

# Compiled by:
#     src/app/makelib/tools/dir/dir-tool.lib



# The classifier for the tool for processing filesystem directories that
# contain other source files.
# (We keep this classifier separate to be able to register it without
# registering the tool itself.  This classifier does not rely on filename
# suffixes, so we cannot rely on automatic loading of plugins.)



package dir_tool_classify_filename {

    ilk = "dir";
    stipulate
        include package   tools;

        fun ilkify_filename { name, make_filename }
            =
            (if (winix__premicrothread::file::is_directory (make_filename ()) ) THE ilk;
             else NULL;fi)
            except _ => NULL; end ;
    herein
        my _ = note_filename_classifier (GENERAL_FILENAME_CLASSIFIER ilkify_filename);
    end;
};


Comments and suggestions to: bugs@mythryl.org

PreviousUpNext