home *** CD-ROM | disk | FTP | other *** search
/ MacWorld 1998 March / Macworld (1998-03) (Disk 1).dmg / Shareware World / Utilities / Text Processing / Alpha / Tcl / Packages / elecTemplateExamples.tcl < prev    next >
Encoding:
Text File  |  1997-11-09  |  3.8 KB  |  103 lines  |  [TEXT/ALFA]
  1. ## -*-Tcl-*-
  2.  # ###################################################################
  3.  #  Vince's Additions - an extension package for Alpha
  4.  # 
  5.  #  FILE: "elecTemplateExamples.tcl"
  6.  #                                    created: 29/7/97 {5:09:35 pm} 
  7.  #                                last update: 9/11/97 {5:39:20 pm} 
  8.  #  Author: Vince Darley
  9.  #  E-mail: <darley@fas.harvard.edu>
  10.  #    mail: Division of Engineering and Applied Sciences, Harvard University
  11.  #          Oxford Street, Cambridge MA 02138, USA
  12.  #     www: <http://www.fas.harvard.edu/~darley/>
  13.  #  
  14.  # Copyright (c) 1997  Vince Darley
  15.  # 
  16.  # See the file "license.terms" for information on usage and redistribution
  17.  # of this file, and for a DISCLAIMER OF ALL WARRANTIES.
  18.  # ###################################################################
  19.  ##
  20.  
  21. proc file::year {} {
  22.     return [lindex [lindex [mtime [now] long] 0] 3]
  23. }
  24.  
  25. proc file::author {} {
  26.     global user
  27.     if [info exists user(author)] { 
  28.         return $user(author) 
  29.     } else { 
  30.         return "•author•" 
  31.     }
  32. }
  33.  
  34. proc file::allRightsReserved {} {
  35.     append t "Copyright (c) [file::year] [file::author]\r"
  36.     append t "\r"
  37.     append t "All rights reserved.\r"
  38. }
  39.  
  40. proc file::copyrightNotice {} {
  41.     append t "============================================================"
  42.     append t "============\r"
  43.     append t "              Copyright (c) [file::year] [file::author]\r"
  44.     append t "============================================================"
  45.     append t "============\r"
  46.     append t "Permission to use, copy, modify, and distribute this softwar"
  47.     append t "e and its\r"
  48.     append t "documentation for any purpose and without fee is hereby gran"
  49.     append t "ted,\r"
  50.     append t "provided that the above copyright notice appear in all copie"
  51.     append t "s and that\r"
  52.     append t "both that the copyright notice and warranty disclaimer appea"
  53.     append t "r in\r"
  54.     append t "supporting documentation.\r"
  55.     append t "\r[file::author] disclaims all warranties with regard to this "
  56.     append t "software,\r"
  57.     append t "including all implied warranties of merchantability and fitn"
  58.     append t "ess.  In\r"
  59.     append t "no event shall [file::author] be liable for any special, indir"
  60.     append t "ect or\r"
  61.     append t "consequential damages or any damages whatsoever resulting fr"
  62.     append t "om loss of\r"
  63.     append t "use, data or profits, whether in an action of contract, negl"
  64.     append t "igence or\r"
  65.     append t "other tortuous action, arising out of or in connection with "
  66.     append t "the use or\r"
  67.     append t "performance of this software.\r"
  68.     append t "============================================================"
  69.     append t "============\r"
  70. }
  71.  
  72. proc file::seeFileLicenseTerms {} {
  73.     append t "Copyright (c) [file::year]  [file::author]\r\r"
  74.     append t "See the file \"license.terms\" for information on usage and r"
  75.     append t "edistribution\r"
  76.     append t "of this file, and for a DISCLAIMER OF ALL WARRANTIES.\r"
  77. }
  78.  
  79. proc file::gnuPublicLicense {} {
  80.     append t "Copyright (c) [file::year]  [file::author]\r"
  81.     append t "\rThis program is free software; you can redistribute it and/"
  82.     append t "or modify\r"
  83.     append t "it under the terms of the GNU General Public License as publ"
  84.     append t "ished by\r"
  85.     append t "the Free Software Foundation; either version 2 of the Licens"
  86.     append t "e, or\r"
  87.     append t "(at your option) any later version.\r"
  88.     append t "\rThis program is distributed in the hope that it will be use"
  89.     append t "ful,\r"
  90.     append t "but WITHOUT ANY WARRANTY; without even the implied warranty "
  91.     append t "of\r"
  92.     append t "MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See th"
  93.     append t "e\r"
  94.     append t "GNU General Public License for more details.\r"
  95.     append t "\rYou should have received a copy of the GNU General Public L"
  96.     append t "icense\r"
  97.     append t "along with this program; if not, write to the Free Software\r"
  98.     append t "Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.\r"
  99. }
  100.  
  101. proc file::none {} {}
  102.  
  103.