Removed examples...
This commit is contained in:
parent
6e2d53a69b
commit
ab42f181f7
@ -1,45 +0,0 @@
|
|||||||
-- gnatmake -o example_ada example_ada.adb
|
|
||||||
|
|
||||||
with ada.text_io, ada.command_line;
|
|
||||||
use ada.text_io, ada.command_line;
|
|
||||||
|
|
||||||
procedure example_ada is
|
|
||||||
|
|
||||||
type colours is (RED, GREEN, YELLOW);
|
|
||||||
|
|
||||||
type structure is record
|
|
||||||
x : integer := -1;
|
|
||||||
y : natural := 1;
|
|
||||||
end record;
|
|
||||||
|
|
||||||
escape : constant character := character'val (27);
|
|
||||||
|
|
||||||
procedure put_colour (colour : colours) is
|
|
||||||
code : integer := colours'pos (colour) + 49;
|
|
||||||
begin
|
|
||||||
put (escape & "[0;3" & character'val (code) & "m");
|
|
||||||
end put_colour;
|
|
||||||
|
|
||||||
procedure put_cancel is
|
|
||||||
begin
|
|
||||||
put (escape & "[0m");
|
|
||||||
end put_cancel;
|
|
||||||
|
|
||||||
heyo : structure := (-103, 107);
|
|
||||||
|
|
||||||
begin
|
|
||||||
|
|
||||||
for colour in colours
|
|
||||||
loop
|
|
||||||
put_colour (colour);
|
|
||||||
|
|
||||||
put_line ("x = " & integer'image (heyo.x));
|
|
||||||
put_line ("y = " & natural'image (heyo.y));
|
|
||||||
|
|
||||||
heyo.x := heyo.x - 1;
|
|
||||||
heyo.y := heyo.y + 1;
|
|
||||||
|
|
||||||
put_cancel;
|
|
||||||
end loop;
|
|
||||||
|
|
||||||
end example_ada;
|
|
@ -1,28 +0,0 @@
|
|||||||
/* gcc -o example_c example_c.c */
|
|
||||||
|
|
||||||
#include <stdio.h>
|
|
||||||
|
|
||||||
static struct {
|
|
||||||
char * x;
|
|
||||||
int y;
|
|
||||||
int z;
|
|
||||||
} const data [3] = {
|
|
||||||
{ "-- 1", 2, 3 },
|
|
||||||
{ "-- 4", 5, 6 },
|
|
||||||
{ "-- 7", 8, 9 }
|
|
||||||
};
|
|
||||||
|
|
||||||
int main (void) {
|
|
||||||
int i;
|
|
||||||
|
|
||||||
for (i = 0; i != 3; ++i) {
|
|
||||||
printf ("\033[%c;3%cm%s%i%i\033[0m\n",
|
|
||||||
i + '1',
|
|
||||||
i + '1',
|
|
||||||
data [i]. x,
|
|
||||||
data [i]. y,
|
|
||||||
data [i]. z);
|
|
||||||
}
|
|
||||||
|
|
||||||
return (0);
|
|
||||||
}
|
|
@ -1 +0,0 @@
|
|||||||
// I hate this language so much it's unreal...
|
|
@ -1,49 +0,0 @@
|
|||||||
; fasm example_flat_assembly.fasm example_flat_assembly && chmod +x example_flat_assembly
|
|
||||||
|
|
||||||
format ELF64 executable 3
|
|
||||||
|
|
||||||
entry main
|
|
||||||
|
|
||||||
TERMINAL_INPUT = 0
|
|
||||||
TERMINAL_OUTPUT = 1
|
|
||||||
|
|
||||||
EXIT_SUCCESS = 0
|
|
||||||
EXIT_FAILURE = 1
|
|
||||||
|
|
||||||
macro write file, data, size {
|
|
||||||
mov rax, 1
|
|
||||||
mov rdi, file
|
|
||||||
mov rsi, data
|
|
||||||
mov rdx, size
|
|
||||||
syscall
|
|
||||||
}
|
|
||||||
|
|
||||||
macro exit code {
|
|
||||||
mov rax, 60
|
|
||||||
mov rdi, code
|
|
||||||
syscall
|
|
||||||
}
|
|
||||||
|
|
||||||
segment readable executable
|
|
||||||
|
|
||||||
colour:
|
|
||||||
write TERMINAL_OUTPUT, colour_red, 7
|
|
||||||
ret
|
|
||||||
|
|
||||||
cancel:
|
|
||||||
write TERMINAL_OUTPUT, colour_end, 4
|
|
||||||
ret
|
|
||||||
|
|
||||||
main:
|
|
||||||
call colour
|
|
||||||
write TERMINAL_OUTPUT, string, length
|
|
||||||
call cancel
|
|
||||||
exit EXIT_SUCCESS
|
|
||||||
|
|
||||||
segment readable writable
|
|
||||||
|
|
||||||
colour_red db 27, "[1;31m"
|
|
||||||
colour_end db 27, "[0m"
|
|
||||||
|
|
||||||
string db "Heyo world!", 10, 0
|
|
||||||
length dq $ - string
|
|
@ -1,10 +0,0 @@
|
|||||||
#!/bin/bash
|
|
||||||
|
|
||||||
set -xe
|
|
||||||
|
|
||||||
xighlight -a -i ./example/example_ada.adb
|
|
||||||
xighlight -c -i ./example/example_c.c
|
|
||||||
xighlight -C -i ./example/example_cpp.cpp
|
|
||||||
xighlight -F -i ./example/example_flat_assembly.fasm
|
|
||||||
|
|
||||||
exit
|
|
Loading…
Reference in New Issue
Block a user