Data update
This commit is contained in:
Ingy döt Net
parent
5150844a7d
commit
4bb20c9b71
7735 changed files with 38060 additions and 199180 deletions
|
|
@ -1,17 +0,0 @@
|
|||
declare
|
||||
Data : Storage_Array (1..20); -- Data created
|
||||
begin
|
||||
Data := (others => 0); -- Assign all zeros
|
||||
if Data = (1..10 => 0) then -- Compare with 10 zeros
|
||||
declare
|
||||
Copy : Storage_Array := Data; -- Copy Data
|
||||
begin
|
||||
if Data'Length = 0 then -- If empty
|
||||
...
|
||||
end if;
|
||||
end;
|
||||
end if;
|
||||
... Data & 1 ... -- The result is Data with byte 1 appended
|
||||
... Data & (1,2,3,4) ... -- The result is Data with bytes 1,2,3,4 appended
|
||||
... Data (3..5) ... -- The result the substring of Data from 3 to 5
|
||||
end; -- Data destructed
|
||||
|
|
@ -1,3 +0,0 @@
|
|||
type Octet is mod 2**8;
|
||||
for Octet'Size use 8;
|
||||
type Octet_String is array (Positive range <>) of Octet;
|
||||
|
|
@ -1,4 +0,0 @@
|
|||
with Interfaces; use Interfaces;
|
||||
...
|
||||
type Octet is new Interfaces.Unsigned_8;
|
||||
type Octet_String is array (Positive range <>) of Octet;
|
||||
|
|
@ -16,8 +16,8 @@ y: z
|
|||
y: new z
|
||||
|
||||
; check if empty
|
||||
if? empty? x -> print "empty"
|
||||
else -> print "not empty"
|
||||
switch empty? x -> print "empty"
|
||||
-> print "not empty"
|
||||
|
||||
; append a string
|
||||
'x ++ "!"
|
||||
|
|
|
|||
|
|
@ -1,27 +1,25 @@
|
|||
(phixonline)-->
|
||||
<span style="color: #008080;">with</span> <span style="color: #008080;">javascript_semantics</span>
|
||||
<span style="color: #004080;">string</span> <span style="color: #000000;">s</span> <span style="color: #0000FF;">=</span> <span style="color: #008000;">"abc"</span>
|
||||
<span style="color: #000000;">s</span> <span style="color: #0000FF;">=</span> <span style="color: #008000;">x"ef bb bf"</span> <span style="color: #000080;font-style:italic;">-- explicit binary string (the utf8 BOM)</span>
|
||||
<span style="color: #000000;">s</span><span style="color: #0000FF;">[</span><span style="color: #000000;">2</span><span style="color: #0000FF;">]</span> <span style="color: #0000FF;">=</span> <span style="color: #000000;">0</span>
|
||||
<span style="color: #000000;">s</span><span style="color: #0000FF;">[</span><span style="color: #000000;">3</span><span style="color: #0000FF;">]</span> <span style="color: #0000FF;">=</span> <span style="color: #008000;">'z'</span>
|
||||
<span style="color: #008080;">if</span> <span style="color: #000000;">s</span><span style="color: #0000FF;">=</span><span style="color: #008000;">"\#EF\0z"</span> <span style="color: #008080;">then</span> <span style="color: #7060A8;">puts</span><span style="color: #0000FF;">(</span><span style="color: #000000;">1</span><span style="color: #0000FF;">,</span><span style="color: #008000;">"ok\n"</span><span style="color: #0000FF;">)</span> <span style="color: #008080;">end</span> <span style="color: #008080;">if</span>
|
||||
<span style="color: #004080;">string</span> <span style="color: #000000;">t</span> <span style="color: #0000FF;">=</span> <span style="color: #000000;">s</span>
|
||||
<span style="color: #000000;">t</span><span style="color: #0000FF;">[</span><span style="color: #000000;">1</span><span style="color: #0000FF;">..</span><span style="color: #000000;">2</span><span style="color: #0000FF;">]</span> <span style="color: #0000FF;">=</span> <span style="color: #008000;">"xy"</span> <span style="color: #000080;font-style:italic;">-- s remains unaltered</span>
|
||||
<span style="color: #0000FF;">?</span><span style="color: #000000;">t</span> <span style="color: #000080;font-style:italic;">-- "xyz"</span>
|
||||
<span style="color: #000000;">t</span> <span style="color: #0000FF;">=</span> <span style="color: #008000;">"food"</span> <span style="color: #0000FF;">?</span><span style="color: #000000;">t</span>
|
||||
<span style="color: #000000;">t</span><span style="color: #0000FF;">[</span><span style="color: #000000;">2</span><span style="color: #0000FF;">..</span><span style="color: #000000;">3</span><span style="color: #0000FF;">]</span> <span style="color: #0000FF;">=</span> <span style="color: #008000;">'e'</span> <span style="color: #0000FF;">?</span><span style="color: #000000;">t</span> <span style="color: #000080;font-style:italic;">-- "feed"</span>
|
||||
<span style="color: #000000;">t</span><span style="color: #0000FF;">[</span><span style="color: #000000;">3</span><span style="color: #0000FF;">..</span><span style="color: #000000;">2</span><span style="color: #0000FF;">]</span> <span style="color: #0000FF;">=</span> <span style="color: #008000;">"ast"</span> <span style="color: #0000FF;">?</span><span style="color: #000000;">t</span> <span style="color: #000080;font-style:italic;">-- "feasted"</span>
|
||||
<span style="color: #000000;">t</span><span style="color: #0000FF;">[</span><span style="color: #000000;">3</span><span style="color: #0000FF;">..-</span><span style="color: #000000;">2</span><span style="color: #0000FF;">]</span> <span style="color: #0000FF;">=</span> <span style="color: #008000;">""</span> <span style="color: #0000FF;">?</span><span style="color: #000000;">t</span> <span style="color: #000080;font-style:italic;">-- "fed"</span>
|
||||
<span style="color: #008080;">if</span> <span style="color: #7060A8;">length</span><span style="color: #0000FF;">(</span><span style="color: #000000;">t</span><span style="color: #0000FF;">)=</span><span style="color: #000000;">0</span> <span style="color: #008080;">then</span> <span style="color: #7060A8;">puts</span><span style="color: #0000FF;">(</span><span style="color: #000000;">1</span><span style="color: #0000FF;">,</span><span style="color: #008000;">"t is empty\n"</span><span style="color: #0000FF;">)</span> <span style="color: #008080;">end</span> <span style="color: #008080;">if</span>
|
||||
<span style="color: #008080;">if</span> <span style="color: #000000;">t</span><span style="color: #0000FF;">!=</span><span style="color: #008000;">""</span> <span style="color: #008080;">then</span> <span style="color: #7060A8;">puts</span><span style="color: #0000FF;">(</span><span style="color: #000000;">1</span><span style="color: #0000FF;">,</span><span style="color: #008000;">"t is not empty\n"</span><span style="color: #0000FF;">)</span> <span style="color: #008080;">end</span> <span style="color: #008080;">if</span>
|
||||
<span style="color: #000000;">t</span> <span style="color: #0000FF;">=</span> <span style="color: #008000;">"be"</span>
|
||||
<span style="color: #000000;">t</span> <span style="color: #0000FF;">&=</span> <span style="color: #008000;">'t'</span> <span style="color: #0000FF;">?</span><span style="color: #000000;">t</span> <span style="color: #000080;font-style:italic;">-- bet</span>
|
||||
<span style="color: #000000;">t</span> <span style="color: #0000FF;">=</span> <span style="color: #008000;">'a'</span><span style="color: #0000FF;">&</span><span style="color: #000000;">t</span> <span style="color: #0000FF;">?</span><span style="color: #000000;">t</span> <span style="color: #000080;font-style:italic;">-- abet</span>
|
||||
<span style="color: #0000FF;">?</span><span style="color: #000000;">t</span><span style="color: #0000FF;">[</span><span style="color: #000000;">2</span><span style="color: #0000FF;">..</span><span style="color: #000000;">3</span><span style="color: #0000FF;">]</span> <span style="color: #000080;font-style:italic;">-- be</span>
|
||||
<span style="color: #0000FF;">?</span><span style="color: #7060A8;">substitute</span><span style="color: #0000FF;">(</span><span style="color: #000000;">t</span><span style="color: #0000FF;">,</span><span style="color: #008000;">"be"</span><span style="color: #0000FF;">,</span><span style="color: #008000;">"bbo"</span><span style="color: #0000FF;">)</span> <span style="color: #000080;font-style:italic;">-- abbot</span>
|
||||
<span style="color: #0000FF;">?</span><span style="color: #7060A8;">substitute</span><span style="color: #0000FF;">(</span><span style="color: #000000;">t</span><span style="color: #0000FF;">,</span><span style="color: #008000;">"be"</span><span style="color: #0000FF;">,</span><span style="color: #008000;">"dep"</span><span style="color: #0000FF;">)</span> <span style="color: #000080;font-style:italic;">-- adept</span>
|
||||
<span style="color: #000000;">t</span> <span style="color: #0000FF;">=</span> <span style="color: #7060A8;">substitute</span><span style="color: #0000FF;">(</span><span style="color: #000000;">t</span><span style="color: #0000FF;">,</span><span style="color: #008000;">"be"</span><span style="color: #0000FF;">,</span><span style="color: #008000;">"dep"</span><span style="color: #0000FF;">)</span> <span style="color: #000080;font-style:italic;">-- to actually modify t</span>
|
||||
<span style="color: #0000FF;">?</span><span style="color: #7060A8;">join</span><span style="color: #0000FF;">({</span><span style="color: #008000;">"abc"</span><span style="color: #0000FF;">,</span><span style="color: #008000;">"def"</span><span style="color: #0000FF;">,</span><span style="color: #008000;">"ghi"</span><span style="color: #0000FF;">})</span> <span style="color: #000080;font-style:italic;">-- "abc def ghi"</span>
|
||||
<span style="color: #0000FF;">?</span><span style="color: #7060A8;">join</span><span style="color: #0000FF;">({</span><span style="color: #008000;">"abc"</span><span style="color: #0000FF;">,</span><span style="color: #008000;">"def"</span><span style="color: #0000FF;">,</span><span style="color: #008000;">"ghi"</span><span style="color: #0000FF;">},</span><span style="color: #008000;">""</span><span style="color: #0000FF;">)</span> <span style="color: #000080;font-style:italic;">-- "abcdefghi"</span>
|
||||
<span style="color: #0000FF;">?</span><span style="color: #7060A8;">join</span><span style="color: #0000FF;">({</span><span style="color: #008000;">"abc"</span><span style="color: #0000FF;">,</span><span style="color: #008000;">"def"</span><span style="color: #0000FF;">,</span><span style="color: #008000;">"ghi"</span><span style="color: #0000FF;">},</span><span style="color: #008000;">"\n"</span><span style="color: #0000FF;">)</span> <span style="color: #000080;font-style:italic;">-- "abc\ndef\nghi"</span>
|
||||
<!--
|
||||
with javascript_semantics
|
||||
string s = "abc"
|
||||
s = x"ef bb bf" -- explicit binary string (the utf8 BOM)
|
||||
s[2] = 0
|
||||
s[3] = 'z'
|
||||
if s="\#EF\0z" then puts(1,"ok\n") end if
|
||||
string t = s
|
||||
t[1..2] = "xy" -- s remains unaltered
|
||||
?t -- "xyz"
|
||||
t = "food" ?t
|
||||
t[2..3] = 'e' ?t -- "feed"
|
||||
t[3..2] = "ast" ?t -- "feasted"
|
||||
t[3..-2] = "" ?t -- "fed"
|
||||
if length(t)=0 then puts(1,"t is empty\n") end if
|
||||
if t!="" then puts(1,"t is not empty\n") end if
|
||||
t = "be"
|
||||
t &= 't' ?t -- bet
|
||||
t = 'a'&t ?t -- abet
|
||||
?t[2..3] -- be
|
||||
?substitute(t,"be","bbo") -- abbot
|
||||
?substitute(t,"be","dep") -- adept
|
||||
t = substitute(t,"be","dep") -- to actually modify t
|
||||
?join({"abc","def","ghi"}) -- "abc def ghi"
|
||||
?join({"abc","def","ghi"},"") -- "abcdefghi"
|
||||
?join({"abc","def","ghi"},"\n") -- "abc\ndef\nghi"
|
||||
|
|
|
|||
|
|
@ -1,67 +0,0 @@
|
|||
Clear-Host
|
||||
|
||||
## String creation (which is string assignment):
|
||||
Write-Host "`nString creation (which is string assignment):" -ForegroundColor Cyan
|
||||
Write-Host '[string]$s = "Hello cruel world"' -ForegroundColor Yellow
|
||||
[string]$s = "Hello cruel world"
|
||||
|
||||
## String (or any variable) destruction:
|
||||
Write-Host "`nString (or any variable) destruction:" -ForegroundColor Cyan
|
||||
Write-Host 'Remove-Variable -Name s -Force' -ForegroundColor Yellow
|
||||
Remove-Variable -Name s -Force
|
||||
|
||||
## Now reassign the variable:
|
||||
Write-Host "`nNow reassign the variable:" -ForegroundColor Cyan
|
||||
Write-Host '[string]$s = "Hello cruel world"' -ForegroundColor Yellow
|
||||
[string]$s = "Hello cruel world"
|
||||
|
||||
Write-Host "`nString comparison -- default is case insensitive:" -ForegroundColor Cyan
|
||||
Write-Host '$s -eq "HELLO CRUEL WORLD"' -ForegroundColor Yellow
|
||||
$s -eq "HELLO CRUEL WORLD"
|
||||
Write-Host '$s -match "HELLO CRUEL WORLD"' -ForegroundColor Yellow
|
||||
$s -match "HELLO CRUEL WORLD"
|
||||
Write-Host '$s -cmatch "HELLO CRUEL WORLD"' -ForegroundColor Yellow
|
||||
$s -cmatch "HELLO CRUEL WORLD"
|
||||
|
||||
## Copy a string:
|
||||
Write-Host "`nCopy a string:" -ForegroundColor Cyan
|
||||
Write-Host '$t = $s' -ForegroundColor Yellow
|
||||
$t = $s
|
||||
|
||||
## Check if a string is empty:
|
||||
Write-Host "`nCheck if a string is empty:" -ForegroundColor Cyan
|
||||
Write-Host 'if ($s -eq "") {"String is empty."} else {"String = $s"}' -ForegroundColor Yellow
|
||||
if ($s -eq "") {"String is empty."} else {"String = $s"}
|
||||
|
||||
## Append a byte to a string:
|
||||
Write-Host "`nAppend a byte to a string:" -ForegroundColor Cyan
|
||||
Write-Host "`$s += [char]46`n`$s" -ForegroundColor Yellow
|
||||
$s += [char]46
|
||||
$s
|
||||
|
||||
## Extract (and display) substring from a string:
|
||||
Write-Host "`nExtract (and display) substring from a string:" -ForegroundColor Cyan
|
||||
Write-Host '"Is the world $($s.Substring($s.IndexOf("c"),5))?"' -ForegroundColor Yellow
|
||||
"Is the world $($s.Substring($s.IndexOf("c"),5))?"
|
||||
|
||||
## Replace every occurrence of a byte (or a string) in a string with another string:
|
||||
Write-Host "`nReplace every occurrence of a byte (or a string) in a string with another string:" -ForegroundColor Cyan
|
||||
Write-Host "`$t = `$s -replace `"cruel`", `"beautiful`"`n`$t" -ForegroundColor Yellow
|
||||
$t = $s -replace "cruel", "beautiful"
|
||||
$t
|
||||
|
||||
## Join strings:
|
||||
Write-Host "`nJoin strings [1]:" -ForegroundColor Cyan
|
||||
Write-Host '"Is the world $($s.Split()[1]) or $($t.Split()[1])?"' -ForegroundColor Yellow
|
||||
"Is the world $($s.Split()[1]) or $($t.Split()[1])?"
|
||||
Write-Host "`nJoin strings [2]:" -ForegroundColor Cyan
|
||||
Write-Host '"{0} or {1}... I don''t care." -f (Get-Culture).TextInfo.ToTitleCase($s.Split()[1]), $t.Split()[1]' -ForegroundColor Yellow
|
||||
"{0} or {1}... I don't care." -f (Get-Culture).TextInfo.ToTitleCase($s.Split()[1]), $t.Split()[1]
|
||||
Write-Host "`nJoin strings [3] (display an integer array using the -join operater):" -ForegroundColor Cyan
|
||||
Write-Host '1..12 -join ", "' -ForegroundColor Yellow
|
||||
1..12 -join ", "
|
||||
|
||||
## Display an integer array in a tablular format:
|
||||
Write-Host "`nMore string madness... display an integer array in a tablular format:" -ForegroundColor Cyan
|
||||
Write-Host '1..12 | Format-Wide {$_.ToString().PadLeft(2)}-Column 3 -Force' -NoNewline -ForegroundColor Yellow
|
||||
1..12 | Format-Wide {$_.ToString().PadLeft(2)} -Column 3 -Force
|
||||
Loading…
Add table
Add a link
Reference in a new issue