zettacode 0.1.0 → 0.1.2

data/files.zettacode/hello_world.text/vala.txt

@@ -0,0 +1,3 @@
+void main(){
+	stdout.printf("Hello world!\n");
+}

data/files.zettacode/hello_world.text/vax_assembly.txt

@@ -0,0 +1,10 @@
+
+<syntaxhighlight lang="vax assembly">
+desc:  .ascid "Hello World!"      ;descriptor (len+addr) and text
+.entry hello, ^m<>                ;register save mask
+       pushaq desc                ;address of descriptor
+       calls #1, g^lib$put_output ;call with one argument on stack
+       ret                        ;restore registers, clean stack &amp; return
+.end hello                        ;transfer address for linker
+
+

data/files.zettacode/hello_world.text/vba.txt

@@ -0,0 +1,6 @@
+
+Public Sub hello_world_text
+    Debug.Print "Hello World!"
+End Sub
+
+

data/files.zettacode/hello_world.text/vbscript.txt

@@ -0,0 +1,2 @@
+{{works with|Windows Script Host|5.7}}
+WScript.Echo "Hello world!"

data/files.zettacode/hello_world.text/vedit_macro_language.txt

@@ -0,0 +1 @@
+Message("Hello world!")

data/files.zettacode/hello_world.text/verbexx.txt

@@ -0,0 +1,2 @@
+@SAY "Hello world!";
+

data/files.zettacode/hello_world.text/verilog.txt

@@ -0,0 +1,8 @@
+
+module main;
+  initial begin
+      $display("Hello world!");
+      $finish ;
+    end
+endmodule
+

data/files.zettacode/hello_world.text/vhdl.txt

@@ -0,0 +1,16 @@
+LIBRARY std;
+USE std.TEXTIO.all;
+
+entity test is
+end entity test;
+
+architecture beh of test is
+begin
+  process
+    variable line_out : line;
+  begin
+    write(line_out, string'("Hello world!"));
+    writeline(OUTPUT, line_out);
+    wait; -- needed to stop the execution
+  end process;
+end architecture beh;

data/files.zettacode/hello_world.text/vim_script.txt

@@ -0,0 +1 @@
+echo "Hello world!\n"

data/files.zettacode/hello_world.text/visual_basic.txt

@@ -0,0 +1,22 @@
+{{Libheader|Microsoft.Scripting}}
+{{works with|Visual Basic|VB6 Standard}}
+Visual Basic 6 is actually designed to create GUI applications, however with a little help from the Microsoft.Scripting Library it is fairly easy to write a simple console application.
+Option Explicit
+
+Private Declare Function AllocConsole Lib "kernel32.dll" () As Long
+Private Declare Function FreeConsole Lib "kernel32.dll" () As Long
+'needs a reference set to "Microsoft Scripting Runtime" (scrrun.dll)
+
+Sub Main()
+  Call AllocConsole
+  Dim mFSO As Scripting.FileSystemObject
+  Dim mStdIn As Scripting.TextStream
+  Dim mStdOut As Scripting.TextStream
+  Set mFSO = New Scripting.FileSystemObject
+  Set mStdIn = mFSO.GetStandardStream(StdIn)
+  Set mStdOut = mFSO.GetStandardStream(StdOut)
+  mStdOut.Write "Hello world!" & vbNewLine
+  mStdOut.Write "press enter to quit program."
+  mStdIn.Read 1
+  Call FreeConsole
+End Sub

data/files.zettacode/hello_world.text/visual_basic_.net.txt

@@ -0,0 +1,7 @@
+Imports System
+
+Module HelloWorld
+    Sub Main()
+        Console.WriteLine("Hello world!")
+    End Sub
+End Module

data/files.zettacode/hello_world.text/viua_vm_assembly.txt

@@ -0,0 +1,6 @@
+.function: main/0
+    text %1 local "Hello World!"
+    print %1 local
+    izero %0 local
+    return
+.end

data/files.zettacode/hello_world.text/vtl-2.txt

@@ -0,0 +1 @@
+<syntaxhighlight lang="vtl-2">10 ?="Hello world!"

data/files.zettacode/hello_world.text/wart.txt

@@ -0,0 +1,2 @@
+
+prn "Hello world!"

data/files.zettacode/hello_world.text/wdte.txt

@@ -0,0 +1 @@
+io.writeln io.stdout 'Hello world!';

data/files.zettacode/hello_world.text/webassembly.txt

@@ -0,0 +1,38 @@
+
+{{libheader|WASI}}
+(module $helloworld
+
+    ;;Import fd_write from WASI, declaring that it takes 4 i32 inputs and returns 1 i32 value
+    (import "wasi_unstable" "fd_write"
+        (func $fd_write (param i32 i32 i32 i32) (result i32))
+    )
+
+    ;;Declare initial memory size of 32 bytes
+    (memory 32)
+
+    ;;Export memory so external functions can see it
+    (export "memory" (memory 0))
+ 
+    ;;Declare test data starting at address 8
+    (data (i32.const 8) "Hello world!\n")
+ 
+    ;;The entry point for WASI is called _start
+    (func $main (export "_start")
+        
+        ;;Write the start address of the string to address 0
+        (i32.store (i32.const 0) (i32.const 8)) 
+ 
+        ;;Write the length of the string to address 4
+        (i32.store (i32.const 4) (i32.const 13))
+
+        ;;Call fd_write to print to console
+        (call $fd_write
+            (i32.const 1) ;;Value of 1 corresponds to stdout
+            (i32.const 0) ;;The location in memory of the string pointer
+            (i32.const 1) ;;Number of strings to output
+            (i32.const 24) ;;Address to write number of bytes written
+        )
+        drop ;;Ignore return code
+    )
+)
+

data/files.zettacode/hello_world.text/wee_basic.txt

@@ -0,0 +1,2 @@
+<syntaxhighlight lang="wee basic">print 1 "Hello world!"
+end

data/files.zettacode/hello_world.text/whenever.txt

@@ -0,0 +1,2 @@
+
+1 print("Hello world!");

data/files.zettacode/hello_world.text/whiley.txt

@@ -0,0 +1,5 @@
+
+import whiley.lang.System
+
+method main(System.Console console):
+    console.out.println("Hello world!")

data/files.zettacode/hello_world.text/whitespace.txt

@@ -0,0 +1 @@
+There is a "Hello World" - example-program on the [http://compsoc.dur.ac.uk/whitespace/hworld.ws Whitespace-website]

data/files.zettacode/hello_world.text/wisp.txt

@@ -0,0 +1,8 @@
+Output in Wisp follows the same concepts as [[Scheme]], but replacing outer parentheses with indentation.
+
+With [[Guile]] and wisp installed, this example can be tested in a REPL started with guile --language=wisp, or directly with the command wisp.
+
+import : scheme base
+         scheme write
+display "Hello world!"
+newline

data/files.zettacode/hello_world.text/wolfram_language.txt

@@ -0,0 +1 @@
+Print["Hello world!"]

data/files.zettacode/hello_world.text/wren.txt

@@ -0,0 +1 @@
+System.print("Hello world!")

data/files.zettacode/hello_world.text/x10.txt

@@ -0,0 +1,8 @@
+class HelloWorld {
+  public static def main(args:Rail[String]):void {
+    if (args.size < 1) {
+        Console.OUT.println("Hello world!");
+        return;
+    }
+  }
+}

data/files.zettacode/hello_world.text/x86-64_assembly.txt

@@ -0,0 +1,44 @@
+===UASM===
+
+option casemap:none
+if @Platform eq 1
+   option dllimport:<kernel32>
+      ExitProcess   proto :dword
+   option dllimport:none
+      exit          equ ExitProcess
+endif
+printf              proto :qword, :vararg
+exit                proto :dword
+
+.code
+main proc
+invoke printf, CSTR("Goodbye, World!",10)
+invoke exit, 0
+ret
+main endp
+end
+
+===AT&amp;T syntax (Gas)===
+// No "main" used
+// compile with `gcc -nostdlib`
+#define SYS_WRITE   $1
+#define STDOUT      $1
+#define SYS_EXIT    $60
+#define MSGLEN      $14
+
+.global _start
+.text
+
+_start:
+    movq    $message, %rsi          // char *
+    movq    SYS_WRITE, %rax
+    movq    STDOUT, %rdi
+    movq    MSGLEN, %rdx
+    syscall                         // sys_write(message, stdout, 0x14);
+    
+    movq    SYS_EXIT, %rax
+    xorq    %rdi, %rdi              // The exit code.
+    syscall                         // exit(0)
+    
+.data
+message:    .ascii "Hello, world!\n"

data/files.zettacode/hello_world.text/x86_assembly.txt

@@ -0,0 +1,37 @@
+{{works with|nasm|2.05.01}}
+
+This is known to work on Linux, it may or may not work on other Unix-like systems
+
+Prints "Hello world!" to stdout (and there is probably an even simpler version):
+section .data
+msg     db      'Hello world!', 0AH
+len     equ     $-msg
+
+section .text
+global  _start
+_start: mov     edx, len
+        mov     ecx, msg
+        mov     ebx, 1
+        mov     eax, 4
+        int     80h
+
+        mov     ebx, 0
+        mov     eax, 1
+        int     80h
+
+'''AT&T syntax:''' works with gcc (version 4.9.2) and gas (version 2.5):
+
+.section .text
+
+.globl main
+
+main:
+	movl $4,%eax	#syscall number 4
+	movl $1,%ebx	#number 1 for stdout
+	movl $str,%ecx	#string pointer
+	movl $16,%edx	#number of bytes
+	int $0x80	#syscall interrupt
+	ret
+
+.section .data
+str: .ascii "Hello world!\12"

data/files.zettacode/hello_world.text/xbasic.txt

@@ -0,0 +1,12 @@
+{{works with|Windows XBasic}}
+
+PROGRAM "hello"
+VERSION "0.0003"
+
+DECLARE FUNCTION Entry()
+
+FUNCTION Entry()
+  PRINT "Hello World"
+END FUNCTION
+END PROGRAM
+

data/files.zettacode/hello_world.text/xeec.txt

@@ -0,0 +1,4 @@
+
+h#10 h$! h$d h$l h$r h$o h$w h#32  
+h$o h$l h$l h$e h$H >o o$ p jno
+

data/files.zettacode/hello_world.text/xl.txt

@@ -0,0 +1,2 @@
+use XL.UI.CONSOLE
+WriteLn "Hello world!"

data/files.zettacode/hello_world.text/xlisp.txt

@@ -0,0 +1,2 @@
+(DISPLAY "Hello world!")
+(NEWLINE)

data/files.zettacode/hello_world.text/xpath.txt

@@ -0,0 +1 @@
+'Hello world
'

data/files.zettacode/hello_world.text/xpl0.txt

@@ -0,0 +1,3 @@
+code Text=12;
+Text(0, "Hello world!
+")

data/files.zettacode/hello_world.text/xslt.txt

@@ -0,0 +1,5 @@
+With a literal newline:
+<xsl:text>Hello world!
+</xsl:text>
+Or, with an explicit newline:
+<xsl:text>Hello world!&amp;#xA;</xsl:text>

data/files.zettacode/hello_world.text/yabasic.txt

@@ -0,0 +1,3 @@
+
+print "Hello world!"
+

data/files.zettacode/hello_world.text/yorick.txt

@@ -0,0 +1 @@
+write, "Hello world!"

data/files.zettacode/hello_world.text/z80_assembly.txt

@@ -0,0 +1,21 @@
+
+Using the Amstrad CPC firmware:
+
+org		$4000
+
+txt_output:	equ	$bb5a
+
+		push	hl
+		ld	hl,world
+
+print:		ld	a,(hl)
+		cp	0
+		jr	z,end
+		call	txt_output
+		inc	hl
+		jr	print
+
+end:		pop	hl
+		ret
+
+world:		defm	"Hello world!\r\n\0"

data/files.zettacode/hello_world.text/zig.txt

@@ -0,0 +1,4 @@
+const std = @import("std");
+pub fn main() !void {
+    try std.io.getStdOut().writer().writeAll("Hello world!\n");
+}

data/files.zettacode/hello_world.text/zkl.txt

@@ -0,0 +1,2 @@
+println("Hello world!");
+{{omit from|VBA|VBA can't write or output to console}}

data/files.zettacode/hello_world.text/zoea.txt

@@ -0,0 +1,2 @@
+program: hello_world 
+  output: "Hello  world!"

data/files.zettacode/hello_world.text/zoea_visual.txt

@@ -0,0 +1 @@
+[http://zoea.co.uk/examples/zv-rc/Hello_world.png Hello World]

data/files.zettacode/hello_world.text/zoomscript.txt

@@ -0,0 +1,5 @@
+For typing:
+print "Hello world!"
+For importing:
+
+¶0¶print "Hello world!"

data/files.zettacode/hello_world.text/zx_spectrum_basic.txt

@@ -0,0 +1,4 @@
+10 print "Hello world!"</text>
+      <sha1>pvejvhhj3r3js3coyflyl113kmxoycz</sha1>
+    
+  

data/files.zettacode/hello_world.text//340/256/211/340/256/257/340/256/277/340/256/260/340/257/215-uyir.txt

@@ -0,0 +1,5 @@
+<syntaxhighlight lang="உயிர்/uyir">முதன்மை என்பதின் வகை எண் பணி {{
+         ("உலகத்தோருக்கு வணக்கம்") என்பதை திரை.இடு;
+
+         முதன்மை = 0;
+}};

data/lib/zettacode/parse/parse.rb

@@ -10,8 +10,8 @@ module Zettacode
     end
 
     def self.call(filepath)
-      content, to_folder = read_content_from filepath
-      dirty_examples = scrap_examples_from content
+      raw_content, to_folder = read_content_from filepath
+      dirty_examples = scrap_examples_from raw_content
       clean_examples = clean dirty_examples
       save_files clean_examples, to_folder
     end
@@ -29,7 +29,7 @@ module Zettacode
       name.tr!("/", ".")
       name.tr!(" ", "_")
       name.downcase!
-      folder = File.join("zettacode.files", name)
+      folder = File.join("files.zettacode", name)
       FileUtils.mkdir(folder) unless Dir.exist? folder
       [content, folder]
     end
@@ -69,27 +69,30 @@ module Zettacode
 
         # Clean syntaxhighlight tag
         lines.each do |line|
+          next if line == ""
           # <syntaxhighlight lang="LANG">
           filter = /<syntaxhighlight\s+lang="([\w\d]+)">/
           value = filter.match(line)&.captures&.first
-          if value.nil?
-            line.tr!("</text>", "")
-            line.tr!("</revision>", "")
-            line.tr!("</page>", "")
-            line.tr!("</mediawiki>", "")
-            line = nil if line.strip.start_with? "<sha1>"
-          else
+          unless value.nil?
             syntax = value
             line.gsub!("&lt;syntaxhighlight lang=\"#{value}\"&gt;", "")
+          else
+            line.gsub!("</text>", "")
+            line.gsub!("</revision>", "")
+            line.gsub!("</page>", "")
+            line.gsub!("</mediawiki>", "")
+            line = nil if line.strip.start_with? "<sha1>"
           end
         end
 
         code = lines.join("\n")
-        code.tr!("&lt;/syntaxhighlight&gt;", "")
-        code.tr!("&lt;pre&gt;", "")
-        code.tr!("&lt;/pre&gt;", "")
-        code.tr!("&lt;", "<")
-        code.tr!("&gt;", ">")
+        code.gsub!("&lt;/syntaxhighlight&gt;", "")
+        code.gsub!("&lt;pre&gt;", "")
+        code.gsub!("&lt;/pre&gt;", "")
+        code.gsub!("&lt;", "<")
+        code.gsub!("&gt;", ">")
+        code.gsub!("&lt;code&gt;", "'")
+        code.gsub!("&lt;/code&gt;", "'")
         examples << {
           lang: lang,
           filename: filename,

data/lib/zettacode/version.rb

@@ -1,5 +1,6 @@
 # frozen_string_literal: true
 
 module Zettacode
-  VERSION = "0.1.0"
+  VERSION = "0.1.2"
+  OUTPUT_FOLDER = "files.zettacode"
 end