Ecosyste.ms: Awesome
An open API service indexing awesome lists of open source software.
https://github.com/andreaferretti/patty
A pattern matching library for Nim
https://github.com/andreaferretti/patty
nim pattern-matching variant-objects
Last synced: about 2 months ago
JSON representation
A pattern matching library for Nim
- Host: GitHub
- URL: https://github.com/andreaferretti/patty
- Owner: andreaferretti
- License: apache-2.0
- Created: 2015-06-30T21:30:51.000Z (about 9 years ago)
- Default Branch: master
- Last Pushed: 2023-04-04T12:56:04.000Z (over 1 year ago)
- Last Synced: 2024-05-18T03:34:00.461Z (4 months ago)
- Topics: nim, pattern-matching, variant-objects
- Language: Nim
- Homepage: http://andreaferretti.github.io/patty
- Size: 93.8 KB
- Stars: 265
- Watchers: 9
- Forks: 14
- Open Issues: 5
-
Metadata Files:
- Readme: README.md
- License: LICENSE
Awesome Lists containing this project
- awesome-nim - patty - A pattern matching library for Nim. (Language Features / Pattern Matching)
README
Patty - A pattern matching library
==================================
[](https://travis-ci.org/andreaferretti/patty)
[](https://github.com/yglukhov/nimble-tag)
Patty is a library to perform pattern matching in Nim. Make sure to also have a
look at [Gara](https://github.com/alehander42/gara), which is a more complete
solution. Unlike Patty, Gara misses a macro to generate variant objects, but it
is otherwise much more comprehensive. You can follow [here](https://github.com/alehander42/gara/issues/5)
about adding a macro for object variants in Gara.
The patterns have to be
[variant objects](http://nim-lang.org/docs/manual.html#types-object-variants),
which in Nim are encoded with a field (usually called `kind`) which varies in
an enum, and a different object layout based on the value of this tag.
An example would be
```nim
type
ShapeKind = enum
Circle, Rectangle
Shape = object
case kind: ShapeKind
of Circle:
r: float
of Rectangle:
w, h: float
```
If you have such an algebraic data type, you can do the following with Patty:
```nim
import patty
proc makeRect(w, h: float): Shape = Shape(kind: Rectangle, w: w, h: h)
match makeRect(3, 4):
Circle(r: radius):
echo "it is a circle of radius ", radius
Rectangle(w: width, h: height):
echo "it is a rectangle of height ", height
```
This will be translated by the `match` macro into the following form
```nim
let :tmp = makeRect(3, 4)
case :tmp.kind
of Circle:
let radius = :tmp.r
echo "it is a circle of radius ", radius
of Rectangle:
let
width = :tmp.w
height = :tmp.h
echo "it is a rectangle of height ", height
```
Matching by position is also valid, like this:
```nim
match makeRect(3, 4):
Circle(radius):
echo "it is a circle of radius ", radius
Rectangle(width, height):
echo "it is a rectangle of height ", height
```
One can also use `_` for a variable, in which case it will not be bound.
That is, the following
```nim
import patty
proc makeRect(w, h: float): Shape = Shape(kind: Rectangle, w: w, h: h)
match makeRect(3, 4):
Circle(r: radius):
echo "it is a circle of radius ", radius
Rectangle(w: _, h: height):
echo "it is a rectangle of height ", height
```
becomes
```nim
let :tmp = makeRect(3, 4)
case :tmp.kind
of Circle:
let radius = :tmp.r
echo "it is a circle of radius ", radius
of Rectangle:
let height = :tmp.h
echo "it is a rectangle of height ", height
```
The wildcard `_` can also be used as a stand alone pattern, in which case it
will match anything.
It is translated into an `else` clause, that is, the following
```nim
import patty
proc makeRect(w, h: float): Shape = Shape(kind: Rectangle, w: w, h: h)
match makeRect(3, 4):
Circle(r: radius):
echo "it is a circle of radius ", radius
_:
echo "it is not a circle"
```
becomes
```nim
let :tmp = makeRect(3, 4)
case :tmp.kind
of Circle:
let radius = :tmp.r
echo "it is a circle of radius ", radius
else:
echo "it is not a circle"
```
Notice that in the examples, the field you dispatch on is called `kind`, but
any other name would do. Also, checks are exhaustive: if you miss a case, the
compiler will complain.
One can instead pattern-match on non-variant objects, which essentially amounts
to deconstructing fields:
```nim
type Person = object
name: string
age: int
let p = Person(name: "John Doe", age: 37)
match p:
Person(name: n, age: a):
echo n, "is ", a, " years old"
```
Again, this is the same as
```nim
match p:
Person(n, a):
echo n, "is ", a, " years old"
```
Pattern matching also works as an expression:
```nim
let coord = match c:
Circle(x: x, y: y, r: r):
x
Rectangle(w: w, h: h):
h
```
Constructing variant objects
----------------------------
Patty also provides another macro to create algebraic data types. It looks like
```nim
variant Shape:
Circle(r: float)
Rectangle(w: float, h: float)
UnitCircle
```
and expands to
```nim
type
ShapeKind {.pure.} = enum
Circle, Rectangle, UnitCircle
Shape = object
case kind: ShapeKind
of ShapeKind.Circle:
r: float
of ShapeKind.Rectangle:
w: float
h: float
of ShapeKind.UnitCircle:
nil
proc `==`(a: Shape; b: Shape): bool =
if a.kind == b.kind:
case a.kind
of ShapeKind.Circle:
return a.r == b.r
of ShapeKind.Rectangle:
return a.w == b.w and a.h == b.h
of ShapeKind.UnitCircle:
return true
else:
return false
proc Circle(r: float): Shape =
Shape(kind: ShapeKind.Circle, r: r)
proc Rectangle(w: float; h: float): Shape =
Shape(kind: ShapeKind.Rectangle, w: w, h: h)
proc UnitCircle(): Shape =
Shape(kind: ShapeKind.UnitCircle)
```
Notice that the macro also generates three convenient constructors
(`Circle` ,`Rectangle` and `UnitCircle`), and in fact the enum is pure to avoid
a name conflict. Also, a proper definition of equality based on the actual
contents of the record is generated.
**By default the generated ADT is private to the module**. If you want to
generate a public ADT use the `variantp` macro, which has the same syntax
as `variant` but makes the types, fields, equality definition and generated
constructors public.
A limitation of the `variant` macro is that field names must be unique across
branches (that is, different variants cannot have two fields with the same name).
This is actually a limitation of Nim.
In the future, Patty may also add copy constructors. Also, some work needs to
be done to make it easier to use the generated contructors with `ref` types,
in particular for the important case of recursive algebraic data types.
Example
-------
The following example uses the `variant` macro to define a linked list type,
and then uses pattern matching to define the sum of a list of integers:
```nim
import patty
proc `~`[A](a: A): ref A =
new(result)
result[] = a
variant List[A]:
Nil
Cons(x: A, xs: ref List[A])
proc listHelper[A](xs: seq[A]): List[A] =
if xs.len == 0: Nil[A]()
else: Cons(xs[0], ~listHelper(xs[1 .. xs.high]))
proc list[A](xs: varargs[A]): List[A] = listHelper(@xs)
proc sum(xs: List[int]): int = (block:
match xs:
Nil: 0
Cons(y, ys): y + sum(ys[])
)
echo sum(list(1, 2, 3, 4, 5))
```
Versions
--------
Patty 0.3.0 works for latest Nim (devel). For older versions of Nim (up to 0.16.0),
use Patty 0.2.1.
Things that do not work (yet)
-----------------------------
One would expect many forms of pattern matching but, at least for now, the
support in Patty is very limited. Things that would be nice to support but do
not work yet include:
* matching a constant
```nim
match c:
"hello":
echo "the string was hello"
```
* matching an existing variable
```nim
let x = 5
match c:
x:
echo "c == 5"
```
* nested pattern matching
```nim
match c:
Circle(Point(x: x, y: y), r: r):
echo "the abscissa of the center is ", x
```
* matching without binding
```nim
match c:
Circle:
echo "it is a circle!"
```
* binding subpatterns
```nim
match getMeACircle():
c@Circle(x, y, r):
echo "there you have ", c
```
* unification
```nim
match r:
Rectangle(w: x, h: x):
echo "it is a square"
```
* guards
```nim
match c:
Circle(x: x, y: y, r: r) if r < 0:
echo "the circle has negative length"
```
* variable-length pattern matching, such as with arrays
```nim
match c:
[a, b, c]:
echo "the length is 3 and the first elements is ", a
```
* custom pattern matchers, such as in regexes
```nim
let Email = r"(\w+)@(\w+).(\w+)"
match c:
Email(name, domain, tld):
echo "hello ", name
```
* combining patterns with `or`
```nim
match c:
Circle or Rectangle:
echo "it is a shape"
```