Data commit

Task/Start-from-a-main-routine/00-META.yaml

@@ -0,0 +1,2 @@
+---
+from: http://rosettacode.org/wiki/Start_from_a_main_routine

Task/Start-from-a-main-routine/00-TASK.txt

@@ -0,0 +1,8 @@
+Some languages (like Gambas and Visual Basic) support two startup modes.   Applications written in these languages start with an open window that waits for events, and it is necessary to do some trickery to cause a main procedure to run instead.   Data driven or event driven languages may also require similar trickery to force a startup procedure to run.
+
+
+;Task:
+Demonstrate the steps involved in causing the application to run a main procedure, rather than an event driven window at startup.
+
+Languages that always run from main() can be omitted from this task.
+<br><br>

Task/Start-from-a-main-routine/ALGOL-68/start-from-a-main-routine.alg

@@ -0,0 +1,3 @@
+BEGIN
+    print( ( "Hello, World!", newline ) )
+END

Task/Start-from-a-main-routine/AWK/start-from-a-main-routine.awk

@@ -0,0 +1,4 @@
+BEGIN {
+  # This is our main startup procedure
+  print "Hello World!"
+}

Task/Start-from-a-main-routine/Ada/start-from-a-main-routine.ada

@@ -0,0 +1,5 @@
+with Ada.Text_IO;
+procedure Foo is
+begin
+   Ada.Text_IO.Put_Line("Bar");
+end Foo;

Task/Start-from-a-main-routine/Arturo/start-from-a-main-routine.arturo

@@ -0,0 +1,5 @@
+main: function [][
+    print "Yes, we are in main!"
+]
+
+main

Task/Start-from-a-main-routine/BASIC256/start-from-a-main-routine.basic

@@ -0,0 +1,5 @@
+subroutine main()
+  print "Hello from main!"
+end subroutine
+
+call main()

Task/Start-from-a-main-routine/C/start-from-a-main-routine.c

@@ -0,0 +1,9 @@
+#include<stdio.h>
+
+#define start main()
+
+int start
+{
+	printf("Hello World !");
+	return 0;
+}

Task/Start-from-a-main-routine/Component-Pascal/start-from-a-main-routine.pas

@@ -0,0 +1,13 @@
+MODULE MainProcedure;
+IMPORT StdLog;
+
+PROCEDURE Do*;
+BEGIN
+	StdLog.String("From Do");StdLog.Ln
+END Do;
+
+PROCEDURE Main*;
+BEGIN
+	StdLog.String("From Main");StdLog.Ln
+END Main;
+END MainProcedure.

Task/Start-from-a-main-routine/Factor/start-from-a-main-routine.factor

@@ -0,0 +1,6 @@
+USE: io
+IN: example
+
+: hello ( -- ) "Hello, world!" print ;
+
+MAIN: hello

Task/Start-from-a-main-routine/Forth/start-from-a-main-routine-1.fth

@@ -0,0 +1,5 @@
+include foo.fs
+...
+: main  ... ;
+
+main bye

Task/Start-from-a-main-routine/Forth/start-from-a-main-routine-2.fth

@@ -0,0 +1 @@
+$ gforth -e "2 2 + . bye"

Task/Start-from-a-main-routine/Forth/start-from-a-main-routine-3.fth

@@ -0,0 +1 @@
+' main turnkey app.exe

Task/Start-from-a-main-routine/FreeBASIC/start-from-a-main-routine.basic

@@ -0,0 +1,8 @@
+' FB 1.05.0 Win64
+
+Sub main()
+  Print "Hello from main!"
+End Sub
+
+main
+Sleep

Task/Start-from-a-main-routine/Gambas/start-from-a-main-routine.gambas

@@ -0,0 +1,3 @@
+PUBLIC SUB Main()
+  ' This is the start of the program
+END

Task/Start-from-a-main-routine/Go/start-from-a-main-routine.go

@@ -0,0 +1,24 @@
+package main
+
+import "fmt"
+
+var count = 0
+
+func foo() {
+    fmt.Println("foo called")
+}
+
+func init() {
+    fmt.Println("first init called")
+    foo()
+}
+
+func init() {
+    fmt.Println("second init called")
+    main()
+}
+
+func main() {
+    count++
+    fmt.Println("main called when count is", count)
+}

Task/Start-from-a-main-routine/Logtalk/start-from-a-main-routine.logtalk

@@ -0,0 +1 @@
+:- initialization(main).

Task/Start-from-a-main-routine/Oforth/start-from-a-main-routine-1.fth

@@ -0,0 +1,4 @@
+: main(n)
+   "Sleeping..." println
+   n sleep
+   "Awake and leaving." println ;

Task/Start-from-a-main-routine/Oforth/start-from-a-main-routine-2.fth

@@ -0,0 +1,6 @@
+: main(n)
+   "Sleeping..." println
+   n sleep
+   "Awake and leaving." println ;
+
+10000 main

Task/Start-from-a-main-routine/Perl/start-from-a-main-routine.pl

@@ -0,0 +1,4 @@
+BEGIN {...} # as soon as parsed
+CHECK {...} # end of compile time
+INIT {...}  # beginning of run time
+END {...}   # end of run time

Task/Start-from-a-main-routine/Phix/start-from-a-main-routine.phix

@@ -0,0 +1,6 @@
+-->
+ <span style="color: #008080;">procedure</span> <span style="color: #000000;">main</span><span style="color: #0000FF;">()</span>
+     <span style="color: #0000FF;">...</span>
+ <span style="color: #008080;">end</span> <span style="color: #008080;">procedure</span>
+ <span style="color: #000000;">main</span><span style="color: #0000FF;">()</span>
+<!--

Task/Start-from-a-main-routine/Processing/start-from-a-main-routine-1.processing

@@ -0,0 +1,2 @@
+println("hello world");
+line(0, 0, width, height);

Task/Start-from-a-main-routine/Processing/start-from-a-main-routine-2.processing

@@ -0,0 +1,4 @@
+void hello() {
+  println("hello world");
+}
+hello();

Task/Start-from-a-main-routine/Processing/start-from-a-main-routine-3.processing

@@ -0,0 +1,6 @@
+void setup() {
+  hello();
+}
+void hello() {
+  println("hello world");
+}

Task/Start-from-a-main-routine/QBasic/start-from-a-main-routine.basic

@@ -0,0 +1,5 @@
+SUB main
+    PRINT "Hello from main!"
+END SUB
+
+main

Task/Start-from-a-main-routine/Quackery/start-from-a-main-routine.quackery

@@ -0,0 +1,4 @@
+[ say "Please use the shell to calculate a value" cr
+  say "and leave it on the stack. Type 'leave' when" cr
+  say "you have done this." cr
+  shell ]                             constant is my-value

Task/Start-from-a-main-routine/REXX/start-from-a-main-routine.rexx

@@ -0,0 +1,9 @@
+/*REXX*/
+address 'XEDIT'
+  .
+  .
+  .
+[XEDIT commands here.]
+  .
+  .
+  .

Task/Start-from-a-main-routine/Racket/start-from-a-main-routine.rkt

@@ -0,0 +1,4 @@
+#/usr/bin/env racket -tm
+#lang racket
+(provide main)
+(define (main . args) (displayln "Hello World!"))

Task/Start-from-a-main-routine/Raku/start-from-a-main-routine.raku

@@ -0,0 +1,4 @@
+BEGIN {...} # as soon as parsed
+CHECK {...} # end of compile time
+INIT {...}  # beginning of run time
+END {...}   # end of run time

Task/Start-from-a-main-routine/Ring/start-from-a-main-routine.ring

@@ -0,0 +1,2 @@
+func Main
+     see "Hello World!" + nl

Task/Start-from-a-main-routine/Ruby/start-from-a-main-routine.rb

@@ -0,0 +1,7 @@
+BEGIN {
+  # begin code
+}
+
+END {
+  # end code
+}

Task/Start-from-a-main-routine/Run-BASIC/start-from-a-main-routine.basic

@@ -0,0 +1,5 @@
+sub main
+  print "Hello from main!"
+end sub
+
+call main

Task/Start-from-a-main-routine/Scala/start-from-a-main-routine.scala

@@ -0,0 +1,7 @@
+object PrimaryMain extends App {
+Console.println("Hello World: " + (args mkString ", "))
+}
+
+object MainTheSecond extends App {
+Console.println("Goodbye, World: " + (args mkString ", "))
+}

Task/Start-from-a-main-routine/Sed/start-from-a-main-routine.sed

@@ -0,0 +1,12 @@
+# This code runs only for line 1.
+1 {
+	i\
+Explain-a-lot processed this file and
+	i\
+replaced every period with three exclamation points!!!
+	i\
+
+}
+
+# This code runs for each line of input.
+s/\./!!!/g

Task/Start-from-a-main-routine/Seed7/start-from-a-main-routine-1.seed7

@@ -0,0 +1,6 @@
+$ include "seed7_05.s7i";
+
+const proc: main is func
+  begin
+    writeln("hello world");
+  end func;

Task/Start-from-a-main-routine/Seed7/start-from-a-main-routine-2.seed7

@@ -0,0 +1,10 @@
+$ include "seed7_05.s7i";
+  include "draw.s7i";
+  include "keybd.s7i";
+
+const proc: main is func
+  begin
+    screen(200, 200);
+    KEYBOARD := GRAPH_KEYBOARD;
+    ignore(getc(KEYBOARD));
+  end func;

Task/Start-from-a-main-routine/True-BASIC/start-from-a-main-routine.basic

@@ -0,0 +1,6 @@
+SUB main
+    PRINT "Hello from main!"
+END SUB
+
+CALL main
+END

Task/Start-from-a-main-routine/V-(Vlang)/start-from-a-main-routine-1.v

@@ -0,0 +1,3 @@
+fn main() {
+	println("hello world")
+}

Task/Start-from-a-main-routine/V-(Vlang)/start-from-a-main-routine-2.v

@@ -0,0 +1 @@
+println("hello world")

Task/Start-from-a-main-routine/Visual-Basic-.NET/start-from-a-main-routine-1.vb

@@ -0,0 +1,35 @@
+Imports System.Collections.ObjectModel
+Imports Microsoft.VisualBasic.ApplicationServices
+
+Namespace My
+    ' The following events are available for MyApplication:
+    ' Startup: Raised when the application starts, before the startup form is created.
+    ' Shutdown: Raised after all application forms are closed.  This event is not raised if the application terminates abnormally.
+    ' UnhandledException: Raised if the application encounters an unhandled exception.
+    ' StartupNextInstance: Raised when launching a single-instance application and the application is already active.
+    ' NetworkAvailabilityChanged: Raised when the network connection is connected or disconnected.
+
+    Partial Friend Class MyApplication
+        '''<summary>Sets the visual styles, text display styles, and current principal for the main application thread
+        '''(if the application uses Windows authentication), and initializes the splash screen, if defined.</summary>
+        '''<param name="commandLineArgs">A <see cref="ReadOnlyCollection(Of T)" /> of <see langword="String" />,
+        '''containing the command-line arguments as strings for the current application.</param>
+        '''<returns>A <see cref="T:System.Boolean" /> indicating if application startup should continue.</returns>
+        Protected Overrides Function OnInitialize(commandLineArgs As ReadOnlyCollection(Of String)) As Boolean
+            Console.WriteLine("oninitialize; args: " & String.Join(", ", commandLineArgs))
+            Return MyBase.OnInitialize(commandLineArgs)
+        End Function
+
+        ' WindowsFormsApplicationBase.Startup occurs "when the application starts".
+        Private Sub MyApplication_Startup(sender As Object, e As StartupEventArgs) Handles Me.Startup
+            Console.WriteLine("startup; args: " & String.Join(", ", e.CommandLine))
+        End Sub
+
+        '''<summary>Provides the starting point for when the main application is ready to start running, after the
+        '''initialization is done.</summary>
+        Protected Overrides Sub OnRun()
+            Console.WriteLine("onrun")
+            MyBase.OnRun()
+        End Sub
+    End Class
+End Namespace

Task/Start-from-a-main-routine/Visual-Basic-.NET/start-from-a-main-routine-2.vb

@@ -0,0 +1,6 @@
+Module Main
+    Sub Main(args As String())
+        Console.WriteLine("main; args:" & String.Join(", ", args))
+        Application.Run(New Form1())
+    End Sub
+End Module

Task/Start-from-a-main-routine/Visual-Basic/start-from-a-main-routine.vb

@@ -0,0 +1,3 @@
+SUB Main()
+  ' This is the start of the program
+END

Task/Start-from-a-main-routine/Wren/start-from-a-main-routine.wren

@@ -0,0 +1,5 @@
+var main = Fn.new {
+    System.print("Hello from the main function.")
+}
+
+main.call()

Task/Start-from-a-main-routine/XBasic/start-from-a-main-routine-1.basic

@@ -0,0 +1,3 @@
+FUNCTION  main ()
+    'This is the beginning of the program
+END FUNCTION

Task/Start-from-a-main-routine/XBasic/start-from-a-main-routine-2.basic

@@ -0,0 +1,14 @@
+PROGRAM	"Start from a main routine"
+
+DECLARE FUNCTION  Entry ()
+DECLARE FUNCTION  main ()
+
+FUNCTION  Entry ()
+  main ()
+END FUNCTION
+
+FUNCTION  main ()
+  PRINT "Hello from main!"
+END FUNCTION
+
+END PROGRAM

Task/Start-from-a-main-routine/Yabasic/start-from-a-main-routine.basic

@@ -0,0 +1,5 @@
+sub main()
+  print "Hello from main!"
+end sub
+
+main()

Task/Start-from-a-main-routine/Z80-Assembly/start-from-a-main-routine.z80

@@ -0,0 +1 @@
+org &8000

Task/Start-from-a-main-routine/ZX-Spectrum-Basic/start-from-a-main-routine.basic

@@ -0,0 +1 @@
+SAVE "MYPROG" LINE 500: REM For a program with main code starting at line 500

Task/Start-from-a-main-routine/Zkl/start-from-a-main-routine.zkl

@@ -0,0 +1 @@
+"Hello".println()