mirrors/TiddlyWiki5
1
0
Fork 0
mirror of https://github.com/Jermolene/TiddlyWiki5 synced 2026-08-04 01:48:54 +00:00
Code Issues Releases Wiki Activity

@joearm's fixes

Browse Source
This commit is contained in:
Jermolene
2018-10-19 16:29:45 +01:00
parent 9b912f6d65
commit a65e9a7b42
1 changed files with 3 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files
editions/externalpipesdemo/demo-tasks/recase_erl.sh
+3 -3
View File
@@ -19,7 +19,7 @@ par_connect(Listen) ->
loop(Socket) ->
receive
{tcp,Socket,Bin} ->
io:format("received ~p bytes~n",[size(Bin)]),
io:format("received ~p bytes ~s ~n",[size(Bin), Bin]),
Return = recase_binary(Bin),
io:format("sending: ~p bytes~n",[size(Return)]),
gen_tcp:send(Socket, Return),
@@ -30,8 +30,8 @@ loop(Socket) ->
recase_binary(<<1,B/binary>>) ->
L = binary_to_list(B),
L1 = [recase(I) || I<- L],
B1 = list_to_binary(tl(L1)),
L1 = [recase(I) || I <- L],
B1 = list_to_binary(L1),
<<1,B1/binary>>.
recase(I) when I >= $a, I =< $z -> I - $a + $A;