options.c 4.9 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188189190191192193194195196197198199200201202203204205206207208209210211212213214215216217218219220221222223224225226227228229230231232233234235236237238239240241242243244245246247248249250251252253254255256257258259260
  1. /*
  2. * (c) copyright 1987 by the Vrije Universiteit, Amsterdam, The Netherlands.
  3. * See the copyright notice in the ACK home directory, in the file "Copyright".
  4. *
  5. * Author: Ceriel J.H. Jacobs
  6. */
  7. /* U S E R O P T I O N - H A N D L I N G */
  8. /* $Id$ */
  9. #include "idfsize.h"
  10. #include <em_arith.h>
  11. #include <em_label.h>
  12. #include <alloc.h>
  13. #include "strict3rd.h"
  14. #include "dbsymtab.h"
  15. #include "type.h"
  16. #include "main.h"
  17. #include "warning.h"
  18. #include "nostrict.h"
  19. #include "nocross.h"
  20. #include "class.h"
  21. #include "squeeze.h"
  22. #define MINIDFSIZE 14
  23. #if MINIDFSIZE < 14
  24. You fouled up! MINIDFSIZE has to be at least 14 or the compiler will not
  25. recognize some keywords!
  26. #endif
  27. extern int idfsize;
  28. static int ndirs = 1;
  29. int warning_classes = W_INITIAL;
  30. int gdb_flag;
  31. DoOption(text)
  32. register char *text;
  33. {
  34. switch(*text++) {
  35. case '-':
  36. options[*text]++; /* debug options etc. */
  37. break;
  38. case 'U': /* allow underscores in identifiers */
  39. inidf['_'] = 1;
  40. break;
  41. case 'L': /* no fil/lin */
  42. case 'R': /* no range checks */
  43. case 'A': /* extra array bound checks, for machines that do not
  44. implement it in AAR/LAR/SAR
  45. */
  46. case 'n': /* no register messages */
  47. case 'x': /* every name global */
  48. case 's': /* symmetric: MIN(INTEGER) = -MAX(INTEGER) */
  49. case '3': /* strict 3rd edition Modula-2 */
  50. case 'l': /* local additions enabled */
  51. options[text[-1]]++;
  52. break;
  53. #ifdef DBSYMTAB
  54. case 'g': /* generate symbol table for debugger */
  55. options['g']++;
  56. if (*text == 'd') {
  57. /* Assume -gdb. */
  58. gdb_flag = 1;
  59. }
  60. options['n']++; /* no register vars ??? */
  61. break;
  62. #endif /* DBSYMTAB */
  63. case 'w':
  64. if (*text) {
  65. while (*text) {
  66. switch(*text++) {
  67. #ifndef STRICT_3RD_ED
  68. case 'O':
  69. warning_classes &= ~W_OLDFASHIONED;
  70. break;
  71. #endif
  72. #ifndef NOSTRICT
  73. case 'R':
  74. warning_classes &= ~W_STRICT;
  75. break;
  76. #endif
  77. case 'W':
  78. warning_classes &= ~W_ORDINARY;
  79. break;
  80. }
  81. }
  82. }
  83. else warning_classes = W_ALWAYS;
  84. break;
  85. case 'W':
  86. if (*text) {
  87. while (*text) {
  88. switch(*text++) {
  89. #ifndef STRICT_3RD_ED
  90. case 'O':
  91. warning_classes |= W_OLDFASHIONED;
  92. break;
  93. #endif
  94. #ifndef NOSTRICT
  95. case 'R':
  96. warning_classes |= W_STRICT;
  97. break;
  98. #endif
  99. case 'W':
  100. warning_classes |= W_ORDINARY;
  101. break;
  102. }
  103. }
  104. }
  105. else warning_classes = W_ALL;
  106. break;
  107. case 'M': { /* maximum identifier length */
  108. #ifndef SQUEEZE
  109. char *t = text; /* because &text is illegal */
  110. idfsize = txt2int(&t);
  111. if (*t || idfsize <= 0)
  112. fatal("malformed -M option");
  113. if (idfsize > IDFSIZE) {
  114. idfsize = IDFSIZE;
  115. warning(W_ORDINARY,"maximum identifier length is %d", IDFSIZE);
  116. }
  117. if (idfsize < MINIDFSIZE) {
  118. warning(W_ORDINARY, "minimum identifier length is %d", MINIDFSIZE);
  119. idfsize = MINIDFSIZE;
  120. }
  121. #endif
  122. }
  123. break;
  124. case 'I' :
  125. if (*text) {
  126. register int i;
  127. register char *new = text;
  128. if (nDEF > mDEF) {
  129. DEFPATH = (char **)
  130. Realloc((char *)DEFPATH,(unsigned)(mDEF+=10)*sizeof(char *));
  131. }
  132. for (i = ndirs++; i < nDEF; i++) {
  133. char *tmp = DEFPATH[i];
  134. DEFPATH[i] = new;
  135. new = tmp;
  136. }
  137. ++nDEF;
  138. }
  139. else DEFPATH[ndirs] = 0;
  140. break;
  141. case 'V' : /* set object sizes and alignment requirements */
  142. #ifndef NOCROSS
  143. {
  144. register int size;
  145. register int algn;
  146. char c;
  147. char *t;
  148. while (c = *text++) {
  149. char *strchr();
  150. t = text;
  151. size = txt2int(&t);
  152. algn = 0;
  153. if (*(text = t) == '.') {
  154. t = text + 1;
  155. algn = txt2int(&t);
  156. text = t;
  157. }
  158. if (! strchr("wislfdpS", c)) {
  159. error("-V: bad type indicator %c\n", c);
  160. }
  161. if (size != 0) switch (c) {
  162. case 'w': /* word */
  163. word_size = size;
  164. dword_size = 2 * size;
  165. break;
  166. case 'i': /* int */
  167. int_size = size;
  168. break;
  169. case 's': /* short (subranges) */
  170. short_size = size;
  171. break;
  172. case 'l': /* longint */
  173. long_size = size;
  174. break;
  175. case 'f': /* real */
  176. float_size = size;
  177. break;
  178. case 'd': /* longreal */
  179. double_size = size;
  180. break;
  181. case 'p': /* pointer */
  182. pointer_size = size;
  183. break;
  184. }
  185. if (algn != 0) switch (c) {
  186. case 'w': /* word */
  187. word_align = algn;
  188. break;
  189. case 'i': /* int */
  190. int_align = algn;
  191. break;
  192. case 's': /* short (subranges) */
  193. short_align = algn;
  194. break;
  195. case 'l': /* longint */
  196. long_align = algn;
  197. break;
  198. case 'f': /* real */
  199. float_align = algn;
  200. break;
  201. case 'd': /* longreal */
  202. double_align = algn;
  203. break;
  204. case 'p': /* pointer */
  205. pointer_align = algn;
  206. break;
  207. case 'S': /* initial record alignment */
  208. struct_align = algn;
  209. break;
  210. }
  211. }
  212. }
  213. #endif /* NOCROSS */
  214. break;
  215. }
  216. }
  217. #if (!SQUEEZE) | (!NOCROSS)
  218. int
  219. txt2int(tp)
  220. register char **tp;
  221. {
  222. /* the integer pointed to by *tp is read, while increasing
  223. *tp; the resulting value is yielded.
  224. */
  225. register int val = 0;
  226. register int ch;
  227. while (ch = **tp, ch >= '0' && ch <= '9') {
  228. val = val * 10 + ch - '0';
  229. (*tp)++;
  230. }
  231. return val;
  232. }
  233. #endif