You are viewing a plain text version of this content. The canonical link for it is here.
Posted to site-cvs@tcl.apache.org by mx...@apache.org on 2015/10/15 01:04:20 UTC
svn commit: r1708709 - in /tcl/rivet/trunk/rivet/packages: hexgliphs/
hexglyphs/ hexglyphs/hexgliphs.tcl hexglyphs/hexglyphs.tcl
Author: mxmanghi
Date: Wed Oct 14 23:04:20 2015
New Revision: 1708709
URL: http://svn.apache.org/viewvc?rev=1708709&view=rev
Log:
amending wrong spelling of word 'glyph'
Added:
tcl/rivet/trunk/rivet/packages/hexglyphs/
- copied from r1708708, tcl/rivet/trunk/rivet/packages/hexgliphs/
tcl/rivet/trunk/rivet/packages/hexglyphs/hexglyphs.tcl
- copied, changed from r1708708, tcl/rivet/trunk/rivet/packages/hexgliphs/hexgliphs.tcl
Removed:
tcl/rivet/trunk/rivet/packages/hexgliphs/
tcl/rivet/trunk/rivet/packages/hexglyphs/hexgliphs.tcl
Copied: tcl/rivet/trunk/rivet/packages/hexglyphs/hexglyphs.tcl (from r1708708, tcl/rivet/trunk/rivet/packages/hexgliphs/hexgliphs.tcl)
URL: http://svn.apache.org/viewvc/tcl/rivet/trunk/rivet/packages/hexglyphs/hexglyphs.tcl?p2=tcl/rivet/trunk/rivet/packages/hexglyphs/hexglyphs.tcl&p1=tcl/rivet/trunk/rivet/packages/hexgliphs/hexgliphs.tcl&r1=1708708&r2=1708709&rev=1708709&view=diff
==============================================================================
--- tcl/rivet/trunk/rivet/packages/hexgliphs/hexgliphs.tcl (original)
+++ tcl/rivet/trunk/rivet/packages/hexglyphs/hexglyphs.tcl Wed Oct 14 23:04:20 2015
@@ -17,19 +17,19 @@
# specific language governing permissions and limitations
# under the License.
-namespace eval ::HexGliphs:: {
+namespace eval ::HexGlyphs:: {
- variable HEXGLIPH
+ variable HEXGLYPH
- array set HEXGLIPH {}
+ array set HEXGLYPH {}
proc build_hex {hs} {
- variable HEXGLIPH
+ variable HEXGLYPH
for {set i 0} {$i < [string length $hs]} {incr i} {
- set lines [split $HEXGLIPH([string toupper [string index $hs $i]]) "\n"]
+ set lines [split $HEXGLYPH([string toupper [string index $hs $i]]) "\n"]
set lines [lrange $lines 1 end-1]
set l 0
@@ -49,7 +49,7 @@ namespace eval ::HexGliphs:: {
}
- proc toGliphs {hexstring} {
+ proc toGlyphs {hexstring} {
set hexstring_l [split $hexstring " "]
foreach s $hexstring_l {
@@ -70,14 +70,14 @@ namespace eval ::HexGliphs:: {
[join $bigstring(4) " "] \
[join $bigstring(5) " "]] "\n"]
}
- namespace export toGliphs
+ namespace export toGlyphs
namespace ensemble create
}
-set ::HexGliphs::HEXGLIPH(A) {
+set ::HexGlyphs::HEXGLYPH(A) {
/\
/ \
@@ -86,7 +86,7 @@ set ::HexGliphs::HEXGLIPH(A) {
/_/ \_\
}
-set ::HexGliphs::HEXGLIPH(B) {
+set ::HexGlyphs::HEXGLYPH(B) {
____
| _ \
| |_) |
@@ -95,7 +95,7 @@ set ::HexGliphs::HEXGLIPH(B) {
|____/
}
-set ::HexGliphs::HEXGLIPH(C) {
+set ::HexGlyphs::HEXGLYPH(C) {
_____
/ ____|
| |
@@ -104,7 +104,7 @@ set ::HexGliphs::HEXGLIPH(C) {
\_____|
}
-set ::HexGliphs::HEXGLIPH(D) {
+set ::HexGlyphs::HEXGLYPH(D) {
_____
| __ \
| | | |
@@ -113,7 +113,7 @@ set ::HexGliphs::HEXGLIPH(D) {
|_____/
}
-set ::HexGliphs::HEXGLIPH(E) {
+set ::HexGlyphs::HEXGLYPH(E) {
______
| ____|
| |__
@@ -122,7 +122,7 @@ set ::HexGliphs::HEXGLIPH(E) {
|______|
}
-set ::HexGliphs::HEXGLIPH(F) {
+set ::HexGlyphs::HEXGLYPH(F) {
______
| ____|
| |__
@@ -131,7 +131,7 @@ set ::HexGliphs::HEXGLIPH(F) {
|_|
}
-set ::HexGliphs::HEXGLIPH(0) {
+set ::HexGlyphs::HEXGLYPH(0) {
___
/ _ \
| | | |
@@ -140,7 +140,7 @@ set ::HexGliphs::HEXGLIPH(0) {
\___/
}
-set ::HexGliphs::HEXGLIPH(1) {
+set ::HexGlyphs::HEXGLYPH(1) {
__
/_ |
| |
@@ -149,7 +149,7 @@ set ::HexGliphs::HEXGLIPH(1) {
|_|
}
-set ::HexGliphs::HEXGLIPH(2) {
+set ::HexGlyphs::HEXGLYPH(2) {
___
|__ \
) |
@@ -158,7 +158,7 @@ set ::HexGliphs::HEXGLIPH(2) {
|____|
}
-set ::HexGliphs::HEXGLIPH(3) {
+set ::HexGlyphs::HEXGLYPH(3) {
____
|___ \
__) |
@@ -167,7 +167,7 @@ set ::HexGliphs::HEXGLIPH(3) {
|____/
}
-set ::HexGliphs::HEXGLIPH(4) {
+set ::HexGlyphs::HEXGLYPH(4) {
_ _
| || |
| || |_
@@ -176,7 +176,7 @@ set ::HexGliphs::HEXGLIPH(4) {
|_|
}
-set ::HexGliphs::HEXGLIPH(5) {
+set ::HexGlyphs::HEXGLYPH(5) {
_____
| ____|
| |__
@@ -185,7 +185,7 @@ set ::HexGliphs::HEXGLIPH(5) {
|____/
}
-set ::HexGliphs::HEXGLIPH(6) {
+set ::HexGlyphs::HEXGLYPH(6) {
__
/ /
/ /_
@@ -194,7 +194,7 @@ set ::HexGliphs::HEXGLIPH(6) {
\___/
}
-set ::HexGliphs::HEXGLIPH(7) {
+set ::HexGlyphs::HEXGLYPH(7) {
______
|____ |
/ /
@@ -202,7 +202,7 @@ set ::HexGliphs::HEXGLIPH(7) {
/ /
/_/
}
-set ::HexGliphs::HEXGLIPH(8) {
+set ::HexGlyphs::HEXGLYPH(8) {
___
/ _ \
| (_) |
@@ -211,7 +211,7 @@ set ::HexGliphs::HEXGLIPH(8) {
\___/
}
-set ::HexGliphs::HEXGLIPH(9) {
+set ::HexGlyphs::HEXGLYPH(9) {
___
/ _ \
| (_) |
@@ -221,6 +221,6 @@ set ::HexGliphs::HEXGLIPH(9) {
}
-package provide HexGliphs
+package provide HexGlyphs 0.1
---------------------------------------------------------------------
To unsubscribe, e-mail: site-cvs-unsubscribe@tcl.apache.org
For additional commands, e-mail: site-cvs-help@tcl.apache.org