Pharo Script of the Day: Mass image format conversion from PNG to JPEG

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...

Read More

Pharo Script of the Day: Text analysis using tf-idf

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...

Read More

Pharo Script of the Day: Count lines of code

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...

Read More

Pharo Script of the Day: SPARQL access to DBPedia

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; ...

Read More

Pharo Script of the Day: Visualize SVG paths using Roassal

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...

Read More

Pharo Script of the Day: Unzip, the Smalltalk way

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...

Read More

Pharo Script of the Day: Massive uncontrolled send and log of unary messages

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...

Read More

Pharo Script of the Day: A quiz game script to test your Collection wisdom

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...

Read More

Pharo Script of the Day: Find your IP address

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 403ZnClient new systemPolicy; beOneShot; url: 'http://ifconfig.me/ip'; accept: ZnMimeType textPlain; headerAt: 'User-Agent' put: 'curl/7.54.0'; timeout: 6000; ge...

Read More

Pharo Script of the Day: Generate random strings

Today's script is just a one-liner to generate 10 random Strings: (Generator on: [ : g | 10 timesRepeat: [ g yield: UUID new asString36 ] ]) upToEn...

Read More

Pharo Script of the Day: Colorizing nucleotides

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...

Read More

Pharo Script of the Day: One minute frequency image saver

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 proce...

Read More

Pharo Script of the Day: Create a directory tree at once

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') ...

Read More

Pharo Script of the Day: Execute command in a MSYS2 MinGW64 context

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 :)...

Read More

Pharo Script of the Day: k-shingles implementation

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...

Read More

Pharo Script of the Day: Smalltalk Russian Roulette

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...

Read More

Pharo Script of the Day: A save,quit & deploy GUI trick

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...

Read More

Pharo Script of the Day: Proto proto image preprocessing in Pharo

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...

Read More

Pharo Script of the Day: Poor's man test runner: Run package tests in Pharo from a script

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: [...

Read More

Pharo Script of the Day: Open a line-numbered text editor

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...

Read More