Data update

Task/Include-a-file/Ada/include-a-file.ada

@@ -1,7 +0,0 @@
-with Ada.Text_IO, Another_Package; use Ada.Text_IO;
-  -- the with-clause tells the compiler to include the Text_IO package from the Ada standard
-  -- and Another_Package. Subprograms from these packages may be called as follows:
-  --               Ada.Text_IO.Put_Line("some text");
-  --               Another_Package.Do_Something("some text");
-  -- The use-clause allows the program author to write a subprogram call shortly as
-  --               Put_Line("some text");

Task/Include-a-file/Arturo/include-a-file.arturo

@@ -1,6 +1,6 @@
 ; import a file
-do.import {file.art}
+do {file.art}
 
 ; import another file
 ; from relative folder location
-do.import relative "another_file.art"
+do relative "another_file.art"

Task/Include-a-file/COBOL/include-a-file.cobol

@@ -1,4 +0,0 @@
-COPY "copy.cpy". *> The full stop is mandatory, wherever the COPY is.
-COPY "another-copy.cpy" REPLACING foo BY bar
-                                  SPACE BY ZERO
-                                  ==text to replace== BY ==replacement text==.

Task/Include-a-file/Emacs-Lisp/include-a-file-1.l

@@ -1,2 +0,0 @@
-(defun sum (ls)
-  (apply '+ ls) )

Task/Include-a-file/Emacs-Lisp/include-a-file-2.l

@@ -1,3 +0,0 @@
-(add-to-list 'load-path "./")
-(load "./file1.el")
-(insert (format "%d" (sum (number-sequence 1 100) )))

Task/Include-a-file/Euphoria/include-a-file.ex

@@ -1 +0,0 @@
-include my_header.e

Task/Include-a-file/PowerShell/include-a-file.psh

@@ -1,14 +0,0 @@
-<#
-    A module is a set of related Windows PowerShell functionalities, grouped together as a convenient unit (usually saved in a
-    single directory). By defining a set of related script files, assemblies, and related resources as a module, you can
-    reference, load, persist, and share your code much easier than you would otherwise.
-#>
-
-Import-Module -Name MyModule
-
-
-<#
-    When you dot source a script (or scriptblock), all variables and functions defined in the script (or scriptblock) will
-    persist in the shell when the script ends.
-#>
-. .\MyFunctions.ps1

Task/Include-a-file/RISC-V-Assembly/include-a-file-2.asm

@@ -150,3 +150,37 @@ conversion10S:              # INFO: conversion10S
     lw      ra, 0(sp)       # restaur registers
     addi    sp, sp, 8
     ret
+/**********************************************/
+/* conversion hexadecimale                    */
+/**********************************************/
+/* a0    value */
+/* a1    esult area address  */
+.equ LGZONECONV,   20
+conversion16:              # INFO: conversion16
+    addi    sp, sp, -4     # reserve pile
+    sw      ra, 0(sp)      # Adresse de retour 	Appelant
+
+    li t0,28               # start bit position
+    li t1,0xF0000000       # mask
+    mv t2,a0               # save entry value
+	li t3,10
+1:                         # start loop
+    and a0,t2,t1           # value register and mask
+    srl a0,a0,t0           # shift right
+    blt a0,t3,2f           # compare value 10
+    addi a0,a0,55          # letters A-F
+    j 3f
+2:
+    addi a0,a0,48          # number
+3:
+    sb a0,(a1)            # store digit on area and + 1 in area address
+    addi a1,a1,1
+    srli t1,t1,4           # shift mask 4 positions
+    addi t0,t0,-4          #  counter bits - 4 <= zero  ?
+    bge t0,x0,1b           #  no -> loop
+    sb x0,(a1)             # store final zero
+    li a0,8                # return size
+100:
+    lw      ra, 0(sp)      # restaur registre
+    addi    sp, sp, 4      # liberer pile
+    ret

Task/Include-a-file/VBScript/include-a-file-1.vb

@@ -1,8 +0,0 @@
-Include "D:\include\pad.vbs"
-
-Wscript.Echo lpad(12,14,"-")
-
-Sub Include (file)
-   dim fso: set fso = CreateObject("Scripting.FileSystemObject")
-   if fso.FileExists(file) then ExecuteGlobal fso.OpenTextFile(file).ReadAll
-End Sub

Task/Include-a-file/VBScript/include-a-file-2.vb

@@ -1 +0,0 @@
-<script id="Connections" language="VBScript" src="D:\include\ConnectionStrings.vbs"/>

Task/Include-a-file/VBScript/include-a-file-3.vb

@@ -1,7 +0,0 @@
-Include "%INCLUDE%\StrFuncs.vbs"
-
-Function Include ( ByVal file )
-    Dim wso: Set wso = CreateObject("Wscript.Shell")
-    Dim fso: Set fso = CreateObject("Scripting.FileSystemObject")
-    ExecuteGlobal(fso.OpenTextFile(wso.ExpandEnvironmentStrings(file)).ReadAll)
-End Function