aboutsummaryrefslogtreecommitdiff
path: root/src/expressions
diff options
context:
space:
mode:
Diffstat (limited to 'src/expressions')
-rwxr-xr-xsrc/expressions/collect_sources.ml17
-rwxr-xr-xsrc/expressions/eval_ref.ml17
-rwxr-xr-xsrc/expressions/evaluate.ml17
-rwxr-xr-xsrc/expressions/show_expr.ml17
-rwxr-xr-xsrc/expressions/show_type.ml17
-rwxr-xr-xsrc/expressions/sym_expr.ml17
-rwxr-xr-xsrc/expressions/sym_ref.ml17
-rwxr-xr-xsrc/expressions/sym_type.ml17
8 files changed, 136 insertions, 0 deletions
diff --git a/src/expressions/collect_sources.ml b/src/expressions/collect_sources.ml
index d898b86..32b40be 100755
--- a/src/expressions/collect_sources.ml
+++ b/src/expressions/collect_sources.ml
@@ -1,3 +1,20 @@
+(*
+This file is part of licht.
+
+licht 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.
+
+licht 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 licht. If not, see <http://www.gnu.org/licenses/>.
+*)
+
module T = struct
type 'a t = unit
diff --git a/src/expressions/eval_ref.ml b/src/expressions/eval_ref.ml
index d367d2d..8463f6c 100755
--- a/src/expressions/eval_ref.ml
+++ b/src/expressions/eval_ref.ml
@@ -1,3 +1,20 @@
+(*
+This file is part of licht.
+
+licht 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.
+
+licht 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 licht. If not, see <http://www.gnu.org/licenses/>.
+*)
+
type 'a range =
| Single of 'a
| Array1 of 'a list
diff --git a/src/expressions/evaluate.ml b/src/expressions/evaluate.ml
index e910c19..ff44097 100755
--- a/src/expressions/evaluate.ml
+++ b/src/expressions/evaluate.ml
@@ -1,3 +1,20 @@
+(*
+This file is part of licht.
+
+licht 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.
+
+licht 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 licht. If not, see <http://www.gnu.org/licenses/>.
+*)
+
(** Internal representation for each type *)
type 'a value =
| Bool: DataType.Bool.t -> DataType.Bool.t value
diff --git a/src/expressions/show_expr.ml b/src/expressions/show_expr.ml
index 3a54929..c283162 100755
--- a/src/expressions/show_expr.ml
+++ b/src/expressions/show_expr.ml
@@ -1,3 +1,20 @@
+(*
+This file is part of licht.
+
+licht 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.
+
+licht 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 licht. If not, see <http://www.gnu.org/licenses/>.
+*)
+
let u = UTF8.from_utf8string
module Show_Expr
diff --git a/src/expressions/show_type.ml b/src/expressions/show_type.ml
index c459dca..3451cde 100755
--- a/src/expressions/show_type.ml
+++ b/src/expressions/show_type.ml
@@ -1,3 +1,20 @@
+(*
+This file is part of licht.
+
+licht 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.
+
+licht 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 licht. If not, see <http://www.gnu.org/licenses/>.
+*)
+
type 'a t = UTF8.Buffer.buffer -> unit
type 'a obs = UTF8.Buffer.buffer -> unit
diff --git a/src/expressions/sym_expr.ml b/src/expressions/sym_expr.ml
index 5ff828e..4f5d6a6 100755
--- a/src/expressions/sym_expr.ml
+++ b/src/expressions/sym_expr.ml
@@ -1,3 +1,20 @@
+(*
+This file is part of licht.
+
+licht 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.
+
+licht 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 licht. If not, see <http://www.gnu.org/licenses/>.
+*)
+
module type SYM_EXPR = sig
module T:Sym_type.SYM_TYPE
diff --git a/src/expressions/sym_ref.ml b/src/expressions/sym_ref.ml
index aba8053..ef9168e 100755
--- a/src/expressions/sym_ref.ml
+++ b/src/expressions/sym_ref.ml
@@ -1,3 +1,20 @@
+(*
+This file is part of licht.
+
+licht 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.
+
+licht 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 licht. If not, see <http://www.gnu.org/licenses/>.
+*)
+
module type SYM_REF = sig
type 'a t
diff --git a/src/expressions/sym_type.ml b/src/expressions/sym_type.ml
index 31c9534..8670f4d 100755
--- a/src/expressions/sym_type.ml
+++ b/src/expressions/sym_type.ml
@@ -1,3 +1,20 @@
+(*
+This file is part of licht.
+
+licht 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.
+
+licht 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 licht. If not, see <http://www.gnu.org/licenses/>.
+*)
+
module type SYM_TYPE = sig
type 'a t