Mercurial > lcfOS
changeset 38:a1c9c2158e99
Directory cleanup
| author | windel |
|---|---|
| date | Fri, 03 Feb 2012 18:38:44 +0100 |
| parents | 5c20bd53cccd |
| children | 600f48b74799 |
| files | cos/hello/liblcfos.c cos/hello/liblcfos.h data/lcfos.png ide/data/lcfos.png ide/testproject/main.mod ide/testproject/test.lcp ide/testproject/test.mod testproject/main.mod testproject/test.lcp testproject/test.mod |
| diffstat | 10 files changed, 90 insertions(+), 57 deletions(-) [+] |
line wrap: on
line diff
--- /dev/null Thu Jan 01 00:00:00 1970 +0000 +++ b/cos/hello/liblcfos.c Fri Feb 03 18:38:44 2012 +0100 @@ -0,0 +1,23 @@ + +/* Defines all system calls */ + +#include "liblcfos.h" + +/* Exit program system call */ +void exit() +{ + //syscall(EXIT); +} + +/* Print string to screen */ +void print_string(char *str) +{ + // TODO: + // syscall(WRITESTR, str); + if (str[0] == 0) + { + return; + } +} + +
--- /dev/null Thu Jan 01 00:00:00 1970 +0000 +++ b/cos/hello/liblcfos.h Fri Feb 03 18:38:44 2012 +0100 @@ -0,0 +1,10 @@ +#ifndef LIBLCFOS_H +#define LIBLCFOS_H + +/* Exit program system call */ +void exit(); + +/* Print string to screen */ +void print_string(char *str); + +#endif
--- /dev/null Thu Jan 01 00:00:00 1970 +0000 +++ b/ide/testproject/main.mod Fri Feb 03 18:38:44 2012 +0100 @@ -0,0 +1,25 @@ +module main; +var + a,b,c : integer; + +procedure test(x:integer); + var y,z:integer; +begin + y := x * 3 + 2; + z := x + y + a; +end test; + +procedure add(a:integer; b:integer):integer; + var + tmp : integer; + begin + tmp := a + b; + return tmp + end add; + +begin + a := 12; + b := a * 12 + 33; + c := a div b + a * b * 99; +end main. +
--- /dev/null Thu Jan 01 00:00:00 1970 +0000 +++ b/ide/testproject/test.lcp Fri Feb 03 18:38:44 2012 +0100 @@ -0,0 +1,7 @@ +<?xml version="1.0" ?> +<Project name="Test project"> + <Files> + <File Filename="main.mod"/> + <File Filename="test.mod"/> + </Files> +</Project>
--- /dev/null Thu Jan 01 00:00:00 1970 +0000 +++ b/ide/testproject/test.mod Fri Feb 03 18:38:44 2012 +0100 @@ -0,0 +1,25 @@ +module test; +var + a,b,c : integer; + +procedure test(x:integer); + var y,z:integer; +begin + y := x * 3 + 2; + z := x + y + a; +end test; + +procedure add(a:integer; b:integer):integer; + var + tmp : integer; + begin + tmp := a + b; + return tmp + end add; + +begin + a := 12; + b := a * 12 + 33; + c := a div b + a * b * 99; +end test. +
--- a/testproject/main.mod Mon Jan 16 21:38:55 2012 +0100 +++ /dev/null Thu Jan 01 00:00:00 1970 +0000 @@ -1,25 +0,0 @@ -module main; -var - a,b,c : integer; - -procedure test(x:integer); - var y,z:integer; -begin - y := x * 3 + 2; - z := x + y + a; -end test; - -procedure add(a:integer; b:integer):integer; - var - tmp : integer; - begin - tmp := a + b; - return tmp - end add; - -begin - a := 12; - b := a * 12 + 33; - c := a div b + a * b * 99; -end main. -
--- a/testproject/test.lcp Mon Jan 16 21:38:55 2012 +0100 +++ /dev/null Thu Jan 01 00:00:00 1970 +0000 @@ -1,7 +0,0 @@ -<?xml version="1.0" ?> -<Project name="Test project"> - <Files> - <File Filename="main.mod"/> - <File Filename="test.mod"/> - </Files> -</Project>
--- a/testproject/test.mod Mon Jan 16 21:38:55 2012 +0100 +++ /dev/null Thu Jan 01 00:00:00 1970 +0000 @@ -1,25 +0,0 @@ -module test; -var - a,b,c : integer; - -procedure test(x:integer); - var y,z:integer; -begin - y := x * 3 + 2; - z := x + y + a; -end test; - -procedure add(a:integer; b:integer):integer; - var - tmp : integer; - begin - tmp := a + b; - return tmp - end add; - -begin - a := 12; - b := a * 12 + 33; - c := a div b + a * b * 99; -end test. -