main.c 9.0 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188189190191192193194195196197198199200201202203204205206207208209210211212213214215216217218219220221222223224225226227228229230231232233234235236237238239240241242243244245246247248249250251252253254255256257258259260261262263264265266267268269270271272273274275276277278279280281282283284285286287288289290291292293294295296297298299300301302303304305306307308309310311312313314315316317318319320321322323324325326327328329330331332333334335336337338339340341342343344345346347348349350351352353354355356357358359360361362363364365366367368369370371372373374375376377378379380381382383384385386387388389390391392393394395396397398399400401402403404405406407408409410411412413414415416417418419420421422423424425426427428429430431432433434435436437438439440441442443444445446447448449450451452453454455456457458459460461462
  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. /* M A I N P R O G R A M */
  8. /* stripped down version from the one in the Modula-2 compiler */
  9. /* $Header$ */
  10. #include <alloc.h>
  11. #include "input.h"
  12. #include "f_info.h"
  13. #include "idf.h"
  14. #include "LLlex.h"
  15. #include "Lpars.h"
  16. #include "tokenname.h"
  17. int state; /* either IMPLEMENTATION or PROGRAM */
  18. char *ProgName;
  19. char **DEFPATH;
  20. int nDEF, mDEF;
  21. struct file_list *CurrentArg;
  22. extern int err_occurred;
  23. extern int Roption;
  24. extern char *strrindex();
  25. extern char *strcpy(), *strcat();
  26. char *
  27. basename(s)
  28. char *s;
  29. {
  30. static char buf[256];
  31. char *p = strrindex(s, '.');
  32. if (p != 0) *p = 0;
  33. strcpy(buf, s);
  34. if (p != 0) *p = '.';
  35. return buf;
  36. }
  37. char *
  38. getwdir(fn)
  39. register char *fn;
  40. {
  41. register char *p;
  42. p = strrindex(fn, '/');
  43. while (p && *(p + 1) == '\0') { /* remove trailing /'s */
  44. *p = '\0';
  45. p = strrindex(fn, '/');
  46. }
  47. if (p) {
  48. register char **d = DEFPATH;
  49. *p = '\0';
  50. while (*d && strcmp(*d, fn) != 0) d++;
  51. if (*d) {
  52. *p = '/';
  53. return *d;
  54. }
  55. fn = Salloc(fn, (unsigned) (p - &fn[0] + 1));
  56. *p = '/';
  57. return fn;
  58. }
  59. return ".";
  60. }
  61. static struct file_list *arglist;
  62. char *mflags = "";
  63. char *compiler = M2COMPILER;
  64. char *suff = "o";
  65. char *llibs = 0;
  66. main(argc, argv)
  67. register char **argv;
  68. {
  69. extern struct tokenname tkidf[];
  70. extern char *getwdir();
  71. int i;
  72. ProgName = *argv++;
  73. DEFPATH = (char **) Malloc(10 * sizeof(char *));
  74. mDEF = 10;
  75. nDEF = 1;
  76. while (--argc > 0) {
  77. if (**argv == '-')
  78. DoOption((*argv++) + 1);
  79. else {
  80. Add(&arglist, *argv, getwdir(*argv), 1);
  81. argv++;
  82. }
  83. }
  84. init_idf();
  85. reserve(tkidf);
  86. print("IFLAGS =");
  87. for (i = 1; i < nDEF; i++) {
  88. print(" -I%s", DEFPATH[i]);
  89. }
  90. print("\nM2FLAGS = %s\nMOD = %s\nSUFFIX = %s\nLIBS = %s\n", mflags, compiler, suff, llibs ? llibs : "");
  91. init_lib();
  92. ProcessArgs();
  93. find_dependencies();
  94. print_dep();
  95. programs();
  96. exit(err_occurred);
  97. }
  98. struct file_list *
  99. new_file_list()
  100. {
  101. static struct file_list *p;
  102. static int cnt;
  103. extern char *calloc();
  104. if (cnt--) return p++;
  105. p = (struct file_list *)calloc(50, sizeof(struct file_list));
  106. cnt = 49;
  107. return p++;
  108. }
  109. Add(parglist, f, d, copy)
  110. char *f, *d;
  111. struct file_list **parglist;
  112. {
  113. register struct file_list *a, *b = 0;
  114. if (f == 0) return;
  115. f_walk(*parglist, a) {
  116. if (strcmp(f_filename(a), f) == 0) break;
  117. b = a;
  118. }
  119. if (a) return 0;
  120. a = new_file_list();
  121. if (copy) {
  122. a->a_filename = Salloc(f, (unsigned) (strlen(f)+1));
  123. }
  124. else {
  125. a->a_filename = f;
  126. }
  127. a->a_dir = d;
  128. if (! b) *parglist = a;
  129. else b->a_next = a;
  130. return 1;
  131. }
  132. int
  133. openfile(a)
  134. register struct file_list *a;
  135. {
  136. char *fn;
  137. if (!f_notfound(a) && ! InsertFile(f_filename(a), DEFPATH, &fn)) {
  138. a->a_notfound = 1;
  139. Gerror("Could not find %s", f_filename(a));
  140. return 0;
  141. }
  142. FileName = fn;
  143. LineNumber = 1;
  144. a->a_dir = WorkingDir = getwdir(FileName);
  145. return 1;
  146. }
  147. ProcessArgs()
  148. {
  149. register struct file_list *a;
  150. f_walk(arglist, a) {
  151. register char *p = strrindex(f_filename(a), '.');
  152. CurrentArg = a;
  153. DEFPATH[0] = f_dir(a);
  154. if ( p && strcmp(p, ".def") == 0) {
  155. ForeignFlag = 0;
  156. if (! openfile(a)) {
  157. continue;
  158. }
  159. DefModule();
  160. }
  161. else if (p && strcmp(p, ".mod") == 0) {
  162. if (! openfile(a)) {
  163. *p = 0; /* ??? */
  164. continue;
  165. }
  166. CompUnit();
  167. }
  168. else fatal("No Modula-2 file: %s", f_filename(a));
  169. }
  170. }
  171. No_Mem()
  172. {
  173. fatal("out of memory");
  174. }
  175. AddToList(name, ext)
  176. char *name, *ext;
  177. {
  178. /* Try to find a file with basename "name" and extension ".def",
  179. in the directories mentioned in "DEFPATH".
  180. */
  181. char buf[15];
  182. char *strncpy();
  183. if (strcmp(name, "SYSTEM") != 0 && ! is_library_dir(WorkingDir)) {
  184. strncpy(buf, name, 10);
  185. buf[10] = '\0'; /* maximum length */
  186. strcat(buf, ext);
  187. Add(&arglist, buf, WorkingDir, 1);
  188. return 1;
  189. }
  190. return 0;
  191. }
  192. find_dependencies()
  193. {
  194. register struct file_list *arg;
  195. print("\nall:\t");
  196. f_walk(arglist, arg) {
  197. char *fn = f_filename(arg);
  198. char *dotspot = strrindex(fn, '.');
  199. if (dotspot && strcmp(dotspot, ".mod") == 0) {
  200. register struct idf *id = f_idf(arg);
  201. if (! f_notfound(arg) && id) {
  202. if (id->id_type == PROGRAM) {
  203. *dotspot = 0;
  204. print("%s ", fn);
  205. *dotspot = '.';
  206. }
  207. file_dep(id);
  208. }
  209. }
  210. }
  211. print("\n\n");
  212. print("objects:\t");
  213. f_walk(arglist, arg) {
  214. char *fn = f_filename(arg);
  215. char *dotspot = strrindex(fn, '.');
  216. if (dotspot && strcmp(dotspot, ".mod") == 0) {
  217. register struct idf *id = f_idf(arg);
  218. if (! f_notfound(arg) && id) {
  219. if (id->id_type == PROGRAM) {
  220. *dotspot = 0;
  221. print("%s_o_files ", fn);
  222. *dotspot = '.';
  223. }
  224. }
  225. }
  226. }
  227. print("\n\n\n");
  228. }
  229. file_dep(id)
  230. register struct idf *id;
  231. {
  232. register struct lnk *m;
  233. if (id->id_ddependson || id->id_mdependson) return;
  234. if (id->id_def) Add(&(id->id_mdependson), id->id_def, id->id_dir, 0);
  235. for (m = id->id_defimports; m; m = m->lnk_next) {
  236. register struct idf *iid = m->lnk_imp;
  237. Add(&(id->id_mdependson), iid->id_def, iid->id_dir, 0);
  238. if (Add(&(id->id_ddependson), iid->id_def, iid->id_dir, 0)) {
  239. register struct file_list *p;
  240. file_dep(iid);
  241. f_walk(iid->id_ddependson, p) {
  242. Add(&(id->id_ddependson), f_filename(p),
  243. f_dir(p), 0);
  244. Add(&(id->id_mdependson), f_filename(p),
  245. f_dir(p), 0);
  246. }
  247. }
  248. }
  249. for (m = id->id_modimports; m; m = m->lnk_next) {
  250. register struct idf *iid = m->lnk_imp;
  251. if (Add(&(id->id_mdependson), iid->id_def, iid->id_dir, 0)) {
  252. register struct file_list *p;
  253. file_dep(iid);
  254. f_walk(iid->id_ddependson, p) {
  255. Add(&(id->id_mdependson), f_filename(p),
  256. f_dir(p), 0);
  257. }
  258. }
  259. }
  260. }
  261. char *
  262. object(arg)
  263. register struct file_list *arg;
  264. {
  265. static char buf[512];
  266. char *dotp = strrindex(f_filename(arg), '.');
  267. buf[0] = 0;
  268. /*
  269. if (strcmp(f_dir(arg), ".") != 0) {
  270. strcpy(buf, f_dir(arg));
  271. strcat(buf, "/");
  272. }
  273. */
  274. if (dotp) *dotp = 0;
  275. strcat(buf, f_filename(arg));
  276. if (dotp) *dotp = '.';
  277. strcat(buf, ".$(SUFFIX)");
  278. return buf;
  279. }
  280. pr_arg(a)
  281. register struct file_list *a;
  282. {
  283. char *f = f_filename(a);
  284. char *d = f_dir(a);
  285. if (strcmp(d, ".") == 0 || *f == '/' || *f == '.') {
  286. print(f);
  287. }
  288. else print("%s/%s", d, f);
  289. }
  290. print_dep()
  291. {
  292. register struct file_list *arg;
  293. f_walk(arglist, arg) {
  294. char *dotspot = strrindex(f_filename(arg), '.');
  295. if (dotspot && strcmp(dotspot, ".mod") == 0) {
  296. register struct idf *id = f_idf(arg);
  297. if (! f_notfound(arg) && id) {
  298. char *obj = object(arg);
  299. register struct file_list *a;
  300. print("%s: \\\n\t", obj);
  301. pr_arg(arg);
  302. f_walk(id->id_mdependson, a) {
  303. if (*(f_filename(a))) /* ??? */ {
  304. print(" \\\n\t");
  305. pr_arg(a);
  306. }
  307. }
  308. print("\n\t$(MOD) -c $(M2FLAGS) $(IFLAGS) ");
  309. pr_arg(arg);
  310. print("\n");
  311. }
  312. }
  313. }
  314. }
  315. prog_dep(id, a)
  316. register struct idf *id;
  317. struct file_list *a;
  318. {
  319. register struct lnk *m;
  320. register struct file_list *p;
  321. id->id_mdependson = 0;
  322. id->id_def = 0;
  323. if (id->id_type == PROGRAM) {
  324. Add(&(id->id_mdependson), f_filename(a), f_dir(a), 0);
  325. }
  326. else {
  327. if (strlen(id->id_text) >= 10) id->id_text[10] = 0;
  328. Add(&(id->id_mdependson), id->id_text, id->id_dir, 0);
  329. }
  330. for (m = id->id_modimports; m; m = m->lnk_next) {
  331. register struct idf *iid = m->lnk_imp;
  332. if (Add(&(id->id_mdependson), iid->id_text, iid->id_dir, 0)) {
  333. if (iid->id_def) prog_dep(iid);
  334. f_walk(iid->id_mdependson, p) {
  335. Add(&(id->id_mdependson), f_filename(p),
  336. f_dir(p), 0);
  337. }
  338. }
  339. }
  340. }
  341. module_in_arglist(n)
  342. char *n;
  343. {
  344. register struct file_list *a;
  345. f_walk(arglist, a) {
  346. char *dotp = strrindex(f_filename(a), '.');
  347. if (dotp && strcmp(dotp, ".mod") == 0 && ! f_notfound(a)) {
  348. *dotp = 0;
  349. if (strcmp(f_filename(a), n) == 0) {
  350. *dotp = '.';
  351. return 1;
  352. }
  353. *dotp = '.';
  354. }
  355. }
  356. return 0;
  357. }
  358. pr_prog_dep(id, a)
  359. register struct idf *id;
  360. struct file_list *a;
  361. {
  362. register struct file_list *p;
  363. print("\nOBS_%s =", id->id_text);
  364. f_walk(id->id_mdependson, p) {
  365. if (module_in_arglist(f_filename(p)) || ! f_dir(p)) {
  366. print(" \\\n\t%s", object(p));
  367. }
  368. }
  369. print("\n\nOBS2_%s =", id->id_text);
  370. f_walk(id->id_mdependson, p) {
  371. if (module_in_arglist(f_filename(p)) || ! f_dir(p)) {
  372. /* nothing */
  373. }
  374. else if (! is_library_dir(f_dir(p))) {
  375. print(" \\\n\t%s/%s", f_dir(p), object(p));
  376. }
  377. }
  378. print("\n\n");
  379. print("%s_o_files:\t$(OBS_%s)\n\n", basename(f_filename(a)), id->id_text);
  380. print("%s:\t$(OBS_%s) $(OBS2_%s)\n", basename(f_filename(a)), id->id_text, id->id_text);
  381. print("\t$(MOD) -o %s $(M2FLAGS) $(OBS_%s) $(OBS2_%s) $(LIBS)\n", basename(f_filename(a)), id->id_text, id->id_text);
  382. }
  383. programs()
  384. {
  385. register struct file_list *a;
  386. f_walk(arglist, a) {
  387. char *dotspot = strrindex(f_filename(a), '.');
  388. if (dotspot && strcmp(dotspot, ".mod") == 0) {
  389. register struct idf *id = f_idf(a);
  390. if (! f_notfound(a) && id && id->id_type == PROGRAM) {
  391. prog_dep(id, a);
  392. /* *dotspot = 0; */
  393. pr_prog_dep(id, a);
  394. /* *dotspot = '.'; */
  395. }
  396. }
  397. }
  398. }