gentpl.py

   1 #! /usr/bin/python
   2
   3 #
   4 # This is the python script used to generate Makefile.tpl
   5 #
   6
   7 GRUB_PLATFORMS = [ "emu", "i386_pc", "i386_efi", "i386_qemu", "i386_coreboot",
   8                    "i386_multiboot", "i386_ieee1275", "x86_64_efi",
   9                    "mips_loongson", "sparc64_ieee1275",
  10                    "powerpc_ieee1275", "mips_arc", "ia64_efi",
  11                    "mips_qemu_mips" ]
  12
  13 GROUPS = {}
  14
  15 GROUPS["common"]   = GRUB_PLATFORMS[:]
  16
  17 # Groups based on CPU
  18 GROUPS["i386"]     = [ "i386_pc", "i386_efi", "i386_qemu", "i386_coreboot", "i386_multiboot", "i386_ieee1275" ]
  19 GROUPS["x86_64"]   = [ "x86_64_efi" ]
  20 GROUPS["x86"]      = GROUPS["i386"] + GROUPS["x86_64"]
  21 GROUPS["mips"]     = [ "mips_loongson", "mips_qemu_mips", "mips_arc" ]
  22 GROUPS["sparc64"]  = [ "sparc64_ieee1275" ]
  23 GROUPS["powerpc"]  = [ "powerpc_ieee1275" ]
  24
  25 # Groups based on firmware
  26 GROUPS["efi"]  = [ "i386_efi", "x86_64_efi", "ia64_efi" ]
  27 GROUPS["ieee1275"]   = [ "i386_ieee1275", "sparc64_ieee1275", "powerpc_ieee1275" ]
  28
  29 # emu is a special case so many core functionality isn't needed on this platform
  30 GROUPS["noemu"]   = GRUB_PLATFORMS[:]; GROUPS["noemu"].remove("emu")
  31
  32 # Groups based on hardware features
  33 GROUPS["cmos"] = GROUPS["x86"][:] + ["mips_loongson", "mips_qemu_mips",
  34                                      "sparc64_ieee1275", "powerpc_ieee1275"]
  35 GROUPS["cmos"].remove("i386_efi"); GROUPS["cmos"].remove("x86_64_efi")
  36 GROUPS["pci"]      = GROUPS["x86"] + ["mips_loongson"]
  37 GROUPS["usb"]      = GROUPS["pci"]
  38
  39 # If gfxterm is main output console integrate it into kernel
  40 GROUPS["videoinkernel"] = ["mips_loongson"]
  41 GROUPS["videomodules"]   = GRUB_PLATFORMS[:];
  42 for i in GROUPS["videoinkernel"]: GROUPS["videomodules"].remove(i)
  43
  44 # Similar for terminfo
  45 GROUPS["terminfoinkernel"] = ["mips_loongson", "mips_arc", "mips_qemu_mips" ] + GROUPS["ieee1275"];
  46 GROUPS["terminfomodule"]   = GRUB_PLATFORMS[:];
  47 for i in GROUPS["terminfoinkernel"]: GROUPS["terminfomodule"].remove(i)
  48
  49 # Miscelaneous groups schedulded to disappear in future
  50 GROUPS["nosparc64"] = GRUB_PLATFORMS[:]; GROUPS["nosparc64"].remove("sparc64_ieee1275")
  51 GROUPS["i386_coreboot_multiboot_qemu"] = ["i386_coreboot", "i386_multiboot", "i386_qemu"]
  52 GROUPS["nopc"] = GRUB_PLATFORMS[:]; GROUPS["nopc"].remove("i386_pc")
  53
  54 #
  55 # Create platform => groups reverse map, where groups covering that
  56 # platform are ordered by their sizes
  57 #
  58 RMAP = {}
  59 for platform in GRUB_PLATFORMS:
  60     # initialize with platform itself as a group
  61     RMAP[platform] = [ platform ]
  62
  63     for k in GROUPS.keys():
  64         v = GROUPS[k]
  65         # skip groups that don't cover this platform
  66         if platform not in v: continue
  67
  68         bigger = []
  69         smaller = []
  70         # partition currently known groups based on their size
  71         for group in RMAP[platform]:
  72             if group in GRUB_PLATFORMS: smaller.append(group)
  73             elif len(GROUPS[group]) < len(v): smaller.append(group)
  74             else: bigger.append(group)
  75         # insert in the middle
  76         RMAP[platform] = smaller + [ k ] + bigger
  77
  78 #
  79 # Global variables
  80 #
  81 GVARS = set()
  82
  83 def gvar_add(var, value):
  84     GVARS.add(var)
  85     return var + " += " + value + "\n"
  86
  87 def global_variable_initializers():
  88     r = ""
  89     for var in sorted(GVARS):
  90         r += var + " ?= \n"
  91     return r
  92
  93 #
  94 # Per PROGRAM/SCRIPT variables
  95 #
  96
  97 def vars_init(*var_list):
  98     r = "[+ IF (if (not (assoc-ref seen-vars (get \".name\"))) \"seen\") +]"
  99     r += "[+ (out-suspend \"v\") +]"
 100     for var in var_list:
 101         r += var + "  = \n"
 102     r += "[+ (out-resume \"v\") +]"
 103     r += "[+ (set! seen-vars (assoc-set! seen-vars (get \".name\") 0)) +]"
 104     r += "[+ ENDIF +]"
 105     return first_time(r)
 106
 107 def var_set(var, value):
 108     return var + "  = " + value + "\n"
 109
 110 def var_add(var, value):
 111     return var + " += " + value + "\n"
 112
 113 #
 114 # Autogen constructs
 115 #
 116
 117 def set_canonical_name_suffix(suffix): return "[+ % name `export cname=$(echo %s" + suffix + " | sed -e 's/[^0-9A-Za-z@_]/_/g')` +]"
 118 def cname(): return "[+ % name `echo $cname` +]"
 119
 120 def rule(target, source, cmd):
 121     if cmd[0] == "\n":
 122         return "\n" + target + ": " + source + cmd.replace("\n", "\n\t") + "\n"
 123     else:
 124         return "\n" + target + ": " + source + "\n\t" + cmd.replace("\n", "\n\t") + "\n"
 125
 126 #
 127 # Template for keys with platform names as values, for example:
 128 #
 129 # kernel = {
 130 #   nostrip = emu;
 131 #   ...
 132 # }
 133 #
 134 def if_platform_tagged(platform, tag, snippet_if, snippet_else=None):
 135     r = ""
 136     r += "[+ IF " + tag + " defined +]"
 137     r += "[+ FOR " + tag + " +][+ CASE " + tag + " +]"
 138     for group in RMAP[platform]:
 139         r += "[+ = \"" + group + "\" +]" + snippet_if
 140
 141     if snippet_else != None: r += "[+ * +]" + snippet_else
 142     r += "[+ ESAC +][+ ENDFOR +]"
 143
 144     if snippet_else == None:
 145         r += "[+ ENDIF +]"
 146         return r
 147
 148     r += "[+ ELSE +]" + snippet_else + "[+ ENDIF +]"
 149     return r
 150
 151 #
 152 # Template for tagged values
 153 #
 154 # module = {
 155 #   extra_dist = ...
 156 #   extra_dist = ...
 157 #   ...
 158 # };
 159 #
 160 def foreach_value(tag, closure):
 161     return "[+ FOR " + tag + " +]" + closure("[+ ." + tag + " +]") + "[+ ENDFOR +]"
 162
 163 #
 164 # Template for handling best matched values for a platform, for example:
 165 #
 166 # module = {
 167 #   cflags = '-Wall';
 168 #   emu_cflags = '-Wall -DGRUB_EMU=1';
 169 #   ...
 170 # }
 171 #
 172 def foreach_platform_specific_value(platform, suffix, nonetag, closure):
 173     r = ""
 174     for group in RMAP[platform]:
 175         gtag = group + suffix
 176
 177         if group == RMAP[platform][0]:
 178             r += "[+ IF " + gtag + " +]"
 179         else:
 180             r += "[+ ELIF " + gtag + " +]"
 181
 182         r += "[+ FOR " + gtag + " +]" + closure("[+ ." + gtag + " +]") + "[+ ENDFOR +]"
 183     r += "[+ ELSE +][+ FOR " + nonetag + " +]" + closure("[+ ." + nonetag + " +]") + "[+ ENDFOR +][+ ENDIF +]"
 184     return r
 185
 186 #
 187 # Template for handling values from sum of all groups for a platform,
 188 # for example:
 189 #
 190 # module = {
 191 #   common = kern/misc.c;
 192 #   emu = kern/emu/misc.c;
 193 #   ...
 194 # }
 195 #
 196 def foreach_platform_value (platform, suffix, closure):
 197     r = ""
 198     for group in RMAP[platform]:
 199         gtag = group + suffix
 200
 201         r += "[+ IF " + gtag + " +]"
 202         r += "[+ FOR " + gtag + " +]" + closure("[+ ." + gtag + " +]") + "[+ ENDFOR +]"
 203         r += "[+ ENDIF +]"
 204     return r
 205
 206 #
 207 # Template for gaurding with platform specific "enable" keys, for example:
 208 #
 209 #  module = {
 210 #    name = pci;
 211 #    noemu = bus/pci.c;
 212 #    emu = bus/emu/pci.c;
 213 #    emu = commands/lspci.c;
 214 #
 215 #    enable = emu;
 216 #    enable = i386_pc;
 217 #    enable = x86_efi;
 218 #    enable = i386_ieee1275;
 219 #    enable = i386_coreboot;
 220 #  };
 221 #
 222 def foreach_enabled_platform(closure):
 223     r = "[+ IF - enable undefined +]"
 224     for platform in GRUB_PLATFORMS:
 225         r += "\nif COND_" + platform + "\n" + closure(platform) + "endif\n"
 226     r += "[+ ELSE +]"
 227     for platform in GRUB_PLATFORMS:
 228         x = "\nif COND_" + platform + "\n" + closure(platform) + "endif\n"
 229         r += if_platform_tagged(platform, "enable", x)
 230     r += "[+ ENDIF +]"
 231     return r
 232
 233 #
 234 # Template for gaurding with platform specific automake conditionals,
 235 # for example:
 236 #
 237 #  module = {
 238 #    name = usb;
 239 #    common = bus/usb/usb.c;
 240 #    noemu = bus/usb/usbtrans.c;
 241 #    noemu = bus/usb/usbhub.c;
 242 #    enable = emu;
 243 #    enable = i386;
 244 #    enable = mips_loongson;
 245 #    emu_condition = COND_GRUB_EMU_USB;
 246 #  };
 247 #
 248 def under_platform_specific_conditionals(platform, snippet):
 249     r  = foreach_platform_specific_value(platform, "_condition", "condition", lambda cond: "if " + cond + "\n")
 250     r += snippet
 251     r += foreach_platform_specific_value(platform, "_condition", "condition", lambda cond: "endif " + cond + "\n")
 252     return r
 253
 254 def platform_specific_values(platform, suffix, nonetag):
 255     return foreach_platform_specific_value(platform, suffix, nonetag,
 256                                            lambda value: value + " ")
 257
 258 def platform_values(platform, suffix):
 259     return foreach_platform_value(platform, suffix, lambda value: value + " ")
 260
 261 def extra_dist():
 262     return foreach_value("extra_dist", lambda value: value + " ")
 263
 264 def platform_sources(p): return platform_values(p, "")
 265 def platform_nodist_sources(p): return platform_values(p, "_nodist")
 266 def platform_dependencies(p): return platform_values(p, "dependencies", "_dependencies")
 267
 268 def platform_startup(p): return platform_specific_values(p, "_startup", "startup")
 269 def platform_ldadd(p): return platform_specific_values(p, "_ldadd", "ldadd")
 270 def platform_cflags(p): return platform_specific_values(p, "_cflags", "cflags")
 271 def platform_ldflags(p): return platform_specific_values(p, "_ldflags", "ldflags")
 272 def platform_cppflags(p): return platform_specific_values(p, "_cppflags", "cppflags")
 273 def platform_ccasflags(p): return platform_specific_values(p, "_ccasflags", "ccasflags")
 274 def platform_stripflags(p): return platform_specific_values(p, "_stripflags", "stripflags")
 275 def platform_objcopyflags(p): return platform_specific_values(p, "_objcopyflags", "objcopyflags")
 276
 277 #
 278 # Emit snippet only the first time through for the current name.
 279 #
 280 def first_time(snippet):
 281     r = "[+ IF (if (not (assoc-ref seen-target (get \".name\"))) \"seen\") +]"
 282     r += snippet
 283     r += "[+ ENDIF +]"
 284     return r
 285
 286 def module(platform):
 287     r = set_canonical_name_suffix(".module")
 288
 289     r += gvar_add("noinst_PROGRAMS", "[+ name +].module")
 290     r += gvar_add("MODULE_FILES", "[+ name +].module$(EXEEXT)")
 291
 292     r += var_set(cname() + "_SOURCES", platform_sources(platform) + " ## platform sources")
 293     r += var_set("nodist_" + cname() + "_SOURCES", platform_nodist_sources(platform) + " ## platform nodist sources")
 294     r += var_set(cname() + "_LDADD", platform_ldadd(platform))
 295     r += var_set(cname() + "_CFLAGS", "$(AM_CFLAGS) $(CFLAGS_MODULE) " + platform_cflags(platform))
 296     r += var_set(cname() + "_LDFLAGS", "$(AM_LDFLAGS) $(LDFLAGS_MODULE) " + platform_ldflags(platform))
 297     r += var_set(cname() + "_CPPFLAGS", "$(AM_CPPFLAGS) $(CPPFLAGS_MODULE) " + platform_cppflags(platform))
 298     r += var_set(cname() + "_CCASFLAGS", "$(AM_CCASFLAGS) $(CCASFLAGS_MODULE) " + platform_ccasflags(platform))
 299     # r += var_set(cname() + "_DEPENDENCIES", platform_dependencies(platform) + " " + platform_ldadd(platform))
 300
 301     r += gvar_add("EXTRA_DIST", extra_dist())
 302     r += gvar_add("BUILT_SOURCES", "$(nodist_" + cname() + "_SOURCES)")
 303     r += gvar_add("CLEANFILES", "$(nodist_" + cname() + "_SOURCES)")
 304
 305     r += gvar_add("MOD_FILES", "[+ name +].mod")
 306     r += gvar_add("MARKER_FILES", "[+ name +].marker")
 307     r += gvar_add("CLEANFILES", "[+ name +].marker")
 308     r += """
 309 [+ name +].marker: $(""" + cname() + """_SOURCES) $(nodist_""" + cname() + """_SOURCES)
 310         $(TARGET_CPP) -DGRUB_LST_GENERATOR $(CPPFLAGS_MARKER) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(""" + cname() + """_CPPFLAGS) $(CPPFLAGS) $^ > $@.new || (rm -f $@; exit 1)
 311         grep 'MARKER' $@.new > $@; rm -f $@.new
 312 """
 313     return r
 314
 315 def kernel(platform):
 316     r = set_canonical_name_suffix(".exec")
 317     r += gvar_add("noinst_PROGRAMS", "[+ name +].exec")
 318     r += var_set(cname() + "_SOURCES", platform_startup(platform))
 319     r += var_add(cname() + "_SOURCES", platform_sources(platform))
 320     r += var_set("nodist_" + cname() + "_SOURCES", platform_nodist_sources(platform) + " ## platform nodist sources")
 321     r += var_set(cname() + "_LDADD", platform_ldadd(platform))
 322     r += var_set(cname() + "_CFLAGS", "$(AM_CFLAGS) $(CFLAGS_KERNEL) " + platform_cflags(platform))
 323     r += var_set(cname() + "_LDFLAGS", "$(AM_LDFLAGS) $(LDFLAGS_KERNEL) " + platform_ldflags(platform))
 324     r += var_set(cname() + "_CPPFLAGS", "$(AM_CPPFLAGS) $(CPPFLAGS_KERNEL) " + platform_cppflags(platform))
 325     r += var_set(cname() + "_CCASFLAGS", "$(AM_CCASFLAGS) $(CCASFLAGS_KERNEL) " + platform_ccasflags(platform))
 326     r += var_set(cname() + "_STRIPFLAGS", "$(AM_STRIPFLAGS) $(STRIPFLAGS_KERNEL) " + platform_stripflags(platform))
 327     # r += var_set(cname() + "_DEPENDENCIES", platform_dependencies(platform) + " " + platform_ldadd(platform))
 328
 329     r += gvar_add("EXTRA_DIST", extra_dist())
 330     r += gvar_add("BUILT_SOURCES", "$(nodist_" + cname() + "_SOURCES)")
 331     r += gvar_add("CLEANFILES", "$(nodist_" + cname() + "_SOURCES)")
 332
 333     r += gvar_add("platform_DATA", "[+ name +].img")
 334     r += gvar_add("CLEANFILES", "[+ name +].img")
 335     r += rule("[+ name +].img", "[+ name +].exec$(EXEEXT)",
 336               if_platform_tagged(platform, "nostrip", "cp $< $@",
 337                                  "$(STRIP) $(" + cname() + "_STRIPFLAGS) -o $@ $<"))
 338     return r
 339
 340 def image(platform):
 341     r = set_canonical_name_suffix(".image")
 342     r += gvar_add("noinst_PROGRAMS", "[+ name +].image")
 343     r += var_set(cname() + "_SOURCES", platform_sources(platform))
 344     r += var_set("nodist_" + cname() + "_SOURCES", platform_nodist_sources(platform) + "## platform nodist sources")
 345     r += var_set(cname() + "_LDADD", platform_ldadd(platform))
 346     r += var_set(cname() + "_CFLAGS", "$(AM_CFLAGS) $(CFLAGS_IMAGE) " + platform_cflags(platform))
 347     r += var_set(cname() + "_LDFLAGS", "$(AM_LDFLAGS) $(LDFLAGS_IMAGE) " + platform_ldflags(platform))
 348     r += var_set(cname() + "_CPPFLAGS", "$(AM_CPPFLAGS) $(CPPFLAGS_IMAGE) " + platform_cppflags(platform))
 349     r += var_set(cname() + "_CCASFLAGS", "$(AM_CCASFLAGS) $(CCASFLAGS_IMAGE) " + platform_ccasflags(platform))
 350     r += var_set(cname() + "_OBJCOPYFLAGS", "$(OBJCOPYFLAGS_IMAGE) " + platform_objcopyflags(platform))
 351     # r += var_set(cname() + "_DEPENDENCIES", platform_dependencies(platform) + " " + platform_ldadd(platform))
 352
 353     r += gvar_add("EXTRA_DIST", extra_dist())
 354     r += gvar_add("BUILT_SOURCES", "$(nodist_" + cname() + "_SOURCES)")
 355     r += gvar_add("CLEANFILES", "$(nodist_" + cname() + "_SOURCES)")
 356
 357     r += gvar_add("platform_DATA", "[+ name +].img")
 358     r += gvar_add("CLEANFILES", "[+ name +].img")
 359     r += rule("[+ name +].img", "[+ name +].image$(EXEEXT)", """
 360 if test x$(USE_APPLE_CC_FIXES) = xyes; then \
 361   $(MACHO2IMG) $< $@; \
 362 else \
 363   $(OBJCOPY) $(""" + cname() + """_OBJCOPYFLAGS) --strip-unneeded -R .note -R .comment -R .note.gnu.build-id -R .reginfo -R .rel.dyn $< $@; \
 364 fi
 365 """)
 366     return r
 367
 368 def library(platform):
 369     r = set_canonical_name_suffix("")
 370
 371     r += vars_init(cname() + "_SOURCES",
 372                    "nodist_" + cname() + "_SOURCES",
 373                    cname() + "_CFLAGS",
 374                    cname() + "_CPPFLAGS",
 375                    cname() + "_CCASFLAGS")
 376     #              cname() + "_DEPENDENCIES")
 377
 378     r += first_time(gvar_add("noinst_LIBRARIES", "[+ name +]"))
 379     r += var_add(cname() + "_SOURCES", platform_sources(platform))
 380     r += var_add("nodist_" + cname() + "_SOURCES", platform_nodist_sources(platform))
 381     r += var_add(cname() + "_CFLAGS", first_time("$(AM_CFLAGS) $(CFLAGS_LIBRARY) ") + platform_cflags(platform))
 382     r += var_add(cname() + "_CPPFLAGS", first_time("$(AM_CPPFLAGS) $(CPPFLAGS_LIBRARY) ") + platform_cppflags(platform))
 383     r += var_add(cname() + "_CCASFLAGS", first_time("$(AM_CCASFLAGS) $(CCASFLAGS_LIBRARY) ") + platform_ccasflags(platform))
 384     # r += var_add(cname() + "_DEPENDENCIES", platform_dependencies(platform) + " " + platform_ldadd(platform))
 385
 386     r += gvar_add("EXTRA_DIST", extra_dist())
 387     r += first_time(gvar_add("BUILT_SOURCES", "$(nodist_" + cname() + "_SOURCES)"))
 388     r += first_time(gvar_add("CLEANFILES", "$(nodist_" + cname() + "_SOURCES)"))
 389     return r
 390
 391 def installdir(default="bin"):
 392     return "[+ IF installdir +][+ installdir +][+ ELSE +]" + default + "[+ ENDIF +]"
 393
 394 def manpage():
 395     r  = "if COND_MAN_PAGES\n"
 396     r += gvar_add("man_MANS", "[+ name +].[+ mansection +]\n")
 397     r += rule("[+ name +].[+ mansection +]", "[+ name +]", """
 398 chmod a+x [+ name +]
 399 PATH=$(builddir):$$PATH $(HELP2MAN) --section=[+ mansection +] -i $(top_srcdir)/docs/man/[+ name +].h2m -o $@ [+ name +]
 400 """)
 401     r += gvar_add("CLEANFILES", "[+ name +].[+ mansection +]")
 402     r += "endif\n"
 403     return r
 404
 405 def program(platform, test=False):
 406     r = set_canonical_name_suffix("")
 407
 408     r += "[+ IF testcase defined +]"
 409     r += gvar_add("check_PROGRAMS", "[+ name +]")
 410     r += gvar_add("TESTS", "[+ name +]")
 411     r += "[+ ELSE +]"
 412     r += var_add(installdir() + "_PROGRAMS", "[+ name +]")
 413     r += "[+ IF mansection +]" + manpage() + "[+ ENDIF +]"
 414     r += "[+ ENDIF +]"
 415
 416     r += var_set(cname() + "_SOURCES", platform_sources(platform))
 417     r += var_set("nodist_" + cname() + "_SOURCES", platform_nodist_sources(platform))
 418     r += var_set(cname() + "_LDADD", platform_ldadd(platform))
 419     r += var_set(cname() + "_CFLAGS", "$(AM_CFLAGS) $(CFLAGS_PROGRAM) " + platform_cflags(platform))
 420     r += var_set(cname() + "_LDFLAGS", "$(AM_LDFLAGS) $(LDFLAGS_PROGRAM) " + platform_ldflags(platform))
 421     r += var_set(cname() + "_CPPFLAGS", "$(AM_CPPFLAGS) $(CPPFLAGS_PROGRAM) " + platform_cppflags(platform))
 422     r += var_set(cname() + "_CCASFLAGS", "$(AM_CCASFLAGS) $(CCASFLAGS_PROGRAM) " + platform_ccasflags(platform))
 423     # r += var_set(cname() + "_DEPENDENCIES", platform_dependencies(platform) + " " + platform_ldadd(platform))
 424
 425     r += gvar_add("EXTRA_DIST", extra_dist())
 426     r += gvar_add("BUILT_SOURCES", "$(nodist_" + cname() + "_SOURCES)")
 427     r += gvar_add("CLEANFILES", "$(nodist_" + cname() + "_SOURCES)")
 428     return r
 429
 430 def data(platform):
 431     r  = gvar_add("EXTRA_DIST", platform_sources(platform))
 432     r += gvar_add("EXTRA_DIST", extra_dist())
 433     r += var_add(installdir() + "_DATA", platform_sources(platform))
 434     return r
 435
 436 def script(platform):
 437     r  = "[+ IF testcase defined +]"
 438     r += gvar_add("check_SCRIPTS", "[+ name +]")
 439     r += gvar_add ("TESTS", "[+ name +]")
 440     r += "[+ ELSE +]"
 441     r += var_add(installdir() + "_SCRIPTS", "[+ name +]")
 442     r += "[+ IF mansection +]" + manpage() + "[+ ENDIF +]"
 443     r += "[+ ENDIF +]"
 444
 445     r += rule("[+ name +]", platform_sources(platform) + " $(top_builddir)/config.status", """
 446 $(top_builddir)/config.status --file=-:$< | sed -e 's,@pkglib_DATA@,$(pkglib_DATA),g' > $@
 447 chmod a+x [+ name +]
 448 """)
 449
 450     r += gvar_add("CLEANFILES", "[+ name +]")
 451     r += gvar_add("dist_noinst_DATA", platform_sources(platform))
 452     return r
 453
 454 def rules(target, closure):
 455     # Create association lists for the benefit of first_time and vars_init.
 456     r = "[+ (define seen-target '()) +]"
 457     r += "[+ (define seen-vars '()) +]"
 458     # Most output goes to a diversion.  This allows us to emit variable
 459     # initializations before everything else.
 460     r += "[+ (out-push-new) +]"
 461
 462     r += "[+ FOR " + target + " +]"
 463     r += foreach_enabled_platform(
 464         lambda p: under_platform_specific_conditionals(p, closure(p)))
 465     # Remember that we've seen this target.
 466     r += "[+ (set! seen-target (assoc-set! seen-target (get \".name\") 0)) +]"
 467     r += "[+ ENDFOR +]"
 468     r += "[+ (out-pop #t) +]"
 469     return r
 470
 471 def module_rules():
 472     return rules("module", module)
 473
 474 def kernel_rules():
 475     return rules("kernel", kernel)
 476
 477 def image_rules():
 478     return rules("image", image)
 479
 480 def library_rules():
 481     return rules("library", library)
 482
 483 def program_rules():
 484     return rules("program", program)
 485
 486 def script_rules():
 487     return rules("script", script)
 488
 489 def data_rules():
 490     return rules("data", data)
 491
 492 print "[+ AutoGen5 template +]\n"
 493 a = module_rules()
 494 b = kernel_rules()
 495 c = image_rules()
 496 d = library_rules()
 497 e = program_rules()
 498 f = script_rules()
 499 g = data_rules()
 500 z = global_variable_initializers()
 501
 502 # print z # initializer for all vars
 503 print a
 504 print b
 505 print c
 506 print d
 507 print e
 508 print f
 509 print g