Landfall

Annotated conf/landfall-examples/mips-letux400-keypad-ds.cfg

84:21b57dd374bb
2020-06-17 Paul Boddie Added a mention of listlibs.sh which will need to be invoked for some examples. jz4780-lcd
paul@0 1
-- vim: ft=lua ts=2 et sw=2
paul@0 2
paul@0 3
-- Start Mag to multiplex the framebuffer showing only a single program.
paul@0 4
-- This example shows the keypad status as read from a memory region exported
paul@0 5
-- by a separate server that reads the matrix itself.
paul@0 6
-- The target platform is the Letux 400 notebook computer.
paul@0 7
paul@0 8
local L4 = require("L4");
paul@0 9
paul@0 10
local l = L4.default_loader;
paul@0 11
paul@0 12
-- Define general access to peripherals.
paul@0 13
paul@0 14
local io_buses = {
paul@0 15
    cpm     = l:new_channel();
paul@0 16
    gpio    = l:new_channel();
paul@0 17
    lcd     = l:new_channel();
paul@0 18
    pwm     = l:new_channel(); -- exposes GPIO, PWM
paul@0 19
  };
paul@0 20
paul@0 21
l:start({
paul@0 22
    caps = {
paul@0 23
      cpm    = io_buses.cpm:svr(),
paul@0 24
      gpio   = io_buses.gpio:svr(),
paul@0 25
      lcd    = io_buses.lcd:svr(),
paul@0 26
      pwm    = io_buses.pwm:svr(),
paul@0 27
paul@0 28
      icu    = L4.Env.icu,
paul@0 29
      sigma0 = L4.cast(L4.Proto.Factory, L4.Env.sigma0):create(L4.Proto.Sigma0),
paul@0 30
    },
paul@0 31
  },
paul@7 32
  "rom/io rom/hw_devices.io rom/mips-letux400-common.io");
paul@0 33
paul@0 34
-- Expose a PWM peripheral as a device.
paul@0 35
paul@0 36
local pwm = l:new_channel();
paul@0 37
paul@0 38
l:startv({
paul@0 39
    caps = {
paul@0 40
      vbus = io_buses.pwm,
paul@0 41
      pwm  = pwm:svr(),
paul@0 42
    },
paul@0 43
  },
paul@0 44
  "rom/dev_pwm_jz4730", "0", "250", "299", "47"); -- specifying peripheral number, parameters
paul@0 45
paul@0 46
-- Expose a PWM backlight device.
paul@0 47
paul@0 48
local backlight = l:new_channel(); -- exposes backlight device
paul@0 49
paul@0 50
l:startv({
paul@0 51
    caps = {
paul@0 52
      pwm       = pwm,
paul@0 53
      backlight = backlight:svr(),
paul@0 54
    },
paul@0 55
  },
paul@0 56
  "rom/dev_backlight_pwm", "0", "300"); -- specifying limits
paul@0 57
paul@0 58
-- Expose a display device for the Letux.
paul@0 59
paul@0 60
local display = l:new_channel(); -- exposes display device
paul@0 61
paul@0 62
l:start({
paul@0 63
    caps = {
paul@0 64
      backlight = backlight,
paul@0 65
      display   = display:svr(),
paul@0 66
      vbus      = io_buses.gpio,
paul@0 67
    },
paul@0 68
  },
paul@0 69
  "rom/dev_display_letux400");
paul@0 70
paul@0 71
-- Expose the CPM peripheral.
paul@0 72
paul@0 73
local cpm = l:new_channel();
paul@0 74
paul@0 75
l:start({
paul@0 76
  caps = {
paul@0 77
      vbus    = io_buses.cpm,
paul@0 78
      cpm     = cpm:svr(),
paul@0 79
    },
paul@0 80
  },
paul@0 81
  "rom/dev_cpm_jz4730");
paul@0 82
paul@0 83
-- Expose a framebuffer device.
paul@0 84
paul@0 85
local fbdrv_fb = l:new_channel();
paul@0 86
paul@0 87
l:start({
paul@0 88
    caps = {
paul@0 89
      vbus    = io_buses.lcd,
paul@0 90
      fb      = fbdrv_fb:svr(),
paul@0 91
      cpm     = cpm,
paul@0 92
      display = display, -- needed by LCD driver
paul@0 93
    },
paul@0 94
  },
paul@0 95
  "rom/fb-drv");
paul@0 96
paul@0 97
-- Multiplex the framebuffer.
paul@0 98
paul@0 99
local mag_caps = {
paul@0 100
    mag = l:new_channel(),
paul@0 101
    svc = l:new_channel(),
paul@0 102
  };
paul@0 103
paul@0 104
l:start({
paul@0 105
    caps = {
paul@0 106
      vbus = io_buses.gpio, -- needed by input driver
paul@0 107
      fb   = fbdrv_fb,
paul@0 108
      mag  = mag_caps.mag:svr(),
paul@0 109
      svc  = mag_caps.svc:svr(),
paul@0 110
    },
paul@0 111
  },
paul@0 112
  "rom/mag");
paul@0 113
paul@0 114
-- Expose the keypad matrix.
paul@0 115
paul@0 116
local keypad = l:new_channel();
paul@0 117
paul@0 118
l:start({
paul@0 119
    caps = {
paul@0 120
      vbus   = io_buses.gpio,
paul@0 121
      keypad = keypad:svr(),
paul@0 122
    },
paul@0 123
  },
paul@0 124
  "rom/dev_keypad_letux400");
paul@0 125
paul@0 126
-- Show the keypad matrix.
paul@0 127
paul@0 128
l:startv({
paul@0 129
    caps = {
paul@0 130
      fb     = mag_caps.svc:create(L4.Proto.Goos, "g=800x460+0+0", "barheight=20"),
paul@0 131
      keypad = keypad,
paul@0 132
    },
paul@0 133
  },
paul@0 134
  "rom/ex_keypad_ds_client", "17", "8"); -- specifying keypad matrix dimensions