From: Mischa POSLAWSKY <perl@shiar.org>
Date: Thu, 3 Sep 2015 10:32:29 +0000 (+0200)
Subject: random c code sample
X-Git-Tag: v2.0~29
X-Git-Url: http://git.shiar.net/unicode-sampler.git/commitdiff_plain/af1b8b5c5a887b0ef7be4810e58ba1a0a4864ee0

random c code sample

From <http://people.mpi-inf.mpg.de/~uwe/misc/uw-ttyp0/>.
Includes several bitwise operators and other common sequences (->, !=, ++).
---

diff --git a/unicode.txt b/unicode.txt
index 6dcd6eb..cf94db3 100644
--- a/unicode.txt
+++ b/unicode.txt
@@ -11,6 +11,8 @@ Code:
 
   Hash[ :nbsp => 0O2_40 ].each {|name, cp| puts "#{name} is '#{cp.chr}'" }
 
+  while ((c = *l++) != '\0') { m->stat[2] = IO | (~OK & X_8); }
+
   perl -pe's/\w/$^=~$&>chop($^=$&.$^)?"@-":$&/ge'
 
   ↑1 ⍵∨.∧3 4=+/,¯1 0 1∘.⊖¯1 0 1⌽¨⊂⍵ ⍝ game of life