diff options
Diffstat (limited to '')
| -rw-r--r-- | licentia/source/program/licentia/license/grant.lux | 18 |
1 files changed, 9 insertions, 9 deletions
diff --git a/licentia/source/program/licentia/license/grant.lux b/licentia/source/program/licentia/license/grant.lux index 92995f0b4..bae1478c7 100644 --- a/licentia/source/program/licentia/license/grant.lux +++ b/licentia/source/program/licentia/license/grant.lux @@ -16,7 +16,7 @@ ", each " _.contributor " hereby grants to " _.recipient)) -(def: #export grant_characteristics +(def: .public grant_characteristics (List Text) (list "perpetual" "world-wide" @@ -25,7 +25,7 @@ "royalty-free" "irrevocable")) -(def: #export copyright_grant_rights +(def: .public copyright_grant_rights (List Text) (list "use" "reproduce" @@ -36,7 +36,7 @@ "sublicense" "distribute")) -(def: #export copyright +(def: .public copyright ($.sentence (format grant_header " a " ($.and ..grant_characteristics) " copyright license to " ($.or ..copyright_grant_rights) " " _.licensed_work @@ -44,7 +44,7 @@ " in a " _.source_code_form " or an " _.object_form))) -(def: #export (patent retaliation?) +(def: .public (patent retaliation?) (-> Bit Text) (let [grant (format grant_header " a " ($.and ..grant_characteristics) " patent license to " ($.or definition.patent_rights) " " @@ -66,7 +66,7 @@ (list retaliation_clause) (list)))))) -(def: #export date +(def: .public date ($.sentence (format "The licenses granted in " _.license " with respect to any " _.contribution " become effective for each " _.contribution @@ -75,7 +75,7 @@ (def: restoration_scope "an ongoing basis") -(def: #export (grant_restoration_clause termination_period) +(def: .public (grant_restoration_clause termination_period) (-> Days Text) (let [restoration_condition (format _.recipient " becomes compliant") restored_grants (format "the rights granted under " _.license @@ -91,7 +91,7 @@ ", unless and until " invalidation_condition ", and on " ..restoration_scope ", if " complaint_period_condition))) -(def: #export (grace_period_clause grace_period) +(def: .public (grace_period_clause grace_period) (-> Days Text) (let [the_grants (format "grants to " _.recipient " from a particular " _.contributor) automatic_restoration_conditions (let [notification (format "such " _.contributor @@ -110,7 +110,7 @@ " are reinstated on " ..restoration_scope " if " automatic_restoration_conditions))) -(def: #export (termination termination_period grace_period) +(def: .public (termination termination_period grace_period) (-> Days Days Text) (let [on_violation_of_terms (let [what (format "The rights granted under " _.license) when (format _.recipient " fails to comply with any of its terms")] @@ -119,7 +119,7 @@ (..grant_restoration_clause termination_period) (..grace_period_clause grace_period))))) -(def: #export no_retroactive_termination +(def: .public no_retroactive_termination (let [situation "In the event of termination" coverage "all end user license agreements" exclusions "(excluding licenses to distributors and resellers)" |