home *** CD-ROM | disk | FTP | other *** search
/ Columbia Kermit / kermit.zip / pub / utils / xxu.c < prev   
C/C++ Source or Header  |  2020-01-01  |  6KB  |  180 lines
  1. /*  X X U  --  UNIX filename converter  */
  2.  
  3. /*
  4.   Lowercases filenames and strips spurious pathnames from them.  Handy for
  5.   use after UNZIPs or FTP MGETs or magnetic tape operations that leave your
  6.   UNIX directory full of uppercase filenames, possibly with foreign paths
  7.   included.  Path stripping handles UNIX, DOS, VMS, and TOPS-20/TENEX
  8.   formats.
  9.  
  10.   Usage: xxu file(s)
  11.  
  12.   Action: Renames argument files as follows:
  13.    strips DOS or DEC device:, node:: names from front (up to rightmost ':')
  14.    strips DOS path name from front (up to rightmost '\') if present
  15.    strips VMS [directory] or DEC-20 <directory> name if present
  16.    strips UNIX path name from front (up to rightmost '/') if present
  17.    strips VMS version number from end (everything after ';') if present
  18.    strips DEC-20 attributes from end (everything after ';') if present
  19.    if name is all uppercase it is converted to lowercase
  20.    converts spaces to underscores
  21.    honors Ctrl-V quote for special characters
  22.    discards unquoted unprintable characters
  23.    if result is null, file is renamed to xxfile-n, where n is a number.
  24.    if result would write over an existing file, file also renamed to xxfile-n.
  25.  
  26.   Typical usage: make a new directory, cd to it, then FTP files from
  27.   DOS, Windows, VMS, etc, or Unzip them from an archive, then "xxu *"
  28.   to fix the names.  Files that already have lowercase names (and no path
  29.   part included) are not touched.
  30.  
  31.   Author:  F. da Cruz, The Kermit Project, Columbia University
  32.   Email:   fdc@columbia.edu
  33.  
  34.   Please send any changes back to the author.
  35.  
  36.   Revised: Jul 1985: First version
  37.            Sep 1998: Provide for no rename(), handle spaces.
  38.            Jul 1999: Add support for DOS pathname stripping.
  39.            Oct 2000: Don't lowercase mixed-case names.
  40.  
  41.   Copyright (C) 1999,2000
  42.   Trustees of Columbia University in the City of New York
  43.  
  44.   This program is free software; you can redistribute it and/or modify
  45.   it under the terms of the GNU General Public License as published by
  46.   the Free Software Foundation; either version 2 of the License, or
  47.   (at your option) any later version.
  48.  
  49.   This program is distributed in the hope that it will be useful,
  50.   but WITHOUT ANY WARRANTY; without even the implied warranty of
  51.   MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  52.   GNU General Public License for more details.
  53.  
  54.   You should have received a copy of the GNU General Public License
  55.   along with this program; if not, write to the Free Software
  56.   Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA  02111-1307  USA
  57. */
  58. #include <stdio.h>
  59. #ifdef SYSV
  60. #include <sys/types.h>
  61. #else
  62. #ifdef M_XENIX
  63. #include <sys/types.h>
  64. #endif /* M_XENIX */
  65. #endif /* SYSV */
  66. #include <ctype.h>
  67. #include <sys/file.h>            /* For access() */
  68.  
  69. /* Define NO_RENAME on cc command line if rename() missing */
  70.  
  71. #ifdef NO_RENAME
  72. /* Use rename() if available since rename() is atomic and this isn't. */
  73. int
  74. rename(oldname, newname) char *oldname, *newname; {
  75.     if (link(oldname,newname) < 0) {
  76.     perror("link");
  77.     return(-1);
  78.     } else if (unlink(oldname) < 0) {
  79.     perror("unlink");
  80.     return(-1);
  81.     } else
  82.       return(0);
  83. }
  84. #endif /* NO_RENAME */
  85.  
  86. char name[1024];            /* File name buffer */
  87. char *pp, *cp, *xp;            /* Character pointers */
  88. char delim;                /* Directory Delimiter */
  89. int dc = 0, n = 0;            /* Counters */
  90. int quote = 0, indir = 0, done = 0;    /* Flags */
  91.  
  92. main(argc,argv) int argc; char **argv; {
  93.     int lc;
  94.  
  95.     if (argc < 2) {            /* Give message if no args */
  96.     fprintf(stderr,"Usage: xxu file(s)\n");
  97.     exit(1);
  98.     }
  99.     n = 0;                /* Unfixable filename counter */
  100.     while (--argc > 0) {        /* For all files on command line... */
  101.     argv++;
  102.     xp = *argv;            /* Copy pointer for simplicity */
  103.     lc = 0;                /* For case conversion */
  104.     for (cp = xp; *cp; cp++) {    /* Quick prescan for mixed case */
  105.         if (islower(*cp)) lc++;
  106.     }
  107.     printf("%s ",*argv);        /* Echo name of this file */
  108.  
  109.     pp = name;            /* Point to translation buffer */
  110.     *name = '\0';            /* Initialize buffer */
  111.     dc = 0;                /* Filename dot counter */
  112.     done = 0;            /* Flag for early completion */
  113.  
  114.     for (cp = xp; (*cp != '\0') && !done; cp++) { /* Loop thru chars... */
  115.  
  116.         if (quote) {        /* If this char quoted, */
  117.         *pp++ = *cp;        /*  include it literally. */
  118.         quote = 0;
  119.         } else if (indir) {        /* If in directory name, */
  120.         if (*cp == delim)
  121.           indir = 0;        /* look for end delimiter. */
  122.         } else switch (*cp) {
  123.           case '<':            /* Discard DEC-20 directory name */
  124.         indir = 1;
  125.         delim = '>';
  126.         break;
  127.           case '[':            /* Discard VMS directory name */
  128.         indir = 1;
  129.         delim = ']';
  130.         break;
  131.           case '/':            /* Discard Unix path name */
  132.           case '\\':        /*  or DOS path name */
  133.           case ':':               /*  or DOS/DEC dev: or node:: name */
  134.         pp = name;
  135.         break;
  136. #ifdef COMMENT
  137. /* We don't have too many DEC-20s any more, but we do have *.tar.gz's */
  138.           case '.':            /* DEC -20 generation number */
  139.         if (++dc == 1)        /* Keep first dot */
  140.           *pp++ = *cp;
  141.         else            /* Discard everything starting */
  142.           done = 1;        /* with second dot. */
  143.         break;
  144. #endif /* COMMENT */
  145.           case ';':            /* VMS version or DEC-20 attribute */
  146.         done = 1;        /* Discard everything starting with */
  147.         break;            /* semicolon */
  148.           case '\026':        /* Control-V quote for special chars */
  149.         quote = 1;        /* Set flag for next time. */
  150.         break;
  151.           default:
  152.         if (lc == 0 && isupper(*cp)) /* Uppercase letter to lower */
  153.           *pp++ = tolower(*cp);
  154.         else if (*cp == ' ')    /* change blanks to underscore */
  155.           *pp++ = '_';
  156.         else if (isprint(*cp))    /* Other printable, just keep */
  157.           *pp++ = *cp;
  158.         }
  159.     }
  160.     *pp = '\0';            /* Done with name, terminate it */
  161.     if (strcmp(name,xp) == 0) {    /* If no renaming necessary, */
  162.         printf("(ok)\n");        /*  just give message. */
  163.         continue;
  164.         }
  165.     while (*name == '\0' || access(name,0) == 0) { /* Find unique name */
  166.         sprintf(name,"xxfile-%d",n++);
  167.     }
  168.     printf("=> %s ",name);        /* Tell what new name will be */
  169.     if (rename(xp,name) == 0)    /* Try to rename it */
  170.       printf("(ok)\n");        /* Say what happened */
  171.     else
  172. #ifndef NO_RENAME
  173.       perror("failed");
  174. #else
  175.       printf("(failed)\n");
  176. #endif /* NO_RENAME */
  177.     }
  178.     exit(0);                /* Done. */
  179. }
  180.