[alphasorter] at tagSwap.net: Open Source Lasso Code

[alphasorter]

Description

Link: [alphasorter]

Author: Johan Sölve

Category: Array

Version: 8.x

License: Public Domain

Posted: Oct. 10, 2007

Updated: Oct. 10, 2007

More by this author...

Comparator to get arrays of strings (or arrays of pairs) sorted in the correct order for the Swedish language.
With normal array->sort the sort order will be ä, å, ö instead of the desired å, ä, ö.

This comparator is very limited. It will only look at the first character position of the strings, and does only care about the characters å, ä and ö.

Johan Sölve 2007-06-25

Parameters

none

Sample Usage

var: 'myarray'=(array: 'östen', 'åke', 'ärlig');

$myarray -> (sortwith: \alphasorter);

$myarray;

Result: 
array: (åke), (ärlig), (östen)

Source Code

Click the "Download" button below to retrieve a copy of this tag, including the complete documentation and sample usage shown on this page. Place the downloaded ".inc" file in your LassoStartup folder, restart Lasso, and you can begin using this tag immediately.

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27

[//lasso
define_tag: 'alphasorter', -required='left', -copy, -required='right', -copy;
	// used as comparator for proper sorting of arrays of strings (or array of string pairs)
	// otherwise the sorted order will be ä, å, ö
	// usage: $myarray -> (sortwith: \alphasorter);
	
	// Johan Sölve 2007-06-25

	if: #left -> type == 'pair';
		#left = #left -> name;
	/if;
	if: #right -> type == 'pair';
		#right = #right -> name;
	/if;

	
	if: #left -> size > 1 && #right -> size > 1;
		if: #left -> (get: 1) == 'å' && #right -> (get: 1) == 'ä';
			return: 0;
		else: #left -> (get: 1) == 'ä' && #right -> (get: 1) == 'å';
			return: -1;
		/if;
	/if;
	return: (#left > #right ? -1 | 0);
/define_tag;
]

Comments