FreeCalypso > hg > fc-magnetite
view src/cs/drivers/drv_app/ffs/board/mktarget.pl @ 624:012028896cfb
FFS dev.c, Leonardo target: Fujitsu MB84VF5F5F4J2 #if 0'ed out
The FFS code we got from TI/Openmoko had a stanza for "Fujitsu MB84VF5F5F4J2
stacked device", using a fake device ID code that would need to be patched
manually into cfgffs.c (suppressing and overriding autodetection) and using
an FFS base address in the nCS2 bank, indicating that this FFS config was
probably meant for the MCP version of Leonardo which allows for 16 MiB flash
with a second bank on nCS2.
We previously had this FFS config stanza conditionalized under
CONFIG_TARGET_LEONARDO because the base address contained therein is invalid
for other targets, but now that we actually have a Leonardo build target in
FC Magnetite, I realize that the better approach is to #if 0 out this stanza
altogether: it is already non-functional because it uses a fake device ID
code, thus it is does not add support for more Leonardo board variants,
instead it is just noise.
author | Mychaela Falconia <falcon@freecalypso.org> |
---|---|
date | Sun, 22 Dec 2019 21:24:29 +0000 |
parents | 945cf7f506b2 |
children |
line wrap: on
line source
#!/usr/bin/perl -w # # mktarget.pl by Mads Meisner-Jensen (mmj@ti.com) # # Auto-generate target code from ffs.c source file. # $FFSPATH = shift; if (!defined($FFSPATH) || $FFSPATH eq "") { $FFSPATH = "..\\drivers\\drv_app\\ffs\\board"; } $OUTPATH = shift; if (!defined($OUTPATH) || $OUTPATH eq "") { $OUTPATH = $FFSPATH; } $verbose = 1; $STATE_OUTSIDE = 0; $STATE_IN_FUNCTION = 1; $STATE_IN_TASK = 2; $state = $STATE_OUTSIDE; ############################################################################ # Main ############################################################################ $verbose > 0 && print "mktarget.pl operating in directory '$FFSPATH'\n"; open (FFS, "<$FFSPATH/ffs.c") || die "Failed to open 'ffs.c'"; print $OUTPATH; open (TARGETC, ">$OUTPATH/ffs_target.c") || die "Failed to open 'ffs_target.c'"; target_put("/**********************************************************\n"); target_put(" *\n"); target_put(" * This is an auto-generated file. Do NOT edit!\n"); target_put(" *\n"); target_put(" **********************************************************/\n\n\n"); while (<FFS>) { if ($state == $STATE_OUTSIDE) { target_put($_); if (/^{\s*$/) { $state = $STATE_IN_FUNCTION; } } elsif ($state == $STATE_IN_FUNCTION) { if (/^\s*\/\/\s*TASKBEGIN\s*(\w+)\s*(\w+)\s*\((.*)\)(.*)$/m) { $state = $STATE_IN_TASK; $rettype = $1; $func = $2; $funclc = lc($func); @args = split(',', $3); @values = (); @reqmembers = (); foreach (@args) { ($left, $right) = $_ =~ /(\w+)=(.+)/m; push (@reqmembers, $left); push (@values, $right); } @vars = split(';', $4); task_begin(); } else { target_put($_); if (/^}\s*$/m) { $state = $STATE_OUTSIDE; # Write the task_* code after the function target_put("\n"); target_put(@taskcode); @taskcode = (); } } } elsif ($state == $STATE_IN_TASK) { if (/^.*TASKEND.*$/m) { $state = $STATE_IN_FUNCTION; foreach (@values) { if (/^[a-zA-Z]+/m) { task_put("#undef $_\n"); } } task_put("\n"); # task_put(" return EFFS_OK;\n"); task_put("}\n\n"); } else { task_put($_); } } else { die "Bad state!"; } } close (FFS) || die; close (TARGETC) || die; sub task_put { push (@taskcode, @_); } sub target_put { print TARGETC @_; } sub task_begin { $verbose > 0 && print "ffs_$funclc ($func)\n"; $verbose > 1 && print " args = @args\n"; $verbose > 1 && print " left = @values, right = @reqmembers\n"; $verbose > 1 && print " vars = @vars\n"; $verbose > 1 && print "\n"; task_put("$rettype task_$funclc(struct ffs_req_s *p)\n"); task_put("{\n"); foreach (@vars) { task_put(" $_;\n"); } task_put("\n"); for $i (0..$#args) { # If value starts with alpha char, e.g. a variable name if ($values[$i] =~ /^[a-zA-Z]+/m) { task_put("#define $values[$i] p->$reqmembers[$i]\n"); } } target_put(" {\n"); target_put(" struct ffs_req_s *req;\n"); target_put(" MSG_ALLOC(req);\n"); for $i (0..$#args) { # Typecasting is necessary for the sake of the tms470 compiler if ($reqmembers[$i] eq "src") { target_put(" req->$reqmembers[$i] = (char *) $values[$i];\n"); } else { target_put(" req->$reqmembers[$i] = $values[$i];\n"); } } target_put(" req->request_id = request_id_get();\n"); target_put(" req->fb = fb;\n"); target_put(" req->cp = cp;\n"); target_put(" req->cmd = $func;\n"); target_put(" MSG_SEND(req);\n"); target_put(" return req->request_id;\n"); target_put(" }\n"); }