Clipper (langage)

Créé en 1985 par la société Nantucket Corporation, il était destiné à réaliser des programmes compilés compatibles avec la dernière génération du langage DBase. Ces programmes, dont le code était ainsi "protégé" pouvaient fonctionner de manière autonome sur des ordinateurs sans avoir besoin d'y installer un interpréteur. En moins de trois ans, parallèlement à son concurrent FoxBase, Clipper s'imposa d'abord avec sa version Clipper Summer '87 puis avec la version Clipper 5.00 comme le langage d'écriture des logiciels de gestion de base de données (gestion de stock et facturation, par exemple), alors que les ventes de son concurrent DBase IV s'effondraient.

Au fur et à mesure des versions, le langage Clipper évolua vers un langage complet, intégrant la programmation orientée objet et s'appuyant sur certaines caractéristiques du langage C. Après le rachat, en 1992, de la société Nantucket par Computer Associates, le logiciel prit le nom de "CA-Clipper" puis de "CA-Visual Objects".

Comme Clipper cessa d'être développé après sa reprise par CA (à part une version 5.3b comportant quelques corrections de bogues), ce malgré une base importante de logiciels et applications (souvent corporatives) écrits en Clipper, et comme CA-Visual-Object n'était pas rétro-compatible avec le code écrit en Clipper et lui-même de développement très lent, un projet open-source appelé Harbour démarra en 1999, dont le but était de faire un compilateur 100 % compatible avec le code Clipper existant, totalement orienté objet, 32 bits et multi-plateforme[1]. Il gagna rapidement de nombreuses extensions propres, et plusieurs bibliothèques lui ajoutent la possibilité de fonctionner nativement en environnement graphique. Un fork, xHarbour.org (et une version commerciale, xharbour.com, construite sur xharbour.org et comprenant de nombreux utilitaires), a également vu le jour[2]. Les deux sont toujours activement développés à ce jour (2009).

Un Hello world :

? "Hello World!"

Un masque de saisie pour une entrée dans une base de données :

USE Client SHARED NEW
clear
@  1, 0 SAY "NumClient" GET Client->NumClient PICT "999999" VALID Client->NumClient > 0
@  3, 0 SAY "Contact" GET Client->Contact VALID !empty(Client->Contact)
@  4, 0 SAY "Adresse" GET Client->Adresse
READ

• (en) Cet article est partiellement ou en totalité issu de l’article de Wikipédia en anglais intitulé « Clipper (programming language) » (voir la liste des auteurs).