This is cvt2apple.c in view mode; [Download] [Up]
/*
* cvt2apple
*
* This program converts CAP/aufs style files to apple single or
* apple double format files (primarily for A/UX - you drag files
* from a client via aufs to a Unix volume than convert them to
* apple single format, then launch them using the A/UX launch
* utility).
*
* cvt2apple [-d] cap-file apple-file
*
* (if -d is specified an apple double file (pair) is created)
*
* Bugs: doesn't support icons from the desktop file
* (doesn't know how to find them :-(
*
* COPYRIGHT NOTICE
*
* Copyright (c) May 1988, Paul Campbell, All Rights Reserved.
*
* Permission is granted to any individual or institution to use, copy,
* or redistribute this software so long as it is not sold for profit,
* provided that this notice and the original copyright notices are
* retained. Paul Campbell makes no representations about the
* suitability of this software for any purpose. It is provided "as is"
* without express or implied warranty.
*
* History:
* 4/23/88 Paul Campbell, submitted to CAP distribution
* 4/23/88 Charlie C. Kim, clean up and modify to work with
* byte swapped machines
*
*/
#include <sys/types.h>
#include <stdio.h>
#include <sys/stat.h>
#include <sys/dir.h>
#include <netinet/in.h>
#include <netat/appletalk.h>
#include <netat/macfile.h>
char *prog;
struct entry {
dword id;
dword offset;
dword length;
};
struct hdr {
dword magic;
dword version;
char home[16];
word nentries;
struct entry entries[1];
};
#define HDR_SIZE 26
#define ENTRY_SIZE sizeof(struct entry)
#define VERSION 0x00010000
#define APPLE_SINGLE 0x00051600
#define APPLE_DOUBLE 0x00051607
#define ID_DATA 1
#define ID_RESOURCE 2
#define ID_COMMENT 4
#define ID_FINDER 9
char dir[1025];
char file[1025];
char headers[1024];
FileInfo finfo;
byte *comment;
FILE *fiopen();
FILE *fdata, *fresource, *ffinder;
main(argc, argv)
char **argv;
{
register struct hdr *hp;
register struct entry *ep;
int dbl;
unsigned dlen;
char *fin, *fout;
FILE *f;
register int i;
struct stat s;
dbl = 0;
hp = (struct hdr *)headers;
hp->nentries = 0;
ep = hp->entries;
/*
* validate the flags and input/output file
* names
*/
prog = argv[0];
if (argc < 3)
usage();
if (strcmp(argv[1], "-d") == 0) {
dbl = 1;
if (argc > 4)
usage();
fin = argv[2];
fout = argv[3];
} else {
if (argc > 3)
usage();
fin = argv[1];
fout = argv[2];
}
/*
* pick apart the input file name
*/
name_expand(fin);
/*
* try and open the CAP finder info
*/
ffinder = fiopen(dir, ".finderinfo/", file, "r");
if (ffinder) {
if (fread(&finfo, 1, sizeof(finfo), ffinder) < sizeof(OldFileInfo))
error("error reading finder info file");
ep->id = ID_FINDER;
ep->length = sizeof(finfo.fi_fndr);
ep++;
hp->nentries++;
if (finfo.fi_magic1 == FI_MAGIC1 &&
finfo.fi_magic == FI_MAGIC) {
ep->id = ID_COMMENT;
ep->length = finfo.fi_comln;
comment = finfo.fi_comnt;
ep++;
hp->nentries++;
} else {
ep->id = ID_COMMENT;
ep->length = ((OldFileInfo *)&finfo)->fi_comln;
comment = ((OldFileInfo *)&finfo)->fi_comnt;
ep++;
hp->nentries++;
}
}
/*
* try and open the CAP resource fork
*/
fresource = fiopen(dir, ".resource/", file, "r");
if (fresource) {
if (fstat(fileno(fresource), &s) >= 0) {
ep->id = ID_RESOURCE;
ep->length = s.st_size;
ep++;
hp->nentries++;
}
}
/*
* try and open the CAP data fork
*/
fdata = fiopen(dir, NULL, file, "r");
if (fdata) {
if (fstat(fileno(fdata), &s) >= 0) {
if (dbl) {
dlen = s.st_size;
} else {
ep->id = ID_DATA;
ep->length = s.st_size;
ep++;
hp->nentries++;
}
}
}
/*
* now pick apart the output name
*/
name_expand(fout);
if (dbl) {
/*
* for a double file copy the forks that are
* present, if nothing just give an empty data file
*/
if (hp->nentries == 0 && fdata == NULL)
error("cannot open %s", fin);
if (strlen(file) > MAXNAMLEN-1) {
fprintf(stderr,
"%s: warning: output file name more than %d characters '%s'\n",
prog, (MAXNAMLEN-1), fout);
}
if (fdata && (dlen > 0 || hp->nentries == 0)) {
f = fiopen(dir, NULL, file, "w");
if (f == NULL)
error("cannot create data fork %s", fout);
fcopy(f, fdata, dlen);
fclose(f);
}
if (hp->nentries) {
f = fiopen(dir, "%", file, "w");
if (f == NULL)
error("cannot create resource %s", fout);
write_single(f, hp, APPLE_DOUBLE);
fclose(f);
}
} else {
/*
* if a single file just copy it in
*/
if (hp->nentries == 0)
error("cannot open %s", fin);
f = fiopen(dir, NULL, file, "w");
if (f == NULL)
error("cannot open %s", fout);
write_single(f, hp, APPLE_SINGLE);
fclose(f);
}
}
/*
* open the file "dir""ext""file" with mode "mode"
*/
FILE *
fiopen(dir, ext, file, mode)
char *dir, *ext, *file, *mode;
{
char name[1025];
strcpy(name, dir);
if (ext)
strcat(name, ext);
strcat(name, file);
return(fopen(name, mode));
}
/*
* print a nasty message
*/
usage()
{
fprintf(stderr, "Usage: %s [-d] cap-file apple-file\n",
prog);
exit(1);
}
/*
* calculate a file header, write it out, then tack on
* all the contents
*
* on return: the header and entries are all converted to network
* order
*/
write_single(fout, hp, magic)
FILE *fout;
struct hdr *hp;
{
unsigned hsize, offset;
register struct entry *ep;
register int i;
int n;
dword el;
n = hp->nentries;
hsize = n*ENTRY_SIZE;
offset = hsize + HDR_SIZE;
for (i = 0, ep = hp->entries; i < n; i++, ep++) {
ep->id = htonl(ep->id); /* swap */
ep->offset = htonl(offset); /* swap */
offset += ep->length;
ep->length = htonl(ep->length); /* byte swap */
}
strncpy(hp->home, "Macintosh ", 16);
hp->magic = htonl(magic);
hp->version = htonl(VERSION);
hp->nentries = htons(n);
/* must do as two writes because of padding problems in way */
/* hdr is defined (double word aligment comes into play) */
if (fwrite(hp, 1, HDR_SIZE, fout) != HDR_SIZE)
error("error writing output file");
if (fwrite(hp->entries, 1, hsize, fout) != hsize)
error("error writing output file");
for (i = 0, ep = hp->entries; i < n; i++, ep++) {
el = htonl(ep->length);
switch(ntohl(ep->id)) {
case ID_DATA:
fcopy(fout, fdata, el);
break;
case ID_RESOURCE:
fcopy(fout, fresource, el);
break;
case ID_COMMENT:
if (el)
if (fwrite(comment, 1, el, fout) != el)
error("error writing output file");
break;
case ID_FINDER:
if (fwrite(finfo.fi_fndr, el, 1, fout) != 1)
error("error writing output file");
break;
}
}
}
/*
* copy length bytes from fin to fout
*/
fcopy(fout, fin, length)
FILE *fin, *fout;
unsigned length;
{
char buffer[4096];
register unsigned l;
for (;;) {
l = fread(buffer, 1, sizeof(buffer), fin);
if (l > length)
l = length;
if (l > 0) {
if (fwrite(buffer, 1, l, fout) != l)
error("error writing output file");
} else break;
length -= l;
}
}
/*
* print another nasty message and quit
*/
error(s, a, b, c, d, e, f)
char *s;
{
fprintf(stderr, "%s: ", prog);
fprintf(stderr, s, a, b, c, d, e, f);
fprintf(stderr, "\n");
exit(2);
}
/*
* expand a file name to directory and filename parts
*/
name_expand(name)
char *name;
{
register char *cp;
strcpy(dir, name);
cp = &dir[strlen(dir)];
for (;;) {
if (*cp == '/') {
strcpy (file, cp+1);
*(cp+1) = 0;
if (file[0] == 0)
error("empty filename part in file name %s", name);
break;
}
if (cp == dir) {
strcpy(file, cp);
if (file[0] == 0)
error("empty filename part in file name %s", name);
strcpy(dir, "./");
break;
}
cp--;
}
}
These are the contents of the former NiCE NeXT User Group NeXTSTEP/OpenStep software archive, currently hosted by Netfuture.ch.