PageRenderTime 49ms CodeModel.GetById 24ms RepoModel.GetById 0ms app.codeStats 0ms

/src/text.sch

https://bitbucket.org/bunny351/ezd
Racket | 41 lines | 1 code | 2 blank | 38 comment | 0 complexity | 3eef6f1e8e9bc13a75e965c5f4e60e23 MD5 | raw file
    

  1. ;;; Text handling procedures.
    2. 

  2. 

  3. ;*           Copyright 1990-1993 Digital Equipment Corporation
    4. 

  4. ;*                         All Rights Reserved
    5. 

  5. ;*
    6. 

  6. ;* Permission to use, copy, and modify this software and its documentation is
    7. 

  7. ;* hereby granted only under the following terms and conditions.  Both the
    8. 

  8. ;* above copyright notice and this permission notice must appear in all copies
    9. 

  9. ;* of the software, derivative works or modified versions, and any portions
    10. 

  10. ;* thereof, and both notices must appear in supporting documentation.
    11. 

  11. ;*
    12. 

  12. ;* Users of this software agree to the terms and conditions set forth herein,
    13. 

  13. ;* and hereby grant back to Digital a non-exclusive, unrestricted, royalty-free
    14. 

  14. ;* right and license under any changes, enhancements or extensions made to the
    15. 

  15. ;* core functions of the software, including but not limited to those affording
    16. 

  16. ;* compatibility with other hardware or software environments, but excluding
    17. 

  17. ;* applications which incorporate this software.  Users further agree to use
    18. 

  18. ;* their best efforts to return to Digital any such changes, enhancements or
    19. 

  19. ;* extensions that they make and inform Digital of noteworthy uses of this
    20. 

  20. ;* software.  Correspondence should be provided to Digital at:
    21. 

  21. ;* 
    22. 

  22. ;*                       Director of Licensing
    23. 

  23. ;*                       Western Research Laboratory
    24. 

  24. ;*                       Digital Equipment Corporation
    25. 

  25. ;*                       250 University Avenue
    26. 

  26. ;*                       Palo Alto, California  94301  
    27. 

  27. ;* 
    28. 

  28. ;* This software may be distributed (but not offered for sale or transferred
    29. 

  29. ;* for compensation) to third parties, provided such third parties agree to
    30. 

  30. ;* abide by the terms and conditions of this notice.  
    31. 

  31. ;* 
    32. 

  32. ;* THE SOFTWARE IS PROVIDED "AS IS" AND DIGITAL EQUIPMENT CORP. DISCLAIMS ALL
    33. 

  33. ;* WARRANTIES WITH REGARD TO THIS SOFTWARE, INCLUDING ALL IMPLIED WARRANTIES OF
    34. 

  34. ;* MERCHANTABILITY AND FITNESS.   IN NO EVENT SHALL DIGITAL EQUIPMENT
    35. 

  35. ;* CORPORATION BE LIABLE FOR ANY SPECIAL, DIRECT, INDIRECT, OR CONSEQUENTIAL
    36. 

  36. ;* DAMAGES OR ANY DAMAGES WHATSOEVER RESULTING FROM LOSS OF USE, DATA OR
    37. 

  37. ;* PROFITS, WHETHER IN AN ACTION OF CONTRACT, NEGLIGENCE OR OTHER TORTIOUS
    38. 

  38. ;* ACTION, ARISING OUT OF OR IN CONNECTION WITH THE USE OR PERFORMANCE OF THIS
    39. 

  39. ;* SOFTWARE.
    40. 

  40. 

  41. (define-external TEXT->HEIGHT-WIDTH top-level)
    42. 

  42.