Miles Alan
5 years ago
parent
334c74ad39
commit
ae983ef8c8
35 changed files with 1002 additions and 221 deletions
@ -0,0 +1,391 @@ |
||||
/*
|
||||
* Voice call audio setup tool |
||||
* |
||||
* Copyright (C) 2020 Ondřej Jirman <megous@megous.com> |
||||
* |
||||
* This program is free software: you can redistribute it and/or modify |
||||
* it under the terms of the GNU General Public License as published by |
||||
* the Free Software Foundation, either version 3 of the License, or |
||||
* (at your option) any later version. |
||||
* |
||||
* This program is distributed in the hope that it will be useful, |
||||
* but WITHOUT ANY WARRANTY; without even the implied warranty of |
||||
* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the |
||||
* GNU General Public License for more details. |
||||
* |
||||
* You should have received a copy of the GNU General Public License |
||||
* along with this program. If not, see <http://www.gnu.org/licenses/>.
|
||||
*/ |
||||
|
||||
#include <assert.h> |
||||
#include <stdlib.h> |
||||
#include <stdbool.h> |
||||
#include <stdio.h> |
||||
#include <stdarg.h> |
||||
#include <stdint.h> |
||||
#include <string.h> |
||||
#include <errno.h> |
||||
#include <unistd.h> |
||||
#include <inttypes.h> |
||||
#include <fcntl.h> |
||||
#include <sys/ioctl.h> |
||||
|
||||
#include <sound/asound.h> |
||||
#include <sound/tlv.h> |
||||
|
||||
#define ARRAY_SIZE(a) (sizeof((a)) / sizeof((a)[0])) |
||||
|
||||
void syscall_error(int is_err, const char* fmt, ...) |
||||
{ |
||||
va_list ap; |
||||
|
||||
if (!is_err) |
||||
return; |
||||
|
||||
printf("ERROR: "); |
||||
va_start(ap, fmt); |
||||
vprintf(fmt, ap); |
||||
va_end(ap); |
||||
printf(": %s\n", strerror(errno)); |
||||
|
||||
exit(1); |
||||
} |
||||
|
||||
void error(const char* fmt, ...) |
||||
{ |
||||
va_list ap; |
||||
|
||||
printf("ERROR: "); |
||||
va_start(ap, fmt); |
||||
vprintf(fmt, ap); |
||||
va_end(ap); |
||||
printf("\n"); |
||||
|
||||
exit(1); |
||||
} |
||||
|
||||
struct audio_control_state { |
||||
char name[128]; |
||||
union { |
||||
int64_t i[4]; |
||||
const char* e[4]; |
||||
} vals; |
||||
bool used; |
||||
}; |
||||
|
||||
static bool audio_restore_state(struct audio_control_state* controls, int n_controls) |
||||
{ |
||||
int fd; |
||||
int ret; |
||||
|
||||
fd = open("/dev/snd/controlC0", O_CLOEXEC | O_NONBLOCK); |
||||
if (fd < 0) |
||||
error("failed to open card\n"); |
||||
|
||||
struct snd_ctl_elem_list el = { |
||||
.offset = 0, |
||||
.space = 0, |
||||
}; |
||||
ret = ioctl(fd, SNDRV_CTL_IOCTL_ELEM_LIST, &el); |
||||
syscall_error(ret < 0, "SNDRV_CTL_IOCTL_ELEM_LIST failed"); |
||||
|
||||
struct snd_ctl_elem_id ids[el.count]; |
||||
el.pids = ids; |
||||
el.space = el.count; |
||||
ret = ioctl(fd, SNDRV_CTL_IOCTL_ELEM_LIST, &el); |
||||
syscall_error(ret < 0, "SNDRV_CTL_IOCTL_ELEM_LIST failed"); |
||||
|
||||
for (int i = 0; i < el.used; i++) { |
||||
struct snd_ctl_elem_info inf = { |
||||
.id = ids[i], |
||||
}; |
||||
|
||||
ret = ioctl(fd, SNDRV_CTL_IOCTL_ELEM_INFO, &inf); |
||||
syscall_error(ret < 0, "SNDRV_CTL_IOCTL_ELEM_INFO failed"); |
||||
|
||||
if ((inf.access & SNDRV_CTL_ELEM_ACCESS_READ) && (inf.access & SNDRV_CTL_ELEM_ACCESS_WRITE)) { |
||||
struct snd_ctl_elem_value val = { |
||||
.id = ids[i], |
||||
}; |
||||
int64_t cval = 0; |
||||
|
||||
ret = ioctl(fd, SNDRV_CTL_IOCTL_ELEM_READ, &val); |
||||
syscall_error(ret < 0, "SNDRV_CTL_IOCTL_ELEM_READ failed"); |
||||
|
||||
struct audio_control_state* cs = NULL; |
||||
for (int j = 0; j < n_controls; j++) { |
||||
if (!strcmp(controls[j].name, ids[i].name)) { |
||||
cs = &controls[j]; |
||||
break; |
||||
} |
||||
} |
||||
|
||||
if (!cs) { |
||||
printf("Control \"%s\" si not defined in the controls state\n", ids[i].name); |
||||
continue; |
||||
} |
||||
|
||||
cs->used = 1; |
||||
|
||||
// check if value needs changing
|
||||
|
||||
switch (inf.type) { |
||||
case SNDRV_CTL_ELEM_TYPE_BOOLEAN: |
||||
case SNDRV_CTL_ELEM_TYPE_INTEGER: |
||||
for (int j = 0; j < inf.count; j++) { |
||||
if (cs->vals.i[j] != val.value.integer.value[j]) { |
||||
// update
|
||||
//printf("%s <=[%d]= %"PRIi64"\n", ids[i].name, j, cs->vals.i[j]);
|
||||
|
||||
val.value.integer.value[j] = cs->vals.i[j]; |
||||
ret = ioctl(fd, SNDRV_CTL_IOCTL_ELEM_WRITE, &val); |
||||
syscall_error(ret < 0, "SNDRV_CTL_IOCTL_ELEM_WRITE failed"); |
||||
} |
||||
} |
||||
|
||||
break; |
||||
case SNDRV_CTL_ELEM_TYPE_INTEGER64: |
||||
for (int j = 0; j < inf.count; j++) { |
||||
if (cs->vals.i[j] != val.value.integer64.value[j]) { |
||||
// update
|
||||
//printf("%s <=[%d]= %"PRIi64"\n", ids[i].name, j, cs->vals.i[j]);
|
||||
|
||||
val.value.integer64.value[j] = cs->vals.i[j]; |
||||
ret = ioctl(fd, SNDRV_CTL_IOCTL_ELEM_WRITE, &val); |
||||
syscall_error(ret < 0, "SNDRV_CTL_IOCTL_ELEM_WRITE failed"); |
||||
} |
||||
} |
||||
|
||||
break; |
||||
|
||||
case SNDRV_CTL_ELEM_TYPE_ENUMERATED: { |
||||
for (int k = 0; k < inf.count; k++) { |
||||
int eval = -1; |
||||
for (int j = 0; j < inf.value.enumerated.items; j++) { |
||||
inf.value.enumerated.item = j; |
||||
|
||||
ret = ioctl(fd, SNDRV_CTL_IOCTL_ELEM_INFO, &inf); |
||||
syscall_error(ret < 0, "SNDRV_CTL_IOCTL_ELEM_INFO failed"); |
||||
|
||||
if (!strcmp(cs->vals.e[k], inf.value.enumerated.name)) { |
||||
eval = j; |
||||
break; |
||||
} |
||||
} |
||||
|
||||
if (eval < 0) |
||||
error("enum value %s not found\n", cs->vals.e[k]); |
||||
|
||||
if (eval != val.value.enumerated.item[k]) { |
||||
// update
|
||||
//printf("%s <=%d= %s\n", ids[i].name, k, cs->vals.e[k]);
|
||||
|
||||
val.value.enumerated.item[k] = eval; |
||||
ret = ioctl(fd, SNDRV_CTL_IOCTL_ELEM_WRITE, &val); |
||||
syscall_error(ret < 0, "SNDRV_CTL_IOCTL_ELEM_WRITE failed"); |
||||
} |
||||
} |
||||
|
||||
break; |
||||
} |
||||
} |
||||
} |
||||
} |
||||
|
||||
for (int j = 0; j < n_controls; j++) |
||||
if (!controls[j].used) |
||||
printf("Control \"%s\" is defined in state but not present on the card\n", controls[j].name); |
||||
|
||||
close(fd); |
||||
return true; |
||||
} |
||||
|
||||
struct audio_setup { |
||||
bool mic_on; |
||||
bool spk_on; |
||||
bool hp_on; |
||||
bool ear_on; |
||||
|
||||
// when sending audio to modem from AIF1 R, also play that back
|
||||
// to me locally (just like AIF1 L plays just to me)
|
||||
//
|
||||
// this is to monitor what SW is playing to the modem (so that
|
||||
// I can hear my robocaller talking)
|
||||
bool modem_playback_monitor; |
||||
|
||||
// enable modem routes to DAC/from ADC (spk/mic)
|
||||
// digital paths to AIF1 are always on
|
||||
bool to_modem_on; |
||||
bool from_modem_on; |
||||
|
||||
// shut off/enable all digital paths to the modem:
|
||||
// keep this off until the call starts, then turn it on
|
||||
bool dai2_en; |
||||
|
||||
int mic_gain; |
||||
int spk_vol; |
||||
int ear_vol; |
||||
int hp_vol; |
||||
}; |
||||
|
||||
static void audio_set_controls(struct audio_setup* s) |
||||
{ |
||||
struct audio_control_state controls[] = { |
||||
//
|
||||
// Analog input:
|
||||
//
|
||||
|
||||
// Mic 1 (daughterboard)
|
||||
{ .name = "Mic1 Boost Volume", .vals.i = { s->mic_gain } }, |
||||
|
||||
// Mic 2 (headphones)
|
||||
{ .name = "Mic2 Boost Volume", .vals.i = { 0 } }, |
||||
|
||||
// Line in (unused on PP)
|
||||
// no controls yet
|
||||
|
||||
// Input mixers before ADC
|
||||
|
||||
{ .name = "Mic1 Capture Switch", .vals.i = { !!s->mic_on, !!s->mic_on } }, |
||||
{ .name = "Mic2 Capture Switch", .vals.i = { 0, 0 } }, |
||||
{ .name = "Line In Capture Switch", .vals.i = { 0, 0 } }, // Out Mix -> In Mix
|
||||
{ .name = "Mixer Capture Switch", .vals.i = { 0, 0 } }, |
||||
{ .name = "Mixer Reversed Capture Switch", .vals.i = { 0, 0 } }, |
||||
|
||||
// ADC
|
||||
{ .name = "ADC Gain Capture Volume", .vals.i = { 0 } }, |
||||
{ .name = "ADC Capture Volume", .vals.i = { 160, 160 } }, // digital gain
|
||||
|
||||
//
|
||||
// Digital paths:
|
||||
//
|
||||
|
||||
// AIF1 (SoC)
|
||||
|
||||
// AIF1 slot0 capture mixer sources
|
||||
{ .name = "AIF1 AD0 Mixer ADC Capture Switch", .vals.i = { 1, 0 } }, |
||||
{ .name = "AIF1 AD0 Mixer AIF1 DA0 Capture Switch", .vals.i = { 0, 0 } }, |
||||
{ .name = "AIF1 AD0 Mixer AIF2 DAC Capture Switch", .vals.i = { 0, 1 } }, |
||||
{ .name = "AIF1 AD0 Mixer AIF2 DAC Rev Capture Switch", .vals.i = { 0, 0 } }, //XXX: capture right from the left AIF2?
|
||||
{ .name = "AIF1 Loopback Switch", .vals.i = { 0 } }, |
||||
|
||||
// AIF1 slot0 capture/playback mono mixing/digital volume
|
||||
{ .name = "AIF1 AD0 Capture Volume", .vals.i = { 160, 160 } }, |
||||
{ .name = "AIF1 AD0 Stereo Capture Route", .vals.e = { "Stereo", "Stereo" } }, |
||||
{ .name = "AIF1 DA0 Playback Volume", .vals.i = { 160, 160 } }, |
||||
{ .name = "AIF1 DA0 Stereo Playback Route", .vals.e = { "Stereo", "Stereo" } }, |
||||
|
||||
// AIF2 (modem)
|
||||
|
||||
// AIF2 capture mixer sources
|
||||
{ .name = "AIF2 ADC Mixer ADC Capture Switch", .vals.i = { !!s->to_modem_on && !!s->dai2_en, 0 } }, // from adc/mic
|
||||
{ .name = "AIF2 ADC Mixer AIF1 DA0 Capture Switch", .vals.i = { 0, 1 } }, // from aif1 R
|
||||
{ .name = "AIF2 ADC Mixer AIF2 DAC Rev Capture Switch", .vals.i = { 0, 0 } }, |
||||
{ .name = "AIF2 Loopback Switch", .vals.i = { 0 } }, |
||||
|
||||
// AIF2 capture/playback mono mixing/digital volume
|
||||
{ .name = "AIF2 ADC Capture Volume", .vals.i = { 160, 160 } }, |
||||
{ .name = "AIF2 DAC Playback Volume", .vals.i = { 160, 160 } }, |
||||
{ .name = "AIF2 ADC Stereo Capture Route", .vals.e = { "Mix Mono", "Mix Mono" } }, // we mix because we're sending two channels (from mic and AIF1 R)
|
||||
{ .name = "AIF2 DAC Stereo Playback Route", .vals.e = { "Sum Mono", "Sum Mono" } }, // we sum because modem is sending a single channel
|
||||
|
||||
// AIF3 (bluetooth)
|
||||
|
||||
{ .name = "AIF3 Loopback Switch", .vals.i = { 0 } }, |
||||
{ .name = "AIF3 ADC Capture Route", .vals.e = { "None" } }, |
||||
{ .name = "AIF3 DAC Playback Route", .vals.e = { "None" } }, |
||||
|
||||
// DAC
|
||||
|
||||
// DAC input mixers (sources from ADC, and AIF1/2)
|
||||
{ .name = "DAC Mixer ADC Playback Switch", .vals.i = { 0, 0 } }, // we don't play our mic to ourselves
|
||||
{ .name = "DAC Mixer AIF1 DA0 Playback Switch", .vals.i = { 1, !!s->modem_playback_monitor } }, |
||||
{ .name = "DAC Mixer AIF2 DAC Playback Switch", .vals.i = { 0, !!s->dai2_en && !!s->from_modem_on } }, |
||||
|
||||
//
|
||||
// Analog output:
|
||||
//
|
||||
|
||||
// Output mixer after DAC
|
||||
|
||||
{ .name = "DAC Playback Switch", .vals.i = { 1, 1 } }, |
||||
{ .name = "DAC Reversed Playback Switch", .vals.i = { 1, 1 } }, |
||||
{ .name = "DAC Playback Volume", .vals.i = { 160, 160 } }, |
||||
{ .name = "Mic1 Playback Switch", .vals.i = { 0, 0 } }, |
||||
{ .name = "Mic1 Playback Volume", .vals.i = { 0 } }, |
||||
{ .name = "Mic2 Playback Switch", .vals.i = { 0, 0 } }, |
||||
{ .name = "Mic2 Playback Volume", .vals.i = { 0 } }, |
||||
{ .name = "Line In Playback Switch", .vals.i = { 0, 0 } }, |
||||
{ .name = "Line In Playback Volume", .vals.i = { 0 } }, |
||||
|
||||
// Outputs
|
||||
|
||||
{ .name = "Earpiece Source Playback Route", .vals.e = { "Left Mixer" } }, |
||||
{ .name = "Earpiece Playback Switch", .vals.i = { !!s->ear_on } }, |
||||
{ .name = "Earpiece Playback Volume", .vals.i = { s->ear_vol } }, |
||||
|
||||
{ .name = "Headphone Source Playback Route", .vals.e = { "Mixer", "Mixer" } }, |
||||
{ .name = "Headphone Playback Switch", .vals.i = { !!s->hp_on, !!s->hp_on } }, |
||||
{ .name = "Headphone Playback Volume", .vals.i = { s->hp_vol } }, |
||||
|
||||
// Loudspeaker
|
||||
{ .name = "Line Out Source Playback Route", .vals.e = { "Mono Differential", "Mono Differential" } }, |
||||
{ .name = "Line Out Playback Switch", .vals.i = { !!s->spk_on, !!s->spk_on } }, |
||||
{ .name = "Line Out Playback Volume", .vals.i = { s->spk_vol } }, |
||||
}; |
||||
|
||||
audio_restore_state(controls, ARRAY_SIZE(controls)); |
||||
} |
||||
|
||||
static struct audio_setup audio_setup = { |
||||
.mic_on = false, |
||||
.ear_on = false, |
||||
.spk_on = false, |
||||
.hp_on = false, |
||||
|
||||
.from_modem_on = true, |
||||
.to_modem_on = true, |
||||
.modem_playback_monitor = false, |
||||
|
||||
.dai2_en = false, |
||||
|
||||
.hp_vol = 15, |
||||
.spk_vol = 15, |
||||
.ear_vol = 31, |
||||
.mic_gain = 1, |
||||
}; |
||||
|
||||
int main(int ac, char* av[]) |
||||
{ |
||||
int opt; |
||||
|
||||
while ((opt = getopt(ac, av, "smhe2")) != -1) { |
||||
switch (opt) { |
||||
case 's': |
||||
audio_setup.spk_on = 1; |
||||
break; |
||||
case 'm': |
||||
audio_setup.mic_on = 1; |
||||
break; |
||||
case 'h': |
||||
audio_setup.hp_on = 1; |
||||
break; |
||||
case 'e': |
||||
audio_setup.ear_on = 1; |
||||
break; |
||||
case 'z': |
||||
audio_setup.modem_playback_monitor = 1; |
||||
break; |
||||
case '2': |
||||
audio_setup.dai2_en = 1; |
||||
break; |
||||
default: /* '?' */ |
||||
fprintf(stderr, "Usage: %s [-s] [-m] [-h] [-e] [-2]\n", av[0]); |
||||
exit(EXIT_FAILURE); |
||||
} |
||||
} |
||||
|
||||
audio_set_controls(&audio_setup); |
||||
return 0; |
||||
} |
||||
|
||||
@ -0,0 +1,26 @@ |
||||
#include <gammu.h> |
||||
#include <gammu-message.h> |
||||
#include <stdio.h> |
||||
#include <string.h> |
||||
|
||||
int main(int argc, char **argv) { |
||||
GSM_SMSMessage m; |
||||
GSM_Error err; |
||||
int i; |
||||
char timestamp[50]; |
||||
char * hexstring; |
||||
|
||||
hexstring = malloc(strlen(argv[1]) / 2); |
||||
for (i = 0; i < strlen(argv[1]) / 2; i++) { |
||||
sscanf(argv[1] + i*2, "%2hhx", &hexstring[i]); |
||||
} |
||||
err = GSM_DecodePDUFrame(NULL, &m, hexstring, strlen(argv[1]) / 2, NULL, 1); |
||||
if (err != ERR_NONE) { |
||||
fprintf(stderr, "Failure to parse string: %s\n", GSM_ErrorString(err)); |
||||
} |
||||
GSM_DateTimeToTimestamp(&m.DateTime, timestamp); |
||||
|
||||
printf("Date: %s\n", timestamp); |
||||
printf("Number: %s\n", DecodeUnicodeConsole(m.Number)); |
||||
printf("Message:\n%s\n", DecodeUnicodeConsole(m.Text)); |
||||
} |
||||
@ -0,0 +1,126 @@ |
||||
#!/usr/bin/env sh |
||||
|
||||
err() { |
||||
echo $1 | dmenu -fn Terminus-20 -c -l 10 |
||||
exit 1 |
||||
} |
||||
|
||||
toggleflag() { |
||||
TOGGLEFLAG=$1 |
||||
shift |
||||
FLAGS="$@" |
||||
|
||||
echo -- "$FLAGS" | grep -- "$TOGGLEFLAG" >&2 && |
||||
NEWFLAGS="$(echo -- "$FLAGS" | sed "s/$TOGGLEFLAG//g")" || |
||||
NEWFLAGS="$(echo -- "$FLAGS $TOGGLEFLAG")" |
||||
|
||||
NEWFLAGS="$(echo -- "$NEWFLAGS" | sed "s/--//g; s/ / /g")" |
||||
|
||||
sxmo_megiaudioroute $NEWFLAGS |
||||
echo -- $NEWFLAGS |
||||
} |
||||
|
||||
dialmenu() { |
||||
NUMS=$(ls -1 ~/.sxmo || "") |
||||
NUMBER="$( |
||||
echo -e "$NUMS\nTest Number 804-222-1111" | |
||||
dmenu -l 10 -p Number -c -fn Terminus-20 | |
||||
awk -F' ' '{print $NF}' | |
||||
tr -d - |
||||
)" |
||||
echo "Attempting to dial: $NUMBER" >&2 |
||||
VID=$( |
||||
sudo mmcli -m 0 --voice-create-call "number=$NUMBER" | grep -Eo Call/[0-9]+ | grep -oE [0-9]+ |
||||
) |
||||
echo "Starting call with VID: $VID" >&2 |
||||
|
||||
echo "$(startcall $VID)" |
||||
} |
||||
|
||||
startcall() { |
||||
VID=$1 |
||||
sudo mmcli -m 0 -o $VID --start | grep "successfully started" || err "Couldn't start call!" |
||||
echo $VID |
||||
} |
||||
|
||||
hangup() { |
||||
VID=$1 |
||||
sudo mmcli -m 0 -o $VID --hangup |
||||
exit 1 |
||||
} |
||||
|
||||
incallmenu() { |
||||
DMENUIDX=0 |
||||
VID="$1" |
||||
|
||||
# E.g. Run once w/o -2, and then run once with -2 |
||||
FLAGS="-e -m" |
||||
sxmo_megiaudioroute $FLAGS |
||||
FLAGS="$FLAGS -2" |
||||
sxmo_megiaudioroute $FLAGS |
||||
|
||||
while true |
||||
do |
||||
echo -- "$FLAGS" | grep -- "-m" && TMUTE="Mute" || TMUTE="Unmute" |
||||
echo -- "$FLAGS" | grep -- "-z" && TECHO="Echomic Off" || TECHO="Echomic On" |
||||
echo -- "$FLAGS" | grep -- "-e" && TEARPIECE="Earpiece Off" || TEARPIECE="Earpiece On" |
||||
echo -- "$FLAGS" | grep -- "-h" && TLINEJACK="Linejack Off" || TLINEJACK="Linejack On" |
||||
echo -- "$FLAGS" | grep -- "-s" && TSPEAKER="Speakerphone Off" || TSPEAKER="Speakerphone On" |
||||
|
||||
CHOICES="$(echo -ne ' |
||||
Volume ↑ ^ sxmo_vol.sh up |
||||
Volume ↓ ^ sxmo_vol.sh down |
||||
TMUTE ^ FLAGS="$(toggleflag "-m" "$FLAGS")" |
||||
TECHO ^ FLAGS="$(toggleflag "-z" "$FLAGS")" |
||||
TEARPIECE ^ FLAGS="$(toggleflag "-e" "$FLAGS")" |
||||
TLINEJACK ^ FLAGS="$(toggleflag "-h" "$FLAGS")" |
||||
TSPEAKER ^ FLAGS="$(toggleflag "-s" "$FLAGS")" |
||||
DTMF Tones ^ dtmfmenu $VID |
||||
Hangup ^ hangup $VID |
||||
Lock Screen ^ hangup |
||||
' | sed "s/TMUTE/$TMUTE/;s/TECHO/$TECHO/;s/TEARPIECE/$TEARPIECE/;s/TLINEJACK/$TLINEJACK/;s/TSPEAKER/$TSPEAKER/" |
||||
)" |
||||
|
||||
PICKED=$( |
||||
echo "$CHOICES" | |
||||
xargs -0 echo | |
||||
cut -d'^' -f1 | |
||||
sed '/^[[:space:]]*$/d' | |
||||
awk '{$1=$1};1' | |
||||
dmenu -idx $DMENUIDX -l 14 -c -fn "Terminus-30" -p "$VID" |
||||
) |
||||
CMD=$(echo "$CHOICES" | grep "$PICKED" | cut -d '^' -f2) |
||||
DMENUIDX=$(echo $(echo "$CHOICES" | grep -n "$PICKED" | cut -d ':' -f1) - 1 | bc) |
||||
eval $CMD |
||||
done |
||||
} |
||||
|
||||
dtmfmenu() { |
||||
VID=$1 |
||||
DMENUIDX=0 |
||||
NUMS="0123456789*#ABCD" |
||||
|
||||
while true |
||||
do |
||||
PICKED="$( |
||||
echo $NUMS | grep -o . | sed '1 iReturn to Call Menu' | |
||||
dmenu -l 20 -fn Terminus-20 -c -idx $DMENUIDX -p "DTMF Tone" |
||||
)" |
||||
DMENUIDX=$(echo $NUMS | grep -bo $PICKED | cut -d: -f1 | xargs -IN echo 2+N | bc) |
||||
|
||||
echo $PICKED | grep "Return to Call Menu" && break |
||||
mmcli -m 0 -o $VID --send-dtmf="$PICKED" |
||||
done |
||||
} |
||||
|
||||
|
||||
dial() { |
||||
VID="$(dialmenu)" |
||||
incallmenu $VID |
||||
} |
||||
|
||||
pickup() { |
||||
startcall $1 |
||||
} |
||||
|
||||
$@ |
||||
@ -0,0 +1,57 @@ |
||||
#!/usr/bin/env sh |
||||
TIMEOUT=3 |
||||
MODEM=$(mmcli -L | grep -o "Modem/[0-9]" | grep -o [0-9]$) |
||||
|
||||
newcall() { |
||||
sxmo_setpineled green 1 |
||||
|
||||
echo "Incoming Call:" |
||||
INCOMINGNUMBER=$( |
||||
mmcli -m 0 --voice-list-calls -o 3 -K | |
||||
grep call.properties.number | |
||||
cut -d ':' -f 2 |
||||
) |
||||
echo "Number: $INCOMINGNUMBER" |
||||
} |
||||
|
||||
newtexts() { |
||||
sxmo_setpineled green 1 |
||||
|
||||
echo "New Texts:" |
||||
for i in $(echo -e "$1") ; do |
||||
DAT="$(mmcli -m 0 -s $i -K)" |
||||
|
||||
TEXT="$(echo "$DAT" | grep sms.content.text | sed -E 's/^sms\.content\.text\s+:\s+//')" |
||||
NUM="$(echo "$DAT" | grep sms.content.number | sed -E 's/^sms\.content\.number\s+:\s+[+]?//')" |
||||
TIME="$(echo "$DAT" | grep sms.properties.timestamp | sed -E 's/^sms\.properties\.timestamp\s+:\s+//')" |
||||
TEXTSIZE="$(echo $TEXT | wc -c)" |
||||
|
||||
mkdir -p ~/.sxmo/$NUM |
||||
echo -ne "$NUM at $TIME:\n$TEXT\n\n" >> ~/.sxmo/$NUM/sms.txt |
||||
echo -ne "$TIME\trecv_txt\t$NUM\t$TEXTSIZE chars\n" >> ~/.sxmo/$NUM/log.tsv |
||||
sudo mmcli -m $MODEM --messaging-delete-sms=$i |
||||
done |
||||
} |
||||
|
||||
while true |
||||
do |
||||
sxmo_setpineled green 0 |
||||
VOICECALLID="$( |
||||
mmcli -m 0 --voice-list-calls -a | |
||||
grep -Eo '[0-9]+ incoming \(ringing-in\)' | |
||||
grep -Eo '[0-9]+' |
||||
)" |
||||
|
||||
TEXTIDS="$( |
||||
mmcli -m 0 --messaging-list-sms | |
||||
grep -Eo '/SMS/[0-9] \(received\)' | |
||||
grep -Eo '[0-9]+' |
||||
)" |
||||
|
||||
echo VIDS $VOICECALLID |
||||
echo TIDS $TEXTIDS |
||||
|
||||
echo "$VOICECALLID" | grep . && newcall "$VOICECALLID" |
||||
echo "$TEXTIDS" | grep . && newtexts "$TEXTIDS" |
||||
sleep $TIMEOUT |
||||
done |
||||
@ -0,0 +1,53 @@ |
||||
#!/usr/bin/env sh |
||||
EDITOR=vis |
||||
|
||||
modem() { |
||||
mmcli -L | grep -o "Modem/[0-9]" | grep -o [0-9]$ |
||||
} |
||||
|
||||
editmsg() { |
||||
TMP="$(mktemp --suffix $1_msg)" |
||||
echo "$2" > "$TMP" |
||||
TEXT="$(st -e $EDITOR $TMP)" |
||||
cat $TMP |
||||
} |
||||
|
||||
sendmsg() { |
||||
MODEM=$(modem) |
||||
SMSNO=$( |
||||
sudo mmcli -m $MODEM --messaging-create-sms="text='$2',number=$1" | |
||||
grep -o [0-9]*$ |
||||
) |
||||
sudo mmcli -s ${SMSNO} --send |
||||
for i in $(mmcli -m $MODEM --messaging-list-sms | grep " (sent)" | cut -f5 -d' ') ; do |
||||
sudo mmcli -m $MODEM --messaging-delete-sms=$i |
||||
done |
||||
} |
||||
|
||||
main() { |
||||
modem || st -e "echo Couldn't determine modem number - is modem online?" |
||||
|
||||
# Prompt for number |
||||
NUMBER=$( |
||||
echo -e "Enter Number: \nCancel" | |
||||
dmenu -p "Number" -fn "Terminus-20" -l 10 -c |
||||
) |
||||
echo "$NUMBER" | grep -E "^Cancel$" && exit 1 |
||||
|
||||
# Compose first version of msg |
||||
TEXT="$(editmsg $NUMBER 'Enter text message here')" |
||||
|
||||
while true |
||||
do |
||||
CHARS=$(echo "$TEXT" | wc -c) |
||||
CONFIRM=$( |
||||
echo -e "Message ($CHARS) to -> $NUMBER: ($TEXT)\nEdit\nSend\nCancel" | |
||||
dmenu -c -idx 1 -p "Confirm" -fn "Terminus-20" -l 10 |
||||
) |
||||
echo "$CONFIRM" | grep -E "^Send$" && sendmsg "$NUMBER" "$TEXT" && exit 0 |
||||
echo "$CONFIRM" | grep -E "^Cancel$" && exit 1 |
||||
echo "$CONFIRM" | grep -E "^Edit$" && TEXT="$(editmsg "$NUMBER" "$TEXT")" |
||||
done |
||||
} |
||||
|
||||
main |
||||
@ -0,0 +1,145 @@ |
||||
#!/usr/bin/expect -f |
||||
|
||||
proc setup {} { |
||||
set timeout 5 |
||||
exp_internal 1 |
||||
set ::env(DISPLAY) :0 |
||||
spawn sh -c "screen -rx dialer || screen -S dialer /dev/ttyUSB2 115200" |
||||
set modem_pid $spawn_id |
||||
sleep 0.2 |
||||
send -i $modem_pid "AT+QDAI=1,0,0,2,0,1,1,1;\r" |
||||
expect { |
||||
-i $modem_pid "OK" { return $modem_pid } |
||||
} |
||||
puts "Couldn't establish connection to modem?" |
||||
exit |
||||
} |
||||
|
||||
proc dialermenu {} { |
||||
# Prompt user for number to dial |
||||
spawn sh -c "pidof svkbd-sxmo || svkbd-sxmo" |
||||
spawn sh -c " |
||||
echo Test Number 804-222-1111 | |
||||
dmenu -l 10 -p Number -c -fn Terminus-20 | |
||||
awk -F' ' '{print \$NF}' | |
||||
tr -d - |
||||
" |
||||
wait |
||||
expect -re "(\\d+)" |
||||
return $expect_out(buffer) |
||||
} |
||||
|
||||
proc call {modem_pid number} { |
||||
puts "Calling <$number>" |
||||
send -i $modem_pid "ATD$number;\r" |
||||
expect { |
||||
-i $modem_pid "OK" { incallmenu $modem_pid $number } |
||||
} |
||||
spawn sh -c "echo 'Failed to connect?' | dmenu -fn Terminus-20 -c" |
||||
wait |
||||
exit |
||||
} |
||||
|
||||
proc lremove {l p} { |
||||
set p [lsearch -exact $l $p] |
||||
return "[lrange $l 0 $p-1] [lrange $l $p+1 end]" |
||||
} |
||||
proc iteminlist {l i} { |
||||
return [expr [lsearch -exact $l $i] >= 0] |
||||
} |
||||
|
||||
proc applyaudiorouting {flags} { |
||||
puts "Applying audio routing flags: $flags" |
||||
spawn sxmo_megiaudioroute {*}$flags |
||||
wait |
||||
} |
||||
|
||||
proc incallmenu {modem_pid number} { |
||||
# E.g. default earpiece to listen and mic to speak |
||||
set flags { -e -m } |
||||
applyaudiorouting $flags |
||||
lappend flags -2 |
||||
applyaudiorouting $flags |
||||
|
||||
while 1 { |
||||
set mutetext [expr {[iteminlist $flags -m] ? "Mute" : "Unmute"}] |
||||
set echotext [expr {[iteminlist $flags -z] ? "Echomic Off" : "Echomic On"}] |
||||
set earpiecetext [expr {[iteminlist $flags -e] ? "Earpiece Off" : "Earpiece On"}] |
||||
set headphonetext [expr {[iteminlist $flags -h] ? "Linejack Off" : "Linejack On"}] |
||||
set speakerphonetext [expr {[iteminlist $flags -s] ? "Speakerphone Off" : "Speakerphone On"}] |
||||
spawn sh -c " |
||||
echo -e ' |
||||
Volume ↑ |
||||
Volume ↓ |
||||
$mutetext |
||||
$echotext |
||||
$earpiecetext |
||||
$headphonetext |
||||
$speakerphonetext |
||||
Windowify |
||||
Hangup |
||||
Lock Screen |
||||
Number Input |
||||
' | sed -r '/^\s*$/d' | awk '{\$1=\$1};1' | dmenu -c -fn Terminus-20 -l 10 -p '$number' |
||||
" |
||||
wait |
||||
expect { |
||||
"Mute" { set flags [lremove $flags -m]; applyaudiorouting $flags } |
||||
"Unmute" { lappend flags -m; applyaudiorouting $flags } |
||||
|
||||
"Echomic Off" { set flags [lremove $flags -z]; applyaudiorouting $flags } |
||||
"Echomic On" { lappend flags -z; applyaudiorouting $flags } |
||||
|
||||
"Earpiece Off" { set flags [lremove $flags -e]; applyaudiorouting $flags } |
||||
"Earpiece On" { lappend flags -e; applyaudiorouting $flags } |
||||
|
||||
"Linejack Off" { set flags [lremove $flags -h]; applyaudiorouting $flags } |
||||
"Linejack On" { lappend flags -h; applyaudiorouting $flags } |
||||
|
||||
"Speakerphone Off" { set flags [lremove $flags -s]; applyaudiorouting $flags } |
||||
"Speakerphone On" { lappend flags -s; applyaudiorouting $flags } |
||||
|
||||
"Volume ↑" { spawn sxmo_vol.sh up } |
||||
"Volume ↓" { spawn sxmo_vol.sh down } |
||||
|
||||
"Numberpad" { spawn sxmo_vol.sh down } |
||||
|
||||
"Lock Screen" { spawn sxmo_screenlock; wait } |
||||
"Windowify" { spawn sxmo_phonecallerwindowify.tcl; wait } |
||||
|
||||
"Hangup" { hangup $modem_pid } |
||||
} |
||||
} |
||||
} |
||||
|
||||
proc hangup {modem_pid} { |
||||
spawn sxmo_megiaudioroute -h |
||||
send -i $modem_pid "ATH;\r" |
||||
expect { |
||||
-i $modem_pid "OK" exit |
||||
} |
||||
puts "Failed to hangup?" |
||||
exit |
||||
} |
||||
|
||||
proc dial {modem_pid} { |
||||
puts "Dialer" |
||||
set number [dialermenu] |
||||
call $modem_pid $number |
||||
} |
||||
|
||||
proc pickup {modem_pid number} { |
||||
spawn rm -f /tmp/sxmo_incomingcall |
||||
puts "Pickup" |
||||
send -i $modem_pid "ATA;\r" |
||||
expect { |
||||
-i $modem_pid "OK" { incallmenu $modem_pid $number } |
||||
} |
||||
puts "Failed to pickup?" |
||||
exit |
||||
} |
||||
|
||||
switch [lindex $argv 0] { |
||||
"pickup" {pickup [setup] [lindex $argv 1]} |
||||
"dial" {dial [setup]} |
||||
} |
||||
@ -0,0 +1,10 @@ |
||||
#!/usr/bin/env tclsh |
||||
package require Tk |
||||
|
||||
proc callwindowify {number} { |
||||
font create AppHighlightFont -size 40 -weight bold |
||||
grid [ttk::label .l -text "In Call with $number" -font AppHighlightFont] |
||||
grid [ttk::button .button -text "Return to Call Menu (unwindowify)" -command exit] |
||||
} |
||||
|
||||
callwindowify [lindex $argv 0] |
||||
@ -0,0 +1,107 @@ |
||||
#!/usr/bin/expect -f |
||||
|
||||
proc setup {} { |
||||
set timeout 1 |
||||
exp_internal 0 |
||||
log_user 0 |
||||
set ::env(DISPLAY) :0 |
||||
spawn sh -c "screen -wipe" |
||||
spawn sh -c "screen -rx dialer || screen -S dialer /dev/ttyUSB2 115200" |
||||
sleep 0.3 |
||||
set modem_pid $spawn_id |
||||
sleep 0.2 |
||||
|
||||
# Set audio routing |
||||
messagemodem $modem_pid "AT+QDAI=1,0,0,2,0,1,1,1;\r" 1 |
||||
# Setup text message to immediatly show text response on +CMT recvs |
||||
messagemodem $modem_pid "AT+CNMI=1,2,0,1,0;\r" 1 |
||||
# Set message format as PDU |
||||
messagemodem $modem_pid "AT+CMGF=0;\r" 1 |
||||
|
||||
return $modem_pid |
||||
} |
||||
|
||||
proc messagemodem {modem_pid message fatal} { |
||||
send -i $modem_pid $message |
||||
expect { |
||||
-i $modem_pid "OK" { |
||||
return 1 |
||||
} |
||||
} |
||||
if {$fatal} { |
||||
puts "Couldn't run command on modem: $message" |
||||
exit |
||||
} |
||||
return 0 |
||||
} |
||||
|
||||
set modem_pid [setup] |
||||
sleep 0.2 |
||||
|
||||
# E.g. consume the thing |
||||
expect -i $modem_pid eof |
||||
|
||||
proc writenumber {number} { |
||||
exec sh -c "echo '$number' > /tmp/sxmo_incomingcall" |
||||
puts "Ring for incoming call: <$number>" |
||||
spawn sxmo_setpineled blue 0 |
||||
sleep 0.3 |
||||
} |
||||
|
||||
proc ring {modem_pid} { |
||||
send -i $modem_pid "AT+CLCC\r" |
||||
expect { |
||||
-i $modem_pid -re {\n\+CLCC: 4,.+\+(\d+)} { writenumber $expect_out(1,string) } |
||||
-i $modem_pid -re {\n\+CLCC: 3} { writenumber "UNKNOWN" } |
||||
} |
||||
} |
||||
|
||||
proc textmsg {modem_pid pdutext} { |
||||
puts "New text msg - pdu text $pdutext" |
||||
spawn sxmo_pdudecode $pdutext |
||||
wait |
||||
expect -i $spawn_id -re {Date: ([\-0-9]+)\r\nNumber: \+?([^\n]+)\r\nMessage:\r\n(.+)$} { puts "Matched ok"; } |
||||
set date $expect_out(1,string) |
||||
set number $expect_out(2,string) |
||||
set msg [string trim $expect_out(3,string)] |
||||
|
||||
puts "<date: $date>" |
||||
puts "<number: $number>" |
||||
puts "<msg: $msg>" |
||||
|
||||
spawn date "+%Y/%m/%d %H:%M:%S" -d "@$date" |
||||
wait |
||||
expect |
||||
set prettydate [string trim $expect_out(buffer)] |
||||
|
||||
set USER $::env(USER) |
||||
spawn mkdir -p "/home/$USER/.sxmo/$number" |
||||
wait |
||||
set fp "/home/$USER/.sxmo/$number/log.txt" |
||||
|
||||
set logf [open $fp a] |
||||
puts $logf "$number at \[$prettydate\]:\n$msg\n" |
||||
close $logf |
||||
} |
||||
|
||||
proc nocarrier {modem_pid} { |
||||
spawn sxmo_setpineled blue 0 |
||||
exec sh -c "rm -f /tmp/sxmo_incomingcall" |
||||
puts "No carrier" |
||||
} |
||||
|
||||
while 1 { |
||||
set is_ringing 0 |
||||
set timeout 2 |
||||
expect { |
||||
-i $modem_pid -re {\nRING\r} {ring $modem_pid; set is_ringing 1} |
||||
-i $modem_pid -re {\nNO CARRIER\r} {nocarrier $modem_pid; set is_ringing 0} |
||||
-i $modem_pid -re {\n\+CMT: \S+\r\n([0-9A-F]+)} {textmsg $modem_pid $expect_out(1,string)} } |
||||
if { $is_ringing } { |
||||
spawn sxmo_setpineled blue 1 |
||||
} else { |
||||
spawn sxmo_setpineled blue 0 |
||||
} |
||||
|
||||
sleep 2 |
||||
} |
||||
@ -0,0 +1,8 @@ |
||||
#!/usr/bin/env sh |
||||
DIR=/home/$USER/.sxmo |
||||
|
||||
# Warn for no texts |
||||
ls -1 $DIR | wc -l | grep -E '^0$' && echo "No texts!" | dmenu -fn Terminus-20 -l 10 -c && exit 1 |
||||
|
||||
# Display |
||||
ls -1 $DIR | dmenu -p Messages -c -fn Terminus-20 -l 10 | xargs -INUMBER st -e tail -f $DIR/NUMBER/sms.txt |
||||
@ -1,15 +0,0 @@ |
||||
move() { |
||||
xdotool keydown Alt |
||||
echo "Move done?" | dmenu |
||||
xdotool keyup Alt |
||||
} |
||||
|
||||
resize() { |
||||
xdotool keydown Alt |
||||
xdotool mousedown 3 |
||||
echo "Resize done?" | dmenu |
||||
xdotool keyup Alt |
||||
xdotool mouseup 3 |
||||
} |
||||
|
||||
$@ |
||||
@ -1,82 +0,0 @@ |
||||
#!/usr/bin/expect -f |
||||
|
||||
proc setup {} { |
||||
set timeout 5 |
||||
exp_internal 1 |
||||
# Cleanup - set DISPLAY & if screen to modem already on, kill it |
||||
set ::env(DISPLAY) :0 |
||||
#spawn screen -XS dialer quit |
||||
spawn sh -c "screen -rx dialer || screen -S dialer /dev/ttyUSB2 115200" |
||||
return $spawn_id |
||||
} |
||||
|
||||
proc dialermenu {} { |
||||
# Prompt user for number to dial |
||||
spawn sh -c "pidof svkbd-sxmo || svkbd-sxmo" |
||||
spawn sh -c " |
||||
echo Test Number 804-222-1111 | |
||||
dmenu -l 10 -p Number -c -fn Terminus-20 | |
||||
awk -F' ' '{print \$NF}' | |
||||
tr -d - |
||||
" |
||||
wait |
||||
expect -re "(\\d+)" |
||||
return $expect_out(buffer) |
||||
} |
||||
|
||||
proc call {modem_pid number} { |
||||
puts "Calling <$number>" |
||||
send -i $modem_pid "ATD$number;\r" |
||||
expect { |
||||
-i $modem_pid "OK" { incallmenu $modem_pid $number } |
||||
} |
||||
spawn sh -c "echo 'Failed to connect?' | dmenu -fn Terminus-20 -c" |
||||
wait |
||||
exit |
||||
} |
||||
|
||||
proc incallmenu {modem_pid number} { |
||||
while 1 { |
||||
spawn sh -c " |
||||
echo -e ' |
||||
Mute |
||||
Hangup |
||||
Lock Screen |
||||
Number Input |
||||
' | sed -r '/^\s*$/d' | awk '{\$1=\$1};1' | dmenu -c -fn Terminus-20 -l 10 -p '$number' |
||||
" |
||||
wait |
||||
expect { |
||||
"Mute" mute |
||||
"Volume ↑" { spawn sxmo_vol.sh up } |
||||
"Volume ↓" { spawn sxmo_vol.sh down } |
||||
"Numberpad" { spawn sxmo_vol.sh down } |
||||
"Unmute" unmute |
||||
"Hangup" { hangup $modem_pid } |
||||
} |
||||
} |
||||
} |
||||
|
||||
proc hangup {modem_pid} { |
||||
send -i $modem_pid "ATH;\r" |
||||
expect { |
||||
-i $modem_pid "OK" exit |
||||
} |
||||
puts "Failed to hangup?" |
||||
exit |
||||
} |
||||
|
||||
proc dial {modem_pid} { |
||||
puts "Dialer" |
||||
set number [dialermenu] |
||||
call $modem_pid $number |
||||
} |
||||
|
||||
proc pickup {modem_pid} { |
||||
puts "Pickup" |
||||
} |
||||
|
||||
switch [lindex $argv 0] { |
||||
"pickup" {pickup [setup]} |
||||
"dial" {dial [setup]} |
||||
} |
||||
@ -1,34 +0,0 @@ |
||||
#!/usr/bin/expect -f |
||||
|
||||
proc setup {} { |
||||
set timeout 5 |
||||
#exp_internal 1 |
||||
log_user 0 |
||||
set ::env(DISPLAY) :0 |
||||
spawn sh -c "screen -wipe" |
||||
spawn sh -c "screen -rx dialer || screen -S dialer /dev/ttyUSB2 115200" |
||||
return $spawn_id |
||||
} |
||||
|
||||
set modem_pid [setup] |
||||
sleep 0.2 |
||||
|
||||
send -i $modem_pid "AT+CNUM\r" |
||||
expect -i $modem_pid -re {\n\+CNUM: ([^\r]+)\r} |
||||
set f $expect_out(1,string) |
||||
puts "My number: <$f>" |
||||
|
||||
send -i $modem_pid "AT+CSQ\r" |
||||
expect -i $modem_pid -re {\n\+CSQ: ([^\r]+)\r} |
||||
set f $expect_out(1,string) |
||||
puts "Modem signal strength: <$f>" |
||||
|
||||
send -i $modem_pid "AT+QCCID\r" |
||||
expect -i $modem_pid -re {\n\+QCCID: ([^\r]+)\r} |
||||
set f $expect_out(1,string) |
||||
puts "ICCID: <$f>" |
||||
|
||||
send -i $modem_pid "AT+QNWINFO\r" |
||||
expect -i $modem_pid -re {\n\+QNWINFO: ([^\r]+)\r} |
||||
set f $expect_out(1,string) |
||||
puts "Network Info: <$f>" |
||||
@ -1,45 +0,0 @@ |
||||
#!/usr/bin/expect -f |
||||
|
||||
proc setup {} { |
||||
set timeout 1 |
||||
exp_internal 0 |
||||
log_user 0 |
||||
set ::env(DISPLAY) :0 |
||||
spawn sh -c "screen -wipe" |
||||
spawn sh -c "screen -rx dialer || screen -S dialer /dev/ttyUSB2 115200" |
||||
#spawn dialerscreen.sh |
||||
#spawn sh -c "screen -S dialer /dev/ttyUSB2 115200" |
||||
return $spawn_id |
||||
} |
||||
|
||||
set modem_pid [setup] |
||||
sleep 0.2 |
||||
|
||||
# E.g. consume the thing |
||||
expect -i $modem_pid eof |
||||
|
||||
proc ring {modem_pid} { |
||||
puts "Ringing" |
||||
|
||||
send -i $modem_pid "AT+CLCC\r" |
||||
expect -i $modem_pid -re {\n\+CLCC: 3,([^\r]+)\r} |
||||
set f $expect_out(1,string) |
||||
puts "Modem signal strength: <$f>" |
||||
|
||||
} |
||||
proc nocarrier {modem_pid} { |
||||
puts "No carrier" |
||||
} |
||||
|
||||
while 1 { |
||||
set is_ringing 0 |
||||
set timeout 2 |
||||
#send -i $modem_pid "AT+CPAS\r" |
||||
expect { |
||||
-i $modem_pid -re {\nRING\r} {ring $modem_pid} |
||||
-i $modem_pid -re {\nNO CARRIER\r} {nocarrier $modem_pid} |
||||
} |
||||
#set status $expect_out(1,string) |
||||
#puts "My number: <$status>" |
||||
sleep 2 |
||||
} |
||||
Loading…
Reference in new issue