Créer un objet à partir d’une chaine de caractère
La syntaxe de Smalltalk définit un bloc de la manière suivante :
bc := [ :a | a traitements. a.].
Ici, le bloc est paramétré. Lors de l’execution du bloc, le message “traitements” est envoyé au paramêtre. Le bloc renvoie la dernière valeur évalué. Ici, il s’agit explicitement de a.
Pour évaluer le bloc, je peux faire :
monObjet := MonObjet new.bc value: monObjet.
Très bien. Admettons maintenant que je dispose de la chaine de caractère suivante :
' [ :a | a traitements. a.]'
Je souhaite en faire un bloc comme précédemment (en quelque sorte, compiler le code). Et bien, il suffit pour cela d’appeler la méthode readFromString: de Object :
bc := Object readFromString: '[ :a | a traitements. a.]'.monObjet := MonObjet new.bc value: monObjet.
Et voilà. Je vous invite à essayer la même chose avec les lignes suivantes (faites un “inspect” dessus pour voir ce que cela donne) :
Object readFromString: '34'.Object readFromString: 'coucou'.Object readFromString: '''coucou'''.Object readFromString: 'a := String new.'.Object readFromString: 'a := ''coucou''. b:= 5. '.
Note : dans une chaine de caractères, le caractère spécial ‘ (guillemet simple, ou “simple quote”), est échappé par son doublage. Ainsi, au sein d’une chaine de caractères entourées par des guillemets simples, ” ( ‘ suivi de ‘, et non “) représente un guillemet simple (et non la terminaison de la chaine).
Tags : Block • BlockClosure • Smalltalk • VisualWorksCréer un fichier avec VisualWorks Smalltalk
On souhaite créer un fichier, et y écrire du contenu. Le code suivant permet de créer le NOUVEAU fichier “test.txt” et d’y écrire un mot :
| file |file := 'test.txt' asFilename.file exists ifFalse:[ | ws |ws := file writeStream.ws nextPutAll: 'coucou'.ws close.]
Pour lire le contenu, on peut faire :
Tags : code • Smalltalk • VisualWorks| file contenu |file := 'test.txt' asFilename.file exists ifTrue: [ | rs |rs := file readStream.contenu := rs contents.rs close.].^contenu
Projet MNT - 5
Un petit peu moins découpé à la serpe que les le précédent, non ?
Tags : 3D • Jun • Smalltalk • topographie • VisualWorksSmalltalk et les blocs multi-paramétrés
La problématique est la suivante : comment passer trois paramètres à un bloc, provenant d’une collection (Array, OrderedCollection, ou tout autre …).
monTab := #(1 2 'add').monBloc := [:op1 :op2 :op3 | duCode. ^unResultat].
Je veux executer monBloc avec le contenu de monTab comme paramètres. L’utilisation de do: n’est ici pas appropriée : do: est un message compris par une collection, pas par un bloc. Et pourtant, la réponse est dans cette réponse : un bloc est un objet, comme tout en smalltalk. Il existe donc un message permettant de donner un paramètre à un bloc. Ce message est value: :
monBloc := [:op1 :op2 :op3 | duCode. ^unResultat].monBloc value: 1 value: 2 value: 'add'.
Pour obtenir les éléments de monTab, je propose l’utilisation d’un ReadStream. Cependant, un acces direct aux éléments est aussi possible. Voici les deux solutions :
monTab := #(1 2 'add').monBloc := [:op1 :op2 :op3 | duCode. ^unResultat]." Accès direct aux éléments "monBloc value: (monTab first) value: (monTab at: 2) value: (monTab last)." Une seconde solution : "monStream := monTab readStream.monBloc value: monStream next value: monStream next value: monStream next.
Et voilà !
Tags : code • Smalltalk • Smalltalk programming • VisualWorksProjet MNT - 4
Le grain est ici de l’ordre du metre. Le plus compliqué va être de constituer une palette élégante.
Tags : 3D • Jun • Smalltalk • topographie • VisualWorksProjet MNT - 3
Projet MNT - 2
Projet MNT - 1
Installer un Store Repository pour VisualWorks
Introduction
Le développement d’un application peut ammener à “faire des essais” pouvant conduire à une perte de fonctionnalité. La possibilité de “revenir en arrière” dans le code, c’est à dire, retrouver le code source précédent, peut avoir des intérêts non négligeables.
Le fait de stocker son code de façon séparée de son image de développement, dans le cas de Smalltalk/VisualWorks, permet aussi de s’assurer de sa consistance. A partir d’une image vierge, il est possible de recharger uniquement le code développé, et s’assurer ainsi que celui ci fonctionne, sans dépendre de packages qui ne seraient pas chargés.
VisualWorks dispose d’un outils nommé “Store” s’interfaçant avec une base de données pour stocker le code. Simple d’emploi, celui ci permet la publication/récupération de versions de codes, un peu à la manière de svn ou cvs. Pour le mettre en fonctionnement, il suffit d’avoir sous la main une base de données.
Store prend en charge les bases de données suivantes : Oracle, SqlServer, PostgreSQL, DB2, Intervase, MSAccess. Les deux premières sont supportées par Cincom, les autres proviennent de contributions extérieures. Cependant, Store fonctionne très bien avec PostgreSQL, et c’est d’ailleurs celle base qui sera utilisée.
Installer PostgreSQL
Pour installer un serveur PostgreSQL sur linux, il faut exécuter
# yum -y install postgresql postgresql-server
sous Fedora ou
# apt-get install postgresql postgresql-client
pour une distribution Debian. Pour les autres distributions, utilisez votre gestionnaire de paquetage préféré, ou partez des sources de PostgreSQL.
Ajouter deux utilisateurs
Les commandes suivantes permettent la création des utilisateurs de la base de donnée :
# su – postgres$ createuser -a -d -P BERN$ createuser -A -D -P user
Le premier utilisateur (BERN) aurra le droit de créer des bases de données (-d) et des utilisateurs (-a). Le second n’aurra pas le droit de créer desbases ni des utilisateurs (-D -A).
Ajouter une base
Pour créer une base de donnée, on éxécutera la commande suivante :
$ createdb store
Ecouter les interfaces réseau
Par défaut, PostgreSQL n’écoute que l’interface réseau de loopback. Si l’on souhaite utiliser cette base depuis l’extérieur (i.e., si la base se trouve sur une autre machine que celle de développement), il faut modifier le fichier de configuration de postgreSQL, situé dans /etc/posgresql/XX/main/postgresql.conf pour une distribution Debian, où XX est la version de PostgreSQL installée.
Il faut décommenter l’une des premières lignes positionnant la variable tcpip_socket et lui affecter la valeur “true”
# - Connection Settings -tcpip_socket = true...port = 5432
Le port par défaut est le port 5432. Si vous en changez, il faudra en tenir compte plus loin.
Autoriser les accès
Il faut maintenant autoriser les utilisateurs à acceder à cette base. L’ajout, à la fin du fichier , situé dans le même repertoire que le fichier postgresql.conf, de la ligne suivant, autorise tout les utilisateurs à accéder à la base store depuis n’import quel machine, avec un mot de passe chiffré par md5 :
host store all 0.0.0.0 0.0.0.0 md5
La seule chose à modifier sur cette ligne est le nom de la base, ici “store”. La syntaxe est la suivante :
TYPE DATABASE USER IP-ADRESS IP-MASK METHOD
Cette configuration est un peu permissive, et doit être adaptée à vos contraintes de sécurité. Pensez également à adapter les règles de votre pare-feu en conséquence.
Construire le Store
Une fois la base et les utilisateurs en place, ouvrez une image vierge de VisualWorks. Vérifiez que le parcel StoreForPostgreSQL est bien chargé, via le Parcel Manager (System->Parcel Manager, onglet Suggestion, dossier “Store Tools”). Puis, dans un workspace, évaluez l’expression suivante :
Store.DbRegistry installDatabaseTables
Dans la fenêtre de connexion, renseignez les champs comme suit :
Interface: PostgreSQLEXDIConnection
Environment: ipDeLaMachine_store
User Name: BERN
Password: (à votre avis ?)
Table Owner: BERN
Attention : si vous avez utilisé un autre port pour PostgreSQL, vous devez le préciser dans le champ environment. Par exemple : ipDeLaMachine:15432_store. Vous pouvez par ailleurs remplace l’ip de la machine par son nom d’hôte.
A la question “installer les tables”, répondez OK.
A la question “install user management tables”, répondez NO.
Voilà, c’est terminé.
Utiliser le Store
Dans votre image de développement, connectez vous au store via le menu Store->Connect to repository. Utilisez cette fois ci le nom d’utilisateur sans privilèges crée précédement (le second, nommé ici “user”).
Interface: PostgreSQLEXDIConnection
Environment: ipDeLaMachine_store
User Name: user
Password: (à votre avis ?)
Table Owner: BERN
Dans le browser, un clic droit sur un package vous permet d’accéder au menu “publish…” qui vous permettra de publier le package sur le store. Une fois le package publié, vous pouvez le retrouver/recharger via le menu Store->Published Items. Choisissez alors la version qui vous interesse.
Informations complémentaires
N’importe quelle installation de PostgreSQL fonctionnelle permet l’utilisation de Store, et cela quelque soit la plateforme sur laquelle celle ci est installée (Linux, Windows …).
L’utilisation de Store, et de tout les outils associés (notament l’outils de fusion, Merge Tool), est décrite dans le document Source Code Management Guide (SourceCodeMgmtGuide.pdf), situé dans le repertoire doc/ de votre installation de VisualWorks.
VisualWorks est un IDE Smalltalk téléchargeable et utilisable gratuitement pour un usage non commercial ou académique.
Tags : Cincom • Debian • Fedora • Linux • PostgreSQL • Smalltalk • Store • VisualWorksComme j’aime cette image …
Binary Object Stream Service
VisualWorks propose un Parcel nommé BOSS, pour Binary Object Stream Service. Celui ci permet le stockage d’instances sous la forme d’un fichier binaire. Ce parcel est normalement chargé dans l’image de départ de VW 7.5, mais le cas échéant, il peut être chargé via le parcel manager (”System” -> “Parcel Manager”). Il se trouve dans l’onglet suggestion, et le dossier “Application Developpement”.
Le code suivant permet d’utiliser BOSS :
myWriteStream := 'monFichier.dat' asFilename writeStream.bos := BinaryObjectStorage onNew: myWriteStream."on suppose qu'il existe anObject, une instance de classe quelconque..."[bos nexPut: anObject] ensure: [bos close].
On pourrait tout aussi bien utiliser le message “nextPutAll: aCollection” pour stocker un ensemble d’instances. La construction [aBlockClosure] ensure: [anAction] retourne la valeur retournée par le premier block, mais, avant cela, évalue le second bloc.
Pour récupérer des instances d’objets, le problème n’est pas plus compliqué :
myReadStream := 'monFichier.dat' asFilename readStream.bos := BinaryObjectStorage onOldNoScan: myReadStream.[myObjects := bos contents] ensure: [bos close].
Il est également possible de stocker des définitions de classes, avec le message “nextPutClasses: anArray” (anArray doit contenir les classes à enregistrer). Pour les récupérer depuis la sauvegarde, le message nextClasses fera l’affaire 
BOSS est capable de détecter les changements dans la définition des classes lors du chargement d’instances depuis un fichier BOSS. Ainsi, vous pouvez diffuser un patch contenant les nouvelles classes oou les modifications apportées à votre logiciel, tout en assurant la rétro-compatibilité des sauvegardes des utilisateurs. Il suffit pour cela de définir deux méthodes dans la nouvelle version de la classe : une méthode d’instance nommée “binaryRpresentationVersion”, qui retourne la version de la classe (1, 2, 3… etc), et une méthode “binaryReaderBlockForVersion: oldVersion format: oldFormat” qui se charge de convertir l’anciene instance objet sous sa nouvelle forme. Le reste est fait automatiquement par BOSS.
BOSS est largement décrit dans le guide du développeur d’applications VisualWorks (AppDevGuide.pdf) situé dans le repertoire “doc” de votre installation VisualWorks. Ce billet en est d’ailleurs largement inspiré.
Avec un tel outils, imaginez la quantité de difficultés levées lors du developpement d’applications : sauvegarde aisée des éléments produits par l’applications, et mise à jour facile … Un bonheur.
Je crois (mais je n’en suis pas certain) qu’il est possible d’utiliser BOSS sur autre chose qu’un Stream sur un fichier. Une connexion TCP par exemple ? Je vérifierais, mais je n’ai pas encore en tête “l’application qui tue” d’une telle possibillité. Si vous avez des idées …
Tags : BOSS • cincom smalltalk • code • File System • Object • Smalltalk • VisualWorksPetite présentation de Smalltalk
Smalltalk est un langage objet pur, c’est à dire que tout, en Smalltalk, est objet. Tout, en Smalltalk, est modifiable, à la volée. Il est ainsi possible de modifier en cours d’execution, le contenu du programme, l’ensemble des classes, les méthodes associées, ou le fonctionnement même de Smalltalk, sa pile d’execution, sa methode d’allocation mémoire … le tout, éventuellement, de façon programmée, et sans necessiter d’arrêt dans l’exécution du programme.
Smalltalk est à l’origine du concept de Design Pattern, et se prête particulièrement à l’implémentation de ceux ci. L’utilisation d’un pattern visitor, ou d’un pattern composite, est une opération particulièrement aisée en Smalltalk, de par sa structure purement objet.
eXtreme Programming trouve aussi ses origines au sein de la communauté de developpeur Smalltalk. En effet, un code Smalltalk permet sa modification de manière simple et rapide. A ce titre, le Refactoring est un concept évident en Smalltalk. D’ailleurs, dans les IDE Smalltalk les plus courrant existent des outils permettant d’effectuer de manière sures et efficaces du refactoring, mais aussi du deboggage à la volée, avec un outil Debugger permettant l’arret, la correction, et la reprise à chaud de l’exécution d’un code.
Il est courant d’affirmer que la syntaxe de Smalltalk tiens sur une carte postalle. En serrant un peu les lettres, ca devrait passer
Smalltalk dispose pour “avatar” d’un ballon captif, ou, c’est selon, d’une mongolfière. Cette image laisse penser, à juste titre, que Smalltalk est un langage de (très) haut niveau. Actuellement, plusieurs implémentations de Smalltalk sont disponibles. Cependant, je parlerais principalement de l’environnement VisualWorks, developpé par Cincom, et dans une moindre mesure, de l’environnement libre Squeak.
Tags : Cincom • Smalltalk • Squeak • VisualWorks
Commentaires récents