Esta entrada se publicó originalmente en Harbour Magazine, mi publicación sobre el lenguaje de programación Harbour.

Este es un artículo de Manuel Calero Solís para Harbour Magazine.

Introducción

Principios de ingeniería de software, del libro de Robert C. Martin Código limpio , adaptado para Harbour. Esta no es una guía de estilo, es una guía para producir software legible, reutilizable y refactorizable. No todos los principios de este documento deben seguirse estrictamente, y aún menos serán universalmente acordados. Estas son pautas y nada más, pero están codificadas durante muchos años de experiencia colectiva por los autores de Clean Code.

Inspirado en clean-code-php

Basado en la traducción de Francisco Bórquez

Variables

Use nombres de variables significativos y fáciles de pronunciar.

Mal:

$cdt = DateTime();

Bien:

$currentDateTime = DateTime();

Usa el mismo vocabulario para el mismo tipo de variable

Mal:

getUserInfo()
getUserData()
getUserRecord()
getUserProfile()

Bien:

getUser()

Use los nombres para las búsqueda (parte 1)

Es importante que el código que escribimos sea legible y pueda buscarse. Al no nombrar variables que terminan siendo significativas para comprender nuestro programa, molestamos a los futuros lectores de nuestro código. Hagamos que los nombres sean faciles de buscar y entender.

Mal:

// Que significa realmente el dos
fileHandle = fOpen( "fopen.prg", 2)

Bien:

fileHandle = fOpen( "fopen.prg", FO_READWRITE)

Use los nombres para las búsqueda (parte 2)

Mal:

// What the heck is 4 for?
if (user:access == 4) 
    // do ...
end if

Bien:

#define ACCESS_READ = 1
#define ACCESS_CREATE = 2
#define ACCESS_UPDATE = 4
#define ACCESS_DELETE = 8
?
if (user:access == ACCESS_UPDATE) 
    // do ...
end if

Usar variables explicativas

Mal:

programsDirectory := Directory( "*.prg" )
?
aeval( programsDirectory, {|x| sendFile( x[1], x[2] ) } )

Bien:

programsDirectory := Directory( "*.prg" )
?
aeval( programsDirectory, {|programFile| sendFile( programFile[F_NAME], programFile[F_SIZE] ) } )

Evite anidar demasiado y regrese pronto (parte 1)

Demasiadas sentencias ‘if’ pueden hacer que su código sea difícil de seguir. Hay autores que llegan a decir que si tu funcion tiene muchos else (incluso solo uno), debe ser reescrita.

Explícito es mejor que implícito.

Mal:

function isShopOpen(day)
?
    if !empty(day) 
        if hb_isstring(day)
            day = lower(day)
            if (day == 'friday')
                return .t.
            elseif (day == 'saturday') 
                return .t.
            elseif (day == 'sunday')
                return .t.
            else 
                return .f.
            end if 
        else 
            return .f.
        end if 
    else 
        return .f.
    end if
?
return .f.

Bien:

function isShopOpen(day)
    
    local openingDays := {'friday', 'saturday', 'sunday'}
?
    if empty(day)
        return .f.
    end if 
?
return ( ascan( openingDays, lower(day) ) == 0 )

Evite anidar demasiado y regrese pronto (parte 2)

Mal:

function fibonacci( n )
?
    if (n < 50) 
        if (n != 0) 
            if (n != 1) 
                return fibonacci(n - 1) + fibonacci(n - 2)
            else 
                return 1
            end if 
        else 
            return 0
        end if
    else
        return 'Not supported'
    end if
?
return n

Bien:

function fibonacci( n )
?
    if (n == 0 .or. n == 1) 
        return n
    end if 
?
    if (n > 50) 
        return 'Not supported'
    end if 
?
    return fibonacci(n - 1) + fibonacci(n - 2)
?
return n
?

Evitar el mapeo mental

No obligue al lector de su código a traducir lo que significa la variable. Explícito es mejor que implícito.

Mal:

local li
local l := {'Austin', 'New York', 'San Francisco'}
?
for (i := 1 to len( l )) 
    li = l[i]
    doStuff()
    doSomeOtherStuff()
    // ...
    // ...
    // ...
    // Espera, ¿qué es `li`?
    dispatch(li)
next

Bien:

?
local locations := {'Austin', 'New York', 'San Francisco'}
?
foreach location in location
    doStuff()
    doSomeOtherStuff()
    // ...
    // ...
    // ...
    dispatch(location)
next

No agregue contexto innecesario

Si su nombre de clase / objeto le dice algo, no lo repita en su nombre de variable.

Mal:

CLASS Car
?
    DATA carMake
    DATA carModel
    DATA carColor
?
    //...
ENDCLASS

Bien:

CLASS Car
?
    DATA make
    DATA model
    DATA color
?
    //...
ENDCLASS

Funciones

Parametros de función (lo ideal es 2 o menos)

Limitar la cantidad de parámetros de función es increíblemente importante porque hace que probarla sea más fácil. Tener más de tres conduce a una explosión combinatoriadonde tienes que probar toneladas de casos diferentes con cada argumento por separado.

Cero argumentos es el caso ideal. Uno o dos argumentos están bien, y se deben evitar tres.Algo más que eso debe consolidarse. Por lo general, si tiene más de dosargumentos entonces su función está tratando de hacer demasiado. En los casos en que no lo es, la mayoríadel tiempo, un objeto de nivel superior bastará como argumento.

Mal:

function createMenu(title, body, buttonText, cancellable)
?
    // ...
return

Bien:

class MenuConfig
?
    DATA title
    DATA body
    DATA buttonText
    DATA cancellable INIT .f.
?
end class
?
config              := MenuConfig():New()
config:title        := 'Foo'
config:body         := 'Bar'
config:buttonText   := 'Baz'
config:cancellable  := .t.
?
function createMenu( config )
    // ...
return

Las funciones deberían hacer una cosa

Esta es, con mucho, la regla más importante en ingeniería de software. Cuando las funciones hacen másnde una cosa, son más difíciles de componer, probar y razonar. Cuando puedes aislaruna función para una sola acción, se pueden refactorizar fácilmente y su código leerá mucholimpio. Si no quita nada más de esta guía que no sea esto, estará adelantede muchos desarrolladores.

Mal:

function emailClients(clients)
?
    foreach client in clients
        clientRecord = clientModel():find(client)
        if clientRecord:isActive()
            email(client)
        end if 
    next
return

Bien:

function emailClients(clients)
?
    local activeClients := activeClients( clients )
    
    aeval( activeClients, {|client| email( client ) } )
?
return nil
?
function activeClients( clients )
?
    local activeClients := {}
    
    aeval( clients, {|client| if( isClientActive( client ), aadd( activeClients, client ), ) } )
?
return ( activeClients )
?
function isClientActive( client )
?
    if clientModel():find( client )
        return ( clientRecord:isActive() )
    end if 
?
return ( .f. )

Los nombres de las funciones deberían decir lo que hacen

Mal:

CLASS Email
?
    //...
?
    METHOD handle()
    
        mail( ::to, ::subject, ::body )
    
    RETURN nil
?
ENDCLASS
?
message := Email(...):New()
// ¿Que es esto? 
message:handle()

Bien:

CLASS Email 
?
    //...
?
    METHOD send()
    
        mail( ::to, ::subject, ::body)
?
    RETURN nil
?
ENDCLASS
?
message := Email(...):New()
// Limpio y obvio
message:send()

Las funciones deben tener sólo un nivel de abstracción

Cuando tienes más de un nivel de abstracción usualmente es porque tu función está haciendo demasiado. Separarlas en funciones lleva a la reutilización.

Mal:

function ExecutorStaments( tokenizedStatement )
?
    local statement
    local statements    := hb_atokens( tokenizedStatement, "," ) 
?
    for each statement in statements
        if SQLConexion():Parse( statement )
            SQLConexion():Execute( statement )
            // ...
        end if
    next
?
return

Bien:

Lo mejor es crear una clase que tenga dentro dependencias a otras clases.

CLASS Tokenizer
?
    METHOD new()
?
    METHOD tokenizer()  inline ( hb_atokens( tokens, "," ) )
?
end CLASS
?
CLASS Conexion
?
    data oConexion 
?
    METHOD new()
?
    METHOD Parse( statement )   inline ( ::oConexion:Parse( statement ) )
?
    METHOD Execute( statement ) inline ( ::oConexion:Execute( statement ) )
?
ENDCLASS
?
CLASS ExecutorStaments
?
    DATA tokenizer
    DATA conexion
?
    METHOD new()
    
        ::tokenizer     := Tokenizer():New()
        ::conexion      := Conexion():New()
    
    RETURN ( self ) 
?
    METHOD Execute( statement )
    
        local statement
        local statements  := ::tokenizer:tokenizer( statement )
?
        for each statement in statements
            if ::conexion:Parse( statement )
                ::conexion:Execute( statement )
            end if
        next
?
    RETURN ( self ) 
?
ENDCLASS

No usar logicos como parámetros de funciones

Los valores logicos le dicen al usuario que la función hace más de una cosa. Las funciones deben hacer sólo una. Divide tus funciones si ellas siguen diferentes caminos basados en un valor booleano.

Mal:

function createFile(name, temp)
?
    if (temp) {
        fcreate( './temp/' + name)
    else 
        fcreate( name )
    end if 
?
return

Bien:

function createFile(name, temp)
?
    fcreate( './temp/' + name)
    
return 
?
function createTempFile(name)
?
    fcreate( './temp/' + name)
    
return

Evitar efectos secundarios

Una función produce un efecto secundario si hace algo más que tomar un valor y devolver otro. Un efecto secundario puede ser escribir en un archivo, modificar alguna variable global, o accidentalmente darle todo tu dinero a un extraño.

Ahora, ocasionalmente necesitaras los efectos secundarios en un programa. Como los ejemplos anteriores, necesitarás escribir en un archivo. Lo que quieres hacer en esos casos es centralizar donde realizarlos. No tengas muchas funciones y clases que escriban un archivo en particular. Ten un servicio que lo haga. Uno y sólo uno.

El punto principal es evitar trampas comunes como compartir estados entre objetos sin alguna estructura, usar tipos de datos mutables que puedan ser escritos por cualquiera, y no centralizar donde el efecto paralelo ocurre. Si puedes hacerlo, serás más feliz que la mayoría de los demás programadores.

Mal:

// Variable global referenciada por la siguiente función.
// Si tenemos otra función que use el mismo nombre, ahora será un arreglo y podría romperla.
?
memvar name 
?
function splitIntoFirstAndLastName()
?
    name = hb_atokens( name, ' ' )
?
return nil
?
name = 'Manuel Calero'
?
splitIntoFirstAndLastName()
?
? ( hb_valtoexp( name ) ) // {'Manuel', 'Calero'}

Bien:

function splitIntoFirstAndLastName( name )
?
return hb_atokens( name, ' ' )
?
name        := 'Manuel Calero'
newName     := splitIntoFirstAndLastName(name)
?
? ( hb_valtoexp( name ) )       // 'Manuel Calero'
? ( hb_valtoexp( newName ) )    // {'Manuel', 'Calero'}

No escribas funciones globales

Llenar de funciones globales es una mala práctica en muchos lenguajes porque puedes chocar con otra librería.

Mal:

function config()
?
return  { 'foo' => 'bar' }

Bien:

CLASS Configuration
?
    DATA configuration INIT {}
?
    METHOD New( configuration )
    
        ::configuration := configuration
?
    RETURN ( self )
?
    METHOD get( key )
    
        if hhaskey( ::configuration, key )
            RETURN ( hget( ::configuration, key ) )
        end if 
?
    RETURN ( nil )
?
ENDCLASS

Crea la variable configuration con una instancia de la clase Configuration

configuration := Configuration():new( {'foo' => 'bar'} )

Y ahora puedes usar una instancia de la clase Configuration en tu aplicación.

No usar el patrón Singleton

Singleton es un anti-patrón. Citando a Brian Button:

1. Son usados generalmente como una instancia global, ¿Por qué eso es malo? Porque escondes las dependencias de tu aplicación en tu código, en lugar de exponerlas. Hacer algo global para evitar pasarlo es una hediondez de código.
2. Violan el principio de la responsabilidad única]: en virtud del hecho de que ellos controlan su propia creación y ciclo de vida.
3. Inherentemente causan que el código esté estrechamente acoplado. Esto hace que muchas veces sean difíciles de probar, aunque en Harbour no tenemos bancos de pruebas.
4. Llevan su estado al ciclo de vida de la aplicación. Otro golpe a las pruebas porque puedes terminar con una situación donde las pruebas necesitan ser ordenadas lo cual es un gran no para las pruebas unitarias. ¿Por qué? Porque cada prueba unitaria debe hacerse independiente de la otra. Misko Hevery ha realizado unas reflexiones interesantes sobre el origen del problema.

Mal:

CLASS DBConnection
?
    CLASSDATA instance
?
    METHOD New( dsn )
        // ...
    RETURN ( self )
?
    METHOD getInstance()    INLINE ( if( empty( ::oInstance ), ::oInstance := ::New(), ), ::oInstance ) 
?
    // ...
ENDCLASS
?
singleton := DBConnection():getInstance()

Bien:

CLASS DBConnection
?
    METHOD New( dsn )
        // ...
    RETURN ( self )
?
ENDCLASS

Crea una instancia de la clase DBConnection y configúrala con DSN.

connection :=  DBConnection():New( dsn )

Y ahora debes usar la instancia de DBConnection en tu aplicación.

Encapsular condicionales

Mal:

if ( article:state == 'published' ) 
    // ...
end if

Bien:

if ( article:isPublished() )
    // ...
end if

Evitar condicionales negativos

Mal:

function isNodeNotPresent( node )
?
    // ...
?
?
if ( !isDOMNodeNotPresent( node ) )
?
    // ...
?

Bien:

function isNodePresent( node )
?
    // ...
?
if (isNodePresent( node ) ) 
?
    // ...
?

Evitar condicionales

Esta parece ser una tarea imposible. Al escuchar esto por primera vez, la mayoría de la gente dice, “¿cómo se supone que haré algo sin una declaración if?» La respuesta es que la mayoría de las veces puedes usar polimorfismo para lograr el mismo resultado.

La segunda pregunta usualmente es, “bien, eso es genial, ¿pero cómo puedo hacerlo?” La respuesta es un concepto de código limpio que ya hemos aprendido: una función debe hacer sólo una cosa. Cuando tienes clases y funciones que usan declaraciones if, estás diciéndole al usuario que tu función hace más de una cosa. Recuerda, hacer sólo una cosa.

Mal:

CLASS Airplane
?
    // ...
?
    METHOD getCruisingAltitude()
    
        SWITCH ::type 
            CASE '777':
                RETURN ::getMaxAltitude() - ::getPassengerCount()
            CASE 'Air Force One':
                RETURN ::getMaxAltitude()
            CASE 'Cessna':
                RETURN ::getMaxAltitude() - ::getFuelExpenditure()
        END
?
    RETURN ( 0 )
?
ENDCLASS

Bien:

CLASS Airplane
?
    // ...
?
    METHOD getCruisingAltitude() VIRTUAL
?
ENDCLASS
?
CLASS Boeing777 FROM Airplane
?
    // ...
?
    METHOD getCruisingAltitude()
    
    RETURN ::getMaxAltitude() - ::getPassengerCount()
    
ENDCLASS
?
CLASS AirForceOne implements Airplane
    
    // ...
?
    METHOD getCruisingAltitude()
    
    RETURN ::getMaxAltitude() 
    
ENDCLASS
?
CLASS Cessna implements Airplane
?
    // ...
?
    METHOD getCruisingAltitude()
    
    RETURN ::getMaxAltitude() - ::getFuelExpenditure()
    
ENDCLASS

Evitar revisión de tipo

Harbour es un lenguaje no tipado, lo que quiere decir que tus funciones pueden tener cualquier tipo de argumento. Algunas veces habrás sentido esta libertad y te habrás tentado a hacer revisión de tipo en tus funciones. Hay muchas maneras de evitar tener que hacerlo.

Mal:

METHOD travelToTexas( vehicle )
?
    if vehicle:IsDerivedFrom( 'Bicycle' ) 
        vehicle:pedalTo( Location():New( 'texas' ) )
    elseif vehicle:IsDerivedFrom( 'Car' )  
        vehicle:driveTo( Location():New( 'texas' ) )
    end if
    
RETURN ( nil )

Bien:

METHOD travelToTexas( vehicle )
?
    vehicle:travelTo( Location():New( 'texas' ) )
    
RETURN ( nil )

Quitar código muerto

El código muerto es tan malo como el código duplicado. No hay motivos para mantenerlo en tu código fuente. Si no está siendo llamado, ¡deshazte de él! Siempre estará a salvo en tu versión histórica si aún lo necesitas.

Mal:

CLASS oldRequestModule( url )
?
    // ...
?
ENDCLASS
?
CLASS newRequestModule( url )
?
    // ...
?
ENDCLASS
?
request := newRequestModule():New( requestUrl )
?
inventoryTracker('apples', request, 'www.inventory-awesome.io')
?

Bien:

CLASS RequestModule( url )
?
    // ...
?
ENDCLASS
?
request := RequestModule():New( requestUrl )
?
inventoryTracker('apples', request, 'www.inventory-awesome.io')

Esta entrada se publicó originalmente en Harbour Magazine, mi publicación sobre el lenguaje de programación Harbour.

En los últimos meses tenemos varias novedades sobre Harbour que te presentamos a continuación:

• Teo Fonrouge está desarrollando un driver de MongoDb para Harbour en lenguaje C. Puedes seguir su evolución en el siguiente repositorio https://github.com/tfonrouge/hbmongoc
• Antonino Perricone ha desarrollado wrappers para Harbour de la librería http://libxlsxwriter.github.io/ , puedes descargarla desde http://aperricone.altervista.org/extras/libxlsxwriter.zip. Existen otros wrappers para esta librería desarrollados por F. Trautwein y están disponibles en https://github.com/FTrautwein/hblibxlsxwriter
• Cristobal Navarro ha liberado sus Google APIS Lib for fivewin http://forums.fivetechsupport.com/viewtopic.php?f=6&t=34903 La intención de Cristobal es que la librería se pueda usar directamente desde Harbour y no dependa de FWH, y con ella se pueden manejar distintos servicios de Google desde nuestras aplicaciones.
• El equipo de Xailer ha liberado XEdit 5, su editor Xbase gratuito que cuenta con sistema de control de versiones incorporado. Se puede descargar desde http://www2.xailer.com/download/?es&cat=1 En la entrada de la reunión de Novelda teneis un enlace a la documentación del editor.
• Cristobal Navarro sigue añadiendo funcionalidad a su editor FivEdit, que ya es uno de los más completos editores Xbase existentes. Más información en http://forums.fivetechsupport.com/viewtopic.php?f=3&t=29991
• Para finalizar con los editores, Antonino Perricone ha desarrollado una extensión para harbour para el editor Microsoft Studio Code. Se puede descargar desde el marketplace del editor: https://marketplace.visualstudio.com/items?itemName=aperricone.harbour
• Rafal Jopek ha publicado en https://github.com/rjopek/harbour-list una lista de proyectos open source que se pueden encontrar en GitHub. ¡ Un gran trabajo !

¿ Conoces alguna novedad sobre Harbour, su entorno de programación, artículos sobre el lenguaje, código fuente, etc. que merezcan ser publicados ? Escribeme a mediumharbourmag@gmail.com y lo publicaré en el próximo boletín sobre Harbour.

Esta entrada se publicó originalmente en Harbour Magazine, mi publicación sobre el lenguaje de programación Harbour.

Esta es la palabra que para mi mejor describe la 1ª reunión de programadores de Harbour Magazine.

Inspiradora porque Harbour es un gran lenguaje de programación, porque con Harbour se pueden hacer más cosas que software de escritorio, porque hay mucho que estudiar y aprender, porque hay gente que hace estas cosas y puede ayudar a la comunidad, porque podemos atacar motores de bases de datos de una manera cómoda, porque el uso de patrones de diseño es posible, porque tenemos herramientas potentes.

Inspiradora porque el sentimiento de comunidad no se ha perdido entre los desarrolladores Harbour, porque la asistencia a la reunión ha estrechado de nuevo los lazos entre los asistentes y nació el compromiso colectivo de organizar de nuevo reuniones entre nosotros e invitar a toda la comunidad Harbour a unirse a las reuniones.

Este es un primer post sobre la reunión pues tengo grabadas casi todas las conferencias en video, y voy a ir montando y subiendo los videos conforme tenga tiempo.

¿ Y las conferencias ? Pues para mi todas fueron una pasada total. Vamos a verlas una a una.

Fundamentos técnicos de la Inteligencia Artificial, por Antonio Linares

Antonio nos hizo una exposición muy amena de lo que es la inteligencia artificial, adentrándonos en los conceptos básicos hasta llegar al concepto de perceptrón y red neuronal, pasando a ver ejemplos de un perceptrón hecho con Harbour. Después siguió con más ejemplos hasta llegar a hacer una introducción de TensorFlow y mostrar un ejemplo funcionando con Python.

La presentación de Antonio se puede descargar en la siguiente dirección:

https://bitbucket.org/fivetech/harbour_novelda_2017/downloads/Fundamentos%20t%C3%A9cnicos%20de%20la%20Inteligencia%20Artificial.pdf

Los ficheros usados en la conferencia se pueden descargar desde el siguiente enlace:

https://bitbucket.org/fivetech/harbour_novelda_2017/downloads/

Api Rest y su uso en Google, por Cristobal Navarro

Cristobal nos explicó los conceptos de API’s REST, mostrandonos a continuación los distintos APIS existentes en Google, describiéndolos y mostrándo ejemplos de su uso. Por último nos mostró una jerarquía de clases que está desarrollando y que permitirán utilizar comodamente estos API RST de Google desde programas Harbour.

La presentación de Cristobal se puede descargar en el siguiente enlace:

https://bitbucket.org/fivetech/harbour_novelda_2017/downloads/Cristobal_Navarro_REST.pdf

Servicios web con Harbour, por Rafa Carmona

La conferencia de Rafa volvió a demostrar que es una auténtica esponja absorbiendo conocimientos. Primero nos contó la manera de montar un servidor web con Harbour usando el ejemplo existente en contrib/hbhttpd y a continuación la manera de montar un servicio web con Harbour y utilizarlo para conectarlo con otros sistemas.

La presentación de Rafa se puede descargar en el siguiente enlace:

https://drive.google.com/open?id=1L7QB6tVbF4e_tqghmBfTGp8-nNwt_zPn

Win & Web, los nuevos escenarios, por Carles Aubia

Carles nos presentó un framework de programación web que ha desarrollado y que permite realizar aplicaciones web con una sintaxis similar a Harbour y definiendo los formularios web mediante un editor de recursos y almacenarlos en un fichero .rc. Algo realmente novedoso e impresionante, y que Carles tiene intención de liberar como open source en un futuro muy próximo con el nombre de TWeb.

La presentación de Carles se puede descargar en el siguiente enlace:

https://drive.google.com/open?id=1Ckp9xMlFqB49aQQizFPe6AXq4buzjCww

Harbour Data Objects, por Manu Expósito

Manu explicó en que consiste su solución de acceso a datos llamada HDO, mostrando su arquitectura multicapa y dando un repaso a todos los métodos de la clase que permite en acceso a bases de datos MySql. Toda la clase está escrita en C lo que le da una rapidez endiablada.

La presentación de Manu se puede descargar en el siguiente enlace:

https://drive.google.com/open?id=1aBgtQn9ZWJYTSRZw1_PTuEclVl8YK3Is

Patrón MVC en Harbour, por Manuel Calero

Manuel nos hizo una exposición del patrón MVC, explicando cada uno de sus componentes y nos explicó como está usando MVC en la refactorización completa de su aplicación Gestool. También nos habló de Validators y Asserts y como integrarlos en un desarrollo con patrón MVC.

La presentación de Manuel se puede descargar en el siguiente enlace:

https://drive.google.com/open?id=1xnIducezrd_lBHH_zeshhOOeUVbUzSCx

XEdit y control de versiones, por José F. Giménez

José nos mostró el uso básico de su editor gratuito XEdit y a continuación nos explicó la manera de usar el sistema de control de versiones que han integrado en el editor. Este sistema de control de versiones funciona en local y tiene todas las funcionalidades de un sistema de control de versiones sin necesidad de contar con un servidor, sino unicamente el editor XEdit.

La presentación de José y la documentación de XVC se pueden descargar de los siguientes enlaces:

https://drive.google.com/open?id=1wJUnw_2wELqnn7c1x6JXR-iVBOzFwtmn

https://drive.google.com/open?id=1qzRaz-qb6dhq1MGs6HAk_NaxI6gTvOy1

Experiencias de una publicación sobre Harbour, por José Luis Sánchez

En mi charla conté los motivos que me llevaron a iniciar Harbour Magazine y mostré la importancia de publicar los artículos tanto en español como inglés. Mostré las estadísticas de lecturas de las entradas, el motivo de convocar una reunión y expuse los planes de continuar potenciando la comunidad Harbour.

Mi presentación se puede descargar en el siguiente enlace:

https://drive.google.com/open?id=1Lm1irwwk6u1eukJMhH_9l1gdIjwig0kF

Y además…

Fueron un par de dias de volver a vernos los que ya nos conociamos y ponernos cara los que no nos conociamos. Creo que lo pasamos muy bien y hubo un gran ambiente entre los asisntentes a la reunión.

Aquí dejo alguna muestra de ello.

Y también hubo tiempo de ocio 😉

¡ Muchas gracias a todos por venir a Novelda !

Esta entrada se publicó originalmente en Harbour Magazine, mi publicación sobre el lenguaje de programación Harbour.

Ya tengo ultimada la agenda de conferencias para la Reunión de programadores Harbour que vamos a realizar los próximos 11 y 12 de Noviembre en Novelda (Alicante-España). Salvo modificaciones de última hora, la agenda va a ser la siguiente:

Todos los conferenciantes son programadores del máximo nivel, muy conocidos tanto dentro como fuera de España, con una activa participación en los distintos foros existentes de Harbour.

Las conferencias se realizarán en el Ecoalbergue La Mola y la entrada a las mismas es libre, condicionada al aforo de la sala. Para facilitar la organización, solicito a los interesados en acudir a las conferencias que rellenen el formulario de inscripción a las mismas.

Harbour Magazine

Publication about Harbour programming language

Hace unos meses tuve un problema de lentitud con una aplicación. Se había eliminado el servidor de una oficina y la aplicación, que funciona en red, se tenía que ejecutar en remoto desde otra. Comenzaron los problemas de lentitud, abrir una formulario TFSDI — https://cincomundos.wordpress.com/2006/06/13/fsdi2006/ — con una rejilla de datos sobre un fichero tardaba casi 10 segundos. Después de varias pruebas, vi que el problema era una clase browse muy vieja, y que simplemente actualizando la versión de Harbour + FWH usada en la aplicación la lentitud desaparecía hasta niveles aceptables.

Entonces caí en la cuenta de que en esta aplicación estaba utilizando una clase de manejo de dbf, y al intentar compilarla para la versión de Harbour a utilizar me daba un montón de errores. La alternativa era rehacer todo el código afectado por la clase o seguir utilizándola actualizándola, cosa que a su vez llevaba a rehacer código pues esa clase había sido actualizada de manera no compatible con la que yo tenía.

Lo que hice fue coger la calle de enmedio. Rehice todo el código afectado por la clase a Harbour puro, y comencé a utilizar una clase de manejo de buffer de registro que me proporcionó Marcelo Via Giglio en http://forums.fivetechsupport.com/viewtopic.php?f=6&t=34402 . Con esta clase podría manejar todos los campos de un dbf como datas de un objeto y cargarlos/salvarlos con una llamada a un método. Es una solución sencilla, pero me evitó tener que aprender el manejo de otra clase de gestión de dbf que suelen tener montones de opciones que nunca utilizo. En mi caso, menos es más.

La clase TRecord está publicada en https://github.com/JoseluisSanchez/TRecord y he actualizado Colossus para mostrar el uso de esta clase, los cambios están en la gestión de claves https://github.com/JoseluisSanchez/colossus/blob/master/prg/pclaves.prg

¿ Usas clases de terceros y has tenido situaciones como la mía ? ¿ Estás a favor o en contra de estas clases ? Espero tu respuesta en los comentarios.

Esta entrada se publicó originalmente en Harbour Magazine, mi publicación sobre el lenguaje de programación Harbour.

Harbour Magazine organiza una reunión de programadores en Novelda (Alicante — España) los próximos días 11 y 12 de Noviembre de 2017.

En la reunión tendremos una visita turística a la ciudad, conferencias de destacados programadores y mesas redondas. El idioma de la reunión será el español. Las conferencias previstas en el momento de abrir la inscripción son las siguientes:

• Patrón MVC con FWH y MySQL, por Manuel Calero Solís.
• Harbour Data Objects, por Manu Expósito.
• Inteligencia Artificial con Harbour, por Antonio Linares Cañas.
• Uso de Advantage Data Server con Harbour, por Reinaldo Crespo.
• Charla de Rafa ‘TheFull’ Carmona, pendiente de concretar.

En caso de que algún asistente desee realizar una conferencia puede comunicarlo en el formulario de inscripción.

En el siguiente documento se presenta toda la información práctica de la reunión: Reunión de Programadores Harbour Magazine.

Debido a la capacidad de las salas de conferencias hay unicamente 40 plazas para asistentes a la reunión.

Ya está abierto el formulario de inscripción.Harbour Magazine

Publication about Harbour programming language