Another update from ingydotnet^djgoku

This commit is contained in:
Ingy döt Net 2015-11-18 06:14:39 +00:00
parent 91df62d461
commit 948b86eafa
7604 changed files with 108452 additions and 22726 deletions

View file

@ -0,0 +1 @@
COPY member

View file

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

View file

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

View file

@ -0,0 +1,5 @@
:- object(foo).
:- include(bar).
:- end_object.

View file

@ -0,0 +1,2 @@
IMPORT IO, Text AS Str;
FROM Str IMPORT T

View file

@ -0,0 +1,14 @@
/* Include a file and INTERPRET it; this code uses ARexx file IO BIFs */
say 'This is a program running.'
if Open(other,'SYS:Rexxc/otherprogram.rexx','READ') then do
say "Now we opened a file with another chunk of code. Let's read it into a variable."
othercode=''
do until EOF(other)
othercode=othercode || ReadLn(other) || ';'
end
call Close(other)
say 'Now we run it as part of our program.'
interpret othercode
end
say 'The usual program resumes here.'
exit 0

View file

@ -0,0 +1,5 @@
/* This is program 1 */
say 'This is program 1 writing on standard output.'
call Program2
say 'Thank you, program 1 is now ending.'
exit 0

View file

@ -0,0 +1,4 @@
/* This is program 2 */
say 'This is program 2 writing on standard output.'
say 'We now return to the caller.'
return

View file

@ -0,0 +1 @@
$INCLUDE "RAPIDQ.INC"

View file

@ -0,0 +1,5 @@
mod test
fn main() {
test::some_function();
}