Ecosyste.ms: Awesome
An open API service indexing awesome lists of open source software.
https://github.com/mumez/PunQLite
UnQLite binding for Pharo Smalltalk
https://github.com/mumez/PunQLite
pharo pharo-smalltalk smalltalk unqlite
Last synced: about 2 months ago
JSON representation
UnQLite binding for Pharo Smalltalk
- Host: GitHub
- URL: https://github.com/mumez/PunQLite
- Owner: mumez
- License: mit
- Created: 2013-12-22T13:12:53.000Z (over 10 years ago)
- Default Branch: master
- Last Pushed: 2022-04-11T13:55:54.000Z (about 2 years ago)
- Last Synced: 2024-02-09T02:02:23.456Z (5 months ago)
- Topics: pharo, pharo-smalltalk, smalltalk, unqlite
- Language: Smalltalk
- Size: 632 KB
- Stars: 12
- Watchers: 4
- Forks: 4
- Open Issues: 0
-
Metadata Files:
- Readme: README.md
- License: LICENSE
Lists
- awesome-pharo - PunQLite - UnQLite binding for Pharo Smalltalk. (Databases)
README
PunQLite [](https://travis-ci.org/estebanlm/PunQLite)
========
[UnQLite](http://unqlite.org "UnQLite") binding for [Pharo Smalltalk](http://www.pharo-project.org/ "Pharo").
UnQLite is a fast, lightweight, portable, embedded KVS with a simple scripting engine (Jx9). By using PunQLite, you can store/load lots of data as if just using a normal Dictionary.
[](https://github.com/mumez/PunQLite/releases)
[](./LICENSE.txt)
[]()
[]()
Directories:
- repository
+ [Cypress](https://github.com/CampSmalltalk/Cypress) style Smalltalk source tree
For MCZ packages, visit SmalltalkHub PunQLite site.
## Installation ##
- Compile UnQLite
It would be very easy. UnQLite consists of only two files.
```Shell
gcc -m32 -c unqlite.c
#linux
gcc -m32 -shared -o unqlite.so unqlite.o
#win (MinGW)
gcc -m32 -shared -static-libgcc -o unqlite.dll unqlite.o -Wl,--add-stdcall-alias
#mac
gcc -m32 -dynamiclib -o unqlite.dylib unqlite.o
```
- Load PunQLite
```Smalltalk
Metacello new
repository: 'github://mumez/PunQLite/repository';
baseline: 'PunQLite';
load.
```
## Performance ##
```Smalltalk
"Simple store/load round-trip"
Time millisecondsToRun:[
db := PqDatabase open: 'bench.db'.
val := '0'.
1 to: 100000 do: [:idx | | key |
key := idx asString.
db at: key put: val.
val := (db at: key) asString.
].
db close.
]. "===> 877 msecs"
```
I felt it is quite fast. 100000 round-trips in 877 msecs. Please try the code by yourself.
## Usages ##
```Smalltalk
"Like a Dictionary"
db := PqDatabase openOnMemory.
db at: 'Smalltalk' put: 'COOL'.
db at: 'Pharo' put: 'HOT'.
db at: 'Smalltalk' ifPresent: [:data |
data asString inspect
].
Transcript cr; show: db keys.
db do: [:cursor |
Transcript cr; show: cursor currentStringKey; space; show: cursor currentStringValue.
].
db close.
```
```Smalltalk
"Using explicit transaction"
db := PqDatabase open: 'trans.db'.
db disableAutoCommit.
1 to: 100 do: [:idx | | key |
key := idx asString.
db transact: [db at: key put: ('value-', key)]
].
db close.
```
```Smalltalk
"Using cursor seek"
db := PqDatabase openOnMemory.
1 to: 10 do: [:idx |
db at: idx asString put: 'value-', idx asString.
].
cursor := db newCursor.
entries := OrderedCollection new.
cursor seek: '5' untilEndDo: [:cur |
entries add: (cur currentStringKey -> cur currentStringValue)
].
cursor close.
db close.
^entries "==> an OrderedCollection('5'->'value-5' '6'->'value-6' '7'->'value-7' '8'->'value-8' '9'->'value-9' '10'->'value-10')"
```
```Smalltalk
"Import from files"
db := PqDatabase open: 'mczCache.db'.
(FileSystem workingDirectory / 'package-cache') files do: [:each |
(db importAt: each basename fromFile: each pathString)
ifTrue: [db commitTransaction].
].
db keys inspect.
db close.
```
```Smalltalk
"Excute Jx9 scripting language"
db := PqDatabase openOnMemory.
src := '
$var = 123;
$str = "$var - one, two, three!";
$tm = time();
'.
executer := db jx9.
executer evaluate: src.
(executer extract: 'var') asInt inspect.
(executer extract: 'str') asString inspect.
(executer extract: 'tm') asInt inspect.
executer release.
db close.
```