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