mirror of
https://github.com/genodelabs/genode.git
synced 2024-12-27 17:18:53 +00:00
275 lines
6.7 KiB
Tcl
275 lines
6.7 KiB
Tcl
#
|
|
# Configure wireless lan
|
|
#
|
|
|
|
proc wifi_ssid { } {
|
|
return $::env(GENODE_WIFI_SSID)
|
|
}
|
|
|
|
proc wifi_psk { } {
|
|
return $::env(GENODE_WIFI_PSK)
|
|
}
|
|
|
|
#
|
|
# widi_drv config generator (supporting a network list)
|
|
#
|
|
# You may script your tests with this function in the dynamic_rom config below.
|
|
# The syntax for the networks parameter is
|
|
#
|
|
# { ssid protection passphrase explicit_scan }
|
|
#
|
|
# Example dynamic_rom config:
|
|
#
|
|
# {<inline description="auto-connect both networks">
|
|
# } [wifi_config 30 5 no [list "net1 WPA2 net1_psk no" "net2 WPA2 net2_psk no"]] {
|
|
# </inline>
|
|
# <inline description="aquto-connect both, but net2 explicitly">
|
|
# } [wifi_config 30 5 no [list "net1 WPA2 net1_psk no" "net2 WPA2 net2_psk yes"]] {
|
|
# </inline>}
|
|
|
|
set wifi_verbose false
|
|
set wifi_verbose_state false
|
|
|
|
proc wifi_config { connected_scan_interval scan_interval rfkill networks } {
|
|
global wifi_verbose
|
|
global wifi_verbose_state
|
|
|
|
set config "<wifi_config"
|
|
append config " verbose=\"$wifi_verbose\""
|
|
append config " verbose_state=\"$wifi_verbose_state\""
|
|
append config " connected_scan_interval=\"$connected_scan_interval\""
|
|
append config " scan_interval=\"$scan_interval\""
|
|
append config " rfkill=\"$rfkill\""
|
|
append config ">\n"
|
|
foreach n $networks {
|
|
append config " <network"
|
|
append config " ssid=\"[lindex $n 0]\""
|
|
append config " protection=\"[lindex $n 1]\""
|
|
append config " passphrase=\"[lindex $n 2]\""
|
|
append config " explicit_scan=\"[lindex $n 3]\""
|
|
append config "/>\n"
|
|
}
|
|
append config "</wifi_config>\n"
|
|
|
|
return $config
|
|
}
|
|
|
|
#
|
|
# Restrict platforms
|
|
#
|
|
assert_spec x86
|
|
|
|
#
|
|
# Build
|
|
#
|
|
|
|
set build_components {
|
|
core init timer
|
|
drivers/rtc
|
|
drivers/wifi
|
|
server/report_rom
|
|
server/dynamic_rom
|
|
server/nic_router
|
|
test/lwip/http_srv
|
|
lib/vfs/jitterentropy
|
|
lib/vfs/lwip
|
|
}
|
|
|
|
source ${genode_dir}/repos/base/run/platform_drv.inc
|
|
append_platform_drv_build_components
|
|
|
|
build $build_components
|
|
|
|
create_boot_directory
|
|
|
|
#
|
|
# Generate config
|
|
#
|
|
|
|
append config {
|
|
<config verbose="yes">
|
|
<parent-provides>
|
|
<service name="ROM"/>
|
|
<service name="IRQ"/>
|
|
<service name="IO_MEM"/>
|
|
<service name="IO_PORT"/>
|
|
<service name="PD"/>
|
|
<service name="RM"/>
|
|
<service name="CPU"/>
|
|
<service name="LOG"/>
|
|
</parent-provides>
|
|
<default-route>
|
|
<any-service> <parent/> <any-child/> </any-service>
|
|
</default-route>
|
|
<default caps="100"/>
|
|
<start name="timer">
|
|
<resource name="RAM" quantum="1M"/>
|
|
<provides> <service name="Timer"/> </provides>
|
|
</start>
|
|
|
|
<start name="rtc_drv">
|
|
<resource name="RAM" quantum="1M"/>
|
|
<provides> <service name="Rtc"/> </provides>
|
|
</start>
|
|
|
|
<start name="test-lwip_httpsrv">
|
|
<resource name="RAM" quantum="16M"/>
|
|
<config>
|
|
<libc stdout="/dev/null" stderr="/dev/log" socket="/socket"/>
|
|
<vfs>
|
|
<dir name="dev"> <log/> <null/> </dir>
|
|
<dir name="socket"> <lwip dhcp="yes"/> </dir>
|
|
</vfs>
|
|
</config>
|
|
<route>
|
|
<service name="Nic"> <child name="nic_router"/> </service>
|
|
<any-service> <parent/> <any-child/> </any-service>
|
|
</route>
|
|
</start>
|
|
|
|
<start name="state_report_rom">
|
|
<binary name="report_rom"/>
|
|
<resource name="RAM" quantum="2M"/>
|
|
<provides> <service name="Report"/> <service name="ROM"/> </provides>
|
|
<config verbose="no"/>
|
|
</start>
|
|
|
|
<start name="accesspoints_report_rom">
|
|
<binary name="report_rom"/>
|
|
<resource name="RAM" quantum="2M"/>
|
|
<provides> <service name="Report"/> <service name="ROM"/> </provides>
|
|
<config verbose="no"/>
|
|
</start>
|
|
|
|
<start name="config_rom">
|
|
<binary name="dynamic_rom"/>
|
|
<resource name="RAM" quantum="4M"/>
|
|
<provides><service name="ROM"/></provides>
|
|
<config verbose="yes">
|
|
<rom name="wifi_config">
|
|
<inline description="disconnect">
|
|
} [wifi_config 30 5 no {}] {
|
|
</inline>
|
|
<sleep milliseconds="15000"/>
|
|
<inline description="connect">
|
|
} [wifi_config 30 5 no [list "[wifi_ssid] WPA2 [wifi_psk] yes"]] {
|
|
</inline>
|
|
<sleep milliseconds="60000"/>
|
|
<inline description="rfkill block">
|
|
} [wifi_config 30 5 yes [list "[wifi_ssid] WPA2 [wifi_psk] yes"]] {
|
|
</inline>
|
|
<sleep milliseconds="30000"/>
|
|
<inline description="rfkill unblock">
|
|
} [wifi_config 30 5 no [list "[wifi_ssid] WPA2 [wifi_psk] yes"]] {
|
|
</inline>
|
|
<sleep milliseconds="30000"/>
|
|
</rom>
|
|
</config>
|
|
</start>
|
|
|
|
<start name="nic_router" caps="200">
|
|
<resource name="RAM" quantum="10M"/>
|
|
<provides>
|
|
<service name="Nic"/>
|
|
<service name="Uplink"/>
|
|
</provides>
|
|
<config verbose_domain_state="yes">
|
|
|
|
<policy label_prefix="test-lwip_httpsrv" domain="downlink"/>
|
|
<policy label_prefix="wifi_drv" domain="uplink"/>
|
|
|
|
<domain name="uplink">
|
|
|
|
<nat domain="downlink" tcp-ports="16384"/>
|
|
<tcp-forward port="443" domain="downlink" to="10.0.3.2"/>
|
|
<tcp-forward port="80" domain="downlink" to="10.0.3.2"/>
|
|
|
|
</domain>
|
|
|
|
<domain name="downlink" interface="10.0.3.1/24">
|
|
|
|
<dhcp-server ip_first="10.0.3.2" ip_last="10.0.3.2"/>
|
|
|
|
</domain>
|
|
|
|
</config>
|
|
</start>
|
|
|
|
<start name="devices_report_rom">
|
|
<binary name="report_rom"/>
|
|
<resource name="RAM" quantum="1200K"/>
|
|
<provides> <service name="Report"/> <service name="ROM"/> </provides>
|
|
<config verbose="yes"/>
|
|
</start>
|
|
|
|
<start name="wifi_drv" caps="220">
|
|
<resource name="RAM" quantum="28M"/>
|
|
<config ld_verbose="yes">
|
|
<report mac_address="true"/>
|
|
<libc stdout="/dev/null" stderr="/dev/null" rtc="/dev/rtc"/>
|
|
<vfs>
|
|
<dir name="dev"> <log/> <null/> <rtc/>
|
|
<jitterentropy name="random"/>
|
|
<jitterentropy name="urandom"/>
|
|
</dir>
|
|
</vfs>
|
|
</config>
|
|
<route>
|
|
<service name="Uplink"> <child name="nic_router"/> </service>
|
|
<service name="Rtc"> <any-child/> </service>
|
|
<service name="Report" label="accesspoints"> <child name="accesspoints_report_rom"/> </service>
|
|
<service name="Report" label="state"> <child name="state_report_rom"/> </service>
|
|
<service name="Report" label="devices"> <child name="devices_report_rom"/> </service>
|
|
<service name="ROM" label="wifi_config"> <child name="config_rom"/> </service>
|
|
<any-service> <parent/> <any-child/> </any-service>
|
|
</route>
|
|
</start>}
|
|
|
|
append_platform_drv_config
|
|
|
|
append config {
|
|
</config>
|
|
}
|
|
|
|
install_config $config
|
|
|
|
set firmware_modules {
|
|
iwlwifi-6000-4.ucode
|
|
iwlwifi-6000g2a-6.ucode
|
|
iwlwifi-6000g2b-6.ucode
|
|
iwlwifi-7260-17.ucode
|
|
iwlwifi-7265-17.ucode
|
|
iwlwifi-7265D-29.ucode
|
|
iwlwifi-8000C-36.ucode
|
|
iwlwifi-8265-36.ucode
|
|
regulatory.db
|
|
}
|
|
|
|
#
|
|
# Boot modules
|
|
#
|
|
|
|
# generic modules
|
|
set boot_modules {
|
|
core ld.lib.so init timer rtc_drv report_rom dynamic_rom
|
|
vfs_jitterentropy.lib.so
|
|
libc.lib.so vfs.lib.so libcrypto.lib.so libssl.lib.so
|
|
wpa_driver_nl80211.lib.so wpa_supplicant.lib.so
|
|
wifi.lib.so
|
|
wifi_drv
|
|
nic_router
|
|
|
|
test-lwip_httpsrv
|
|
vfs_lwip.lib.so
|
|
}
|
|
|
|
append boot_modules $firmware_modules
|
|
|
|
append_platform_drv_boot_modules
|
|
|
|
build_boot_image $boot_modules
|
|
|
|
run_genode_until forever
|
|
|
|
# vi: set ft=tcl :
|