Calculadora programada com AD (Yet Another Dialoging shell programming)

Colaboração: Julio Cezar Neves

Data de Publicação: 16 de Agosto de 2013

Acho que nunca foi feita uma linguagem de programação tão sucinta quanto o Shell. Apesar disso, em tempos de mouse e telas coloridas, realmente ele deixava um pouco a desejar porque lhe faltavam essas habilidades, apesar de terem sido várias as tentativas, como (só para citar algumas): Zenity, Dialog, Kdialog, Xdialog, Gdialog, ...

Surge agora, um novo projeto que é um fork do Zenity e chama-se YAD (Yet Another Dialoging shell programing). Em seu pouco tempo de vida ele já tem mais do dobro das facilidades oferecidas pelo Zenity, seu predecessor, e é capaz de montar praticamente todas as interfaces com os usuários em um único formulário, definido pela opção --form.

A intenção desse artigo não é ensinar a instalar o YAD, ou como usá-lo. O que quero deixar muito claro, é a sua qualidade da apresentação, como é fácil e sucinto usá-lo e a sua abrangência de uso. Assim sendo, vamos logo a um exemplo que usa somente um de seus 15 diálogos possíveis.

O diálogo que usaremos é o --form que, somente ele, aceita 19 tipos de opções de caixas distintas isto é, dentro de um formulário, podemos definir ComboBoxes, CheckBoxes, campo escondido (senha), SpinBoxes, caixas para seleção de arquivos, para seleção de fontes, para seleção de cores, caixas de texto multilinha, ...

Vejamos um exemplo de um formulário que é formado somente por botões, e um mostrador, já que nossa intenção é fazer uma calculadora. O exemplo é formado por 2 programas. O primeiro, calc.yad, faz a camada de apresentação e o segundo, calc.sh, põe o bash para trabalhar, para fazer a camada de negócio, ou seja, a lógica da calculadora.

Veja o produto final:

UAUUU! Com um acabamento desses isso não pode ser Shell! Mas é sim. Shell + YAD + bc. O trio trilha troços trufados! ;)

Pela figura, você pode ver que montamos uma apresentação plana, mas que ganha relevo quando o mouse se superpõe a um botão (mouse over). Pode-se notar também que é possível introduzir dicas (tips) na definição de cada botão. Vejamos o código:

$ cat calc.yad
#!/bin/bash
#  Calculadora usando Bash, bc e yad

> ~/.mem   # Será usado como memória
trap 'rm ~/.mem; exit' 0 2 3 15
yad --form --columns 8 --width 500 --no-buttons \
    --title "Calculadora YAD + Bash + bc"       \
    --field='' ''  --field :LBL ''              \
    --field :RO 'Casas decimais'                \
    --field 'Decimais!Ajusta a precisão         \
do cálculo':BTN "@calc.s h '' PR"               \
    --field=7:BTN "@echo 1:%1\7"                \
    --field=4:BTN "@echo 1:%1\4"                \
    --field=1:BTN "@echo 1:%1\1"                \
    --field=,:BTN "@echo 1:%1\,"                \
    --field=8:BTN "@echo 1:%1\8"                \
    --field=5:BTN "@echo 1:%1\5"                \
    --field=2:BTN "@echo 1:%1\2"                \
    --field=0:BTN "@echo 1:%1\0"                \
    --field=9:BTN "@echo 1:%1\9"                \
    --field=6:BTN "@echo 1:%1\6"                \
    --field=3:BTN "@echo 1:%1\3"                \
    --field '!Enche linguiça':BTN ''            \
    --field=+:BTN "@echo 1:%1\+"                \
    --field=:BTN "@echo 1:%1\x"                 \
    --field='??!Raiz Quadrada':BTN              \
        '@./calc.sh '%1' RQ %3'                 \
    --field='±!Troca sinal':BTN                 \
        "@./calc.sh '%1' +-"                    \
    --field=-:BTN "@echo 1:%1\-"                \
    --field=÷:BTN "@echo 1:%1\/"                \
    --field='x?!Potenciação':BTN "@echo 1:%1\^" \
    --field='1/x!Inverte':BTN                   \
        '@./calc.sh '%1' 1X %3'                 \
    --field==:BTN '@./calc.sh '%1' = %3'        \
    --field=\(:BTN "@echo 1:%1\("               \
    --field='CL!Limpa':BTN "@echo 1:"           \
    --field='MC!Limpa memória':BTN              \
        "@./calc.sh '' MC"                      \
    --field=\?:BTN "@./calc.sh %1 AP"           \
    --field=\):BTN "@echo 1:%1\)"               \
    --field='M+!Adiciona à memória':BTN "       \
        @./calc.sh '%1' M+ %3"                  \
    --field='MR!Trás conteúdo da memória':BTN   \
        "@./calc.sh '%1' MR"

Como vocês viram o formulário é somente um composto de um diálogo --form com diversos campos do tipo botão (:BTN). As contrabarras no fim da cada linha são para informar ao Shell que a linha não terminou e o texto continua na linha seguinte. Se não as tivesse usado, teria de escrever todo o comando em uma única linha e aí ficaria muito difícil de explicá-lo, de lê-lo e principalmente de depurá-lo.

No início do script, criei um arquivo chamado .mem no diretório home, em seguida montei uma trap para removê-lo quando o programa terminasse ou fosse (ex)terminado. ;) e a partir de então foi somente mais um comando yad, onde destaco:

Como todos os demais campos são do tipo botão (:BTN), vamos entender como se comportam começando pela sua sintaxe:

—field ROTULO[!DICA]:BTN CMD

Onde:

Se CMD começar com um arroba (@), é sinal que vou usar outros campos do formulário. Se nessa linha houver um %N, onde N é um numérico, ele será trocado pelo conteúdo do campo N (enésimo campo). Para mandar um valor para o campo M, onde M também é um número, ele deve ser mencionado com M:. Resumindo: %N recebe valor do enésimo campo e M: coloca o valor no emésimo campo.

Para entender melhor, veja esses exemplos:

$ yad --form --field _Botão:BTN 'ls -l'

Nesse caso quando Botão for clicado, mandará a saída do "ls -l" para a tela. O sublinha (_) antes do B, faz com que ele apareça sublinhado no formulário e <ALT>+<B> passa a ser a sua tecla de atalho.

$ yad --form --field '':TXT '' \
    --field Botão:BTN "@echo 1:$(ls)"

Desta vez, foi criado mais um campo no formulário, este do tipo :TXT. Esse tipo de campo é para receber textos multilinhas. Nesse caso, como CMD começava com arroba (@), o 1:$(ls), diz para a saída do ls ser feita no primeiro campo (1:).

$ yad --form --field "Arquivo:FL" '' \
    --field '1ª Linha:TXT' ''        \
    --field 'Mostre 1ª linha:BTN' "@./aux '%1'"

Neste último caso, temos um campo para seleção de arquivo (:FL), um do tipo texto multilinha (:TXT) e outro do tipo botão (:BTN). Esse último, quando clicado, chama o programa aux, (@./aux) passando o arquivo selecionado no primeiro campo (%1). Veja que aux também é um script e que ele verifica se o arquivo passado existe e, caso afirmativo, lista sua primeira linha. Veja só o aux; é um scriptizinho xexelento:

$ cat aux
[ -f $1 ] && 
    echo 2:$(head -1 $1) || 
    echo 2:$1 não é arquivo

Bem já vimos as diversas formas de trabalhar com botões, mas há algum tempo mandei para a Dicas-L um artigo que explicava o uso de botões no YAD. Se você se interessou pelo tema, pode vê-lo aqui. Então vamos voltar ao código da nossa calculadora: repare que existem somente dois tipos de ação com os campos do tipo botão:

—field=7:BTN "@echo 1:%1\7"

—field='M+!Adiciona à memória':BTN "       \
        @./calc.sh '%1' M+ %3"

$ cat calc.sh
#!/bin/bash 

Prec=$(expr $3 + 0 2> /dev/null) || Prec=0 
case $2 in 
    =)  Conta=$(tr 'x,' '*.' <<< "$1") 
        echo 1:$(echo "scale=$Prec; $Conta" | 
            bc | tr . ,) ;; 
    RQ) Conta=$(tr 'x,' '*.' <<< "$1") 
        echo 1:$(echo "scale=$Prec; sqrt ($Conta)" | 
            bc | tr . ,) ;; 
    1X) Conta=$(tr 'x,' '*.' <<< "$1") 
        echo 1:$(echo "scale=$Prec; 1/($Conta)" | \
            bc | tr . ,) ;; 
    M+) Num=$([ -s ~/.mem ] && cat ~/.mem || echo 0) 
        Conta=$(tr , . <<< "$1") 
        bc <<< "$Conta + $Num" > ~/.mem ;; 
    MR) echo 1:$(cat ~/.mem) ;; 
    MC) > ~/.mem ;; 
    AP) echo 1:${1%?} ;; 
    PR) IFS='|' read lx lx Dec lx <<< \
        "$(yad --form --columns 4 \
            --title "Decimais" \ 
            --field "\tInforme precisão":LBL '' \
            --field "\tentre 0 e 9 decimais":LBL '' \
            --field '' '' --field :LBL '' \ 
            --field 1:BTN '@echo 3:1' 
            --field 4:BTN '@echo 3:4' \
            --field 7:BTN '@echo 3:7' \
            --field :BTN '' \ 
            --field 2:BTN '@echo 3:2' \
            --field 5:BTN '@echo 3:5' \
            --field 8:BTN '@echo 3:8' \
            --field 0:BTN '@echo 3:0' \ 
            --field 3:BTN '@echo 3:3' \
            --field 6:BTN '@echo 3:6' \
            --field 9:BTN '@echo 3:9' \
            --field :BTN '' --button OK)" 
        echo 3:$Dec ;; 
    +-) Conta=$(tr , . <<< "$1") 
        echo 1:$(echo "-1 * $Conta" | bc | tr . ,) ;; 
    *)  echo 1:$1 
esac