Shamusworld >> Repos - rmac/blob - 68kgen.c

   1 //
   2 // RMAC - Reboot's Macro Assembler for the Atari Jaguar Console System
   3 // 68KGEN.C - Tool to Generate 68000 Opcode Table
   4 // Copyright (C) 199x Landon Dyer, 2011 Reboot and Friends
   5 // RMAC derived from MADMAC v1.07 Written by Landon Dyer, 1986
   6 // Source Utilised with the Kind Permission of Landon Dyer
   7 //
   8
   9 #include <stdio.h>
  10 #include <ctype.h>
  11 #include <stdlib.h>
  12
  13 #define EOS     '\0'
  14
  15 int kwnum = 1;                  /* current op# for kwgen output */
  16
  17 FILE * kfp;                     /* keyword file */
  18
  19 int lineno = 0;
  20
  21 void error(char *, char *);
  22 void procln(int, char **);
  23
  24 int main(int argc, char ** argv)
  25 {
  26         char * namv[256];
  27         char * s;
  28         int namcnt;
  29         char ln[256];
  30
  31         if (argc == 2)
  32                 if ((kfp = fopen(argv[1], "w")) == NULL)
  33                         error("Cannot create: %s", argv[1]);
  34
  35 //      while (gets(ln) != NULL)
  36         while (fgets(ln, 256, stdin) != NULL)
  37         {
  38
  39                 ++lineno;                       /* bump line# */
  40                 if (*ln == '#')         /* ignore comments */
  41                         continue;
  42
  43                 /*
  44                  *  Tokenize line (like the way "argc, argv" works)
  45                  *  and pass it to the parser.
  46                  */
  47                 namcnt = 0;
  48                 s = ln;
  49
  50                 while (*s)
  51                 {
  52                         if (isspace(*s))
  53                                 ++s;
  54                         else
  55                         {
  56                                 namv[namcnt++] = s;
  57
  58                                 while (*s && !isspace(*s))
  59                                         ++s;
  60
  61                                 if (isspace(*s))
  62                                         *s++ = EOS;
  63                         }
  64                 }
  65
  66                 if (namcnt)
  67                         procln(namcnt, namv);
  68         }
  69         return 0;
  70 }
  71
  72
  73 /*
  74  *  Parse line
  75  */
  76 void procln(int namc, char ** namv)
  77 {
  78         int i, j;
  79         char * s;
  80
  81         if (namc == 1)          /* alias for previous entry */
  82         {
  83                 fprintf(kfp, "%s\t%d\n", namv[0], kwnum-1+1000);
  84                 return;
  85         }
  86
  87         if (namc < 5)
  88         {
  89                 fprintf(stderr, "%d: missing fields\n", lineno);
  90                 exit(1);
  91         }
  92
  93         if (*namv[0] != '-')            /* output keyword name */
  94                 fprintf(kfp, "%s\t%d\n", namv[0], kwnum + 1000);
  95
  96         printf("/*%4d %-6s*/  {", kwnum, namv[0]);
  97
  98         if (*namv[1] == '!')
  99                 printf("CGSPECIAL");
 100         else for (s = namv[1], i=0; *s; ++s)
 101                 printf("%sSIZ%c", (i++ ? "|" : ""), *s);
 102         printf(", %s, %s, ", namv[2], namv[3]);
 103
 104         if (*namv[4] == '%')            /* enforce little fascist percent signs */
 105         {
 106                 for(i=1, j=0; i<17; ++i)
 107                 {
 108                         j <<= 1;
 109
 110                         if (namv[4][i] == '1' || isupper(namv[4][i]))
 111                                 ++j;
 112                 }
 113
 114                 printf("0x%04x, ", j);
 115         }
 116         else
 117                 printf("%s, ", namv[4]);
 118
 119         if (namc == 7 && *namv[6] == '+')
 120                 printf("%d, ", kwnum+1);
 121         else
 122                 printf("0, ");
 123
 124         printf("%s},\n", namv[5]);
 125
 126         ++kwnum;
 127 }
 128
 129 void error(char * s, char * s1)
 130 {
 131         fprintf(stderr, s, s1);
 132         fprintf(stderr, "\n");
 133         exit(1);
 134 }