Dependencies between Forth files were not detected, so dictionaries were not regenerated automatically in some cases.
Introduce '-M' flag to forthstrap to dump dependency information in Makefile compatible format, based on the Forth 'include' directives.
Signed-off-by: Blue Swirl blauwirbel@gmail.com --- Makefile.target | 2 +- config/xml/dictionary.xsl | 1 + kernel/bootstrap.c | 30 +++++++++++++++++++++++++++--- 3 files changed, 29 insertions(+), 4 deletions(-)
diff --git a/Makefile.target b/Makefile.target index 9ae8120..934b95a 100644 --- a/Makefile.target +++ b/Makefile.target @@ -77,4 +77,4 @@ build: all include rules.mak
# Include automatically generated dependency files --include $(wildcard $(ODIR)/host/kernel/*.d $(ODIR)/target/*/*.d $(ODIR)/target/*/*/*.d $(ODIR)/target/*/*/*/*.d) +-include $(wildcard $(ODIR)/*.d $(ODIR)/host/kernel/*.d $(ODIR)/target/*/*.d $(ODIR)/target/*/*/*.d $(ODIR)/target/*/*/*/*.d) diff --git a/config/xml/dictionary.xsl b/config/xml/dictionary.xsl index fc61359..52d836a 100644 --- a/config/xml/dictionary.xsl +++ b/config/xml/dictionary.xsl @@ -126,6 +126,7 @@ xsl:text -I$(ODIR)/forth</xsl:text>
xsl:text -D $@</xsl:text> + xsl:text -M $@.d</xsl:text> <xsl:if test="$init!=''"> xsl:text -d $(ODIR)/</xsl:text>xsl:value-of select="$init"/xsl:text.dict</xsl:text> </xsl:if> diff --git a/kernel/bootstrap.c b/kernel/bootstrap.c index 3c3356e..8a45fb7 100644 --- a/kernel/bootstrap.c +++ b/kernel/bootstrap.c @@ -69,6 +69,7 @@ struct include_path { };
static include includes = { ".", NULL }; +static FILE *depfile;
static ucell * relocation_address=NULL; static int relocation_length=0; @@ -465,6 +466,10 @@ static FILE *fopen_include(const char *fil) srclines [ cursrc ] = 1; srcfiles [ cursrc++ ] = ret;
+ if (depfile) { + fprintf(depfile, " %s", fullpath); + } + return ret; }
@@ -1025,7 +1030,9 @@ static void new_dictionary(const char *source) " write to output.dict\n" \ " -c|--console output.log\n" \ " write kernel console output to log file\n" \ - " -s|--segfault install segfault handler\n\n" + " -s|--segfault install segfault handler\n" \ + " -M|--dependency-dump file\n" \ + " dump dependencies in Makefile format\n\n" #else #define USAGE "Usage: %s [options] [dictionary file|source file]\n\n" \ " -h show this help\n" \ @@ -1039,7 +1046,7 @@ static void new_dictionary(const char *source) " -c output.log\n" \ " write kernel console output to log file\n" \ " -s install segfault handler\n\n" - + " -M file dump dependencies in Makefile format\n\n" #endif
int main(int argc, char *argv[]) @@ -1050,11 +1057,12 @@ int main(int argc, char *argv[]) char *dictname = NULL; char *basedict = NULL; char *consolefile = NULL; + char *depfilename = NULL;
unsigned char *bootstrapdict[2]; int c, cnt;
- const char *optstring = "VvhsI:d:D:c:?"; + const char *optstring = "VvhsI:d:D:c:M:?";
while (1) { #ifdef __GLIBC__ @@ -1068,6 +1076,7 @@ int main(int argc, char *argv[]) {"source-dictionary", 1, NULL, 'd'}, {"target-dictionary", 1, NULL, 'D'}, {"console", 1, NULL, 'c'}, + {"dependency-dump", 1, NULL, 'M'}, };
/* @@ -1118,6 +1127,11 @@ int main(int argc, char *argv[]) consolefile = optarg; } break; + case 'M': + if (!depfilename) { + depfilename = optarg; + } + break; default: return 1; } @@ -1127,6 +1141,7 @@ int main(int argc, char *argv[]) printk(BANNER); printk("Using source dictionary '%s'\n", basedict); printk("Dumping final dictionary to '%s'\n", dictname); + printk("Dumping dependencies to '%s'\n", depfilename); }
if (argc < optind + 1) { @@ -1134,6 +1149,10 @@ int main(int argc, char *argv[]) return 1; }
+ if (depfilename) { + depfile = fopen(depfilename, "w"); + fprintf(depfile, "%s: ", dictname); + }
/* * Get all required resources @@ -1203,6 +1222,11 @@ int main(int argc, char *argv[])
run_dictionary(basedict, consolefile); } + if (depfile) { + fprintf(depfile, "\n"); + fclose(depfile); + depfile = NULL; + } if(errors) break; }