[SCM] Lisaac compiler branch, lib_os_64, updated. lisaac-0.12-614-g360dbee
cyrano (none)
cyrano at localhost.
Wed Dec 23 01:25:08 UTC 2009
The following commit has been merged in the lib_os_64 branch:
commit 04d7662ba0697e068686754109961342855e1fde
Author: cyrano <cyrano at localhost.(none)>
Date: Tue Dec 22 14:44:36 2009 +0100
cleaning
diff --git a/lib/internal/os_support/unix/system/clock.li b/lib/internal/os_support/unix/system/clock.li
deleted file mode 100644
index da3cb05..0000000
--- a/lib/internal/os_support/unix/system/clock.li
+++ /dev/null
@@ -1,81 +0,0 @@
-///////////////////////////////////////////////////////////////////////////////
-// Lisaac OS Library //
-// //
-// LSIIT - ULP - CNRS - INRIA - FRANCE //
-// //
-// This program is free software: you can redistribute it and/or modify //
-// it under the terms of the GNU General Public License as published by //
-// the Free Software Foundation, either version 3 of the License, or //
-// (at your option) any later version. //
-// //
-// This program is distributed in the hope that it will be useful, //
-// but WITHOUT ANY WARRANTY; without even the implied warranty of //
-// MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the //
-// GNU General Public License for more details. //
-// //
-// You should have received a copy of the GNU General Public License //
-// along with this program. If not, see <http://www.gnu.org/licenses/>. //
-// //
-// http://isaacproject.u-strasbg.fr/ //
-///////////////////////////////////////////////////////////////////////////////
-Section Header
-
- + name := CLOCK;
-
- - copyright := "2003-2005 Jérome Boutet, 2003-2007 Benoit Sonntag";
-
- - bibliography:="http://IsaacOS.com";
-
- - author := "Benoit Sonntag (bsonntag at loria.fr)";
-
- - comment :="X11 - Clock management.";
-
- - date :="2003/04";
-
- - external := `#include <time.h>`;
-
-Section Inherit
-
- - parent_input:INPUT := INPUT;
-
-Section Public
-
- - date:DATE <-
- ( + wd,d,mo:UINTEGER_8;
- + y:UINTEGER_16;
-
- `{
- struct tm *t; time_t tt;
- tt = time(NULL);
- t = localtime(&tt)`;
- wd := `t->tm_wday`:UINTEGER_8 + 1;
- d := `t->tm_mday`:UINTEGER_8;
- mo := `t->tm_mon` :UINTEGER_8 + 1;
- y := `t->tm_year`:UINTEGER_16 + 1900;
- `}`;
- DATE.create (y,mo,d,wd)
- );
-
- - time:TIME <-
- ( + s,m,h:UINTEGER_8;
-
- `{
- struct tm *t; time_t tt;
- tt = time(NULL);
- t = localtime(&tt)`;
- h := `t->tm_hour`:UINTEGER_8;
- m := `t->tm_min` :UINTEGER_8;
- s := `t->tm_sec` :UINTEGER_8;
- `}`;
- TIME.create (h,m,s,0)
- );
-
- - make <-
- (
- // Nothing.
- );
-
-
-
-
-
diff --git a/lib/internal/os_support/unix/system/float_processor.li b/lib/internal/os_support/unix/system/float_processor.li
deleted file mode 100644
index 1a5a13f..0000000
--- a/lib/internal/os_support/unix/system/float_processor.li
+++ /dev/null
@@ -1,68 +0,0 @@
-///////////////////////////////////////////////////////////////////////////////
-// Lisaac Library //
-// //
-// LSIIT - ULP - CNRS - INRIA - FRANCE //
-// //
-// This program is free software: you can redistribute it and/or modify //
-// it under the terms of the GNU General Public License as published by //
-// the Free Software Foundation, either version 3 of the License, or //
-// (at your option) any later version. //
-// //
-// This program is distributed in the hope that it will be useful, //
-// but WITHOUT ANY WARRANTY; without even the implied warranty of //
-// MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the //
-// GNU General Public License for more details. //
-// //
-// You should have received a copy of the GNU General Public License //
-// along with this program. If not, see <http://www.gnu.org/licenses/>. //
-// //
-// http://isaacproject.u-strasbg.fr/ //
-///////////////////////////////////////////////////////////////////////////////
-Section Header
-
- + name := FLOAT_PROCESSOR;
-
- - copyright := "2003-2008 Sonntag Benoit";
-
- - author := "Sonntag Benoit (sonntag at icps.u-strasbg.fr)";
- - comment := "The main prototype";
-
-Section Inherit
-
- - parent_object:OBJECT := OBJECT;
-
-Section Public
-
- - init; // Compatibility IsaacOS.
-
- - atan n:REAL :REAL <- `atanf(@n)`:REAL;
- - atan_32 n:REAL_32 :REAL_32 <- `atanf(@n)`:REAL_32;
- - atan_64 n:REAL_64 :REAL_64 <- `atan(@n)`:REAL_64;
- - atan_80 n:REAL_80 :REAL_80 <- `atanl(@n)`:REAL_80;
-
- - sqrt n:REAL :REAL <- `sqrtf(@n)`:REAL;
- - sqrt_32 n:REAL_32 :REAL_32 <- `sqrtf(@n)`:REAL_32;
- - sqrt_64 n:REAL_64 :REAL_64 <- `sqrt(@n)`:REAL_64;
- - sqrt_80 n:REAL_80 :REAL_80 <- `sqrtl(@n)`:REAL_80;
-
- - log n:REAL :REAL <- `logf(@n)`:REAL;
- - log_32 n:REAL_32 :REAL_32 <- `logf(@n)`:REAL_32;
- - log_64 n:REAL_64 :REAL_64 <- `log(@n)`:REAL_64;
- - log_80 n:REAL_80 :REAL_80 <- `logl(@n)`:REAL_80;
-
- - sin n:REAL :REAL <- `sinf(@n)`:REAL;
- - sin_32 n:REAL_32 :REAL_32 <- `sinf(@n)`:REAL_32;
- - sin_64 n:REAL_64 :REAL_64 <- `sin(@n)`:REAL_64;
- - sin_80 n:REAL_80 :REAL_80 <- `sinl(@n)`:REAL_80;
-
- - cos n:REAL :REAL <- `cosf(@n)`:REAL;
- - cos_32 n:REAL_32 :REAL_32 <- `cosf(@n)`:REAL_32;
- - cos_64 n:REAL_64 :REAL_64 <- `cos(@n)`:REAL_64;
- - cos_80 n:REAL_80 :REAL_80 <- `cosl(@n)`:REAL_80;
-
- - pow (n,exp:REAL) :REAL <- `powf(@n, at exp)`:REAL;
- - pow_32 (n,exp:REAL_32) :REAL_32 <- `powf(@n, at exp)`:REAL_32;
- - pow_64 (n,exp:REAL_64) :REAL_64 <- `pow(@n, at exp)`:REAL_64;
- - pow_80 (n,exp:REAL_80) :REAL_80 <- `powl(@n, at exp)`:REAL_80;
-
-
\ No newline at end of file
diff --git a/lib/internal/os_support/unix/system/system_io.li b/lib/internal/os_support/unix/system/system_io.li
deleted file mode 100644
index 153aa23..0000000
--- a/lib/internal/os_support/unix/system/system_io.li
+++ /dev/null
@@ -1,68 +0,0 @@
-///////////////////////////////////////////////////////////////////////////////
-// Lisaac OS Library //
-// //
-// LSIIT - ULP - CNRS - INRIA - FRANCE //
-// //
-// This program is free software: you can redistribute it and/or modify //
-// it under the terms of the GNU General Public License as published by //
-// the Free Software Foundation, either version 3 of the License, or //
-// (at your option) any later version. //
-// //
-// This program is distributed in the hope that it will be useful, //
-// but WITHOUT ANY WARRANTY; without even the implied warranty of //
-// MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the //
-// GNU General Public License for more details. //
-// //
-// You should have received a copy of the GNU General Public License //
-// along with this program. If not, see <http://www.gnu.org/licenses/>. //
-// //
-// http://isaacproject.u-strasbg.fr/ //
-///////////////////////////////////////////////////////////////////////////////
-Section Header
-
- + name := SYSTEM_IO;
-
- - copyright := "2003-2005 Jérome Boutet, 2003-2007 Benoit Sonntag";
-
- - comment := "Lower level for Input / Output";
-
- - external := `
-#include <stdio.h>
-#include <stdlib.h>
-
-/* Hardware 'print_char' */
-void print_char(char car)
-{
- fputc(car,stdout);
-}
-
-/* Hardware 'exit' */
-int die_with_code(int code)
-{
- exit(code);
-}
-
-`;
-
-Section Inherit
-
- - parent_object:OBJECT := OBJECT;
-
-Section Public
-
- - print_char byte:CHARACTER <-
- // Low level buffered output.
- (
- `fputc((int)@byte,stdout)`;
- );
-
- - print_error_char byte:CHARACTER <-
- // Low level buffered error output.
- (
- `fputc((int)@byte,stderr)`;
- );
-
- - get_char :CHARACTER <- `fgetc(stdin)`:(CHARACTER);
-
- - eof:CHARACTER <- `EOF`:CHARACTER;
-
\ No newline at end of file
--
Lisaac compiler
More information about the Lisaac-commits
mailing list