home *** CD-ROM | disk | FTP | other *** search
/ NetNews Usenet Archive 1992 #20 / NN_1992_20.iso / spool / comp / unix / question / 10829 < prev    next >
Encoding:
Text File  |  1992-09-08  |  6.3 KB  |  180 lines
  1. Path: sparky!uunet!mcsun!uknet!cam-cl!doc.ic.ac.uk!syma!leilabd
  2. From: leilabd@syma.sussex.ac.uk (Leila Burrell-Davis)
  3. Newsgroups: comp.unix.questions
  4. Subject: Re: need script to rename uppercase filenames
  5. Message-ID: <1992Sep8.121456.18394@syma.sussex.ac.uk>
  6. Date: 8 Sep 92 12:14:56 GMT
  7. References: <699@svcs1.UUCP>
  8. Organization: Computing Service, University of Sussex, UK
  9. Lines: 168
  10. X-Newsreader: Tin 1.1 PL5
  11.  
  12. Bill Miller (slix@svcs1.UUCP) wrote:
  13. : 
  14. : I'm fairly new to unix, and I need a script or procedure to do the following:
  15. :  
  16. : I have some source code in DOS (many separate files) that I tarred under
  17. : DOS and untarred under 386BSD.  The big problem is that all the files
  18. : came through in UPPERCASE and I need a script to mv (rename) them all
  19. : to lowercase quickly.
  20. :  
  21. : Since they're in DOS text format, I realize I also need to strip the 
  22. : extra carriage returns on each line.  I've been successful in doing this
  23. : with:
  24. :  
  25. :   cat (file) | tr -d '\015' > (newfile)
  26. :  
  27. : It would be nice to combine both of these so that I could rename the
  28. : files to uppercase and strip the extra newlines all in one fell swoop
  29. : instead of doing it one file at a time.
  30.  
  31. Not exactly the answer to your question, but there are two well tried
  32. and tested programs to do this. To do the upper case to lower case
  33. conversion a program called xxu from those nice Kermit people. I'll
  34. append the source as it's short. For the end of line conversion in an
  35. intelligent and reliable way and in either direction, a program called
  36. flip by Rahul Dhesi which is very portable. I think it's been posted
  37. to comp.sources.misc before now.
  38.  
  39. Leila
  40. --
  41. /*  X X U  --  20-to-Unix filename converter  */
  42.  
  43. /*
  44.  Change DEC-20 or VAX/VMS style filenames into normal Unix names.
  45.  Handy for use after ftp MGETs, when you find your directory full of
  46.  files with names like LIB:<KERMIT>CKUFIO.C.2 or FRED::[ETHEL]A.B;37
  47.  when all you really wanted was ckufio.c and a.b.
  48.  
  49.  Usage: xxu file(s)
  50.  
  51.  Action: Renames argument files as follows:
  52.    strips Unix path name from front (up to rightmost '/') if present
  53.    strips DEC device:, node:: names from front (up to rightmost ':') if present
  54.    strips DEC-20 <directory> or VMS [directory] name if present
  55.    strips DEC-20 version number from end (everything after 2nd dot) if present
  56.    strips VMS generation number from end (everything after ';') if present
  57.    lowercases any uppercase letters
  58.    honors DEC-20 CTRL-V quote for special characters
  59.    discards unquoted unprintable characters
  60.    if result is null, file is renamed to xxfile-n, where n is a number.
  61.    if result would write over an existing file, file also renamed to xxfile-n.
  62.  
  63.  Recommended procedure: make a new directory, cd to it, then FTP files
  64.  from DEC-20 or VMS system, then do "xxu *".
  65.  
  66.  Author:  F. da Cruz, CUCCA, July 85
  67. */
  68. #include <stdio.h>
  69. #if    SYSV | M_XENIX
  70. #include <sys/types.h>
  71. #endif
  72. #include <ctype.h>
  73. #include <sys/file.h>            /* For access() */
  74. /* <<<<<<<< define NO_RENAME on cc line if missing >>>>>>>> */
  75.  
  76. char name[500];                /* File name buffer */
  77. char *pp, *cp, *xp;            /* Character pointers */
  78. char delim;                /* Directory Delimiter */
  79. int dc = 0, n = 0;            /* Counters */
  80. int quote = 0, indir = 0; done = 0;    /* Flags */
  81.  
  82. main(argc,argv) int argc; char **argv; {
  83.  
  84.     if (argc < 2) {            /* Give message if no args */
  85.     fprintf(stderr,"Usage: xxu file(s)\n");
  86.     exit(1);
  87.     }
  88.     n = 0;                /* Unfixable filename counter */
  89.     while (--argc > 0) {        /* For all files on command line... */
  90.     argv++;
  91.     xp = *argv;            /* Copy pointer for simplicity */
  92.     printf("%s ",*argv);        /* Echo name of this file */
  93.  
  94.     pp = name;            /* Point to translation buffer */
  95.     *name = '\0';            /* Initialize buffer */
  96.     dc = 0;                /* Filename dot counter */
  97.     done = 0;            /* Flag for early completion */
  98.  
  99.     for (cp = xp; (*cp != '\0') && !done; cp++) { /* Loop thru chars... */
  100.  
  101.         if (quote) {        /* If this char quoted, */
  102.         *pp++ = *cp;        /*  include it literally. */
  103.         quote = 0;
  104.         }
  105.         else if (indir) {        /* If in directory name, */
  106.         if (*cp == delim) indir = 0; /* look for end delimiter. */
  107.         }
  108.         else switch (*cp) {
  109.         case '<':        /* Discard DEC-20 directory name */
  110.             indir = 1;
  111.             delim = '>';
  112.             break;
  113.         case '[':        /* Discard VMS directory name */
  114.             indir = 1;
  115.             delim = ']';
  116.             break;
  117.         case '/':        /* Discard Unix path name */
  118.         case ':':               /*  or DEC dev: or node:: name */
  119.             pp = name; 
  120.             break;
  121.         case '.':        /* DEC -20 generation number */
  122.                 if (++dc == 1)    /* Keep first dot */
  123.                 *pp++ = *cp;
  124.             else        /* Discard everything starting */
  125.                 done = 1;    /* with second dot. */
  126.             break;
  127.         case ';':        /* VMS generation or DEC-20 attrib */
  128.             done = 1;        /* Discard everything starting with */
  129.             break;        /* semicolon */
  130.             case '\026':        /* Control-V quote for special chars */
  131.             quote = 1;        /* Set flag for next time. */
  132.             break;
  133.         default:
  134.             if (isupper(*cp))      /* Uppercase letter to lowercase */
  135.                     *pp++ = tolower(*cp);
  136.             else if (*cp == ' ')/* change blanks to underscore */
  137.                 *pp++ = '_';
  138.             else if (isprint(*cp)) /* Other printable, just keep */
  139.                 *pp++ = *cp;
  140.         }
  141.     }
  142.     *pp = '\0';            /* Done with name, terminate it */
  143.     if (strcmp(name,xp) == 0) {    /* If no renaming necessary, */
  144.         printf("(ok)\n");        /*  just give message. */
  145.         continue;
  146.         }
  147.     while (*name == '\0' || access(name,0) == 0) { /* Find unique name */
  148.         sprintf(name,"xxfile-%d",n++);
  149.     }
  150.     printf("=> %s ",name);        /* Tell what new name will be */
  151.     if (rename(xp,name) == 0)    /* Try to rename it */
  152.         printf("(ok)\n");        /* Say what happened */
  153.     else
  154.         perror("failed");
  155.     }
  156.     exit(0);                /* Done. */
  157. }
  158. /*****************************************************************
  159.  |  rename - for systems lacking the rename system call
  160.  |----------------------------------------------------------------
  161.  |  Arguments:
  162.  |   1) string - current filename
  163.  |   2) string - new filename
  164.  ****************************************************************/
  165.  
  166. #if    NO_RENAME
  167. rename(oldname, newname)
  168.     char *oldname, *newname;
  169. {
  170.     char cmdline[133];
  171.     
  172.     sprintf(cmdline, "mv \"%s\" %s", oldname, newname);
  173.     return system(cmdline);
  174. }
  175. #endif
  176. -- 
  177. Leila Burrell-Davis, Computing Service, University of Sussex, Brighton, UK
  178. Tel:   +44 273 678390              Fax:   +44 273 678470
  179. Email: leilabd@syma.sussex.ac.uk  (JANET: leilabd@uk.ac.sussex.syma)
  180.