compact-copyright/derived/CopyrightBundle.m3


MODULE CopyrightBundle;
Generated by m3bundle; see its manpage.

IMPORT Bundle, BundleRep, Text;
IMPORT Thread, Wr, TextWr;

TYPE T = Bundle.T OBJECT OVERRIDES
           get      := LookUp;
           getNames := GetNames;
         END;

TYPE Texts = REF ARRAY OF TEXT;

VAR
  bundle: T     := NIL;
  names : Texts := NIL;

PROCEDURE Get(): Bundle.T =
  BEGIN
    IF (bundle = NIL) THEN bundle := NEW (T) END;
    RETURN bundle;
  END Get;

PROCEDURE GetNames (<*UNUSED*> self: T): Texts =
  BEGIN
    IF names = NIL THEN
      names := NEW (Texts, NUMBER (Names));
      names^ := Names;
    END;
    RETURN names;
  END GetNames;

PROCEDURE LookUp (<*UNUSED*> self: T;  element: TEXT): TEXT =
  BEGIN
    FOR i := 0 TO LAST (Names)-1 DO
      IF Text.Equal (Names[i], element) THEN
        IF Elements[i] = NIL THEN Elements[i] := GetElt (i) END;
        RETURN Elements[i];
      END;
    END;
    RETURN NIL;
  END LookUp;

CONST Names = ARRAY [0..1] OF TEXT {
  "compact-copyrights.txt",
  NIL
};

VAR Elements := ARRAY [0..1] OF TEXT {
  NIL (* E0 .. E0_2 *),
  NIL
};

PROCEDURE GetElt (n: INTEGER): TEXT =
  <*FATAL Thread.Alerted, Wr.Failure *>
  VAR wr := TextWr.New ();
  BEGIN
    CASE n OF
    | 0 =>
        Wr.PutText (wr, E0);
        Wr.PutText (wr, E0_0);
        Wr.PutText (wr, E0_1);
        Wr.PutText (wr, E0_2);
    ELSE (*skip*)
    END;
    RETURN TextWr.ToText (wr);
  END GetElt;

CONST E0 =
   "\nElego ComPact Copyrights Documents\n\nComPact Development Team\n\n   "
 & "Copyright \251 1998, 1999, 2000 by Elego Wich GmbH, Berlin, Germany,\n "
 & "  since 10/2000 elego Software Solutions GmbH, Berlin, Germany\n   Copy"
 & "right \251 2001, 2002, 2003 elego Software Solutions GmbH, Berlin, Germ"
 & "any\n   \n   The software Elego ComPact and all accompanying manuals ar"
 & "e furnished\n   under license and may only be used or copied in accorda"
 & "nce with the\n   terms of such license. Basically, ComPact consists of "
 & "some programs\n   and manuals that are free for private and non-commerc"
 & "ial use, and some\n   that need to be purchased. The general license do"
 & "cuments can be found\n   below.\n\n   This is the FREE version of Elego"
 & " ComPact.\n   \n   For more information regarding the details of that l"
 & "icense, Elego ComPact\n   itself, and other Elego products and services"
 & ", contact us at:\n   \n         elego Software Solutions GmbH\n        "
 & " email: info@elego.de\n         www: https://www.elego.de\n         or: "
 & "https://www.elegosoft.com\n         Gustav-Meyer-Allee 25 / Building 12\n"
 & "         13355 Berlin\n         Germany\n         phone: +49 30 23 45 8"
 & "6 96\n         fax: +49 30 23 45 86 95\n   \n   This product includes s"
 & "oftware developed by John D. Polstra.\n   \n   This product includes so"
 & "ftware developed by the University of\n   California, Berkeley and its "
 & "contributors.\n   \n   This product includes software developed by the "
 & "System Research Center\n   of Digital Equipment Corporation, now owned "
 & "by Compaq.\n     ______________________________________________________"
 & "___________\n   \n   Elego ComPact Free License Agreement\n\n 1. Grant "
 & "Of License.  elego Software Solutions GmbH,\n    Gustav-Meyer-Allee 25 "
 & "/ Building 12, 13355 Berlin, Germany\n    (\"ELEGO\"), grants to you (\""
 & "LICENSEE\") the non-exclusive,\n    non-transferable, royalty free righ"
 & "t to use, modify, reproduce and\n    distribute Elego ComPact Light (\""
 & "SOFTWARE\") subject to the\n    terms set forth herein.  Any distributi"
 & "on of SOFTWARE shall\n    include this Elego ComPact Free License Agre";

CONST E0_0 =
   "ement in human readable\n    form.\n\n 2. Title to Intellectual Propert"
 & "y and Software.  Subject to the\n    limited rights and licenses grante"
 & "d under this License Agreement,\n    all rights, title and interests in"
 & "cluding patent, copyright, and\n    trademark rights in SOFTWARE are an"
 & "d shall remain vested in\n    ELEGO to the exclusion of LICENSEE.  ELEG"
 & "O\n    represents and warrants that ELEGO has the legal right to\n    g"
 & "rant such licenses as are expressly granted under this Agreement.\n\n 3"
 & ". Copyright.  The SOFTWARE is owned by ELEGO or its\n    suppliers and "
 & "is protected by United States copyright laws and\n    international tre"
 & "aty provisions.  Therefore, you must treat the\n    SOFTWARE like any o"
 & "ther copyrighted material (e.g., a book or\n    musical recording) exce"
 & "pt that you may use the SOFTWARE as\n    provided in this Elego ComPact"
 & " Free License Agreement.\n\n 4. Improvements.  LICENSEE hereby grants t"
 & "o ELEGO a\n    non-exclusive, non-transferable, royalty free right to u"
 & "se,\n    modify, reproduce and distribute with the right to sublicense "
 & "at\n    any tier, any improvements, enhancements, extensions, or\n    m"
 & "odifications that LICENSEE make to SOFTWARE, provided such are\n    ret"
 & "urned to ELEGO by LICENSEE.\n\n 5. DISCLAIMER OF WARRANTY.  Because the"
 & " SOFTWARE is a research work\n    and not a released product, it is pro"
 & "vided \"AS IS\" WITHOUT\n    WARRANTY OF ANY KIND AND WITHOUT ANY SUPPO"
 & "RT SERVICES.  EXCEPT AS\n    SPECIFICALLY PROVIDED ABOVE IN SECTION 2, "
 & "ELEGO FURTHER\n    DISCLAIMS ALL OTHER EXPRESS OR IMPLIED WARRANTIES OF"
 & "\n    MERCHANTABILITY OR OF FITNESS FOR A PARTICULAR PURPOSE.  THE\n   "
 & " ENTIRE RISK ARISING OUT OF THE USE OR PERFORMANCE OF THE SOFTWARE\n   "
 & " REMAINS WITH YOU.\n\n 6. Limitation of Liability.  IN NO EVENT SHALL E"
 & "LEGO OR ITS\n    SUPPLIERS BE LIABLE IN AN AMOUNT THAT EXCEEDS THE LICE"
 & "NSE FEE PAID\n    BY LICENSEE FOR ANY DAMAGES (INCLUDING, WITH LIMITATI"
 & "ON, DAMAGES\n    FOR LOSS OF BUSINESS PROFITS, BUSINESS INTERRUPTION, L"
 & "OSS OF\n    BUSINESS INFORMATION, OR OTHER PECUNIARY";

CONST E0_1 =
   " LOSS), REGARDLESS OF THE\n    FORM OF CLAIM OR ACTIONS, ARISING OUT OF"
 & " THE USE OF OR INABILITY\n    TO USE THE SOFTWARE OR DOCUMENTATION, EVE"
 & "N IF ELEGO HAS\n    BEEN ADVISED OF THE POSSIBILITY OF SUCH DAMAGES.  B"
 & "ECAUSE SOME\n    STATES DO NOT ALLOW THE EXCLUSION OR LIMITATION OF LIA"
 & "BILITY FOR\n    CONSEQUENTIAL OR INCIDENTAL DAMAGES, THE ABOVE LIMITATI"
 & "ON MAY NOT\n    APPLY TO YOU.\n\n 7. Acknowledgement of Allocation of R"
 & "isk.  LICENSEE acknowledges and\n    agrees that the fees charged by EL"
 & "EGO in this Agreement\n    reflect the allocation of risks provided by "
 & "the foregoing\n    limitation of liability.  LICENSEE acknowledges and "
 & "represents\n    that it has read and understands these allocations of r"
 & "isk\n    limiting the liability of ELEGO and that it understands\n    t"
 & "hat a modification of the allocation of risks set forth in this\n    ag"
 & "reement would affect the fees charged by ELEGO, and that\n    LICENSEE,"
 & " in consideration of such fees, agrees to such\n    allocations of risk"
 & ".\n\n 8. LICENSEE INDEMNIFICATION.  LICENSEE SHALL INDEMNIFY ELEGO\n   "
 & " AGAINST ALL COSTS AND DAMAGE JUDGEMENTS, INCLUDING ATTORNEY\'S FEES\n "
 & "   AND COSTS OF DEFENSE, INCURRED BECAUSE OF CLAIMS OF DAMAGE ARISING\n"
 & "    FROM LICENSEE\'S POSSESSION OR USE OR INABILITY TO USE SOFTWARE.\n\n"
 & " 9. GOVERNMENT RESTRICTED RIGHTS.  The SOFTWARE and documentation are\n"
 & "    provided with RESTRICTED RIGHTS.  Use duplication, or disclosure\n "
 & "   by the Government is subject restrictions as set forth in\n    subpa"
 & "ragraph (c)(1)(ii) of The Rights in Technical Data and\n    Computer So"
 & "ftware clause in DFARS 252.227-7013, or subparagraphs\n    (c)(i) and ("
 & "2) of the Commercial Computer Software -- Restricted\n    Rights at 48 "
 & "CFR 52.227-19, as applicable.  Manufacturer is\n    elego Software Solu"
 & "tions GmbH, Gustav-Meyer-Allee 25 / Building\n    12, 13355 Berlin, Ger"
 & "many.\n\n10. Severability.  If any provision of the Agreement is held i"
 & "llegal\n    or unenforceable by any court of competent jurisdiction, su"
 & "ch\n    provision shall be deemed separable from ";

CONST E0_2 =
   "the remaining provisions\n    of this Agreement and shall not affect or"
 & " impair the validity or\n    enforceability of the remaining provisions"
 & " of this Agreement.\n\n11. Governing Law.  This Agreement is governed b"
 & "y the laws of the\n    Federal Republic of Germany.\n\n12. Publicity.  "
 & "You my not use the name of ELEGO in any\n    advertisement, press relea"
 & "se or other publicity with reference to\n    Elego Compact without prio"
 & "r written consent of ELEGO.\n\n";

BEGIN
END CopyrightBundle.