Skip to content

Commit 61a6de9

Browse files
lizmatlizmat
committed
CI test in preparation for a Raku Community release
1 parent 278b94e commit 61a6de9

13 files changed

+388
-123
lines changed

‎.github/workflows/linux.yml

+26
Original file line numberDiff line numberDiff line change
@@ -0,0 +1,26 @@
1+
name: Linux
2+
3+
on:
4+
push:
5+
branches:
6+
- '*'
7+
tags-ignore:
8+
- '*'
9+
pull_request:
10+
11+
jobs:
12+
raku:
13+
strategy:
14+
matrix:
15+
os:
16+
- ubuntu-latest
17+
raku-version:
18+
- 'latest'
19+
runs-on: ${{ matrix.os }}
20+
steps:
21+
- uses: actions/checkout@v3
22+
- uses: Raku/setup-raku@v1
23+
with:
24+
raku-version: ${{ matrix.raku-version }}
25+
- name: Run Special Tests
26+
run: raku run-tests -i

‎.github/workflows/macos.yml

+26
Original file line numberDiff line numberDiff line change
@@ -0,0 +1,26 @@
1+
name: MacOS
2+
3+
on:
4+
push:
5+
branches:
6+
- '*'
7+
tags-ignore:
8+
- '*'
9+
pull_request:
10+
11+
jobs:
12+
raku:
13+
strategy:
14+
matrix:
15+
os:
16+
- macos-latest
17+
raku-version:
18+
- 'latest'
19+
runs-on: ${{ matrix.os }}
20+
steps:
21+
- uses: actions/checkout@v3
22+
- uses: Raku/setup-raku@v1
23+
with:
24+
raku-version: ${{ matrix.raku-version }}
25+
- name: Run Special Tests
26+
run: raku run-tests -i

‎.github/workflows/windows.yml

+26
Original file line numberDiff line numberDiff line change
@@ -0,0 +1,26 @@
1+
name: Windows
2+
3+
on:
4+
push:
5+
branches:
6+
- '*'
7+
tags-ignore:
8+
- '*'
9+
pull_request:
10+
11+
jobs:
12+
raku:
13+
strategy:
14+
matrix:
15+
os:
16+
- windows-latest
17+
raku-version:
18+
- 'latest'
19+
runs-on: ${{ matrix.os }}
20+
steps:
21+
- uses: actions/checkout@v3
22+
- uses: Raku/setup-raku@v1
23+
with:
24+
raku-version: ${{ matrix.raku-version }}
25+
- name: Run Special Tests
26+
run: raku run-tests -i

‎.gitignore

+2-2
Original file line numberDiff line numberDiff line change
@@ -1,2 +1,2 @@
1-
.projectile
2-
*.uni.*
1+
.precomp/
2+
/ASCII-To-Uni-*

‎Changes

+7
Original file line numberDiff line numberDiff line change
@@ -0,0 +1,7 @@
1+
Revision history for ASCII::To::Uni
2+
3+
{{$NEXT}}
4+
- Renamed from Texas::To::Uni, but kept Texas::To::Uni as a
5+
use target for compatibility
6+
- Initial version as a Raku Community module
7+

‎META6.json

+21-12
Original file line numberDiff line numberDiff line change
@@ -1,14 +1,23 @@
11
{
2-
"perl" : "6.c",
3-
"name" : "Texas::To::Uni",
4-
"license" : "Artistic-2.0",
5-
"version" : "0.1.0",
6-
"description" : "Library and tool to convert operators in Perl 6 source files from Texas to Unicode",
7-
"depends" : [ ],
8-
"test-depends" : [ ],
9-
"provides" : {
10-
"Texas::To::Uni": "lib/Texas/To/Uni.pm6"
11-
},
12-
"author" : "github:Altai-man",
13-
"source-url" : "git://github.com/Altai-man/p6-Texas-To-Uni.git"
2+
"auth": "zef:raku-community-modules",
3+
"author": "Alexander Kiryuhin",
4+
"build-depends": [
5+
],
6+
"depends": [
7+
],
8+
"description": "Convert operators in Raku source files from ASCII to Unicode",
9+
"license": "Artistic-2.0",
10+
"name": "ASCII::To::Uni",
11+
"perl": "6.c",
12+
"provides": {
13+
"ASCII::To::Uni": "lib/ASCII/To/Uni.rakumod"
14+
},
15+
"resources": [
16+
],
17+
"source-url": "https://github.com/raku-community-modules/ASCII-To-Uni.git",
18+
"tags": [
19+
],
20+
"test-depends": [
21+
],
22+
"version": "0.1.0"
1423
}

‎README.md

+42-18
Original file line numberDiff line numberDiff line change
@@ -1,30 +1,54 @@
1-
Texas::To::Uni
2-
====================
1+
[![Actions Status](https://github.com/raku-community-modules/ASCII-To-Uni/actions/workflows/linux.yml/badge.svg)](https://github.com/raku-community-modules/ASCII-To-Uni/actions) [![Actions Status](https://github.com/raku-community-modules/ASCII-To-Uni/actions/workflows/macos.yml/badge.svg)](https://github.com/raku-community-modules/ASCII-To-Uni/actions) [![Actions Status](https://github.com/raku-community-modules/ASCII-To-Uni/actions/workflows/windows.yml/badge.svg)](https://github.com/raku-community-modules/ASCII-To-Uni/actions)
32

4-
**WORK IN PROGRESS**
3+
NAME
4+
====
55

6-
This package provides you a basic(and incomplete) way to convert operators in your Perl 6-related files from Texas(ASCII-based) version to Unicode symbol version.
6+
ASCII::To::Uni - blah blah blah
77

8-
It doesn't support some operators and have some limitations, but it will be improved in the future.
8+
SYNOPSIS
9+
========
910

10-
Usage
11-
====================
12-
13-
The most simple example is:
14-
15-
``` perl6
16-
use Texas::To::Uni;
11+
```raku
12+
use ASCII::To::Uni;
1713

1814
convert-file($filename);
1915
```
2016

21-
This module has two basic subroutines:
17+
DESCRIPTION
18+
===========
19+
20+
The `ASCII::To::Uni` distribution provides a basic (and incomplete) way to convert operators in your Raku-related source files from an ASCII version to Unicode symbol version.
21+
22+
It doesn't support some operators and has some limitations.
23+
24+
SUBROUTINES
25+
===========
26+
27+
This distribution has two basic subroutines:
28+
29+
convert-file
30+
------------
31+
32+
The `convert-file` subroutine takes a file name and by default point s output to a new file with extension like `file-name.uni.xtension`.
33+
34+
A different path can be set with the `:new-path` named argument. It can rewrite file if the named argument `:rewrite` was specified with a `True` value. However, rewriting is not recommended, since this distribution way still be buggy and can mess up your work.
35+
36+
convert-string
37+
--------------
38+
39+
The `convert-string` subroutine takes read-write string and converts it accordingly to operator table.
40+
41+
AUTHOR
42+
======
43+
44+
Alexander Kiryuhin
45+
46+
COPYRIGHT AND LICENSE
47+
=====================
2248

23-
* `convert-file` - it takes file name and by default points output to a new file with extension like `old-file-name.uni.old-extension`. New path can be set in `:$new-path` named argument. It can rewrite file if `:$rewrite` flag was set. However, rewriting is not recommended, since this module is still buggy and can mess up your work.
49+
Copyright 2016 - 2017 Alexander Kiryuhin
2450

25-
* `convert-string` - internal function that takes read-write string and converts it accordingly to operator table.
51+
Copyright 2024 Raku Community
2652

27-
Contribution
28-
====================
53+
This library is free software; you can redistribute it and/or modify it under the Artistic License 2.0.
2954

30-
Pull requests are welcome: new tests, fixes, improvements or just suggestions in the Issue.

‎dist.ini

+11
Original file line numberDiff line numberDiff line change
@@ -0,0 +1,11 @@
1+
name = ASCII::To::Uni
2+
3+
[ReadmeFromPod]
4+
filename = lib/ASCII/To/Uni.rakumod
5+
6+
[UploadToZef]
7+
8+
[Badges]
9+
provider = github-actions/linux.yml
10+
provider = github-actions/macos.yml
11+
provider = github-actions/windows.yml

‎lib/ASCII/To/Uni.rakumod

+151
Original file line numberDiff line numberDiff line change
@@ -0,0 +1,151 @@
1+
# Special cases TODO:
2+
# "\"", "\“",
3+
# '\"', '\”',
4+
# "\"", "\„",
5+
# "｢", "Q//",
6+
# "Q//", "｣",
7+
8+
my constant %default =
9+
"<<", "\«",
10+
">>", "»",
11+
"\ *\ ", "×",
12+
"\ /\ ", "÷",
13+
"\ -\ ", "−",
14+
"\ o\ ", "∘",
15+
"=~=", "≅",
16+
"\ pi\ ", "π",
17+
"\ tau\ ", "τ",
18+
"\ e\ ", "𝑒",
19+
"Inf ", "∞",
20+
"...", "…",
21+
"\ +\ ", "⁺",
22+
"**0", "⁰",
23+
"**1", "¹",
24+
"**2", "²",
25+
"**3", "³",
26+
"**4", "⁴",
27+
"**5", "⁵",
28+
"**6", "⁶",
29+
"**7", "⁷",
30+
"**8", "⁸",
31+
"**9", "⁹",
32+
"set()", "∅",
33+
"(elem)", "∈",
34+
"!(elem)", "∉",
35+
"(cont)", "∋",
36+
"!(cont)", "∌",
37+
"(==)", "≡",
38+
"!(==)", "≢",
39+
"(<=)", "⊆",
40+
"!(<=)", "⊈",
41+
"(<)", "⊂",
42+
"!(<)", "⊄",
43+
"(>=)", "⊇",
44+
"!(>=)", "⊉",
45+
"(>)", "⊃",
46+
"!(>)", "⊅",
47+
"(<+)", "≼",
48+
"(>+)", "≽",
49+
"(|)", "∪",
50+
"(&)", "∩",
51+
"(-)", "∖",
52+
"(^)", "⊖",
53+
"(.)", "⊍",
54+
"(+)", "⊎"
55+
;
56+
57+
my sub convert-string(Str $source is rw, :%table = %default) is export {
58+
for %table.keys -> $ascii {
59+
$source.subst-mutate($ascii, %table{$ascii}, :g);
60+
}
61+
}
62+
63+
my sub convert-file(Str $filename, Bool :$rewrite = False, Str :$new-path = "") is export {
64+
my Str $content = slurp $filename;
65+
convert-string($content);
66+
if $rewrite {
67+
spurt $filename, $content;
68+
say "$filename was converted.\n";
69+
}
70+
else {
71+
if $new-path {
72+
spurt $new-path, $content;
73+
say "$filename was converted and written to $new-path";
74+
}
75+
else {
76+
my @pieces = $filename.split('.'); # Splitting by extension, can be better.
77+
@pieces.splice(*-1, 0, "uni");
78+
my $path = @pieces.join('.');
79+
say $path;
80+
spurt $path, $content;
81+
say "$filename was converted and written to $path";
82+
}
83+
}
84+
}
85+
86+
=begin pod
87+
88+
=head1 NAME
89+
90+
ASCII::To::Uni - convert operators in Raku source files from ASCII to Unicode
91+
92+
=head1 SYNOPSIS
93+
94+
=begin code :lang<raku>
95+
96+
use ASCII::To::Uni;
97+
98+
convert-file($filename);
99+
100+
=end code
101+
102+
=head1 DESCRIPTION
103+
104+
The C<ASCII::To::Uni> distribution provides a basic (and incomplete)
105+
way to convert operators in your Raku-related source files from an
106+
ASCII version to Unicode symbol version.
107+
108+
It doesn't support some operators and has some limitations.
109+
110+
=head1 SUBROUTINES
111+
112+
This distribution has two basic subroutines:
113+
114+
=head2 convert-file
115+
116+
The C<convert-file> subroutine takes a file name and by default point
117+
s output to a new file with extension like C<file-name.uni.xtension>.
118+
119+
A different path can be set with the C<:new-path> named argument. It
120+
can rewrite file if the named argument C<:rewrite> was specified with
121+
a C<True> value. However, rewriting is not recommended, since this
122+
distribution way still be buggy and can mess up your work.
123+
124+
=head2 convert-string
125+
126+
The C<convert-string> subroutine takes read-write string and converts
127+
it accordingly to operator table.
128+
129+
=head2 HISTORY
130+
131+
This distribution started as C<Texas::To::Uni>, but since the use of
132+
the term "Texas" has been deprecated in favor of "ASCII", it felt like
133+
a good opportunity to change the name when reviving it as a Raku
134+
Community module. Note that the old name C<Texas::To::Uni> is still
135+
available as a use target.
136+
137+
=head1 AUTHOR
138+
139+
Alexander Kiryuhin
140+
141+
=head1 COPYRIGHT AND LICENSE
142+
143+
Copyright 2016 - 2017 Alexander Kiryuhin
144+
145+
Copyright 2024 Raku Community
146+
147+
This library is free software; you can redistribute it and/or modify it under the Artistic License 2.0.
148+
149+
=end pod
150+
151+
# vim: expandtab shiftwidth=4

0 commit comments

Comments
 (0)