Date: Thu, 28 Jul 88 09:05:43 EST
From: ain@j.cc.purdue.edu (Patrick White)
Message-Id: <8807281405.AA04658@j.cc.purdue.edu>
To: fys-ma@fintuvm.BITNET
Subject: comp.sources.amiga:   sources/amiga/volume5/arc_rename.s.sh
 
Newsgroups: comp.sources.amiga
Subject: arc_rename (sources 1 of 1)
Keywords: arc, rename, uncompiled
Approved: ain@j.cc.purdue.edu    (Patrick White)
 
Program Name:    arc_rename  (sources)
Submitted by:    barrett@crabcake.cs.JHU.EDU (Dan Barrett)
Summary:    renames files to less than 12 char and creates execute script to
 convert it back.
Poster Boy:    Patrick White    (ain@j.cc.purdue.edu)
Archive Name:    sources/amiga/volume5/arc_rename.s.sh.Z
tested but not compiled.
 
NOTES:
   Had to burst the arc to get the files out.
 
 
-- Pat White   (co-moderator comp.sources/binaries.amiga)
ARPA/UUCP: j.cc.purdue.edu!ain  BITNET: PATWHITE@PURCCVM  PHONE: (317) 743-8421
U.S.  Mail:  320 Brown St. apt. 406,    West Lafayette, IN 47906
[archives at: j.cc.purdue.edu.ARPA]
 
========================================
 
#    This is a shell archive.
#    Remove everything above and including the cut line.
#    Then run the rest of the file through sh.
#----cut here-----cut here-----cut here-----cut here----#
#!/bin/sh
# shar:    Shell Archiver
#    Run the following text with /bin/sh to create:
#    README
#    ARCre.c
# This archive created: Fri Jul 22 18:40:59 1988
# By:    Patrick White (PUCC Land, USA)
cat << \SHAR_EOF > README
    Here is ARCre.  This is a utility that renames Amigados files to
MSDOS compatible names for use with ARC and creates a file  called
EXECUTE.ME to rename them back.  This uuencoded file is in ARC format.
Not written by me, but in the public domain.  It comes with source too...
 
----------------------------------------------------------------------------
    "Isn't fun the best thing to have?"
 
            lachac@topaz.rutgers.edu
SHAR_EOF
cat << \SHAR_EOF > ARCre.c
/*
 * ARCre - Create rename scripts so that files with long names can be
 *         easily put into ARChives.
 *
 * Here's how to use it:
 *
 *   ARCre [file(s) to be ARCed...]         : Create the rename scripts.
 *   execute ARCre.bat                      : Rename the files to be ARCed.
 *   ARC a ARChive ARCfile.* execute.me     : Create the ARChive.
 *   execute execute.me                     : Rename the files back.
 *
 *   ARCre takes file names like the ARC program does.  (It will accept
 *   the '*' wildcard.)  Two scripts are produced: "ARCre.bat" and
 *   "execute.me".  The first one will rename the files to "ARCfile.#",
 *   where '#' is 1,2,3,...  The second one will rename the files back
 *   to their original names.
 *
 * Copyright (c) 1987 John R. Hoffman
 *
 * This program is placed in the public domain as long as the above
 * copyright is included.  Sale of this program except for REASONABLE
 * media costs is prohibited.
 *
 * The credit for the idea for this program goes to John Foust.
 *
 * To create with MANX: cc ARCre.c
 *                      ln ARCre.o -lc
 *
 */
 
static char *Copyright = "Copyright (c) 1987 John R. Hoffman";
 
#include <stdio.h>
 
#define RENAME1  "ARCre.bat"
#define RENAME2  "EXECUTE.ME"
#define BASENAME "ARCfile.%d"
 
FILE *fopen();
char *scdir();
 
main(argc, argv)
int argc;
char *argv[];
{
    int i, fcnt;
    char *cp, name[50];
    FILE *fp1, *fp2;
 
    fp1  = NULL;
    fp2  = NULL;
    fcnt = 1;
 
    if ( argc <= 1 ) {
        fprintf(stderr, "Usage: ARCre files ...\n");
        exit();
    }
 
    for ( i = 1; i < argc; i++ ) {
 
        while ( (cp = scdir(argv[i])) != (char *) NULL ) {
 
            if ( fp1 == (FILE *) NULL ) {
                if ( (fp1 = fopen(RENAME1, "w")) == (FILE *) NULL ) {
                    fprintf(stderr, "ARCre: Error opening \"%s\".\n", RENAME1);
                    exit();
                }
            }
 
            if ( fp2 == (FILE *) NULL ) {
                if ( (fp2 = fopen(RENAME2, "w")) == (FILE *) NULL ) {
                    fprintf(stderr, "ARCre: Error opening \"%s\".\n", RENAME2);
                    if ( fp1 != (FILE *) NULL ) {
                        fclose(fp1);
                    }
                    exit();
                }
            }
 
            sprintf(name, BASENAME, fcnt++);
 
            fprintf(fp1, "rename \"%s\" %s\n", cp, name);
 
            fprintf(fp2, "rename %s \"%s\"\n", name, cp);
 
        }
 
    }
 
    if ( fcnt == 1 ) {
        fprintf(stderr, "ARCre: No matching files found.\n");
        exit();
    }
 
    if ( fp1 != (FILE *) NULL ) {
        fclose(fp1);
    }
 
    if ( fp2 != (FILE *) NULL ) {
        fclose(fp2);
    }
 
    exit();
}
SHAR_EOF
#    End of shell archive
exit 0