![[BACK]](/cvsweb/icons/back.gif){kind=icon}
Return to header.c CVS log ![[TXT]](/cvsweb/icons/text.gif){kind=icon}
![[DIR]](/cvsweb/icons/dir.gif){kind=icon}
Up to [GnuMach] / Gnu-Mach / mig|
Return to header.c CVS log | Up to [GnuMach] / Gnu-Mach / mig |
1.1 ! root 1: /* ! 2: * Mach Operating System ! 3: * Copyright (c) 1991,1990 Carnegie Mellon University ! 4: * All Rights Reserved. ! 5: * ! 6: * Permission to use, copy, modify and distribute this software and its ! 7: * documentation is hereby granted, provided that both the copyright ! 8: * notice and this permission notice appear in all copies of the ! 9: * software, derivative works or modified versions, and any portions ! 10: * thereof, and that both notices appear in supporting documentation. ! 11: * ! 12: * CARNEGIE MELLON ALLOWS FREE USE OF THIS SOFTWARE IN ITS ! 13: * CONDITION. CARNEGIE MELLON DISCLAIMS ANY LIABILITY OF ANY KIND FOR ! 14: * ANY DAMAGES WHATSOEVER RESULTING FROM THE USE OF THIS SOFTWARE. ! 15: * ! 16: * Carnegie Mellon requests users of this software to return to ! 17: * ! 18: * Software Distribution Coordinator or [email protected] ! 19: * School of Computer Science ! 20: * Carnegie Mellon University ! 21: * Pittsburgh PA 15213-3890 ! 22: * ! 23: * any improvements or extensions that they make and grant Carnegie the ! 24: * rights to redistribute these changes. ! 25: */ ! 26: ! 27: #include "write.h" ! 28: #include "utils.h" ! 29: #include "global.h" ! 30: #include "error.h" ! 31: ! 32: static void ! 33: WriteIncludes(FILE *file) ! 34: { ! 35: fprintf(file, "#include <mach/kern_return.h>\n"); ! 36: fprintf(file, "#include <mach/port.h>\n"); ! 37: fprintf(file, "#include <mach/message.h>\n"); ! 38: fprintf(file, "\n"); ! 39: } ! 40: ! 41: static void ! 42: WriteDefines(FILE *file) ! 43: { ! 44: } ! 45: ! 46: static void ! 47: WriteMigExternal(FILE *file) ! 48: { ! 49: fprintf(file, "#ifdef\tmig_external\n"); ! 50: fprintf(file, "mig_external\n"); ! 51: fprintf(file, "#else\n"); ! 52: fprintf(file, "extern\n"); ! 53: fprintf(file, "#endif\n"); ! 54: } ! 55: ! 56: static void ! 57: WriteProlog(FILE *file, const char *protect) ! 58: { ! 59: if (protect != strNULL) { ! 60: fprintf(file, "#ifndef\t_%s\n", protect); ! 61: fprintf(file, "#define\t_%s\n", protect); ! 62: fprintf(file, "\n"); ! 63: } ! 64: ! 65: fprintf(file, "/* Module %s */\n", SubsystemName); ! 66: fprintf(file, "\n"); ! 67: ! 68: WriteIncludes(file); ! 69: WriteDefines(file); ! 70: } ! 71: ! 72: static void ! 73: WriteEpilog(FILE *file, const char *protect) ! 74: { ! 75: if (protect != strNULL) { ! 76: fprintf(file, "\n"); ! 77: fprintf(file, "#endif\t/* not defined(_%s) */\n", protect); ! 78: } ! 79: } ! 80: ! 81: static void ! 82: WriteUserRoutine(FILE *file, const routine_t *rt) ! 83: { ! 84: fprintf(file, "\n"); ! 85: fprintf(file, "/* %s %s */\n", rtRoutineKindToStr(rt->rtKind), rt->rtName); ! 86: WriteMigExternal(file); ! 87: fprintf(file, "%s %s\n", ReturnTypeStr(rt), rt->rtUserName); ! 88: fprintf(file, "#if\t%s\n", LintLib); ! 89: fprintf(file, " ("); ! 90: WriteList(file, rt->rtArgs, WriteNameDecl, akbUserArg, ", " , ""); ! 91: fprintf(file, ")\n"); ! 92: WriteList(file, rt->rtArgs, WriteUserVarDecl, akbUserArg, ";\n", ";\n"); ! 93: fprintf(file, "{ "); ! 94: if (!rt->rtProcedure) ! 95: fprintf(file, "return "); ! 96: fprintf(file, "%s(", rt->rtUserName); ! 97: WriteList(file, rt->rtArgs, WriteNameDecl, akbUserArg, ", ", ""); ! 98: fprintf(file, "); }\n"); ! 99: fprintf(file, "#else\n"); ! 100: fprintf(file, "(\n"); ! 101: WriteList(file, rt->rtArgs, WriteUserVarDecl, akbUserArg, ",\n", "\n"); ! 102: fprintf(file, ");\n"); ! 103: fprintf(file, "#endif\n"); ! 104: } ! 105: ! 106: void ! 107: WriteUserHeader(FILE *file, const statement_t *stats) ! 108: { ! 109: register const statement_t *stat; ! 110: const char *protect = strconcat(SubsystemName, "_user_"); ! 111: ! 112: WriteProlog(file, protect); ! 113: for (stat = stats; stat != stNULL; stat = stat->stNext) ! 114: switch (stat->stKind) ! 115: { ! 116: case skRoutine: ! 117: WriteUserRoutine(file, stat->stRoutine); ! 118: break; ! 119: case skImport: ! 120: case skUImport: ! 121: WriteImport(file, stat->stFileName); ! 122: break; ! 123: case skSImport: ! 124: break; ! 125: default: ! 126: fatal("WriteHeader(): bad statement_kind_t (%d)", ! 127: (int) stat->stKind); ! 128: } ! 129: WriteEpilog(file, protect); ! 130: } ! 131: ! 132: static void ! 133: WriteServerRoutine(FILE *file, const routine_t *rt) ! 134: { ! 135: fprintf(file, "\n"); ! 136: fprintf(file, "/* %s %s */\n", rtRoutineKindToStr(rt->rtKind), rt->rtName); ! 137: WriteMigExternal(file); ! 138: fprintf(file, "%s %s\n", ReturnTypeStr(rt), rt->rtServerName); ! 139: fprintf(file, "#if\t%s\n", LintLib); ! 140: fprintf(file, " ("); ! 141: WriteList(file, rt->rtArgs, WriteNameDecl, akbServerArg, ", " , ""); ! 142: fprintf(file, ")\n"); ! 143: WriteList(file, rt->rtArgs, WriteServerVarDecl, ! 144: akbServerArg, ";\n", ";\n"); ! 145: fprintf(file, "{ "); ! 146: if (!rt->rtProcedure) ! 147: fprintf(file, "return "); ! 148: fprintf(file, "%s(", rt->rtServerName); ! 149: WriteList(file, rt->rtArgs, WriteNameDecl, akbServerArg, ", ", ""); ! 150: fprintf(file, "); }\n"); ! 151: fprintf(file, "#else\n"); ! 152: fprintf(file, "(\n"); ! 153: WriteList(file, rt->rtArgs, WriteServerVarDecl, ! 154: akbServerArg, ",\n", "\n"); ! 155: fprintf(file, ");\n"); ! 156: fprintf(file, "#endif\n"); ! 157: } ! 158: ! 159: void ! 160: WriteServerHeader(FILE *file, const statement_t *stats) ! 161: { ! 162: register const statement_t *stat; ! 163: const char *protect = strconcat(SubsystemName, "_server_"); ! 164: ! 165: WriteProlog(file, protect); ! 166: for (stat = stats; stat != stNULL; stat = stat->stNext) ! 167: switch (stat->stKind) ! 168: { ! 169: case skRoutine: ! 170: WriteServerRoutine(file, stat->stRoutine); ! 171: break; ! 172: case skImport: ! 173: case skSImport: ! 174: WriteImport(file, stat->stFileName); ! 175: break; ! 176: case skUImport: ! 177: break; ! 178: default: ! 179: fatal("WriteServerHeader(): bad statement_kind_t (%d)", ! 180: (int) stat->stKind); ! 181: } ! 182: WriteEpilog(file, protect); ! 183: } ! 184: ! 185: static void ! 186: WriteInternalRedefine(FILE *file, register const routine_t *rt) ! 187: { ! 188: fprintf(file, "#define %s %s_external\n", rt->rtUserName, rt->rtUserName); ! 189: } ! 190: ! 191: void ! 192: WriteInternalHeader(FILE *file, const statement_t *stats) ! 193: { ! 194: register const statement_t *stat; ! 195: ! 196: for (stat = stats; stat != stNULL; stat = stat->stNext) ! 197: switch (stat->stKind) ! 198: { ! 199: case skRoutine: ! 200: WriteInternalRedefine(file, stat->stRoutine); ! 201: break; ! 202: case skImport: ! 203: case skUImport: ! 204: case skSImport: ! 205: break; ! 206: default: ! 207: fatal("WriteInternalHeader(): bad statement_kind_t (%d)", ! 208: (int) stat->stKind); ! 209: } ! 210: }
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.