Le blog de Jean David TECHER, un Réunionnais à Saint-Priest/Lyon

Depuis qu'on est passé à l'heure d'été, j'avais complètemement oublié de changer l'heure sur mon portable. La commande suivante suffit amplement

date -s HH:MM:SS

Par exemple date -s 14:36:48 Maintenant mon portable est à l'heure

Les fonctionnalités en C ont quelques peu changé depuis le temps! Faisons donc un petit test sur une fonctionnalité extract_e() qui enlève tous les 'e' contenues dans une chaîne de caractère de type text. Commençons donc par créer une petite table pour nos tests. Je profite ici d'utiliser la structure de requête INSERT INTO ... RETURNING ... apparu depuis la 8.2

BEGIN TRANSACTION;
-- Déclaration de la fonction extract_e en tant que module C
SET search_path = public;
CREATE OR REPLACE FUNCTION extract_e(text) RETURNS text
     AS 'MODULE_PATHNAME', 'extract_e'
     LANGUAGE 'C' IMMUTABLE STRICT;
-- table de test
DROP TABLE IF EXISTS test;
CREATE TABLE test(id serial,data text)WITH OIDS;
INSERT INTO test(data) VALUES 
('david'),
('maman je t''aime'),
('Isabelle tu es la plus belle de toutes'),
('La vie vaut parfois le coup d''être vécue!'),
(NULL),
('Isidore dort dans la chambre')
RETURNING id,data,length(data),extract_e(data),length(extract_e(data));
END TRANSACTION;

qui me renverra

 id |                   data                    | length |               extract_e               | length 
----+-------------------------------------------+--------+---------------------------------------+--------
  1 | david                                     |      5 | david                                 |      5
  2 | maman je t'aime                           |     15 | maman j t'aim                         |     13
  3 | Isabelle tu es la plus belle de toutes    |     38 | Isabll tu s la plus bll d touts       |     31
  4 | La vie vaut aussi le coup d'être vécue! |     41 | La vi vaut aussi l coup d'êtr vécu! |     37
  5 |                                           |        |                                       |       
  6 | Isidore dort dans la chambre              |     28 | Isidor dort dans la chambr            |     26
(6 rows)

Le progamme extract_e.c

#include "postgres.h" 
#include "fmgr.h" 

#ifdef PG_MODULE_MAGIC
PG_MODULE_MAGIC;
#endif

#ifndef SET_VARSIZE
#define SET_VARSIZE(n,s) VARATT_SIZEP(n) = s; 
#endif 

#define VARDATALENGTH(s) VARSIZE(s)-VARHDRSZ;

Datum extract_e( PG_FUNCTION_ARGS );
int GetNb_e(text *);
text* Chaine_WithOut_E(text *,int);


// chaine sans les 'e'
text* Chaine_WithOut_E(text *chaine_In,int Nb_e){
  int i=0,j,t=0,len=VARDATALENGTH(chaine_In);
  text* chaine_Out=(text*)palloc(len-Nb_e+VARHDRSZ);
  SET_VARSIZE(chaine_Out,len-Nb_e+VARHDRSZ);
  while(i<len){j=(!(*(VARDATA(chaine_In)+i)=='e'))?(*(VARDATA(chaine_Out)+t++)=*(VARDATA(chaine_In)+i++)):i++;}
  return chaine_Out;
}

// Retourne le nombre de lettres 'e' de chaine
int GetNb_e(text *chaine){
  int pos,nb,len=VARDATALENGTH(chaine);
   nb=pos=0;
  while(pos<len){nb+=(*(VARDATA(chaine)+pos++)=='e');}
  return nb;
}

PG_FUNCTION_INFO_V1( extract_e );
Datum extract_e( PG_FUNCTION_ARGS )
{
   text *chaine_In;
   int Nb_e;
   chaine_In = PG_GETARG_TEXT_P(0);
   PG_RETURN_TEXT_P((!(Nb_e=GetNb_e(chaine_In)))?chaine_In:Chaine_WithOut_E(chaine_In,Nb_e)); 
}

Le Makefile

MODULES = extract_e
#PG_CPPFLAGS = -ggdb
DATA_built = extract_e.sql
DATA = uninstall_extract_e.sql
PGXS := $(shell pg_config --pgxs)
include $(PGXS)

Le fichier extract_e.sql.in

BEGIN TRANSACTION;
-- Déclaration de la fonction extract_e en tant que module C
SET search_path = public;
CREATE OR REPLACE FUNCTION extract_e(text) RETURNS text
     AS 'MODULE_PATHNAME', 'extract_e'
     LANGUAGE 'C' IMMUTABLE STRICT;
-- table de test
DROP TABLE IF EXISTS test;
CREATE TABLE test(id serial,data text)WITH OIDS;
INSERT INTO test(data) VALUES 
('david'),
('maman je t''aime'),
('Isabelle tu es la plus belle de toutes'),
('La vie vaut parfois le coup d''être vécue!'),
('Isidore dort dans la chambre')
RETURNING id,data,length(data),extract_e(data);
END TRANSACTION;;

Le fichier uninstall_extract_e.sql.in

SET search_path = public;
DROP FUNCTION extract_e(text);

C'est en me rendant sur le site de PostGIS ce matin que j'ai vu que cette nouvelle version était sortie hier. Quand j'aurais le temps j'en profiterais pour tester les nouvelles fonctionnalités. Les news sur cette version mineure sont disponibles ici

Entre temps, j'ai aussi noté la refonte du site de geos sous Tracks...

A l'heure où j'écris ce billet, vous pouvez retrouver la doc au format PDF de la 1.3.3 ici généré grâce à db2latex

Exemple pour ST_SimplifyPreserveTopology()

En considérant le multipolygon suivant,

testgis=# select ST_AsText(the_geom) from testorig;
-[ RECORD 1 ]---------------------------------------------------------------------------------------------------------------------------------------------------
st_astext | MULTIPOLYGON(((283.681871106464 262.407705415416,333.681871106464 327.407705415416,406.681871106464 

273.407705415416,398.681871106464 238.407705415416,434.681871106464 224.407705415416,409.681871106464 215.407705415416,375.681871106464 

216.407705415416,391.681871106464 223.407705415416,361.681871106464 220.407705415416,387.681871106464 233.407705415416,375.681871106464 

246.407705415416,358.681871106464 226.407705415416,355.681871106464 254.407705415416,318.681871106464 229.407705415416,333.681871106464 

255.407705415416,319.681871106464 259.407705415416,312.681871106464 246.407705415416,310.681871106464 260.407705415416,302.681871106464 

244.407705415416,300.681871106464 260.407705415416,287.681871106464 246.407705415416,263.681871106464 237.407705415416,262.681871106464 

260.407705415416,286.681871106464 283.407705415416,283.681871106464 262.407705415416)))

On aura par exemple

testgis=# select ST_AsText(st_simplifypreservetopology(the_geom,10)) from testorig;
 POLYGON((283.681871106464 262.407705415416,333.681871106464 327.407705415416,406.681871106464 273.407705415416,398.681871106464 

238.407705415416,434.681871106464 224.407705415416,361.681871106464 220.407705415416,387.681871106464 233.407705415416,375.681871106464 

246.407705415416,358.681871106464 226.407705415416,355.681871106464 254.407705415416,318.681871106464 229.407705415416,333.681871106464 

255.407705415416,312.681871106464 246.407705415416,310.681871106464 260.407705415416,302.681871106464 244.407705415416,300.681871106464 

260.407705415416,263.681871106464 237.407705415416,262.681871106464 260.407705415416,286.681871106464 283.407705415416,283.681871106464 

262.407705415416))

correspondant au cas de l'image suivante
ST_SimplifyPreserveTopology sur un MULTIPOLYGON

Après la semaine de m...passé sous la pluie sur Sophia, il a commencé à faire beau vendredi aprem' sur Juan les Pins. Samedi matin, suite à la rédaction de mon précédent billet, j'ai finalement décidé décoller pour rentrer sur Montpellier sur les coups de 15h00~15h15. Sur la route, vents et chaleurs mais il faisait un super temps.

Arrivé sur place un petit wiski-coca au bar de la plage avec un couple d'amis, ensuite retour à l'appart. Mon coloc' avait réorganisé la disposition des meubles. Il s'y est bien pris. Sur les coups de 22h30, on a tracé à l'Australian Café de Montpellier...Y'avait du monde! Au bout de 4 p'ti punchs j'étais assez entamé mais bien réveillé...J'ai pu tapé la discut' avec un jeune mexicain de passage et d'autres personnes! Bonne soirée, en tout cas y'avait la zikmu que je kiffe!

Ce matin dimanche, c'est acheter de la bouffe pour le chat au Super U de la pompignane, lessive et courrier! Retour programmé vers 17h00~18h00... Levée vers 10h00, après avoir fait les courses, j'en ai profité pour m'arrêter à la terrasse du bar de Castelnau pour prendre un petit café et me dorer au soleil...Il faut beau ces temps-ci.