jarnaldich

:- use_module(library(http/http_open)).
:- use_module(library(http/http_client)).
:- use_module(library(uri)).
:- use_module(library(zip)).
:- use_module(library(pcre)).

:- initialization(main, main).

download(URL, File) :-
    print_message(informational, ['Downloading', File]),

jarnaldich

Gofer it
   smalltalkhubUser: 'PharoExtras' project: 'XMLParserHTML';
   configurationOf: 'XMLParserHTML';
   loadStable.
   
Gofer it
   smalltalkhubUser: 'PharoExtras' project: 'XPath';
   configurationOf: 'XPath';
   loadStable.

jarnaldich

jarnaldich

jarnaldich

.output wipe.sql
select 'DELETE FROM ' || name || ';' FROM sqlite_master WHERE type='table';
.output
.read wipe.sql

jarnaldich

function GetInfo {
    param([string]$InputPath)
    gdalinfo -json $InputPath  | ConvertFrom-JSon -AsHashTable
}

function Urbana {
    param(
        [string]$InputPath,
        [string]$OutputPath,
        [String[]]$Bands=(1, 2, 3))

jarnaldich

function Consulta_DPNRC($cod_parcela) {

    $response = Invoke-WebRequest -UseBasicParsing -Uri "http://ovc.catastro.meh.es/ovcservweb/OVCSWLocalizacionRC/OVCCallejero.asmx/Consulta_DNPRC" `
     -Method "POST" `
     -WebSession $session `
     -Headers @{
         "Accept"="text/html,application/xhtml+xml,application/xml;q=0.9,image/avif,image/webp,image/apng,*/*;q=0.8,application/signed-exchange;v=b3;q=0.9"
         "Accept-Encoding"="gzip, deflate"
         "Accept-Language"="es-419,es;q=0.9,en;q=0.8"
         "Cache-Control"="no-cache"

jarnaldich

from affine import dumpsw
ts =  rio.transform.from_gcps(ds.gcps[0])
open(r"e:\public\aerot\1988040011117.tfw", 'w').write(dumpsw(ts))

jarnaldich

#!/usr/bin/env stack
{-
stack
--install-ghc runghc
--package aeson
--package lens-aeson
--package xml-lens
-}
{-# Language OverloadedStrings #-}
import Control.Monad.Reader

jarnaldich

#!/usr/bin/env stack
{-
stack
--install-ghc runghc
--package aeson
--package aeson-pretty
--package lens-aeson
--package xml-lens
-}
{-# LANGUAGE OverloadedStrings #-}