FreeCalypso > hg > fc-tourmaline
view src/cs/drivers/drv_app/ffs/board/mktarget.pl @ 281:a75eefbf8be4
Phone boot with PWON: weed out short button presses
Every standard end user phone has a design provision, most naturally
implemented in firmware, whereby the PWON button effects a boot only
if it is held down long enough - short presses of this PWON button
are detected, assumed to be spurious and cause the fw to power back off
instead of proceeding with boot. The present change introduces this
standard function in FreeCalypso.
author | Mychaela Falconia <falcon@freecalypso.org> |
---|---|
date | Fri, 24 Sep 2021 02:03:08 +0000 |
parents | 4e78acac3d88 |
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"); }