XXXX redacted: Difference between revisions

This uses ASObjC to access macOS's Foundation framework's regex and text-replacement methods. The methods support [https://unicode-org.github.io/icu/userguide/strings/regexp.html ICU]-compatible regular expressions.

 

use framework "Foundation"

use scripting additions

set output to output as text

set AppleScript's text item delimiters to astid

 

{{output}}

[w|s|n]: XXX? Toms bottom tomato is in his stomach while playing the \"Tom-tom\" brand tom-toms. That's so tom.

[w|i|n]: XXX? Toms bottom tomato is in his stomach while playing the \"Tom-tom\" brand tom-toms. That's so XXX.

[p|s|o]: Tom? Toms XXXXXX XXXXXX is in his XXXXXXX while playing the \"XXXXXXX\" brand XXXXXXXX. That's so XXX.

[p|i|o]: XXX? XXXX XXXXXX XXXXXX is in his XXXXXXX while playing the \"XXXXXXX\" brand XXXXXXXX. That's so XXX.

Or with the grapheme text:

set output to {}

repeat with redactionTarget in {"👨", "👨‍👩‍👦"}

set output to output as text

set AppleScript's text item delimiters to astid

 

{{output}}

[w]: 🧑 X 🧔 👨‍👩‍👦

 

Redact 👨‍👩‍👦:

[w]: 🧑 👨 🧔 X

 

===Vanilla (core language only)===

Test code and output as above.

 

(* Script object containing the basic process. *)

script default

return redactor's outputText

 

=={{header|AutoHotkey}}==

No Complex Unicode!

words := ["Tom", "tom"]

opts := ["wsn", "win", "psn", "pin", "pso", "pio"]

}

return str

{{out}}

<pre>Redact 'Tom'

=={{header|C}}==

This is a very basic ASCII-only implementation, no Unicode or regular expressions.

#include <stdbool.h>

#include <stdio.h>

do_basic_tests("tom");

return 0;

 

{{out}}

=={{header|C++}}==

{{trans|D}}

 

using namespace std;

example(text, "tom");

return 0;

{{out}}

<pre>Redact Tom

 

=={{header|D}}==

import std.uni;

 

example(text, "Tom");

example(text, "tom");

{{out}}

<pre>Redact Tom

 

To get the number of 'X's right where a ZWJ emoji or other character combination is being replaced, a third party library function is used which counts the number of graphemes in a string, as required by the task.

 

import (

allOpts = []string{"[p]", "[p|o]"}

printResults(text, allOpts, allWords)

 

{{out}}

The solution must kludge a check with the variable "multichar" to properly substitute "X" instead of "XXXX" with the last example.

Otherwise Julia (v 1.4) interprets one 184-bit Unicode extended emoji character as four Unicode characters.

regex = insens ? Regex("^$pattern\$", "i") : Regex("^$pattern\$")

return replace(word, regex => pattern in multichars ? "X" : "X"^length(pattern))

println()

end

<pre>

 

=={{header|Lua}}==

Note: The syntax-highlighter used here for Lua appears to be confused by the nested quote styles, but the syntax is valid as written.

local part, case, ovrk = opts:find("p")~=nil, opts:find("s")~=nil, opts:find("o")~=nil

local oknp = ovrk or not part

print(opts .. " " .. redact(text, targ, opts))

end

{{out}}

<pre>Redact 'Tom':

=={{header|Perl}}==

{{trans|Raku}}

use warnings;

 

printf "%s %s\n", $option, redact($test, $redact, %$opts)

}

{{out}}

<pre style="height:40ex;overflow:scroll;">Redact 'Tom':

Written on the assumption that overkill implies partial (see talk page).<br>

utf32_length() fashioned after [[Reverse_a_string#Phix]] with added ZWJ - I do not expect it to be entirely complete.

<span style="color: #008080;">enum</span> <span style="color: #000000;">WHOLE</span><span style="color: #0000FF;">,</span><span style="color: #000000;">PARTIAL</span><span style="color: #0000FF;">,</span><span style="color: #000000;">OVERKILL</span><span style="color: #0000FF;">,</span><span style="color: #000000;">INSENSITIVE</span>

<span style="color: #008080;">constant</span> <span style="color: #000000;">spunc</span> <span style="color: #0000FF;">=</span> <span style="color: #008000;">" \r\n.?\""</span> <span style="color: #000080;font-style:italic;">-- spaces and punctuation</span>

"""</span>

<span style="color: #7060A8;">printf</span><span style="color: #0000FF;">(</span><span style="color: #000000;">1</span><span style="color: #0000FF;">,</span><span style="color: #000000;">fmt</span><span style="color: #0000FF;">,{</span><span style="color: #000000;">ut</span><span style="color: #0000FF;">}&</span><span style="color: #000000;">redact</span><span style="color: #0000FF;">(</span><span style="color: #000000;">ut</span><span style="color: #0000FF;">,</span><span style="color: #008000;">"👨"</span><span style="color: #0000FF;">,</span><span style="color: #000000;">WHOLE</span><span style="color: #0000FF;">)&</span><span style="color: #000000;">redact</span><span style="color: #0000FF;">(</span><span style="color: #000000;">ut</span><span style="color: #0000FF;">,</span><span style="color: #008000;">"👨‍👩‍👦"</span><span style="color: #0000FF;">,</span><span style="color: #000000;">WHOLE</span><span style="color: #0000FF;">))</span>

{{out}}

w/p/o means whole/partial/overkill word, s/i means case sensitive/insensitive.

{{works with|Rakudo|2020.02}}

 

my $rx =

$insensitive ??

printf "%20s %s\n", "Redact '👨' [p|o]", $emoji.&redact('👨', :p, :o);

printf "%20s %s\n", "Redact '👨‍👩‍👦' [p|o]", $emoji.&redact('👨‍👩‍👦', :p, :o);

{{out}}

<pre style="height:40ex;overflow:scroll;">Redact 'Tom':

=={{header|REXX}}==

REXX doesn't have &nbsp; ''regular expressions'', &nbsp; so I had to roll-my-own parsing.

zDefault= 'Tom? Toms bottom tomato is in his stomach while playing the "Tom-tom"' ,

"brand tom-toms. That's so tom."

nz= nz !.head.r || na || !.tail.r

end /*r*/

{{out|output|text=&nbsp; when using the default inputs:}}

<pre>

=={{header|Swift}}==

{{trans|AppleScript}}

 

struct RedactionOptions: OptionSet {

doExtraTest(target: "👨")

print()

 

{{out}}

=={{header|Tailspin}}==

This is using the normal definition of words, i.e. emoji do not form words or word boundaries, so the stretch assignment must be matched as a partial match. This solution parses the flags inline and takes the secret to be redacted as a parameter to illustrate both options, although in a production solution I would imagine one might pass both the same way.

composer redact&{secret:}

@: { fill: '', leftBound: '\b{g}', rightBound: '\b{g}', case: '' };

$;

' -> !OUT::write

{{out}}

<pre>

{{libheader|Wren-str}}

{{libheader|Wren-upc}}

import "/str" for Str

import "/upc" for Graphemes

text = "Argentina🧑🇦🇹 France👨🇫🇷 Germany🧔🇩🇪 Netherlands👨‍👩‍👦🇳🇱"

allOpts = ["[p]", "[p|o]"]

 

{{out}}