Data update
This commit is contained in:
parent
5150844a7d
commit
4bb20c9b71
7735 changed files with 38060 additions and 199180 deletions
|
|
@ -1,9 +0,0 @@
|
|||
with Ada.Text_IO; use Ada.Text_IO;
|
||||
|
||||
procedure String_Concatenation is
|
||||
S1 : constant String := "Hello";
|
||||
S2 : constant String := S1 & " literal";
|
||||
begin
|
||||
Put_Line (S1);
|
||||
Put_Line (S2);
|
||||
end String_Concatenation;
|
||||
|
|
@ -1,15 +0,0 @@
|
|||
IDENTIFICATION DIVISION.
|
||||
PROGRAM-ID. Concat.
|
||||
|
||||
DATA DIVISION.
|
||||
WORKING-STORAGE SECTION.
|
||||
01 Str PIC X(7) VALUE "Hello, ".
|
||||
01 Str2 PIC X(15).
|
||||
|
||||
PROCEDURE DIVISION.
|
||||
DISPLAY "Str : " Str
|
||||
STRING Str " World!" DELIMITED BY SIZE INTO Str2
|
||||
DISPLAY "Str2 : " Str2
|
||||
|
||||
GOBACK
|
||||
.
|
||||
|
|
@ -1,8 +0,0 @@
|
|||
...
|
||||
PROCEDURE DIVISION.
|
||||
DISPLAY "Str : " Str
|
||||
MOVE FUNCTION CONCATENATE(Str, " World!") TO Str2
|
||||
DISPLAY "Str2 : " Str2
|
||||
|
||||
GOBACK
|
||||
.
|
||||
|
|
@ -1,11 +0,0 @@
|
|||
* *> Using a '&'.
|
||||
01 Long-Str-Val PIC X(200) VALUE "Lorem ipsum dolor sit "
|
||||
& "amet, consectetuer adipiscing elit, sed diam nonummy "
|
||||
& "nibh euismod tincidunt ut laoreet dolore magna aliquam "
|
||||
& "erat volutpat.".
|
||||
|
||||
* *> Using a '-' in column 7. Note the first two literals have no
|
||||
* *> closing quotes.
|
||||
01 Another-Long-Str PIC X(200) VALUE " Ut wisi enim ad minim
|
||||
- "veniam, quis nostrud exerci tation ullamcorper suscipit
|
||||
- "lobortis nisl ut aliquip ex ea commodo consequat".
|
||||
|
|
@ -1,9 +1,9 @@
|
|||
public program()
|
||||
public Program()
|
||||
{
|
||||
var s := "Hello";
|
||||
var s2 := s + " literal";
|
||||
|
||||
console.writeLine(s);
|
||||
console.writeLine(s2);
|
||||
console.readChar()
|
||||
Console.writeLine(s);
|
||||
Console.writeLine(s2);
|
||||
Console.readChar()
|
||||
}
|
||||
|
|
|
|||
|
|
@ -1,4 +0,0 @@
|
|||
(defvar foo "foo")
|
||||
(defvar foobar (concat foo "bar"))
|
||||
(message "%sbar" foo)
|
||||
(message "%s" foobar)
|
||||
|
|
@ -1,7 +0,0 @@
|
|||
sequence s, s1
|
||||
s = "hello"
|
||||
puts(1, s & " literal")
|
||||
puts(1,'\n')
|
||||
s1 = s & " literal"
|
||||
print (1, s1))
|
||||
puts(1,'\n')
|
||||
|
|
@ -1,8 +0,0 @@
|
|||
$s = "Hello"
|
||||
Write-Host $s World.
|
||||
|
||||
# alternative, using variable expansion in strings
|
||||
Write-Host "$s World."
|
||||
|
||||
$s2 = $s + " World."
|
||||
Write-Host $s2
|
||||
|
|
@ -1,3 +0,0 @@
|
|||
s: "hello"
|
||||
print s1: rejoin [s " literal"]
|
||||
print s1
|
||||
|
|
@ -1,5 +0,0 @@
|
|||
let s1 = "hello"
|
||||
let s2 = s1 ++ " literal"
|
||||
|
||||
Js.log(s1)
|
||||
Js.log(s2)
|
||||
|
|
@ -1,3 +0,0 @@
|
|||
s1="Hello"
|
||||
s2=s1 & " World!"
|
||||
WScript.Echo s2
|
||||
Loading…
Add table
Add a link
Reference in a new issue