1/*-
2 * SPDX-License-Identifier: BSD-2-Clause-FreeBSD
3 *
4 * Copyright (C) 1994, 2001 by Joerg Wunsch, Dresden
5 * All rights reserved.
6 *
7 * Redistribution and use in source and binary forms, with or without
8 * modification, are permitted provided that the following conditions
9 * are met:
10 * 1. Redistributions of source code must retain the above copyright
11 *    notice, this list of conditions and the following disclaimer.
12 * 2. Redistributions in binary form must reproduce the above copyright
13 *    notice, this list of conditions and the following disclaimer in the
14 *    documentation and/or other materials provided with the distribution.
15 *
16 * THIS SOFTWARE IS PROVIDED BY THE AUTHOR(S) ``AS IS'' AND ANY
17 * EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
18 * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR
19 * PURPOSE ARE DISCLAIMED.  IN NO EVENT SHALL THE AUTHOR(S) BE LIABLE
20 * FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR
21 * CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT
22 * OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR
23 * BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF
24 * LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT
25 * (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE
26 * USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH
27 * DAMAGE.
28 */
29
30#include <sys/cdefs.h>
31__FBSDID("$FreeBSD$");
32
33#include <sys/fdcio.h>
34#include <sys/file.h>
35
36#include <err.h>
37#include <stdio.h>
38#include <stdlib.h>
39#include <string.h>
40#include <sysexits.h>
41#include <unistd.h>
42
43#include "fdutil.h"
44
45
46static	int format, verbose, show = 1, showfmt;
47static	char *fmtstring;
48
49static void showdev(enum fd_drivetype, const char *);
50static void usage(void);
51
52static void
53usage(void)
54{
55	errx(EX_USAGE,
56	     "usage: fdcontrol [-F] [-d dbg] [-f fmt] [-s fmtstr] [-v] device");
57}
58
59void
60showdev(enum fd_drivetype type, const char *fname)
61{
62	const char *name, *descr;
63
64	getname(type, &name, &descr);
65	if (verbose)
66		printf("%s: %s drive (%s)\n", fname, name, descr);
67	else
68		printf("%s\n", name);
69}
70
71int
72main(int argc, char **argv)
73{
74	enum fd_drivetype type;
75	struct fd_type ft, newft, *fdtp;
76	const char *name, *descr;
77	int fd, i, autofmt;
78
79	autofmt = 0;
80	while((i = getopt(argc, argv, "aFf:s:v")) != -1)
81		switch(i) {
82
83		case 'a':
84			autofmt = 1;
85			/*FALLTHROUGH*/
86		case 'F':
87			showfmt = 1;
88			show = 0;
89			break;
90
91		case 'f':
92			if (!strcmp(optarg, "auto")) {
93				format = -1;
94			} else if (getnum(optarg, &format)) {
95				fprintf(stderr,
96			"Bad argument %s to -f option; must be numeric\n",
97					optarg);
98				usage();
99			}
100			show = 0;
101			break;
102
103		case 's':
104			fmtstring = optarg;
105			show = 0;
106			break;
107
108		case 'v':
109			verbose++;
110			break;
111
112		default:
113			usage();
114		}
115
116	argc -= optind;
117	argv += optind;
118
119	if(argc != 1)
120		usage();
121
122	if((fd = open(argv[0], O_RDONLY | O_NONBLOCK)) < 0)
123		err(EX_UNAVAILABLE, "open(%s)", argv[0]);
124
125	if (ioctl(fd, FD_GDTYPE, &type) == -1)
126		err(EX_OSERR, "ioctl(FD_GDTYPE)");
127	if (ioctl(fd, FD_GTYPE, &ft) == -1)
128		err(EX_OSERR, "ioctl(FD_GTYPE)");
129
130	if (show) {
131		showdev(type, argv[0]);
132		return (0);
133	}
134
135	if (autofmt) {
136		memset(&newft, 0, sizeof newft);
137		ft = newft;
138	}
139
140	if (format) {
141		getname(type, &name, &descr);
142		fdtp = get_fmt(format, type);
143		if (fdtp == 0)
144			errx(EX_USAGE,
145			    "unknown format %d KB for drive type %s",
146			    format, name);
147		ft = *fdtp;
148	}
149
150	if (fmtstring) {
151		parse_fmt(fmtstring, type, ft, &newft);
152		ft = newft;
153	}
154
155	if (showfmt) {
156		if (verbose) {
157			const char *s;
158
159			printf("%s: %d KB media type\n", argv[0],
160			    (128 << ft.secsize) * ft.size / 1024);
161			printf("\tFormat:\t\t");
162			print_fmt(ft);
163			if (ft.datalen != 0xff &&
164			    ft.datalen != (128 << ft.secsize))
165				printf("\tData length:\t%d\n", ft.datalen);
166			printf("\tSector size:\t%d\n", 128 << ft.secsize);
167			printf("\tSectors/track:\t%d\n", ft.sectrac);
168			printf("\tHeads/cylinder:\t%d\n", ft.heads);
169			printf("\tCylinders/disk:\t%d\n", ft.tracks);
170			switch (ft.trans) {
171			case 0: printf("\tTransfer rate:\t500 kbps\n"); break;
172			case 1: printf("\tTransfer rate:\t300 kbps\n"); break;
173			case 2: printf("\tTransfer rate:\t250 kbps\n"); break;
174			case 3: printf("\tTransfer rate:\t1 Mbps\n"); break;
175			}
176			printf("\tSector gap:\t%d\n", ft.gap);
177			printf("\tFormat gap:\t%d\n", ft.f_gap);
178			printf("\tInterleave:\t%d\n", ft.f_inter);
179			printf("\tSide offset:\t%d\n", ft.offset_side2);
180			printf("\tFlags\t\t<");
181			s = "";
182			if (ft.flags & FL_MFM) {
183				printf("%sMFM", s);
184				s = ",";
185			}
186			if (ft.flags & FL_2STEP) {
187				printf("%s2STEP", s);
188				s = ",";
189			}
190			if (ft.flags & FL_PERPND) {
191				printf("%sPERPENDICULAR", s);
192				s = ",";
193			}
194			if (ft.flags & FL_AUTO) {
195				printf("%sAUTO", s);
196				s = ",";
197			}
198			printf(">\n");
199		} else {
200			print_fmt(ft);
201		}
202		return (0);
203	}
204
205	if (format || fmtstring) {
206		if (ioctl(fd, FD_STYPE, &ft) == -1)
207			err(EX_OSERR, "ioctl(FD_STYPE)");
208		return (0);
209	}
210
211	return 0;
212}
213