mirror of
https://git.FreeBSD.org/src.git
synced 2024-12-23 11:18:54 +00:00
b365f23675
necessary. Requested by: phk
208 lines
4.6 KiB
C
208 lines
4.6 KiB
C
/*
|
|
* ----------------------------------------------------------------------------
|
|
* "THE BEER-WARE LICENSE" (Revision 42):
|
|
* <phk@login.dkuug.dk> wrote this file. As long as you retain this notice you
|
|
* can do whatever you want with this stuff. If we meet some day, and you think
|
|
* this stuff is worth it, you can buy me a beer in return. Poul-Henning Kamp
|
|
* ----------------------------------------------------------------------------
|
|
*
|
|
* $Id: fdwrite.c,v 1.1.1.1 1994/09/18 07:39:19 phk Exp $
|
|
*
|
|
*/
|
|
|
|
#include <stdio.h>
|
|
#include <stdlib.h>
|
|
#include <unistd.h>
|
|
#include <fcntl.h>
|
|
#include <strings.h>
|
|
#include <ctype.h>
|
|
|
|
#include <errno.h>
|
|
#include <machine/ioctl_fd.h>
|
|
|
|
int
|
|
format_track(int fd, int cyl, int secs, int head, int rate,
|
|
int gaplen, int secsize, int fill,int interleave)
|
|
{
|
|
struct fd_formb f;
|
|
register int i,j;
|
|
int il[100];
|
|
|
|
memset(il,0,sizeof il);
|
|
for(j = 0, i = 1; i <= secs; i++) {
|
|
while(il[(j%secs)+1]) j++;
|
|
il[(j%secs)+1] = i;
|
|
j += interleave;
|
|
}
|
|
|
|
f.format_version = FD_FORMAT_VERSION;
|
|
f.head = head;
|
|
f.cyl = cyl;
|
|
f.transfer_rate = rate;
|
|
|
|
f.fd_formb_secshift = secsize;
|
|
f.fd_formb_nsecs = secs;
|
|
f.fd_formb_gaplen = gaplen;
|
|
f.fd_formb_fillbyte = fill;
|
|
for(i = 0; i < secs; i++) {
|
|
f.fd_formb_cylno(i) = cyl;
|
|
f.fd_formb_headno(i) = head;
|
|
f.fd_formb_secno(i) = il[i+1];
|
|
f.fd_formb_secsize(i) = secsize;
|
|
}
|
|
return ioctl(fd, FD_FORM, (caddr_t)&f);
|
|
}
|
|
|
|
static void
|
|
usage ()
|
|
{
|
|
printf("Usage:\n\tfdwrite [-v] [-f inputfile] [-d device]\n");
|
|
exit(2);
|
|
}
|
|
|
|
int
|
|
main(int argc, char **argv)
|
|
{
|
|
int inputfd = -1, c, fdn = 0, i,j,fd;
|
|
int bpt, verbose=1, nbytes=0, track;
|
|
char *device= "/dev/rfd0", *trackbuf = 0,*vrfybuf = 0;
|
|
struct fd_type fdt;
|
|
FILE *tty;
|
|
|
|
setbuf(stdout,0);
|
|
while((c = getopt(argc, argv, "d:s:f:v")) != -1)
|
|
switch(c) {
|
|
case 'd': /* Which drive */
|
|
device = optarg;
|
|
break;
|
|
|
|
case 'f': /* input file */
|
|
if (inputfd >= 0)
|
|
close(inputfd);
|
|
inputfd = open(optarg,O_RDONLY);
|
|
if (inputfd < 0) {
|
|
perror(optarg);
|
|
exit(1);
|
|
}
|
|
break;
|
|
|
|
case 'v': /* Toggle verbosity */
|
|
verbose = !verbose;
|
|
break;
|
|
|
|
case '?': default:
|
|
usage();
|
|
}
|
|
|
|
if (inputfd < 0)
|
|
inputfd = 0;
|
|
|
|
if(optind < argc)
|
|
usage();
|
|
|
|
tty = fopen("/dev/tty","r+");
|
|
if(!tty) {
|
|
perror("/dev/tty");
|
|
exit(1);
|
|
}
|
|
setbuf(tty,0);
|
|
|
|
for(j=1;j > 0;) {
|
|
fdn++;
|
|
fprintf(tty,
|
|
"Please insert floppy #%d in drive %s and press return >",
|
|
fdn,device);
|
|
while(1) {
|
|
i = getc(tty);
|
|
if(i == '\n') break;
|
|
}
|
|
|
|
if((fd = open(device, O_RDWR)) < 0) {
|
|
perror(device);
|
|
exit(1);
|
|
}
|
|
|
|
if(ioctl(fd, FD_GTYPE, &fdt) < 0) {
|
|
fprintf(stderr, "fdformat: not a floppy disk: %s\n", device);
|
|
exit(1);
|
|
}
|
|
|
|
bpt = fdt.sectrac * (1<<fdt.secsize) * 128;
|
|
if(!trackbuf) {
|
|
trackbuf = malloc(bpt);
|
|
if(!trackbuf) { perror("malloc"); exit(1); }
|
|
}
|
|
if(!vrfybuf) {
|
|
vrfybuf = malloc(bpt);
|
|
if(!vrfybuf) { perror("malloc"); exit(1); }
|
|
}
|
|
|
|
if(fdn == 1) {
|
|
if(verbose) {
|
|
printf("Format: %d cylinders, %d heads, %d sectors, %d bytes = %dkb\n",
|
|
fdt.tracks,fdt.heads,fdt.sectrac,(1<<fdt.secsize) * 128,
|
|
fdt.tracks*bpt*fdt.heads/1024);
|
|
|
|
}
|
|
memset(trackbuf,0,bpt);
|
|
for(j=0;inputfd >= 0 && j<bpt;j+=i) {
|
|
if(!(i = read(inputfd,trackbuf+j,bpt-j))) {
|
|
close(inputfd);
|
|
inputfd = -1;
|
|
break;
|
|
}
|
|
nbytes += i;
|
|
}
|
|
}
|
|
for (track = 0; track < fdt.tracks * fdt.heads; track++) {
|
|
if(verbose) printf("\r%3d ",fdt.tracks * fdt.heads-track);
|
|
if(verbose) putc((j ? 'I':'Z'),stdout);
|
|
format_track(fd, track / fdt.heads, fdt.sectrac, track % fdt.heads,
|
|
fdt.trans, fdt.f_gap, fdt.secsize, 0xe6,
|
|
fdt.f_inter);
|
|
if(verbose) putc('F',stdout);
|
|
|
|
if (lseek (fd, (long) track*bpt, 0) < 0) {
|
|
perror("lseek");
|
|
exit (1);
|
|
}
|
|
if (write (fd, trackbuf, bpt) != bpt) {
|
|
perror("write");
|
|
exit (1);
|
|
}
|
|
if(verbose) putc('W',stdout);
|
|
|
|
if (lseek (fd, (long) track*bpt, 0) < 0) {
|
|
perror("lseek");
|
|
exit (1);
|
|
}
|
|
if (read (fd, vrfybuf, bpt) != bpt) {
|
|
perror("read");
|
|
exit (1);
|
|
}
|
|
if(verbose) putc('R',stdout);
|
|
|
|
if (memcmp(trackbuf,vrfybuf,bpt)) {
|
|
perror("compare");
|
|
exit (1);
|
|
}
|
|
if(verbose) putc('C',stdout);
|
|
|
|
memset(trackbuf,0,bpt);
|
|
for(j=0;inputfd >= 0 && j<bpt;j+=i) {
|
|
if(!(i = read(inputfd,trackbuf+j,bpt-j))) {
|
|
close(inputfd);
|
|
inputfd = -1;
|
|
break;
|
|
}
|
|
nbytes += i;
|
|
}
|
|
}
|
|
close(fd);
|
|
putc('\r',stdout);
|
|
}
|
|
if(verbose)
|
|
printf("%d bytes on %d flopp%s\n",nbytes,fdn,fdn==1?"y":"ies");
|
|
exit(0);
|
|
}
|