random c code sample
authorMischa POSLAWSKY <perl@shiar.org>
Thu, 3 Sep 2015 10:32:29 +0000 (12:32 +0200)
committerMischa POSLAWSKY <perl@shiar.org>
Sat, 5 Sep 2015 14:51:07 +0000 (16:51 +0200)
From <http://people.mpi-inf.mpg.de/~uwe/misc/uw-ttyp0/>.
Includes several bitwise operators and other common sequences (->, !=, ++).

unicode.txt

index 6dcd6eb7155b058706af308ec3a42377ff8c6d89..cf94db3f0b948f4674a9b557c900ae7b35418b85 100644 (file)
@@ -11,6 +11,8 @@ Code:
 
   Hash[ :nbsp => 0O2_40 ].each {|name, cp| puts "#{name} is '#{cp.chr}'" }
 
 
   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
   perl -pe's/\w/$^=~$&>chop($^=$&.$^)?"@-":$&/ge'
 
   ↑1 ⍵∨.∧3 4=+/,¯1 0 1∘.⊖¯1 0 1⌽¨⊂⍵ ⍝ game of life