FreeCalypso > hg > fc-tourmaline
view scripts/ti/make_cmd.pl @ 287:3dee79757ae4
UI fw: load handheld audio mode on boot
We have now reached the point where use of audio mode config files
should be considered mandatory. In ACI usage we can tell users that
they need to perform an AT@AUL of some appropriate audio mode, but
in UI-enabled fw we really need to have the firmware load audio modes
on its own, so that correct audio config gets established when the
handset or development board runs on its own, without a connected host
computer.
Once have FC Venus with both main and headset audio channels and
headset plug insertion detection, our fw will need to automatically
load the handheld mode or the headset mode depending on the plug
insertion state. For now we load only the handheld mode, which has
been tuned for FC-HDS4 on FC Luna.
author | Mychaela Falconia <falcon@freecalypso.org> |
---|---|
date | Sat, 13 Nov 2021 03:20:57 +0000 |
parents | 021ac9f5a765 |
children |
line wrap: on
line source
#!perl # generate a dynamic Linker command file # PARAMETER ARE: # 0 : Name of the file with the parameters # 1 : Name of the Linker command file (output) # 2 : value of the TOOL_CHOICE variable # 3 : Name of the Linker command file template # 4 - (n-1) : Name of the libraries #$argcount = @ARGV; my $lnk_opt_file=$ARGV[0]; my $cmd_file=$ARGV[1]; my $toolchoice_type = $ARGV[2]; my $cmd_file_temp=$ARGV[3]; my %section; open (TMP,$lnk_opt_file)||die "can't open file\n"; # parse the parameter file and construct replacement strings # # the file contains entries of the following form # (BSS_LIBS (.bss)) # or # (BSS_LIBS (.bss) CONST_LIBS (.text, .const)) # or # (BSS_LIBS (.bss)) (BSS_LIBS (.bss) CONST_LIBS (.text, .const)) # # the syntax is as follows, white space and line breaks are not significant # <ENTRY> := <lp> <PAIR><lp> # <PAIR> := <name> <SECTION> # <SECTION> := <lp><free_text><lp> # <lp> := ( # <rp> := ) # <name> := [A-Za-z_]+ # <free_text> := [^()]+ # # each entry will be linked with one library passed on the command line my $line; my $count; while ($line=<TMP>) { # find <ENTRY> while ($line =~ /\((\s*\w+\s*\([^\(\)]+\))+\)/) { $line = $'; $match = $&; # find <PAIR> while ($match =~ /\s*(\w+)\s*(\([^\(\)]+\))/ ) { $match = $'; $section{"$1"} .= "$ARGV[$count+4] $2\n"; } $count++; } } open (TMP1, ">$cmd_file"); open (TMP,$cmd_file_temp); while ($line=<TMP>) { my $replaced = 0; foreach $key (keys(%section)) { if ($line =~ /\($key\)/g) { # insert the Libs $line = $section{$key}; $replaced = 1; } } # NEW COMPILER MANAGEMENT # If use of VISUAL LINKER, needs to manage trampoline download. # Case of: # - TOOL_CHOICE == 0 => compiler v1.22e with vlinker v1.9902 # - TOOL_CHOICE == 3 => compiler & linker v2.54 if ($toolchoice_type == 0) { $line =~ s(COMMENT1START)(/*); $line =~ s(COMMENT1END)(*/); $line =~ s(COMMENT2START)(); $line =~ s(COMMENT2END)(); } else { $line =~ s(COMMENT1START)(); $line =~ s(COMMENT1END)(); $line =~ s(COMMENT2START)(/*); $line =~ s(COMMENT2END)(*/); } if ($replaced || !($line =~ /^\s*\$\(\s*\w+\s*\)\s*$/ )) { print TMP1 $line; } } close TMP; close TMP1; unlink $tmp_file;