Reworked test files for better error reporting
[nasm/perl-rewrite.git] / outform.c
blob2aa551399fa04fe423bedd104b9d4436236cbe8a
1 /* outform.c manages a list of output formats, and associates
2 * them with their relevant drivers. Also has a
3 * routine to find the correct driver given a name
4 * for it
6 * The Netwide Assembler is copyright (C) 1996 Simon Tatham and
7 * Julian Hall. All rights reserved. The software is
8 * redistributable under the license given in the file "LICENSE"
9 * distributed in the NASM archive.
12 #include "compiler.h"
14 #include <stdio.h>
15 #include <string.h>
16 #include <inttypes.h>
18 #define BUILD_DRIVERS_ARRAY
19 #include "outform.h"
21 static int ndrivers = 0;
23 struct ofmt *ofmt_find(char *name)
24 { /* find driver */
25 int i;
27 for (i = 0; i < ndrivers; i++)
28 if (!strcmp(name, drivers[i]->shortname))
29 return drivers[i];
31 return NULL;
33 struct dfmt *dfmt_find(struct ofmt *ofmt, char *name)
34 { /* find driver */
35 struct dfmt **dfmt = ofmt->debug_formats;
36 while (*dfmt) {
37 if (!strcmp(name, (*dfmt)->shortname))
38 return (*dfmt);
39 dfmt++;
41 return NULL;
44 void ofmt_list(struct ofmt *deffmt, FILE * fp)
46 int i;
47 for (i = 0; i < ndrivers; i++)
48 fprintf(fp, " %c %-10s%s\n",
49 drivers[i] == deffmt ? '*' : ' ',
50 drivers[i]->shortname, drivers[i]->fullname);
52 void dfmt_list(struct ofmt *ofmt, FILE * fp)
54 struct dfmt **drivers = ofmt->debug_formats;
55 while (*drivers) {
56 fprintf(fp, " %c %-10s%s\n",
57 drivers[0] == ofmt->current_dfmt ? '*' : ' ',
58 drivers[0]->shortname, drivers[0]->fullname);
59 drivers++;
62 struct ofmt *ofmt_register(efunc error)
64 for (ndrivers = 0; drivers[ndrivers] != NULL; ndrivers++) ;
66 if (ndrivers == 0) {
67 error(ERR_PANIC | ERR_NOFILE,
68 "No output drivers given at compile time");
71 return (&OF_DEFAULT);