123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354 |
- /* $Id$ */
- #include "langdep.h"
- struct langlist {
- struct langlist *l_next;
- struct langdep *l_lang;
- char *l_suff;
- };
- /* STATICALLOCDEF "langlist" 5 */
- static struct langlist *list;
- struct langdep *currlang;
- static void
- add_language(suff, lang)
- char *suff;
- struct langdep *lang;
- {
- struct langlist *p = new_langlist();
- p->l_next = list;
- p->l_suff = suff;
- p->l_lang = lang;
- list = p;
- }
- init_languages()
- {
- add_language(".p", pascal_dep);
- add_language(".mod", m2_dep);
- add_language(".c", c_dep);
- }
- find_language(suff)
- char *suff;
- {
- register struct langlist *p = list;
- if (! suff) {
- currlang = c_dep;
- return;
- }
- while (p) {
- currlang = p->l_lang;
- if (! strcmp(p->l_suff, suff)) break;
- p = p->l_next;
- }
- if (! currlang) {
- currlang = c_dep;
- }
- }
|