diff options
| author | Miro Jurisic <meeroh@mit.edu> | 1999-05-27 00:38:02 +0000 |
|---|---|---|
| committer | Miro Jurisic <meeroh@mit.edu> | 1999-05-27 00:38:02 +0000 |
| commit | ddfbac98b5cf707c8a7b1e3b527d1bbb92f712f2 (patch) | |
| tree | a7e99078d7a558700cf5745a38c244a2e7815190 /src/mac/create-folder.mpw | |
| parent | 8cd0f1714e34a364567a14ead9e8543730ea317f (diff) | |
| download | krb5-ddfbac98b5cf707c8a7b1e3b527d1bbb92f712f2.tar.gz krb5-ddfbac98b5cf707c8a7b1e3b527d1bbb92f712f2.tar.xz krb5-ddfbac98b5cf707c8a7b1e3b527d1bbb92f712f2.zip | |
Completely redone Makefile
git-svn-id: svn://anonsvn.mit.edu/krb5/trunk@11468 dc483132-0cff-0310-8789-dd5450dbe970
Diffstat (limited to 'src/mac/create-folder.mpw')
| -rw-r--r-- | src/mac/create-folder.mpw | 27 |
1 files changed, 27 insertions, 0 deletions
diff --git a/src/mac/create-folder.mpw b/src/mac/create-folder.mpw new file mode 100644 index 000000000..159eb1297 --- /dev/null +++ b/src/mac/create-folder.mpw @@ -0,0 +1,27 @@ +### usage: create-folder path +### +### path must be path to a folder (can be relative path) +### creates the folder and its parents if necessary + +### Create path components of path one at a time +set left-part "" +set right-part "{1}" + +loop + if "{right-part}" == "" + break + end + + (evaluate "{right-part}" =~ /([Â:]*:)¨1Å/) > Dev:Null + set car "{¨1}" + (evaluate "{right-part}" =~ /[Â:]*:(Å)¨1/) > Dev:Null + set cdr "{¨1}" + + set left-part "{left-part}{car}" + set right-part "{cdr}" + + if not (`Exists "{left-part}"`) + NewFolder "{left-part}" + end +end +
\ No newline at end of file |