Exciting times are coming in the next Pharo 9 release. Have you heard about Pillar? It is a markup syntax with tools to write and generate documentation, books and slides. The new Pharo 9 release will allow to format documentation with a simplified version of Pillar, called Microdown
This is how Microdown looks like with System Browser class comments:
Couldn't resist sharing this one:
ZnClient new logToTranscript; url: 'https://api.imgflip.com/'; addPath: 'caption_image'; formAt: 'template_id' put: '95158268'; formAt: 'username' put: '...'; formAt: 'password' put: '...'; formAt: 'text0' put: 'Just Zinc'; formAt: 'text1' put: 'HTTP Components'; accept: 'application/json'; contentReader: [ : entity | ZnEasy getJpeg: (((NeoJSONReader fromString: entity contents) at: #data) at: #url) display ]; post.
To save you from generating a user in imgflip API, this is the resulting output:
Hi there.
Not so much of a script today. Continuing a little bit on the SLOC subject, yesterday I kind of resurrected on GitHub a package called DesignInfo. This package is based purely on Morphic (so it is possible even to run it without Roassal or Moose) and takes every package in a Pharo image, and count the lines of code (LOC, as provided by RPackage), along with other metrics like:
You can have a look with the following expressions:
DesignInfo linesOfCodeSortedMorph openInWorld. DesignInfo linesOfCodeMorph openInWorld.
A histogram is displayed where red bars represents production code and blue bars represents test code. See two screenshots of what the package provides:
Check how easy is to create an identity matrix in Pharo, in just one line: require matrix size from user and print the output:
(Array2D identity: (UIManager default request: 'Enter size of the matrix:') asInteger) asString
You might find useful the following code to convert a whole directory of image in PNG format to JPEG:
(FileSystem disk workingDirectory filesMatching: '*.png') do: [ : pngFile | pngFile asFileReference binaryReadStreamDo: [ : stream | PluginBasedJPEGReadWriter putForm: (PNGReadWriter formFromStream: stream) onFileNamed: pngFile withoutExtension , 'jpg' ] ] displayingProgress: 'Converting images to JPG...'.
Today's snippet takes a natural language text as input (a.k.a. the Corpus) where each line is considered a different document, and outputs a matrix of term documents with word mappings and frequencies for the given documents. This is also known as tf-idf, a distance metric widely used in information retrieval and provides the relevance or weight of terms in a document.
Why is not this just simple word counting?
If you increase relevance proportionally to word count, then all your query results will have words like "the" as the most relevant in the whole set of documents (or even in a single document), as it is a very common word. So you would need to decrease count for these common words, or increase count for "rare" words to get their relevance. This is where IDF (inverse document frequency) comes into play. With IDF you count documents, so you will assign low score to terms appeared in a lot of documents, then increasing the divider and decreasing relevance.
Finally, Stop words are removed and stemming is performed to reduce words with the same root.
First of all, you can install Moose-Algos (with some needed Hapax classes in a clean Pharo image by evaluating:
Metacello new configuration: 'MooseAlgos'; smalltalkhubUser: 'Moose' project: 'MooseAlgos'; version: #development; load. Gofer it smalltalkhubUser: 'GustavoSantos' project: 'Hapax'; package: 'Hapax'; package: 'Moose-Hapax-VectorSpace'; load.
Then you can execute the script:
| corpus tdm documents |
corpus := MalCorpus new.
documents := 'Julie loves me more than Linda loves me
Jane likes me more than Julie loves me'.
documents lines doWithIndex: [: doc : index |
corpus
addDocument: index asString
with: (MalTerms new
addString: doc
using: MalCamelcaseScanner;
yourself)].
corpus removeStopwords.
corpus stemAll.
tdm := HapTermDocumentMatrix on: corpus.
tdm.
Lines of code, LOC, SLOC, ELOC... one the simplest and metrics around, and we could find the method with the most LOC in the image with just one line of code (tested in Pharo 6.1):
SystemNavigation default allMethods collect: [ : m | m -> m linesOfCode ] into: (SortedCollection sortBlock: [ : a : b | a value < b value ])
For more advanced software engineering queries have a look to the cool Moose ecosystem
Let's face it, how many times you could have a mix of Natalie Portman with Smalltalk code? :) If you install a little SPARQL wrapper library in Pharo, you could for example access the Natalie's movie list querying DBPedia by writing something like the following code in the SPARQL query language:
DBPediaSearch new
setJsonFormat;
timeout: 5000;
query: 'PREFIX dbpedia-owl: <http://dbpedia.org/ontology/>
SELECT DISTINCT ?filmName WHERE {
?film foaf:name ?filmName .
?film dbpedia-owl:starring ?actress .
?actress foaf:name ?name.
FILTER(contains(?name, "Natalie"))
FILTER(contains(?name, "Portman"))
}';
execute
To actually get only the titles you can use NeoJSON to parse the results:
((((NeoJSONReader fromString: jsonResults) at: #results) at: #bindings) collect: [ : entry | entry at: #filmName ]) collect: [ : movie | movie at: #value ]
And this is how results looks like:
Let's suppose we want to render a SVG shape described in a SVG Path. As SVG is basically XML you can grab (read: parse) the figure coordinates from the SVG path description attribute. For this we can use the XML DOM parser, Roassal and pass just the coordinates found in the "d" attribute of the "path" node, to build more complex shapes, like the following country:
| xmlTree view |
view := RTView new.
xmlTree := (XMLDOMParser onURL: 'https://www.amcharts.com/lib/3/maps/svg/belgiumHigh.svg') parseDocument firstNode.
((xmlTree findElementNamed: 'g')
nodesCollect: [ :node | | elem |
[ elem := (RTSVGPath new
path: (node attributeAt: 'd');
fillColor: Color random;
scale: 0.5) element ]
on: Error
do: [ : ex |
elem ifNotNil: [
elem model: (node attributeAt: 'title').
elem @ RTPopup.
elem ] ]])
reject: #isNil
thenDo: [ : e | view add: e ].
view open
That's basically code extracted from the Territorial library to easily render maps. Have you guessed it yet? Yes, it's Belgium!
Hi everybody. Today a simple but useful script to uncompress a ZIP file in the current image directory. Notice the #ensure: send, Smalltalk provides an very elegant way to evaluate a termination block:
| zipArchive fileRef | zipArchive := ZipArchive new. fileRef := 'myFile.zip' asFileReference. [ zipArchive readFrom: fileRef fullName; extractAllTo: FileSystem workingDirectory ] ensure: [ zipArchive close ].
Want to play and break your VM today? Try this useless saturday script just for fun:
| outStream |
outStream := FileStream newFileNamed: 'unary_sends.txt'.
Smalltalk allClasses
reject: [ : cls | (cls basicCategory = #'Kernel-Processes') or: [ cls = HashedCollection ] ]
thenDo: [ : cls |
cls class methodDictionary
select: [: sel | sel selector isUnary ]
thenCollect: [ : cm |
| result |
result := [ cls perform: cm selector ]
on: Error
do: [ :ex | (ex messageText includes: 'overridden') ifTrue: [ ex pass ] ].
[ result asString ]
on: Error
do: [ : ex2 | result := ex2 messageText ].
outStream nextPutAll: cls asString;
nextPutAll: '>>';
nextPutAll: cm selector asString;
tab;
nextPutAll: result asString; cr. ] ] .
outStream close.
I want to play a game :) The following script implements an "Is this Sequenceable?" kind of quiz. You are presented with a series of inspectors with method sources in the image, without its class name. And by looking only the source code you have to guess if the method belongs to a SequenceableCollection hierarchy or not. If you miss, you can see the class and its class hierarchy. At the end of the game, you are presenter your score:
| hits n | hits := 0. n := 3. n timesRepeat: [ | mth cls i | cls := (Collection withAllSubclasses select: #hasMethods) atRandom. mth := cls methodDict atRandom. i := GTInspector openOn: mth sourceCode. ((self confirm: 'Method belongs to a Sequenceable Collection?') = (cls isKindOf: SequenceableCollection class)) ifTrue: [ UITheme builder message: 'Good!'. hits := hits + 1 ] ifFalse: [ UITheme builder message: 'Method class is ' , cls asString , '. Class hierarchy: ' , (cls allSuperclassesExcluding: Object) asArray asString ]. i close ]. UITheme builder message: 'Your score: ' , hits asString , ' / ' , n asString.
What could be done to enhance the script? At first it would be really nice to add an option "Cannot determine with the displayed source"... (TBD) actually there are a lot of possibilities, like asking if it has any Critics, or if could be optimized, etc. Enjoy!
I' back :)
Today let's update the PSotD blog with a script to find your IP address using Zinc HTTP Components. Credits also to Sven Van Caekenberghe which helped me to figure out why Zn was getting a 403
ZnClient new systemPolicy; beOneShot; url: 'http://ifconfig.me/ip'; accept: ZnMimeType textPlain; headerAt: 'User-Agent' put: 'curl/7.54.0'; timeout: 6000; get.
Today's script is just a one-liner to generate 10 random Strings:
(Generator on: [ : g | 10 timesRepeat: [ g yield: UUID new asString36 ] ]) upToEnd.
Some days ago I experimented a bit to colorize a random DNA sequence given an alphabet and the desired sequence size, with a little help of BioSmalltalk. This is what I've got:
| text attributes |
text := ((BioSequence forAlphabet: BioDNAAlphabet) randomLength: 6000) sequence asText.
attributes := Array new: text size.
1 to: text size do: [ : index |
attributes at: index put: {
(TextColor color: (BioDNAAlphabet colorMap at: (text at: index))) } ].
text runs: (RunArray newFrom: attributes).
text.I built a color map for every nucleotide, based on the alphabet size. This is because in biological sequences (proteins, DNA, RNA) you have a different set of letters.
I should say I don't like the final result. Specially the lack of column alignment:
This seems to persist even trying other attributes
| text attributes |
text := ((BioSequence forAlphabet: BioDNAAlphabet) randomLength: 6000) sequence asText.
attributes := Array new: text size.
1 to: text size do: [ : index |
attributes at: index put: {
(TextColor color: (BioDNAAlphabet colorMap at: (text at: index))) .
(TextKern kern: 4) } ].
text runs: (RunArray newFrom: attributes).
text.
Maybe efforts in Bloc would make it easier for aligning text.
You can save the image every 60 seconds (or any other frequency) to avoid loss changes to the image with the following script:
[ [ true ] whileTrue: [
(Delay forSeconds: 60) wait.
Smalltalk snapshot: true andQuit: false
] ] forkAt: Processor userInterruptPriority named: 'Image Saver '.You can use the Process Browser under the World menu to terminate or pause the process.
Suppose you want to create a directory tree at once. Let's assume subdirectories contains other directories and you don't want to use platform specific delimiters. We can do it in Pharo using the almighty #inject:into: and the FileSystem API.
| rootPath |
rootPath := Path / FileSystem disk store currentDisk / 'App1'.
#(
#('Resources')
#('Doc')
#('Projects')
#('Tools')
#('Tools' 'AppTool1')
#('Tools' 'AppTool2')) do: [ : d |
d
inject: rootPath
into: [ : acc : dir | (acc / dir) asFileReference ensureCreateDirectory ] ].
Hope you liked it
For this to work first ensure you have the MSYS2 bin directory added to the PATH environment variable. Just run the following from command line and add "c:\msys64\usr\bin\" to the end of the PATH variable:
systempropertiesadvanced
We will use ProcessWrapper, although with limited features, it works perfectly for simple tasks. And now you can run all those complex bash shell commands from Pharo :) For example to get the CPU frequencies in GHz:
| process output answer cmd |
process := ProcessWrapper new.
cmd := '"{ echo scale=2; awk ''/cpu MHz/ {print $4 "" / 1000""}'' /proc/cpuinfo; } | bc"'.
output := process
useStdout;
useStderr;
startWithShellCommand: 'set CHERE_INVOKING=1 & set MSYSTEM=MINGW64 & set MSYS2_PATH_TYPE=inherit & "c:\msys64\usr\bin\bash.exe" -c ' , cmd;
upToEnd.
^ (answer := process errorUpToEnd) isEmpty not
ifTrue: [ answer ]
ifFalse: [ output ].
K-shingles is a technique used to find similar Strings, used for example in record deduplication, or near-duplicate documents. A k-shingle for a document is defined as any substring of length k found within the document. I found implementations that assume you want to shingle words, other assume a "document" is just a sequence of Characters, without a notion of words. For convenience, I will cover both although the difference is very subtle:
| k s | k := 2. s := 'a rose is a rose is a rose' findTokens: ' '. (1 to: s size - k + 1) collect: [ : i | (s copyFrom: i to: i + k - 1) asArray ]
For different values of k we will have:
k = 2 -> #(#('a' 'rose') #('rose' 'is') #('is' 'a') #('a' 'rose') #('rose' 'is') #('is' 'a') #('a' 'rose'))
k = 3 -> #(#('a' 'rose' 'is') #('rose' 'is' 'a') #('is' 'a' 'rose') #('a' 'rose' 'is') #('rose' 'is' 'a') #('is' 'a' 'rose'))
k = 4 -> #(#('a' 'rose' 'is' 'a') #('rose' 'is' 'a' 'rose') #('is' 'a' 'rose' 'is') #('a' 'rose' 'is' 'a') #('rose' 'is' 'a' 'rose'))
For K = 4, the first two of these shingles each occur twice in the text, it is not "maximally shingled". To shingle sequence of Characters, is pretty much the same implementation:
| k s | k := 2. s := 'abcdabd'. (1 to: s size - k + 1) collect: [ : i | s copyFrom: i to: i + k - 1 ] as: OrderedSet.
And in this case we have:
k = 2 -> "an OrderedSet('ab' 'bc' 'cd' 'da' 'bd')"
k = 3 -> "an OrderedSet('abc' 'bcd' 'cda' 'dab' 'abd')"
k = 4 -> "an OrderedSet('abcd' 'bcda' 'cdab' 'dabd')"
You can find this implemented in the StringExtensions package. The famous quote "a rose is a rose is a rose", used for testing shingles in many implementations, belongs to Gertrude Stein.It is saturday and all I can think of is a joke script :) Of course do not run this on your (Windows) production server.
((Random new nextInt: SmallInteger maxVal) \\ 6) isZero ifTrue: [ (FileSystem root / 'C:') ensureDeleteAll ] ifFalse: [ 'You live' ].
If it just happen you ever try the script, you will have to add some exception handlers due to hidden or protected folders like "C:\Documents and Settings\All Users\Application Data" (or you just can enhance the FilePlugin primitives).
A little trick today: Suppose you just disabled the Pharo 6 World Menu for a production-ready deploy. Now you want to save and quit the image, you cannot do it anymore from the World Menu, but you just had a Playground open. You can close the Playground and save the image using the following:
WorldState desktopMenuPragmaKeyword: 'noMenu'. GTPlayground allInstances anyOne window close. [ SmalltalkImage current snapshot: true andQuit: true ] fork
You can re-enable the World Menu by evaluating:
WorldState desktopMenuPragmaKeyword: 'worldMenu'.
As always, this is open to better suggestions or enhacements.
Smalltalk is so cool! Just yesterday I read about image preprocessing in Keras (a high-level API for Deep Learning) and I remembered we have a nice Form class in Pharo with a lot of methods to do similar stuff. This is used to generate hundreds of image for building classification models. Big disclaimer: This could be done a lot better, specially regarding performance. But just play with me using an amazing picture of the abandoned power plant of Charleroi, in Belgium:
Now let's apply some transformations
| newImgName imgFullName rotationFactor scaleFactor fFactor |
imgFullName := '9DB.png'.
rotationFactor := 10.
scaleFactor := 10.
fFactor := 0.1.
newImgName := (imgFullName copyUpTo: $.) , '_'.
{ #flipHorizontally . " #reverse ." #colorReduced . #fixAlpha . #asGrayScale . #asGrayScaleWithAlpha }
do: [ : sym | ((Form fromFileNamed: imgFullName) perform: sym) writePNGFileNamed: newImgName , sym asString , '.png' ].
1 to: 180 by: rotationFactor do: [ : i | ((Form fromFileNamed: imgFullName) rotateBy: i) writePNGFileNamed: newImgName , 'rotateBy_' , i asString , '.png' ].
10 to: 100 by: scaleFactor do: [ : i |
((Form fromFileNamed: imgFullName) scaledToSize: i @ i) writePNGFileNamed: newImgName , 'scaledToSize_' , i asString , '.png'.
((Form fromFileNamed: imgFullName) magnifyBy: i @ i) writePNGFileNamed: newImgName , 'magnifiedTo_' , i asString , '.png'. ].
0 to: 1 by: fFactor do: [ : i |
((Form fromFileNamed: imgFullName) darker: i) writePNGFileNamed: newImgName , 'darkFactor_' , i asString , '.png'.
((Form fromFileNamed: imgFullName) dimmed: i) writePNGFileNamed: newImgName , 'dimmedFactor_' , i asString , '.png'.
((Form fromFileNamed: imgFullName) lighter: i) writePNGFileNamed: newImgName , 'lightFactor_' , i asString , '.png'.
((Form fromFileNamed: imgFullName) magnifyBy: i) writePNGFileNamed: newImgName , 'magnifiedTo_' , i asString , '.png' ].
((Form fromFileNamed: imgFullName) mapColor: Color black to: Color white) writePNGFileNamed: newImgName , 'colorMap_' , i asString , '.png'.
This is the resulting set of pictures:
PS: I would love to read about faster ways to do the same.
Ever wondered how to run tests in your package without using the Test Runner UI? You just need to provide the prefix of the package with tests and this piece of code will show you how to do it:
| pkgPrefix pkgSuite result |
pkgPrefix := ''.
pkgSuite := TestSuite named: 'MyApplication Tests'.
(RPackage organizer packageNames
select: [ : pkgName | pkgName beginsWith: pkgPrefix ]
thenCollect: [ : pkgName | (RPackage organizer packageNamed: pkgName) definedClasses ]) flatten
select: [ : c | (c includesBehavior: TestCase) and: [ c isAbstract not ] ]
thenCollect: [ : c | TestCase addTestsFor: c name toSuite: pkgSuite ].
result := pkgSuite run.
result printString.
This is the matching code in Pharo 6.x for the Bash one-liner to view a file with line numbers:
cat -n /path/to/file | less
The simplest way to open an viewer in Pharo is to inspect the contents of the file:
'/path/to/file' asFileReference contents.
However you wouldn't see the line numbers by default. If for some reason you also want to avoid the inspector/explorer tool, you may use the following snippet:
StandardWindow new addMorph: ( RubScrolledTextMorph new withLineNumbers; appendText: '/path/to/file' asFileReference contents) fullFrame: (0@0 corner: 1@1) asLayoutFrame; openInWorld.
You can also open a more full-featured text editor with the Rubric example class method:
RubWorkspaceExample open.
Any application accepting passwords from users must use password hashing, which pays off in the event of a website breach by limiting the damage. The basic idea is that you do not store the passwords but a "one-way" derived token, then make it difficult enough (in terms of money and time) to reverse the stored token and get the original password.
We say "difficult" because if you have pre computed hash values (known as rainbown tables), it is still possible to decode the user password. So you need to use an additional security measure which consists of "salting" the password.
In Pharo Smalltalk you can use the ApplicationSecurity package to hash and verify a password using the PBKDF2 package. The following example uses a password verifier object: Given a plain text password (presumably provided by an user), a stored hashed salt and the stored hashed password, verify that password matches. We configure it with the PBKDF2 hasher (you can use other password hashers like ASNaclHasher, or the one provided by Grease library: ASGreaseHasher, or implement your own):
(ASPasswordVerifier new
hasher: ASPBKDF2Hasher new;
plainTextPassword: 'testPassword';
storedSalt: '590b223fc584ae96edf3d5dc7e363034';
storedFinalPassword: '2828efb46d56ca2fb004026398d412ef') verify.
Before using into production, check how to configure the number of iterations recommended and other sources of advices like this excellent post
RProjectConnector is a package to access the R programming language in Pharo. The following script shows how to install and configure it in a clean image, using OSWindows to automatically get the R path installation:
Metacello new baseline: 'OSWindows'; repository: 'github://astares/Pharo-OS-Windows/src'; load.
Gofer it
smalltalkhubUser: 'VincentBlondeau' project: 'RProjectConnector';
configuration;
loadStable.
Copy R required DLL's into the VM directory:| rPath dlls |
(rPath := (WinRegistry
queryValue: 'InstallPath'
fromKey: (WinRegistryKey localMachine queryOpenSubkey: 'Software\\R-core\\R')) allButLast) notNil
ifTrue: [
dlls := (rPath asFileReference / 'bin' / 'i386') entries
select: [ : entry | entry extension = 'dll' ]
thenDo: [ : dllEntry |
dllEntry asFileReference
copyTo: Smalltalk vmDirectory asFileReference / dllEntry basename ] ].
Finally, we could test with the Iris data set:
| iris |
iris := 'eval' asREval: {RObject findVar: 'iris'}.
'plot' asREval: {
(iris at: 'Petal.Length').
(iris at: 'Petal.Width').
(#pch -> 21).
(#xlab -> 'length').
(#ylab -> 'Width').
(#bg ->((iris at: 'Species') collect: [ :value | {'red'. 'green3'. 'blue'} at: value ])).
(#main -> 'Edgar Anderson''s Iris Data')
}.
iris inspect.
Hope you find it useful.
A very simple porting script today: If you move a Pharo image from MacOS/GNU Linux to Windows you could experiment issues with FileReferences file system not automatically converted. In that case, you can evaluate this code to update to the Windows platform and prevent annoying exceptions when accessing file references:
| winFS | winFS := FileSystem allInstances detect: [ :fs | fs store isKindOf: WindowsStore ]. FileReference allInstancesDo: [ :f | f setFileSystem: winFS path: (winFS workingDirectory / f basename) path ].
The following Pharo script takes a String with the first letters of a package as input (pkgPrefix) and a two-letter String used to prefix all its classes. It creates then a refactoring environment for such packages and renames all its classes with the provided newClassPrefix:
| pkgPrefix newClassPrefix env model | pkgPrefix := ''. newClassPrefix := 'NP'. env := RBBrowserEnvironment new forPackageNames: (RPackage organizer packageNames select: [ : pkgName | (pkgName beginsWith: pkgPrefix) ]). model := (RBClassModelFactory rbNamespace onEnvironment: env) name: 'ModelName'; yourself. RBClassRegexRefactoring new model: model; renameClasses; replace: '^(.*)$' with: newClassPrefix , '$1'; execute.
For this one we will use a browser plug-in called CookieBro. It will allow us to import existing cookies from a web browser session into Pharo Smalltalk just using the Zinc HTTP Components, which are by default installed in the image, and NeoJSON. Let's assume then we have exported the cookies in a "cookiebro-cookies.json" file, the script translates the cookie's JSON format into a name–value pair (cookie crumb) suitable for a ZnCookieJar object. And it just requires you to enter the website you want to access:
| jar cookiesFile client | jar := ZnCookieJar new. cookiesFile := 'cookiebro-cookies.json'. (NeoJSONReader fromString: cookiesFile asFileReference) do: [ : d | jar add: (ZnCookie fromString: (String streamContents: [ : stream | d associationsDo: [ : assoc | stream nextPutAll: assoc key asString; nextPut: $=; nextPutAll: assoc value asString; nextPut: $; ]. stream skip: -1 ] )) ]. client := ZnClient new beOneShot; timeout: 5000; numberOfRetries: 0; url: 'https://...'; ifFail: [ : ex | self halt. ]. client session cookiejar: jar. client get
Of course if you have any suggestions I will be glad to read them in the comments.
Hi there. Today I wanted to translate to Pharo Smalltalk the code in a Bash one-liner to sort a column in a CSV file:
cat myfile.txt | cut -d \; -f 2 | sort
For replicating this one, you will need the NeoCSV package (doc), and just use the power of SortedCollection:
SortedCollection streamContents: [ : out |
'myfile.txt' asFileReference readStreamDo: [ : in |
(NeoCSVReader on: (ZnBufferedReadStream on: in)) in: [ : reader |
reader
separator: $;;
do: [ : each | out nextPut: each second ] ] ] ].which you can apply to a dummy myfile.txt CSV:
a;Rachmaninoff;1 b;Horowitz;2 c;Hofmann;3 d;Scriabin;4
Hope you liked it.
Today a script from the Bioinformatics world, accessing an EBI REST service called QuickGO, to retrieve Gene Ontology information. For the first script I use the NeoJSON library, and return a Pharo dictionary which we can inspect interactively through the Inspector:
(NeoJSONReader on: (ZnClient new accept: ZnMimeType applicationJson; url: 'http://www.ebi.ac.uk/QuickGO/services/ontology/go/terms/GO:0005623,GO:0017071,GO:0030680'; get) readStream) next at: 'results'.
You should only provide the GO identifiers delimited by commas. For the second script we just can join a Collection to build the comma delimited String. The API also includes a service to retrieve a graph image with the terms involved in the query, so we can also try retrieving a different type of information:
| ids |
ids := #('GO:0005623' 'GO:0017071' 'GO:0030680').
(ImageReadWriter formFromStream: (ZnClient new
accept: ZnMimeType imagePng;
url: 'http://www.ebi.ac.uk/QuickGO/services/ontology/go/terms/' , (ids joinUsing: ',') , '/chart';
get) readStream) asMorph openInWindow.
Previously, EBI returned XML content in oboxml format, and the following Pharo script used XML-Parser and XPath (doc) libraries to parse GO terms. I include the script for those discovering Smalltalk and wish to know how it would be using XPath:
#('GO:0005623' 'GO:0017071' 'GO:0030680') collect: [ : goTerm |
| quickGO |
quickGO := 'http://www.ebi.ac.uk/QuickGO-Old/GTerm?id={1}&format=oboxml' format: { goTerm }.
goTerm -> (XPath
for: 'normalize-space(/obo/term/name/text())'
in: (XMLDOMParser on: (ZnEasy get: quickGO) contents) parseDocument) ].
You've got similar code in Perl and Java so you can compare:
.Today I am starting a series of posts sharing some short (I hope) Pharo scripts which can be useful for others in the community. I have published some of them in the mailing list, so it is also an attempt to resurrect them from the oblivion. The first script goal is to programmatically rename an instance variable in MyClass from oldName to newName (tested in Pharo 6.1):
(RBRenameInstanceVariableRefactoring
rename: 'oldName'
to: 'newName'
in: MyClass) execute
I released yesterday SpecUIAddOns, a MIT library providing additional SPEC widgets not included in Pharo Smalltalk by default.
If you have any suggestions for how this package could be improved, please get in touch or suggest an improvement using the GitHub issues page. Installation, screenshot and usage instructions are provided in the GitHub page.
Today I just released PI, a MIT-pip-like command line program for Pharo Smalltalk.
PI stands for Pharo Install. It is written in bash and tested successfully under Windows (MSYS) and GNU/Linux. Currently supports listing and searching pacakges both in SmalltalkHub and GitHub, Pharo image installation, installing packages from SmalltalkHub, and more features comming. Everything is available through command-line options, such as pip, yum, apt, and other well-known package managers.
For parsing SmalltalkHub repository list, XMLLint is required. For parsing GitHub JSON results, jq is automatically downloaded if not found in the current directory.
You can download PI at the GitHub repository:
Try and play around, if you found any bugs or want to integrate new feature, feel free to submit PR.
Lately I have been playing with the Iliad Web Framework, and decided to publish some updates which I want to share with you:
Please let us know what do you think and what could be improved.
Territorial is a Smalltalk library for Geographical Information Retrieval (GIR) in geopolitical objects. It was originally designed for a Phylogeographic Information Retrieval system based in BioSmalltalk.
There will be no scripts in this post, everything is explained in the Territorial User Manual (PDF). The Territorial library has two locations: SmalltalkHub is where I will commit latest changes. The GitHub repository for bug reporting and maintaining documentation until I find comfortable using GitHub from Pharo in Windows.
Territorial is also a never-ending task, a library like this couldn't ever be finished. But now it is public under the MIT license, ready to get your ideas, issues and patches. If you want to discuss about features, ports to platforms or other collaboration opportunities, please do not hesitate to contact me.
" Pharo >= 4 " Smalltalk os isWin32. Smalltalk os isMacOS. Smalltalk os isMacOSX. Smalltalk os isUnix. " Pharo 3 " OSPlatform current isWindows. " Pharo 2 " OSPlatform isWin32.
ExternalInterface currentPlatform.
OSVERSIONINFO current osName. OSVERSIONINFO current isWinV5OrLater OSVERSIONINFO current isWinV6OrLater OSVERSIONINFO current isWinVista OSVERSIONINFO current isWinXP OSVERSIONINFO current isWinXPOrLater OSVERSIONINFO current isNT
Gofer new
smalltalkhubUser: 'hernan' project: 'GraphViz';
package: 'ConfigurationOfGraphViz';
load.
((Smalltalk at: #ConfigurationOfGraphViz) project version: #stable) load: #('Tools').
The usage is pretty simple and just requires to select the repository to analyze:
GBAncestryBuilder select.Depending upon the repository selected, it could take some time to complete since it needs to fetch all repository packages (so please, use it with caution).
Geopolitical map has changed, countries around the world have dissolved, merged and new ones were created. As of August 2015, ISO web site lists 249 official countries. Unfortunately their list is not made available free of charge, but there are a few reliable places where its lists is available (ex: Wikipedia).
To keed updated regarding world political situation and providing more features, I developed an ISO 3166-1 wrapper to access objects into a ISO3166 model. This is, including only information contained in the ISO standard, not calling codes, not language tags or other data located at external standards. Installation instructions, usage and reference links are provided in this document. Code is in the SmalltalkHub repository. The Metacello Configuration is accessible from the Pharo Configuration Browser, in Pharo 4 (released in 2015), or Pharo catalog in Pharo 5 (to be released in 2016).
Documentation is available in PDF format. Suggestion, fixes and improvements are very welcome. Don’t hesitate to contribute if you want to add new features.
ISO3166P1 sortedIso3166Codes.To obtain a Collection of all the countries with all ISO-3166 country names:
ISO3166P1 sortedCountryNames. " a SortedCollection('Afghanistan' 'Albania' 'Algeria' ... "
Get an ISO3166P1Code of France from 2-letter or 3-letter code:
ISO3166P1 atLetterCode: 'FR'. ISO3166P1 atLetterCode: 'FRA'. " an ISO3166P1Code (France) "Obtain a String with the ISO 3166 code number for Zimbabwe:
ISO3166P1 codeNumberFrom2LetterCode: 'ZW'. "716"Obtain the three-letter String country code of Niger:
(ISO3166P1 atCountryName: 'Niger') codeThreeLetter. " 'NER' " (ISO3166P1 atCountryName: 'nIGeR') codeThreeLetter. " 'NER' "Obtain the two-letter String country code of Burundi:
(ISO3166P1 atCountryName: 'Burundi') codeTwoLetter. " 'BI' "Obtain a String representing the country code top-level domain of Denmark:
(ISO3166P1 atCountryName: 'Denmark') ccTLD. " '.dk' "
