From 83a790fd621bcdc4a8ecac5db3147b32b11fe61e Mon Sep 17 00:00:00 2001 From: Benjamin Barenblat Date: Thu, 2 May 2013 22:02:24 -0400 Subject: Forum: Code style and licensing update --- forum/score.ur | 38 ++++++++++++++++++++++++++++++++++---- 1 file changed, 34 insertions(+), 4 deletions(-) (limited to 'forum/score.ur') diff --git a/forum/score.ur b/forum/score.ur index a966a4d..217c308 100644 --- a/forum/score.ur +++ b/forum/score.ur @@ -1,6 +1,29 @@ +(* Forum.Score -- Upvotes and downvotes +Copyright (C) 2013 Benjamin Barenblat + +This file is a part of 6.947. + +6.947 is is free software: you can redistribute it and/or modify it under the +terms of the GNU Affero General Public License as published by the Free +Software Foundation, either version 3 of the License, or (at your option) any +later version. + +6.947 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 Affero General Public License for more +details. + +You should have received a copy of the GNU Affero General Public License along +with 6.947. If not, see . *) + type score = int -val update = plus +val insightful = 1 +val undecided = 0 +val inane = -1 + + +(********************************* Instances *********************************) val eq_score = eq_int @@ -10,12 +33,19 @@ val sql_score = sql_prim val sql_summable_score = sql_summable_int val nullify_score = @@nullify_prim [int] sql_int -val insightful = 1 -val undecided = 0 -val inane = -1 + +(********************************* Updating **********************************) + +val update = plus + + +(******************************** Conversion *********************************) fun toInt s = s + +(****************************** Pretty-printing ******************************) + fun withUnits s base = show s ^ " " ^ (case s of 1 => base -- cgit v1.2.3