Limpando a memória com a função: coletelixo()

23 de junho de 202423 de junho de 2024 admin

Olá, pessoal. Muitas vezes, nossos programas acabam usando muita memória da máquina. Ao abrir um arquivo grande, por exemplo. O programa irá automaticamente lidar com a limpeza de memória, já que prisma possui gerenciamento automático de memória. No entanto, essa limpeza pode demorar, ou até não ser feita em algumas situações. Porém, há uma maneira…

Continue reading →

pmd5 – 1.2 atualização

28 de agosto de 201923 de junho de 2024 admin

MD5 – algoritmo criptográfico que gera uma chave 128bits, útil para guardar senhas, ou para verificar a integridade de arquivos. (para mais detalhes de uma busca pela net) Prisma já tinha uma biblioteca md5 feita em prisma puro. Como seu desempenho não era bom com arquivos grandes, acabei portando uma da linguagem C: a pmd5.,…

Continue reading →

mki – criando arquivos *.run

24 de agosto de 20193 de julho de 2024 admin

Baixar: instalador do mki / fontes Você já deve ter visto ou usado um instalador com extensão *.run em Linux. Basta executá-lo no terminal que a mágica acontece: ele é extraído e executa um instalador. O que talvez vc não saiba é que esse arquivo é um auto-extraível, um script shell com um arquivo compactado…

Continue reading →

pzip – biblioteca para arquivos *.zip em Prisma

21 de agosto de 2019 admin

ZIP é um formato de compressão de arquivos muito utilizado e uma ferramenta dessas não deve faltar em uma linguagem de programação. Pzip é uma biblioteca Prisma que cumpre tal tarefa, feita em C ela é rápida e eficiente. Com funções básicas é possível criar e manipular arquivos zip, inclusive descompactá-los. Baixar pzip – (linux…

Continue reading →

pmicrotar – biblioteca para arquivos *.tar

21 de agosto de 201921 de agosto de 2019 admin

BAIXAR pmicrotar-0.4 Quem é do mundo *nix já deve conhecer o formato *.tar, muitas vezes confundido com um tipo de compressão de arquivo. Na verdade, trata-se de um formato de empacotamento, apenas une vários arquivos ou, até mesmo, diretórios. O formato TAR pode ser usado em conjunto com bibliotecas de compressão de dados dando assim…

Continue reading →

Biblioteca jpginfo.pris

28 de dezembro de 2017 admin

Essa biblioteca é feita puramente em Prisma, não há outras dependências nem código em C. Com ela é possível extrair informações de imagens jpg, como a altura, largura, tipo de canal de cor etc. Há apenas duas funções, segue um exemplo de uso:

local jpg = inclua'jpginfo'
local info = jpg.info('p4.jpg');
se nao info entao imprima(jpg.erro()); sis.saia(1); fim
imprima('Dimensão[larg x alt]:',info.larg .. ' x '.. info.alt);
imprima('Canal:', info.cs);
imprima('bits por componentes:', info.bpc);
imprima('Decoder:', info.f);
imprima('Id:', info.id);
imprima("Tam:", info.tam);
imprima('versao', info.versao); //versão do jpeg;
imprima('versão maior:', info.versao_maior);
imprima('versão menor:', info.versao_menor);

local jpg = inclua'jpginfo'

local info = jpg.info('p4.jpg');

se nao info entao imprima(jpg.erro()); sis.saia(1); fim

imprima('Dimensão[larg x alt]:',info.larg .. ' x '.. info.alt);

imprima('Canal:', info.cs);

imprima('bits por componentes:', info.bpc);

imprima('Decoder:', info.f);

imprima('Id:', info.id);

imprima("Tam:", info.tam);

imprima('versao', info.versao); //versão do jpeg;

imprima('versão maior:', info.versao_maior);

imprima('versão menor:', info.versao_menor);

clique aqui para Baixar;

Continue reading →

Monitor de bateria em Prisma (Linux)

20 de dezembro de 201720 de dezembro de 2017 admin

Uma boa função em Prisma é a es.pabra() que chama um programa externo capturando sua saída. Aproveitando isso criei um simples script que monitora a bateria, mostrando uma mensagem quando estiver descarregando. Segue o código para análise, bons estudos. Qualquer dúvida posta nos comentários!

 /*
  * Monitor de bateria simples em Prisma usando es.pabra() com o programa upower (linux);
  * e xmessage para a mensagem.
  */ 
//Sem licença (use como bem entender - o autor não será responsabilizado!) 

//2017 - 12 Adalberto Amorim Felipe

// linguagemprisma@gmail.com

//Biblioteca para permitir o uso de acentos e alguns caracteres especiais no cmd e gui do windows.
//Não converte todos os tipos de utf8, basico pt-br
//estou criando em C uma biblioteca mais completa para esta funcionalidade.

//ATENÇÃO este arquivo deverá ser salvo no formato utf8 
 
funcao parse(s)
  local tmp;
  a = s:analise('\n');
  local info = {};
  para i,v em pares(a) inicio
    se v <> '\n' entao
      tmp = v:analise(':');
      se tipo(tmp)=='tabela' entao
        se tmp[1] e tmp[3] entao
          info[tmp[1]:apare()] = tmp[3]:apare();
        fim
      fim
    fim
  // -- imprima(i,v);
  fim
  retorne info;
fim//fim funcao

local term  = inclua'terminal';

local funcao mensagem(titulo,txt, ...)
   local botoes = {...};
   local bts = '';
   para i,v em ipares(botoes) inicio
     bts = bts .. '"' .. v .. '",'
   fim
   bts = bts:corte(1,-2);
   local cmd = 'xmessage -title ' .. titulo .. ' "' .. txt .. '"  -center -buttons ' .. bts .. ' "$@" "" ;'
  // imprima(cmd);
   local ret,_,num = sis.execute(cmd);
   
   se num entao retorne convnumero(num); senao retorne falso; fim
fim

local cmd = 'upower -i /org/freedesktop/UPower/devices/battery_BAT0';
local a;

local cont = 1;
local info;
enquanto 1 inicio
  term.defCorletra(term.verde);
  a, err = es.pabra(cmd);
  se a entao
    info = a:leia'*t';
    a:feche();
    info = parse(info);
    se info.present == 'yes' entao info.present = verdadeiro; 
    senao
      info.present = falso;
    fim
    
    imprima('bateria presente?',info.present);
    se info.state == 'charging' entao info.state = 'carregando'; 
    senaose info.state=='discharging' entao info.state='descarregando';
    fim
    
    imprima('Estado:', (info.state:troque('charging','carregando')));
    imprima('Porcentagem:',info.percentage);
    
    local perc = convnumero(info.percentage:corte(1,info.percentage:procure('%%') -1 )); 
   // imprima(perc);   
    se perc < 13 e info.state == 'descarregando' entao 
      local aviso = string.formate('Bateria em estado critico, conecte o carregador agora!\n\ndescarregando: %0.2f%%',perc);
      imprima('Aviso::',aviso);
      mensagem("Aviso", aviso, '       ok       ');
    
    fim
  senao
    imprima('Erro', err);
  fim
  sis.durma(1000);
  //term.limpeTela();
  term.cursorInicio();
  local alt,larg = term.tamanho();
  para i = 1,alt inicio 
    es.escreva((' '):nconcat(larg));
  fim
  term.cursorInicio();
  imprima('------['..cont..']------');
  cont=cont+1;
fim 
term.defPadrao();

* Monitor de bateria simples em Prisma usando es.pabra() com o programa upower (linux);

* e xmessage para a mensagem.

//Sem licença (use como bem entender - o autor não será responsabilizado!)

//2017 - 12 Adalberto Amorim Felipe

// linguagemprisma@gmail.com

//Biblioteca para permitir o uso de acentos e alguns caracteres especiais no cmd e gui do windows.

//Não converte todos os tipos de utf8, basico pt-br

//estou criando em C uma biblioteca mais completa para esta funcionalidade.

//ATENÇÃO este arquivo deverá ser salvo no formato utf8

funcao parse(s)

local tmp;

a = s:analise('\n');

local info = {};

para i,v em pares(a) inicio

se v <> '\n' entao

tmp = v:analise(':');

se tipo(tmp)=='tabela' entao

se tmp[1] e tmp[3] entao

info[tmp[1]:apare()] = tmp[3]:apare();

fim

// -- imprima(i,v);

fim

retorne info;

fim//fim funcao

local term = inclua'terminal';

local funcao mensagem(titulo,txt, ...)

local botoes = {...};

local bts = '';

para i,v em ipares(botoes) inicio

bts = bts .. '"' .. v .. '",'

fim

bts = bts:corte(1,-2);

local cmd = 'xmessage -title ' .. titulo .. ' "' .. txt .. '" -center -buttons ' .. bts .. ' "$@" "" ;'

// imprima(cmd);

local ret,_,num = sis.execute(cmd);

se num entao retorne convnumero(num); senao retorne falso; fim

fim

local cmd = 'upower -i /org/freedesktop/UPower/devices/battery_BAT0';

local a;

local cont = 1;

local info;

enquanto 1 inicio

term.defCorletra(term.verde);

a, err = es.pabra(cmd);

se a entao

info = a:leia'*t';

a:feche();

info = parse(info);

se info.present == 'yes' entao info.present = verdadeiro;

senao

info.present = falso;

fim

imprima('bateria presente?',info.present);

se info.state == 'charging' entao info.state = 'carregando';

senaose info.state=='discharging' entao info.state='descarregando';

fim

imprima('Estado:', (info.state:troque('charging','carregando')));

imprima('Porcentagem:',info.percentage);

local perc = convnumero(info.percentage:corte(1,info.percentage:procure('%%') -1 ));

// imprima(perc);

se perc < 13 e info.state == 'descarregando' entao

local aviso = string.formate('Bateria em estado critico, conecte o carregador agora!\n\ndescarregando: %0.2f%%',perc);

imprima('Aviso::',aviso);

mensagem("Aviso", aviso, ' ok ');

fim

senao

imprima('Erro', err);

fim

sis.durma(1000);

//term.limpeTela();

term.cursorInicio();

local alt,larg = term.tamanho();

para i = 1,alt inicio

es.escreva((' '):nconcat(larg));

fim

term.cursorInicio();

imprima('------['..cont..']------');

cont=cont+1;

fim

term.defPadrao();

Por enquanto é isso, até mais!

Continue reading →

Xmessage – Linux

20 de dezembro de 201720 de dezembro de 2017 admin

Cria uma caixa de mensagem sem a necessidade de biblioteca gráfica Prisma, funciona apenas em Linux. Para quem é do mundo Linux talvez deva saber o que é Xmessage, Zenity e tantos outros diálogos para linha de comando. Esses programas acima são chamados por scripts sh em linux produzindo uma caixa de mensagem para uma interação…

Continue reading →

Gui básico em terminal | guiterminal.pris

3 de novembro de 20174 de novembro de 2017 admin

Fiz uma correção na mensagem questão (botões) e reupei:(4/11/2017) Muitas vezes por algum motivo é necessário abrir mão da interface gráfica e usar apenas o terminal de comandos, seja por questão de memória, seja em um servidor etc. Que tal unir um pouco dos dois mundos, criando mensagens box, diálogos e listagem no terminal, usando…

Continue reading →

Extrair iso com Prisma em Linux

18 de outubro de 201718 de outubro de 2017 admin

Uma vez tive que montar e copiar os arquivos de uma *.iso, pensei então em automatizar o processo com um script prisma bem simples, funciona somente em linux: (não é difícil de implementar para windows, basta saber os comandos de montagem); Segue o código:

//extrair iso em linux.

local sudo = nulo; //só para teste;
local pasta_tmp = '/tmp/';

funcao monte_iso(iso,dest)
  local sudo = sudo ou '';
  local cmd =  sudo .. "mount -o loop "; //destino é a pasta onde aparecerá os arquivos.
  //se o comando de cima nao funcionar tente(basta tirar as duas barras do comentário:
  //cmd = 'mount -o loop -t iso9660 ';
  local str_mkdir = sudo ..  'mkdir ' .. dest;
  cmd = cmd .. iso .. ' ' .. dest;
  
  sis.execute(mkdir);
  local ret,s,num = sis.execute(cmd);
  se nao ret entao
    retorne falso,"Erro ao montar arquivo " .. s .. ': ' .. num, num;
  fim  
  retorne verdadeiro;  
fim

funcao desmonte_iso(dest) //deve ser destino do arquivo montado.
  local sudo = sudo ou '';
  local umount =  sudo ..  "umount " .. dest;
  se sis.execute(umount) entao
    sis.remova(dest);
    retorne verdadeiro;
  senao
    retorne falso, 'Erro ao desmontar a imagem iso';
  fim
fim

funcao extraia_iso(iso,dest_copia)
  local sudo = sudo ou '';
  local _,arq,_ = sis.nome_arquivo(iso); //pega o nome sem extensão em arq
  sis.execute( sudo .. 'mkdir ' .. pasta_tmp .. arq);
  
  local ret, err, num = monte_iso(iso, pasta_tmp .. arq);
  
  se nao ret e num <> 32 entao
    desmonte_iso( pasta_tmp .. arq); 
    retorne falso, err; 
  fim
  
  local copia_cmd = 'cp -r ' .. pasta_tmp .. arq .. '/* ' .. dest_copia;
  sis.execute( 'mkdir ' .. dest_copia);
  poe'\n\nAguarde o processo de cópia, pode levar vários minutos...\n\n';
  local ret,s,num = sis.execute(copia_cmd);
  se nao ret entao
    desmonte_iso(sudo .. pasta_tmp .. arq); 
    retorne falso, 'Erro ao copiar conteúdo da pasta montada ' .. s .. ': ' .. num;
  fim 
  desmonte_iso( pasta_tmp .. arq); 
  retorne verdadeiro;
fim


//=================================================================================

//teste:
//* 
local ret, err = extraia_iso(
'/home/user/Downloads/arq.iso', //imagem iso alvo
'/home/user/Downloads/arq'  //local onde os arquivos serão extraídos
);

se nao ret entao 
  imprima(err);
senao 
  imprima('Processo terminado com sucesso\n\n');
fim
// */

//extrair iso em linux.

local sudo = nulo; //só para teste;

local pasta_tmp = '/tmp/';

funcao monte_iso(iso,dest)

local sudo = sudo ou '';

local cmd = sudo .. "mount -o loop "; //destino é a pasta onde aparecerá os arquivos.

//se o comando de cima nao funcionar tente(basta tirar as duas barras do comentário:

//cmd = 'mount -o loop -t iso9660 ';

local str_mkdir = sudo .. 'mkdir ' .. dest;

cmd = cmd .. iso .. ' ' .. dest;

sis.execute(mkdir);

local ret,s,num = sis.execute(cmd);

se nao ret entao

retorne falso,"Erro ao montar arquivo " .. s .. ': ' .. num, num;

fim

retorne verdadeiro;

fim

funcao desmonte_iso(dest) //deve ser destino do arquivo montado.

local sudo = sudo ou '';

local umount = sudo .. "umount " .. dest;

se sis.execute(umount) entao

sis.remova(dest);

retorne verdadeiro;

senao

retorne falso, 'Erro ao desmontar a imagem iso';

fim

funcao extraia_iso(iso,dest_copia)

local sudo = sudo ou '';

local _,arq,_ = sis.nome_arquivo(iso); //pega o nome sem extensão em arq

sis.execute( sudo .. 'mkdir ' .. pasta_tmp .. arq);

local ret, err, num = monte_iso(iso, pasta_tmp .. arq);

se nao ret e num <> 32 entao

desmonte_iso( pasta_tmp .. arq);

retorne falso, err;

fim

local copia_cmd = 'cp -r ' .. pasta_tmp .. arq .. '/* ' .. dest_copia;

sis.execute( 'mkdir ' .. dest_copia);

poe'\n\nAguarde o processo de cópia, pode levar vários minutos...\n\n';

local ret,s,num = sis.execute(copia_cmd);

se nao ret entao

desmonte_iso(sudo .. pasta_tmp .. arq);

retorne falso, 'Erro ao copiar conteúdo da pasta montada ' .. s .. ': ' .. num;

fim

desmonte_iso( pasta_tmp .. arq);

retorne verdadeiro;

fim

//=================================================================================

//teste:

//*

local ret, err = extraia_iso(

'/home/user/Downloads/arq.iso', //imagem iso alvo

'/home/user/Downloads/arq' //local onde os arquivos serão extraídos

);

se nao ret entao

imprima(err);

senao

imprima('Processo terminado com sucesso\n\n');

fim

// */

Funções: monte_iso(iso,dest); iso – “arquivo.iso” (caminho completo); dest –…

Continue reading →