home *** CD-ROM | disk | FTP | other *** search
/ Usenet 1994 January / usenetsourcesnewsgroupsinfomagicjanuary1994.iso / sources / unix / volume16 / psterm / part03 < prev    next >
Encoding:
Internet Message Format  |  1988-11-01  |  53.9 KB
  1. Subject:  v16i050:  Terminal emulator for NeWS window system, Part03/04
  2. Newsgroups: comp.sources.unix
  3. Sender: sources
  4. Approved: rsalz@uunet.UU.NET
  5.  
  6. Submitted-by: hoptoad!gnu (John Gilmore)
  7. Posting-number: Volume 16, Issue 50
  8. Archive-name: psterm/part03
  9.  
  10. : psterm part 3 of 4
  11. echo ref
  12. mkdir ref
  13. : To unbundle, sh this file
  14. echo ref/config_aux
  15. cat >ref/config_aux <<'@@@ Fin de ref/config_aux'
  16. /* ref/config.h  --  Configuration and other very global information
  17.  *            Hugh Daniel 88/1/15 (c) Copyright, Grasshopper Group
  18.  * @(#)$Header: config_aux,v 2.0 88/09/16 01:39:55 eric Release $
  19.  */
  20. /* RCS ID
  21.  */
  22.  
  23. #define FNDELAY        O_NDELAY
  24.  
  25. /* Compile time controls for system dependances
  26.  */
  27. #define    mc68000
  28. /* Things we do have in A/UX */
  29. #define    HAVE_SELECT
  30. #define    HAVE_SOCKETS
  31. #define    HAVE_BSDSYSTIME
  32.     /* Useed by psterm & nterm -HD */
  33. #define    HAVE_SYSV_TTYS
  34. #define    HAVE_PUTTULINE
  35. #define    HAVE_TERMCAP
  36. #define    HAVE_STRINGS_H
  37.  
  38. /* Things that we dont have
  39.     #define    HAVE_MMAN_H
  40. */
  41.  
  42. #ifndef bcopy
  43. #define bcopy(s1, s2, len) { \
  44.     register char *s__s = (char *)(s1); \
  45.     register char *s__d = (char *)(s2); \
  46.     register int n__n; \
  47.     if ((n__n = len) > 0 && s__s != s__d) { \
  48.         if (s__d < s__s || (s__s + n__n) <= s__d) { \
  49.         memcpy(s__d, s__s, n__n); \
  50.         } else { \
  51.             register char *s__se = s__s + n__n - 1; \
  52.         register char *s__de = s__d + n__n - 1; \
  53.             do \
  54.                 *s__de-- = *s__se--; \
  55.             while (--n__n); \
  56.     }}};
  57. #endif
  58. #ifndef bzero
  59. #define bzero(s, n)        memset(s, '\0', n)
  60. #endif
  61. #define bcmp(s1, s2, n)        memcmp(s1, s2, n)
  62.  
  63. #define    srandom(n)    srand(n)
  64. #define    gettimeofday(time, tz) _gettimeofday(time)
  65. @@@ Fin de ref/config_aux
  66. echo ref/config_sunos
  67. cat >ref/config_sunos <<'@@@ Fin de ref/config_sunos'
  68. /* ref/config_sunos  --  Configuration and other very global information
  69.  *            Hugh Daniel 88/1/15 (c) Copyright, Grasshopper Group
  70.  * @(#)$Header: config_sunos,v 2.0 88/09/16 01:40:11 eric Release $
  71.  */
  72. /* RCS ID
  73.  */
  74.  
  75. /* Things we do have in sunos */
  76. #define    HAVE_SELECT
  77. #define    HAVE_SOCKETS
  78. #define    HAVE_BSDSYSTIME
  79.     /* Useed by psterm & nterm -HD */
  80. #define HAVE_BSD_TTYS
  81. /*#define    HAVE_PUTTULINE */
  82. #define    HAVE_TERMCAP
  83. #define    HAVE_STRINGS_H
  84.  
  85. /* #define    HAVE_MMAN_H */
  86. #define    HAVE_VFORK
  87. @@@ Fin de ref/config_sunos
  88. echo psterm.ps
  89. cat >psterm.ps <<'@@@ Fin de psterm.ps'
  90. %
  91. % This file is a product of Sun Microsystems, Inc. and is provided for
  92. % unrestricted use provided that this legend is included on all tape
  93. % media and as a part of the software program in whole or part.
  94. % Users may copy, modify or distribute this file at will.
  95. % 
  96. % THIS FILE IS PROVIDED AS IS WITH NO WARRANTIES OF ANY KIND INCLUDING THE
  97. % WARRANTIES OF DESIGN, MERCHANTIBILITY AND FITNESS FOR A PARTICULAR
  98. % PURPOSE, OR ARISING FROM A COURSE OF DEALING, USAGE OR TRADE PRACTICE.
  99. % 
  100. % This file is provided with no support and without any obligation on the
  101. % part of Sun Microsystems, Inc. to assist in its use, correction,
  102. % modification or enhancement.
  103. % 
  104. % SUN MICROSYSTEMS, INC. SHALL HAVE NO LIABILITY WITH RESPECT TO THE
  105. % INFRINGEMENT OF COPYRIGHTS, TRADE SECRETS OR ANY PATENTS BY THIS FILE
  106. % OR ANY PART THEREOF.
  107. % 
  108. % In no event will Sun Microsystems, Inc. be liable for any lost revenue
  109. % or profits or other special, indirect and consequential damages, even
  110. % if Sun has been advised of the possibility of such damages.
  111. % 
  112. % Sun Microsystems, Inc.
  113. % 2550 Garcia Avenue
  114. % Mountain View, California  94043
  115. %
  116. % Modifications to the original Sun Microsystems, Inc. source code
  117. % made by the Grasshopper Group are in the Public Domain.
  118. %
  119. % Extensions to this file by Eric Messick of the Grasshopper Group.
  120. %
  121. % Grasshopper Group
  122. % 212 Clayton St
  123. % San Francisco, CA 94117
  124. %
  125. %
  126. %
  127. % "@(#)psterm.ps 1.0 88/06/09 SMI
  128. % "@(#)$Header: psterm.ps,v 2.3 88/10/05 17:45:46 eric Release $
  129. %
  130. % Copyright (c) 1985 by Sun Microsystems, Inc.
  131. %/
  132.  
  133. /hourg /hourg_m framebuffer setstandardcursor
  134. pause
  135.  
  136. systemdict begin
  137.     /PSTermDict 150 dict def
  138. end
  139.  
  140. PSTermDict begin
  141.  
  142.         % user customization of these items can be done in ~/.pstermrc
  143.  
  144.     /DefaultTerminalFont    /Screen    def
  145.     /DefaultFontSize    12    def
  146.     /DefaultLines        24    def
  147.     /DefaultCols        80    def
  148.  
  149.     /morefontmenulength    25    def
  150.  
  151.     /EdgeLeft        1    def % space inside frame to leave white
  152.     /EdgeRight        1    def
  153.     /EdgeTop        1    def
  154.     /EdgeBottom        1    def
  155.  
  156.     /ScrollbarWidth        16    def
  157.  
  158.     /Shrink_To_Cols_Lines    true    def
  159.             % contract window to nearest integral size
  160.  
  161.     /DefaultSimpleShow    true    def
  162.             % false means monospace variable spaced fonts
  163.     /DefaultFastRepaint    true    def
  164.             % false means paint every screen, even if
  165.             %  we're in the middle of painting a screen
  166.     /DefaultUseCopyArea    true    def
  167.             % set to false on silicon graphics
  168.             % where reading pixels is expensive
  169.  
  170.     /smallest_font 1 def
  171.             % when font size is calculated, start here
  172.  
  173.     /next_font_size { 1 add } def
  174.             % and increment by doing this
  175.  
  176.     /OnePointFontXKludge    0    def
  177.     /OnePointFontYKludge    1    def
  178. % translate One Point Font by this with respect to background
  179. %     twiddle these if icon erases itself
  180. %    adjust so cursor is on correct line of text
  181. %    and delete actually wipes out characters
  182.  
  183.     /IconXKludge        0    def
  184.     /IconYKludge        0    def
  185. % translate contents of icon by this much
  186. %    twiddle these if icon borders go away on repaint
  187. %    adjust so there is EdgeTop point gap above top line of text
  188.  
  189. % we believe that these differences are related to color vs. b/w
  190. % systems.  some experimentally determined values are:
  191. %
  192. %    Screen Type
  193. %        FontX    FontY    IconX    IconY
  194. %
  195. %    Black&White
  196. %        0    1    0    0
  197. %
  198. %    Color
  199. %        0    -2    0    2
  200.  
  201.  
  202.     framebuffer setcanvas clippath pathbbox
  203.     /MaxWindowHeight exch 100 add def
  204.     /MaxWindowWidth exch 100 add def
  205.     pop pop
  206. % note:  this stuff doesn't work right with
  207. %   multiple framebuffers
  208. %   until then, it speeds things up
  209. %   and uses less memory for really big
  210. %   windows that can't be displayed
  211. %   completly anyway...
  212.  
  213.         % customization beyond this point is not recommended
  214.  
  215.     /RePaintCode        (\200a) def
  216.     /BeginSelectionCode    (\200b) def
  217.     /ExtendSelectionCode    (\200c) def
  218.     /EndSelectionCode    (\200d) def
  219.     /AutoMarginToggleCode    (\200e) def
  220.     /PageModeToggleCode    (\200f) def
  221.     /LineColCode        (\200g) def
  222.     /FixedFontCode        (\200h) def
  223.     /VariableFontCode    (\200i) def
  224.     /BeginRectSelectionCode    (\200j) def
  225.     /BeginRectExtendCode    (\200k) def
  226.     /ScrollBarCode        (\200l) def
  227.     /ScrollLengthCode    (\200m) def
  228.     /EndOfRefreshCode    (\200n) def
  229.     /FastRepaintCode    (\200o) def
  230.     /UseCopyAreaCode    (\200p) def
  231.  
  232.     /sortarray {    % array --> sorted_array
  233.         10 dict begin
  234.             /arr exch def
  235.             /len arr length def
  236.             1 1 len 1 sub {
  237.                 /i exch def
  238.                 0 1 i 1 sub {
  239.                     /j exch def
  240.                     arr i get arr j get lt {
  241.                     /ferd arr i get def
  242.                     arr i arr j get put
  243.                     arr j ferd put
  244.                     } if
  245.                 } for
  246.             } for
  247.             arr
  248.         end
  249.     } def
  250.  
  251.     /PrimarySelection    1 def
  252.  
  253.     /fontkey {findfont 14 scalefont} def
  254.     /longstring 256 string def
  255.  
  256.         /LineColMenu [
  257.             (24 x 80)        { 24 80 ChangeLineCol }
  258.             ( 8 x 80)        { 8 80 ChangeLineCol }
  259.             (16 x 64)        { 16 64 ChangeLineCol }
  260.             (34 x 80)        { 34 80 ChangeLineCol }
  261.             (60 x 80)        { 60 80 ChangeLineCol }
  262.             (28 x 90)        { 28 90 ChangeLineCol }
  263.             (40 x 90)        { 40 90 ChangeLineCol }
  264.             (48 x 96)        { 48 96 ChangeLineCol }
  265.             (66 x 132)        { 66 132 ChangeLineCol }
  266.         ] /new DefaultMenu send def
  267.         {    /LayoutStyle    [3 3] def
  268.             /CellHorizGap    5 def
  269.         } LineColMenu send
  270.  
  271.         /PointMenu
  272.             [(1)   (2)   (4)   (6)
  273.              (8)   (10)  (12)  (14)
  274.              (16)  (18)  (24)  (32)
  275.              (48)  (64)  (96)  (128)]
  276.             [{currentkey cvi ChangeFontSize}]
  277.         /new DefaultMenu send def
  278.         {    /LayoutStyle    [4 4] def
  279.             /CellHorizGap    5 def
  280.         } PointMenu send
  281.  
  282.         /FontMenu [
  283.             [(Courier)
  284.              /Courier        fontkey]
  285.             [(Courier-Bold)
  286.              /Courier-Bold        fontkey]
  287.             [(Courier-Oblique)
  288.              /Courier-Oblique    fontkey]
  289.             [(Courier-BoldOblique)
  290.              /Courier-BoldOblique    fontkey]
  291.             [(Screen)
  292.              /Screen        fontkey]
  293.             [(Screen-Bold)
  294.              /Screen-Bold        fontkey]
  295.         ] [{currentkey 1 get /FontName get ChangeFont}]
  296.         /new DefaultMenu send def
  297.         {
  298.             /LayoutStyle    [4 2] def
  299.             /RowMajor?    false def
  300.             /CenterItems?    false def
  301.         } FontMenu send
  302.  
  303.         /MoreFontsMenu [
  304.             FontDirectory {
  305.                 pop longstring cvs
  306.                 dup length string copy
  307.             } forall
  308.         ] sortarray
  309.         dup length /HowManyFontsCanYouCount? exch store
  310.         [{ currentkey ChangeFont }]
  311.         /new DefaultMenu send def
  312.         {
  313.             /LayoutStyle    [ morefontmenulength
  314.                       HowManyFontsCanYouCount? min
  315.                       HowManyFontsCanYouCount?
  316.                       1 sub morefontmenulength div
  317.                       truncate 1 add ] def
  318.             /RowMajor?    false def
  319.             /CenterItems?    false def
  320.         } MoreFontsMenu send
  321.         pause
  322.         /ScrollLengthMenu
  323.             [
  324.                 (0)   (64)   (128)  (256)
  325.                 (512) (1024) (2048) (4096)
  326.             ]
  327.             [{currentkey cvi ChangeScrollLength}]
  328.         /new DefaultMenu send def
  329.         {
  330.             /LayoutStyle    [4 2] def
  331.             /RowMajor?    false def
  332.             /CellHorizGap    5 def
  333.         } ScrollLengthMenu send
  334.  
  335.         /StuffToMenu [
  336.             (Stuff to Frame Label)    {
  337.  
  338.                 /PrimarySelection getselection
  339.                 dup null eq {pop}
  340.                         % See if null selection
  341.                 {   dup /ContentsAscii known
  342.                         % Get ascii contents
  343.                     {/ContentsAscii get SL }
  344.                     {pop} ifelse
  345.                 } ifelse
  346.  
  347.                         }
  348.             (Stuff to Icon Label)    {
  349.  
  350.                 /PrimarySelection getselection
  351.                 dup null eq {pop}
  352.                         % See if null selection
  353.                 {   dup /ContentsAscii known
  354.                         % Get ascii contents
  355.                     {/ContentsAscii get
  356.                         seticonlabel }
  357.                     {pop} ifelse
  358.                 } ifelse
  359.  
  360.                         }
  361.             (Stuff to Both)        {
  362.  
  363.                 /PrimarySelection getselection
  364.                 dup null eq {pop}
  365.                         % See if null selection
  366.                 {   dup /ContentsAscii known
  367.                         % Get ascii contents
  368.                     {/ContentsAscii get
  369.                         dup SL seticonlabel }
  370.                     {pop} ifelse
  371.                 } ifelse
  372.  
  373.                         }
  374.             (Version to Frame Label){
  375.                 ($Header: psterm.ps,v 2.3 88/10/05 17:45:46 eric Release $)
  376.                 8 1 index length 9 sub getinterval SL
  377.                         }
  378.         ] /new DefaultMenu send def
  379.  
  380.     pause
  381.  
  382.     systemdict /Item known not { (NeWS/liteitem.ps) run } if
  383.  
  384.     pause
  385.  
  386.     /PropScrollbar SimpleScrollbar
  387.     dictbegin
  388.         /Tracking false def
  389.     dictend
  390.     classbegin
  391.         /SetScale { % - => - (set BarScale from size)
  392.             /BarScale    % points per line of text
  393.                 ItemHeight ButtonSize 2 mul sub
  394.                 BarMax BarMin sub div def
  395.             /BoxSize BarViewPercent BarScale mul neg
  396.                 ItemHeight ButtonSize 2 mul sub min
  397.                 5 max
  398.                 def
  399.         } def
  400.         /ValueToY { % value -> y
  401.             BarMin BarViewPercent sub dup 0 le {
  402.                 pop ButtonSize
  403.             } {
  404.                 exch
  405.                 1 index exch sub
  406.                 1 index BarMax sub div mul neg
  407.                 BarScale mul ButtonSize add
  408.             } ifelse
  409.         } def
  410.         /YToValue { % y -> value
  411.             ButtonSize sub BoxSize 2 div add
  412.             BarScale div BarMin add .5 add truncate
  413.             CheckValueBounds
  414.         } def
  415.         /ferd pop
  416.         /CheckValueBounds { % value => value (in range)
  417.             BarMax max BarMin BarViewPercent sub min
  418.         } def
  419.         /DoScroll { % - => -
  420.             SetScrollValue
  421.             ItemValue ItemPaintedValue ne
  422.                 {EraseBox PaintBox NotifyUser}
  423.             if
  424.         } def
  425.         /SetValue { % value => -
  426.             /ItemValue exch def
  427.             /paint self send
  428.         } def
  429.         /ClientDown {
  430.             /Tracking true def
  431.             /ClientDown super send
  432.         } def
  433.         /ClientUp {
  434.             /Tracking false def
  435.         } def
  436.         /SetScrollBarValue { % value range_array => -
  437.             Tracking {
  438.                 pop pop        % it'll catch up
  439.             } {
  440.                 /setrange self send
  441.                 /SetValue self send
  442.             } ifelse
  443.         } def
  444.     classend def
  445.  
  446.     pause
  447.  
  448.     /PSTermWindow DefaultWindow 
  449.     dictbegin
  450.         /Scrollbar        null    def
  451.         /ScrollbarActive    false    def
  452.     dictend
  453.     classbegin
  454.         /BorderRight {
  455.             ScrollbarActive {
  456.                 {
  457.                     ScrollbarWidth BorderRight 5 min add
  458.                     BorderRight max
  459.                 } DefaultWindow send
  460.             } {
  461.                 DefaultWindow /BorderRight get
  462.             } ifelse
  463.         } def
  464.  
  465.         /ClientMinHeight {
  466.             ScrollbarActive {48} {5} ifelse
  467.         } def
  468.  
  469.         /ClientMinWidth 5 def
  470.  
  471.         /ScrollbarOn {
  472.             ScrollbarActive not {
  473.                 /map Scrollbar send
  474.                 BorderRight
  475.                 /ScrollbarActive true def
  476.                 BorderRight sub
  477.                     FrameX FrameY
  478.                     FrameWidth 4 -1 roll sub FrameHeight
  479.                 /doreshape self send
  480.                 /ShapeStretchControl self send
  481.             } if
  482.         } def
  483.  
  484.         /ScrollbarOff {
  485.             ScrollbarActive {
  486.                 /unmap Scrollbar send
  487.                 BorderRight
  488.                 /ScrollbarActive false def
  489.                 BorderRight sub
  490.                     FrameX FrameY
  491.                     FrameWidth 4 -1 roll sub FrameHeight
  492.                 /doreshape self send
  493.                 /ShapeStretchControl self send
  494.             } if
  495.         } def
  496.  
  497.         /ShapeStretchControl {
  498.             gsave
  499.                 FrameCanvas setcanvas
  500.                 ControlSize BorderRight gt
  501.                 ControlSize BorderBottom gt and {
  502.                     newpath
  503.                     0    0            moveto
  504.                     0    BorderBottom        lineto
  505.                     ControlSize BorderRight sub
  506.                         BorderBottom        lineto
  507.                     ControlSize BorderRight sub
  508.                         ControlSize        lineto
  509.                     ControlSize
  510.                         ControlSize        lineto
  511.                     ControlSize
  512.                         0            lineto
  513.                     closepath
  514.                 } {
  515.                     0 0 ControlSize ControlSize rectpath
  516.                 } ifelse
  517.                 StretchControl reshapecanvas
  518.                 /MoveFrameControls self send
  519.                 /PaintFrameControls self send
  520.             grestore
  521.         } def
  522.  
  523.         pause
  524.  
  525.         /destroy {
  526.             /Scrollbar null def
  527.             /destroy super send
  528.         } def
  529.  
  530.         /CreateFrameControls { % - => -
  531.                     % (Create frame control canvases/items)
  532.             /CreateFrameControls super send
  533.             /Scrollbar
  534.                 [10 0 1 10 10] 0
  535.                     { ScrollBarCode print ItemValue = }
  536.                 FrameCanvas /new PropScrollbar send
  537.                 def
  538.             { /ItemPaintedValue 0 def } Scrollbar send
  539.                     % this kludge shouldn't be needed
  540.         } def
  541.  
  542.         /CreateFrameInterests { % - => -
  543.                     % (Create frame control interests)
  544.             /CreateFrameInterests super send
  545.             FrameInterests begin
  546.     % Append the scroll bar "start" interests to the frame interests.
  547.     % The odd "forall" is used to create unique names for inclusion
  548.     % in the frame interests dictionary.
  549.                 /makestartinterests Scrollbar send {
  550.                     (Scrollbar) 1 index /Name get cvx 100
  551.                     string cvs append
  552.                     cvn exch def
  553.                 } forall
  554.             end
  555.         } def
  556.  
  557.         /MoveFrameControls { % - => - ([Re]set frame control shapes)
  558.             /MoveFrameControls super send
  559.             ScrollbarActive {
  560.                 FrameWidth BorderRight sub
  561.                 ControlSize 1 sub
  562.                 ScrollbarWidth
  563.                 FrameHeight ControlSize sub BorderTop sub 2 add
  564.                 /reshape Scrollbar send
  565.             } if
  566.         } def
  567.  
  568.         /PaintFrameControls { % - => - (Paint frame control areas)
  569.             gsave
  570.                 /PaintFrameControls super send
  571.                 ScrollbarActive { /paint Scrollbar send } if
  572.             grestore
  573.         } def
  574.  
  575.         /SetScrollBarValue { % totallines currentposition => -
  576.             ScrollbarActive {
  577.                 [
  578.                     2 index 0 1
  579.                     Window_lines dup 3 sub 1 max exch ]
  580.                 /SetScrollBarValue Scrollbar send
  581.             } { pop } ifelse
  582.             pop
  583.         } def
  584.  
  585.         /FixFrame {RePaintCode print} def
  586.         /PaintClient {RePaintCode print} def
  587.         /PaintIcon {RePaintCode print} def
  588.         /reshape { ChangeWidthHeight } def
  589.         /flipiconic { Flip_Iconic } def
  590.  
  591.         /ShapeIconCanvas {
  592.             gsave
  593.             ParentCanvas setcanvas
  594.             IconX null ne {
  595.                 IconX IconY translate
  596.             } if
  597.             0 0 IconWidth IconHeight IconPath
  598.             IconCanvas reshapecanvas
  599.             grestore
  600.         } def
  601.  
  602.         pause
  603.  
  604.         /makemenus {
  605.             /ResizeMenu [
  606.                 (Changing Font Size determines:) {}
  607.                 () {}
  608.                 () {}
  609.                 (Changing Lines/Cols determines:) {}
  610.                 () {}
  611.                 () {}
  612.                 (Changing Window Size determines:) {}
  613.                 () {}
  614.                 () {}
  615.             ] /new DefaultMenu send def
  616. % looks bad        { /CenterItems? false def } ResizeMenu send
  617.  
  618.             /ToggleMenu [
  619.                 (  Page Mode)        
  620.                     {PageModeToggleCode print}
  621.                 (  Auto-Margins)
  622.                     {AutoMarginToggleCode print}
  623.                 (  Var Width Fonts)
  624.                     { ToggleSimpleShow RePaintCode print}
  625.                 (  Fast Repaint)
  626.                     { ToggleFastRepaint }
  627.                 (  Scrolling Allowed)
  628.                     { ToggleUseCopyArea }
  629.             ] /new DefaultMenu send def
  630. % looks bad        { /CenterItems? false def } ToggleMenu send
  631.  
  632.             /ConfigMenu [
  633.                 (Lines x Cols...)    LineColMenu
  634.                 (Points...)        PointMenu
  635.                 (Fonts...)        FontMenu
  636.                 (More Fonts!...)    MoreFontsMenu
  637.                 (Resizing stuff...)    ResizeMenu
  638.                 (Save Lines...)        ScrollLengthMenu
  639.                 (Toggles...)        ToggleMenu
  640.                 (Set Labels...)        StuffToMenu
  641.             ] /new DefaultMenu send def
  642.  
  643.             /ClientMenu [
  644.                 (Stuff)        {
  645.  
  646.                     /PrimarySelection getselection
  647.                     dup null eq {pop}
  648.                             % See if null selection
  649.                     {   dup /ContentsAscii known
  650.                             % Get ascii contents
  651.                         {/ContentsAscii get print}
  652.                         {pop} ifelse
  653.                     } ifelse
  654.  
  655.                         }
  656.                 (Frame...)        { FrameMenu } MyWindow send
  657.                 (Config...)        ConfigMenu
  658.             ] /new DefaultMenu send def
  659.  
  660.         } def
  661.  
  662.         /PageModeMenuItem    0 def    % which item of /ToggleMenu?
  663.         /AutoMarginMenuItem    1 def    % likewise
  664.         /SimpleShowMenuItem    2 def    % likewise
  665.         /FastRepaintMenuItem    3 def    % likewise
  666.         /UseCopyAreaMenuItem    4 def    % likewise
  667.  
  668.         /doreshape { /reshape load } DefaultWindow send def
  669.  
  670.         /doflipiconic { /flipiconic load } DefaultWindow send def
  671.  
  672.     classend def
  673.  
  674.     pause
  675.  
  676.     gsave 0.0005 rotate
  677.     /Courier findfont setfont
  678.     /OnePointFont currentfont
  679.         [ 1 (m) stringwidth pop    div 0 0
  680.           1 currentfont fontheight div
  681.           0 0        % these are ignored by NeWS ---- FIXME!!
  682.         ] makefont def
  683.     grestore
  684.  
  685.     /TSB { % on/off => -   ``toggle'' scrollbar
  686.         0 eq { /ScrollbarOff } { /ScrollbarOn } ifelse MyWindow send
  687.     } def
  688.     /SSBV { % totallines currentpos => -   set scrollbar value
  689.         /SetScrollBarValue MyWindow send
  690.     } def
  691.  
  692.     /BRP {
  693.         {
  694.             gsave
  695.             Iconic? {
  696.                 IconCanvas setcanvas damagepath clipcanvas
  697.                 IconFillColor fillcanvas
  698.                 IconBorderColor strokecanvas
  699.                 PaintIconLabel
  700.             } {
  701.                 FrameCanvas setcanvas
  702.                 damagepath clipcanvas PaintFrame
  703.         % initialize client canvas with background color
  704.                 ClientCanvas setcanvas
  705.                 ClientFillColor fillcanvas
  706.             } ifelse
  707.             grestore
  708.         }
  709.         MyWindow send
  710.     } def
  711.  
  712.     /ERP { clipcanvas } def
  713.  
  714.     /EOR { EndOfRefreshCode print } def
  715.  
  716.     /CD {         % c x y cursordown
  717.         gsave
  718.         maxy add
  719.         translate
  720.         dup length dup
  721.         0 0 moveto
  722.         0 1 rlineto
  723.         0 rlineto        % x component is length of c
  724.         0 lineto        % x component is length of c
  725.         closepath
  726.         backgroundcolor setcolor
  727.         fill
  728.         textcolor setcolor
  729.         0 maxy neg moveto
  730.         showtext
  731.         grestore
  732.     } def
  733.  
  734.     /CU {         % c x y cursorup
  735.         gsave
  736.         maxy add
  737.         translate
  738.         dup length dup
  739.         0 0 moveto
  740.         0 1 rlineto
  741.         0 rlineto        % x component is length of c
  742.         0 lineto        % x component is length of c
  743.         closepath
  744.         textcolor setcolor
  745.         fill
  746.         backgroundcolor setcolor
  747.         0 maxy neg moveto
  748.         showtext
  749.         grestore
  750.     } def
  751.  
  752.     /CL {        % yby w yfrom nl CopyLine
  753.         gsave
  754.         /NumLin exch def            % yby w yfrom
  755.         maxy add 0 exch translate        % yby w
  756.         0 0 moveto
  757.         0 NumLin rlineto            % yby w
  758.         dup 0 rlineto                % yby w 
  759.         0 lineto                % yby
  760.         closepath
  761.         0 exch copyarea
  762.         grestore
  763.     } def
  764.  
  765.     /SL {                        % s SetFrameLabel
  766.         {
  767.             /FrameLabel exch store
  768.             gsave
  769.             FrameCanvas setcanvas
  770.             BorderLeft 1 add
  771.             FrameHeight BorderTop sub 1 add
  772.             FrameWidth BorderLeft BorderRight add sub 2 sub
  773.             BorderTop 2 sub
  774.             rectpath FrameFillColor setcolor fill
  775.                 % clear label area
  776.             /paintframelabel self send
  777.             FrameBorderColor setcolor
  778.             PaintFrameControls PaintFocus
  779.             grestore
  780.         } MyWindow send
  781.     } def
  782.  
  783.     /seticonlabel {
  784.         {
  785.             /IconLabel exch store
  786.             PaintIcon
  787.         } MyWindow send
  788.     } def
  789.  
  790.     /VB {
  791.         gsave
  792.             HiLightCanvas setcanvas
  793.             overlaydraw HlBgColor setcolor clippath fill
  794.             .05 60 div sleep
  795.             overlayerase erasepage
  796.         grestore
  797.     } def
  798.  
  799.     /AM {        % onoff => -        (define auto margins)
  800.         0 eq {(  Auto-Margins)}{(* Auto-Margins)} ifelse
  801.         { AutoMarginMenuItem } MyWindow send exch
  802.         {AutoMarginToggleCode print}
  803.         /changeitem MyWindow /ToggleMenu get send
  804.     } def
  805.  
  806.     /PM {        % onoff => -        (define page mode)
  807.         0 eq {(  Page Mode)}{(* Page Mode)} ifelse
  808.         { PageModeMenuItem } MyWindow send exch
  809.         {PageModeToggleCode print}
  810.         /changeitem MyWindow /ToggleMenu get send
  811.     } def
  812.  
  813.     /ToggleSimpleShow {
  814.         /SimpleShow SimpleShow not store
  815.         /FontFixedP MonoSpacedFont Font_size 1 eq or
  816.         SimpleShow not or store
  817.         FontFixedP { FixedFontCode } { VariableFontCode } ifelse print
  818.         { SimpleShowMenuItem } MyWindow send
  819.         SimpleShow {(* Var Width Fonts)}{(  Var Width Fonts)} ifelse
  820.         { ToggleSimpleShow RePaintCode print}
  821.         /changeitem MyWindow /ToggleMenu get send
  822.     } def
  823.  
  824.     /ToggleFastRepaint {
  825.         /FastRepaint FastRepaint not store
  826.         FastRepaintCode print
  827.         FastRepaint { 1 } { 0 } ifelse =
  828.         { FastRepaintMenuItem } MyWindow send
  829.         FastRepaint {(* Fast Repaint)}{(  Fast Repaint)} ifelse
  830.         { ToggleFastRepaint }
  831.         /changeitem MyWindow /ToggleMenu get send
  832.     } def
  833.  
  834.     /ToggleUseCopyArea {
  835.         /UseCopyArea UseCopyArea not store
  836.         UseCopyAreaCode print
  837.         UseCopyArea { 1 } { 0 } ifelse =
  838.         { UseCopyAreaMenuItem } MyWindow send
  839.         UseCopyArea {(* Scrolling Allowed)}{(  Scrolling Allowed)} ifelse
  840.         { ToggleUseCopyArea }
  841.         /changeitem MyWindow /ToggleMenu get send
  842.     } def
  843.  
  844.     /MT {
  845.         backgroundcolor setcolor
  846.         2 copy maxy add moveto
  847.         1 index 0 eq { -.25 0 rmoveto } if
  848.             % zap blats on left margin
  849.         0 1 rlineto
  850.         Window_cols .25 add 1 index maxy add 1 add lineto
  851.         0 -1 rlineto
  852.         closepath fill
  853.         moveto
  854.         pause
  855.     } def
  856.  
  857.     /PN {    % paint normal
  858.         textcolor setcolor
  859.         showtext
  860.     } def
  861.  
  862.     /PR {
  863.         dup textstringwidth
  864.         textcolor setcolor
  865.         stringbox
  866.         backgroundcolor setcolor
  867.         showtext
  868.     } def
  869.  
  870.     /UN {
  871.         dup textstringwidth
  872.         textcolor setcolor
  873.         underscore
  874.         showtext
  875.     } def
  876.  
  877.     /UR {
  878.         dup textstringwidth
  879.         textcolor setcolor
  880.         dup stringbox
  881.         backgroundcolor setcolor
  882.         underscore
  883.         showtext
  884.     } def
  885.  
  886.     /CE {
  887.     } def
  888.  
  889.     /textstringwidth {    % (str) => width
  890.         FontFixedP {
  891.             length
  892.         } {
  893.             stringwidth pop
  894.         } ifelse
  895.     } def
  896.  
  897.     /stringbox {    % width
  898.         currentpoint 3 2 roll
  899.         0 maxy rmoveto
  900.         0 1 rlineto
  901.         0 rlineto
  902.         0 -1 rlineto
  903.         closepath fill
  904.         moveto
  905.     } def
  906.  
  907.     /underscore {    % width
  908.         currentpoint 3 2 roll
  909.         1 maxy add 2 div 0 exch rmoveto
  910.         0 rlineto
  911.         stroke
  912.         moveto
  913.     } def        
  914.  
  915.     /showtext {
  916.         Font_size 1 eq {
  917.             OnePointFontXKludge OnePointFontYKludge rmoveto
  918.             show
  919.             OnePointFontXKludge neg OnePointFontYKludge neg rmoveto
  920.         } {
  921.             MonoSpacedFont SimpleShow or {
  922.                 show
  923.             } {
  924.                 currentpoint ShowChar 0        % (str) x y ( ) 0
  925.                 {                % x y ( ) 0 char
  926.                     put ShowChar        % x y (c)
  927.                     show
  928.                     exch 1 add exch moveto
  929.                     currentpoint        % x y
  930.                     ShowChar 0
  931.                 } 6 -1 roll exch forall
  932.                 pop pop
  933.                 exch 1 add exch moveto
  934.             } ifelse
  935.         } ifelse
  936.     } def
  937.  
  938.     /HL {    % strokeit [ ends of lines ] firstcol firstrow => -
  939.         % do highlighting
  940.         gsave
  941.         3 index 0 ne {
  942.             HiLightCanvas setcanvas
  943.             CurrentMatrix setmatrix
  944.             -0.005 rotate
  945.             erasepage
  946.         } if
  947.         maxy add 1 add dup        % [] x y y
  948.         4 1 roll            % y [] x y
  949.         exch dup type /stringtype eq {
  950.             textstringwidth
  951.         } if
  952.         exch moveto            % y []
  953.         0 -1 rlineto dup        % y [] []
  954.         {                 % ... x
  955.             dup type /stringtype eq {
  956.                 textstringwidth
  957.             } {
  958.                 1 add
  959.             } ifelse
  960.             currentpoint        % ... x cx cy
  961.             exch pop        % ... x cy
  962.             lineto
  963.             0 1 rlineto
  964.         } forall            % y []
  965.         length 1 gt {
  966.             currentpoint 0 exch    % y cx 0 cy
  967.             lineto pop 0 exch    % 0 y
  968.             lineto
  969.         } { pop } ifelse
  970.         closepath
  971.         currentpath /HiLightPath exch store
  972.         0 ne { stroke } if
  973.         grestore
  974.     } def
  975.  
  976.     /HiLightRect { % strokeit startcol startrow endcol endrow => -
  977.         gsave
  978.         4 index 0 ne {
  979.             HiLightCanvas setcanvas
  980.             CurrentMatrix setmatrix
  981.             -0.005 rotate
  982.             erasepage
  983.         } if
  984.         0 maxy translate
  985.         1 add exch 1 add exch
  986.         3 index 1 index moveto
  987.         1 index exch lineto
  988.         1 index lineto
  989.         lineto closepath
  990.         currentpath /HiLightPath exch store
  991.         0 ne { stroke } if
  992.         grestore
  993.     } def
  994.  
  995.     /takedownoutline {
  996. %        /HiLightCanvas null store
  997. %        HiLightCanvas /Mapped false put
  998.         gsave
  999.         HiLightCanvas setcanvas erasepage
  1000.         grestore
  1001.     } def
  1002.  
  1003.     /clearselectionpath {
  1004.         /HiLightPath null store
  1005.     } def
  1006.  
  1007.     /PaintHiLight {
  1008.         HiLightPath null ne {
  1009.             gsave
  1010.             5 setrasteropcode
  1011.             HiLightPath setpath fill
  1012.             grestore
  1013.         } if
  1014.     } def
  1015.  
  1016.     /startselset {
  1017.         /CurrentSelection () store
  1018.     } def
  1019.  
  1020.     /extsel {
  1021.         CurrentSelection exch append /CurrentSelection exch store
  1022.     } def
  1023.  
  1024.     /finishselset {        % str
  1025.         10 dict dup begin
  1026.             /ContentsAscii        CurrentSelection    def
  1027.             /SelectionObjSize    1            def
  1028.             /SelectionHolder    childprocess        def
  1029.             /Canvas            currentcanvas        def
  1030.         end
  1031.         /PrimarySelection setselection
  1032.     } def
  1033.  
  1034.     /resetscale { 10 dict begin
  1035.         { Iconic? { IconCanvas } { ClientCanvas } ifelse }
  1036.             MyWindow send setcanvas
  1037.         0.0005 rotate
  1038.         clippath pathbbox EdgeLeft exch
  1039.         ScaledFont fontdescent add EdgeTop sub translate
  1040.         clear
  1041.  
  1042.         Font_size 1 eq {
  1043.             1 -1 scale
  1044.             IconXKludge IconYKludge translate
  1045.             OnePointFont setfont
  1046.         } {
  1047.             /xscale ScaledFont setfont (m) stringwidth pop def
  1048.             /yscale ScaledFont fontheight neg def
  1049.             xscale 0 eq { /xscale 0.0005 store } if
  1050.             yscale 0 eq { /yscale -0.0005 store } if
  1051.             xscale yscale scale
  1052.  
  1053.             Term_Font [
  1054.                 Font_size xscale div 0 0
  1055.                 Font_size yscale div 0 0 ] makefont setfont
  1056.         } ifelse
  1057.  
  1058.         textcolor setcolor
  1059. %        0 setgray
  1060.  
  1061.         0 1 translate
  1062.         /CurrentMatrix 6 array currentmatrix store
  1063.         /HiLightCanvas { ClientCanvas } MyWindow send
  1064.             createoverlay store
  1065.         clear
  1066.         childprocess dup null ne {
  1067.             MySetTransform createevent copy dup begin
  1068.                 /Action matrix currentmatrix def
  1069.                 /TimeStamp lasteventtime def
  1070.             end sendevent
  1071.         } {
  1072.             pop
  1073.         } ifelse
  1074.  
  1075.         end 
  1076.         /maxy currentfont fontascent neg store
  1077.     } def
  1078.  
  1079.     /whcl2f {
  1080.         gsave 0.0005 rotate
  1081.         /Term_Font SelectedFont store
  1082.         /char_width Window_width
  1083.             { BorderLeft sub BorderRight sub } MyWindow send
  1084.             EdgeLeft sub EdgeRight sub
  1085.             Window_cols div store
  1086.  
  1087.         /char_height Window_height
  1088.             { BorderTop sub BorderBottom sub } MyWindow send
  1089.             EdgeTop sub EdgeBottom sub
  1090.             Window_lines div store
  1091.  
  1092.         /Font_size 0 store
  1093.         smallest_font
  1094.         {
  1095.             dup Term_Font exch scalefont setfont
  1096.             currentfont fontheight char_height ge
  1097.             (m) stringwidth pop char_width ge or { exit } if
  1098.             dup /Font_size exch store
  1099.             next_font_size
  1100.         } loop
  1101.         pop
  1102.  
  1103.         Term_Font Font_size scalefont setfont
  1104.         /ScaledFont currentfont store
  1105.         grestore
  1106.         Shrink_To_Cols_Lines { clf2wh } if
  1107.     } def
  1108.  
  1109.     /whf2cl {
  1110.         gsave 0.0005 rotate
  1111.  
  1112.         Font_size 1 eq {
  1113.             /Term_Font /Courier findfont store
  1114.             /ScaledFont OnePointFont store
  1115.         } {
  1116.             /Term_Font SelectedFont store
  1117.             /ScaledFont Term_Font Font_size scalefont store
  1118.         } ifelse
  1119.  
  1120.         ScaledFont setfont
  1121.  
  1122.         /Window_cols Window_width
  1123.             { BorderLeft sub BorderRight sub } MyWindow send
  1124.             EdgeLeft sub EdgeRight sub
  1125.             (m) stringwidth pop div .5 add truncate 1 max store
  1126.  
  1127.         /Window_lines Window_height
  1128.             { BorderTop sub BorderBottom sub } MyWindow send
  1129.             EdgeTop sub EdgeBottom sub
  1130.             currentfont fontheight div .5 add truncate 1 max store
  1131.         grestore
  1132.         Shrink_To_Cols_Lines { clf2wh } if
  1133.     } def
  1134.  
  1135.     /clf2wh {
  1136.         gsave 0.0005 rotate
  1137.  
  1138.         Font_size 1 eq {
  1139.             /Term_Font /Courier findfont store
  1140.             /ScaledFont OnePointFont store
  1141.         } {
  1142.             /Term_Font SelectedFont store
  1143.             /ScaledFont Term_Font Font_size scalefont store
  1144.         } ifelse
  1145.  
  1146.         ScaledFont setfont
  1147.  
  1148.         /Window_width Window_cols (m) stringwidth pop mul
  1149.             { BorderLeft add BorderRight add } MyWindow send
  1150.             EdgeLeft add EdgeRight add store
  1151.  
  1152.         /Window_height Window_lines currentfont fontheight mul
  1153.             { BorderTop add BorderBottom add } MyWindow send
  1154.             EdgeTop add EdgeBottom add store
  1155.         grestore
  1156.     } def
  1157.  
  1158.     /SetupResizeMenu {
  1159.         /FontChangeProc load /clf2wh load eq {
  1160.             1 (* Window Size) {} /changeitem MyWindow
  1161.                 /ResizeMenu get send
  1162.             2 (  Lines/Cols ) { ToggleFont } /changeitem MyWindow
  1163.                 /ResizeMenu get send
  1164.         } {
  1165.             1 (  Window Size) { ToggleFont } /changeitem MyWindow
  1166.                 /ResizeMenu get send
  1167.             2 (* Lines/Cols ) {} /changeitem MyWindow
  1168.                 /ResizeMenu get send
  1169.         } ifelse
  1170.  
  1171.         /LineColChangeProc load /clf2wh load eq {
  1172.             4 (* Window Size) {} /changeitem MyWindow
  1173.                 /ResizeMenu get send
  1174.             5 (  Font Size  ) { ToggleLineCol }
  1175.                 /changeitem MyWindow
  1176.                 /ResizeMenu get send
  1177.         } {
  1178.             4 (  Window Size) { ToggleLineCol }
  1179.                 /changeitem MyWindow
  1180.                 /ResizeMenu get send
  1181.             5 (* Font Size  ) {} /changeitem MyWindow
  1182.                 /ResizeMenu get send
  1183.         } ifelse
  1184.  
  1185.  
  1186.         /WidthHeightChangeProc load /whf2cl load eq {
  1187.             7 (* Lines/Cols ) {} /changeitem MyWindow
  1188.                 /ResizeMenu get send
  1189.             8 (  Font Size  ) { ToggleWidthHeight }
  1190.                 /changeitem MyWindow
  1191.                 /ResizeMenu get send
  1192.         } {
  1193.             7 (  Lines/Cols ) { ToggleWidthHeight }
  1194.                 /changeitem MyWindow
  1195.                 /ResizeMenu get send
  1196.             8 (* Font Size  ) {} /changeitem MyWindow
  1197.                 /ResizeMenu get send
  1198.         } ifelse
  1199.  
  1200.     } def
  1201.  
  1202.     /DefaultFontChangeProc /clf2wh load def
  1203.     /ToggleFont {
  1204.         /FontChangeProc load /clf2wh load eq {
  1205.             /FontChangeProc /whf2cl load store
  1206.         } {
  1207.             /FontChangeProc /clf2wh load store
  1208.         } ifelse
  1209.         SetupResizeMenu
  1210.     } def
  1211.  
  1212.     /DefaultLineColChangeProc /clf2wh load def
  1213.     /ToggleLineCol {
  1214.         /LineColChangeProc load /clf2wh load eq {
  1215.             /LineColChangeProc /whcl2f load store
  1216.         } {
  1217.             /LineColChangeProc /clf2wh load store
  1218.         } ifelse
  1219.         SetupResizeMenu
  1220.     } def
  1221.  
  1222.     /DefaultWidthHeightChangeProc /whf2cl load def
  1223.     /ToggleWidthHeight {
  1224.         /WidthHeightChangeProc load /whf2cl load eq {
  1225.             /WidthHeightChangeProc /whcl2f load store
  1226.         } {
  1227.             /WidthHeightChangeProc /whf2cl load store
  1228.         } ifelse
  1229.         SetupResizeMenu
  1230.     } def
  1231.  
  1232.     /ChangeOne {
  1233.         dup /Font eq {
  1234.             pop
  1235.             FontChangeProc
  1236.         } {
  1237.             /LineCol eq {
  1238.                 LineColChangeProc
  1239.             } {
  1240.                 WidthHeightChangeProc
  1241.             } ifelse
  1242.         } ifelse
  1243.  
  1244.         {
  1245.             /IconWidth Window_cols gsave
  1246.                     IconFont setfont
  1247.                     IconLabel stringwidth pop
  1248.                 grestore max EdgeLeft add EdgeRight add def
  1249.             /IconHeight Window_lines EdgeTop add EdgeBottom add
  1250.                 IconFont fontheight add def
  1251.             /ShapeIconCanvas self send
  1252.         } MyWindow send
  1253.  
  1254.         LineColCode print
  1255.         Window_cols =
  1256.         Window_lines =
  1257.         /Window_x { FrameX } MyWindow send store
  1258.         /Window_y { FrameY } MyWindow send store
  1259.         Window_y Window_height add 0 lt { % don't disappear on us!
  1260.             /Window_y 10 Window_height sub store
  1261.         } if
  1262.         Window_x Window_y
  1263.         Window_width MaxWindowWidth min
  1264.         Window_height MaxWindowHeight min
  1265.         /doreshape MyWindow send
  1266.  
  1267.     } def
  1268.  
  1269.     /ChangeScrollLength {
  1270.         ScrollLengthCode print =
  1271.     } def
  1272.  
  1273.     /ChangeFontSize {
  1274.         /SelectedFontSize exch store
  1275.         /Font_size SelectedFontSize store
  1276.         /Font ChangeOne
  1277.     } def
  1278.  
  1279.     /ChangeWidthHeight {
  1280.         /Window_height exch store
  1281.         /Window_width exch store
  1282.         /Window_y exch store
  1283.         /Window_x exch store
  1284.         {
  1285.             /FrameX Window_x store
  1286.             /FrameY Window_y store
  1287.             ClientMinWidth BorderLeft add BorderRight add
  1288.             ClientMinHeight BorderTop add BorderBottom add
  1289.         } MyWindow send
  1290.         dup Window_height gt {
  1291.             /Window_height exch store
  1292.         } { pop } ifelse
  1293.         dup Window_width gt {
  1294.             /Window_width exch store
  1295.         } { pop } ifelse
  1296.         /WidthHeight ChangeOne
  1297.     } def
  1298.  
  1299.     /ChangeLineCol {
  1300.         /Window_cols exch store
  1301.         /Window_lines exch store
  1302.         /LineCol ChangeOne
  1303.     } def
  1304.  
  1305.     /ChangeFont {
  1306.         dup
  1307.         { findfont } errored {
  1308.             gsave framebuffer setcanvas currentcursorlocation
  1309.             [ (Could not find font:) 5 -1 roll 100 string cvs ] popmsg pop
  1310.             grestore
  1311.         } {
  1312.             /SelectedFont exch store
  1313.             pop
  1314.             /MonoSpacedFont SelectedFont /IsFixedPitch get store
  1315.             SelectedFont /FontName get
  1316.                 dup /Courier eq
  1317.                 1 index /Courier-Bold eq or
  1318.                 1 index /Courier-Oblique eq or
  1319.                 exch /Courier-BoldOblique eq or {
  1320.                     /MonoSpacedFont true store
  1321.                 } if
  1322.             /FontFixedP MonoSpacedFont Font_size 1 eq or
  1323.                 SimpleShow not or store
  1324.             FontFixedP { FixedFontCode } { VariableFontCode } ifelse print
  1325.             Font_size ChangeFontSize
  1326.         } ifelse
  1327.     } def
  1328.  
  1329.     /Flip_Iconic {
  1330.         /doflipiconic self send
  1331.         Iconic? {
  1332.             /Font_size 1 store
  1333.             /FontFixedP MonoSpacedFont Font_size 1 eq or
  1334.                 SimpleShow not or store
  1335.             FontFixedP
  1336.                 { FixedFontCode }
  1337.                 { VariableFontCode }
  1338.             ifelse print
  1339.             ClientCanvas setcanvas ClientFillColor fillcanvas
  1340.                 % keep it from repainting twice
  1341.             IconCanvas setcanvas
  1342.             /ScaledFont OnePointFont store
  1343.             ScaledFont setfont
  1344.             IconCanvas /Retained get {
  1345.                 /PaintIcon self send
  1346.             } if
  1347.         } {
  1348.             IconCanvas setcanvas IconFillColor fillcanvas
  1349.             ClientCanvas setcanvas
  1350.             /Font_size SelectedFontSize store
  1351.             /FontFixedP MonoSpacedFont Font_size 1 eq or
  1352.                 SimpleShow not or store
  1353.             FontFixedP
  1354.                 { FixedFontCode }
  1355.                 { VariableFontCode }
  1356.             ifelse print
  1357.             /ScaledFont Term_Font Font_size scalefont store
  1358.             ScaledFont setfont
  1359.             ClientCanvas /Retained get {
  1360.                 /PaintClient self send
  1361.             } if
  1362.         } ifelse
  1363.     } def
  1364.  
  1365.     /UserWindowCustom nullproc def
  1366.  
  1367.     /createwindow {
  1368. % x y fs col line framelabel iconlabel font starticonic iconx icony
  1369.         pause
  1370.         /IconInitialX exch store
  1371.         /IconInitialY exch store
  1372.         /StartIconic exch store
  1373.         /InitialFont exch store
  1374.         /MyIconLabel exch store
  1375.         /MyFrameLabel exch store
  1376.         /Window_lines exch store
  1377.         /Window_cols exch store
  1378.         /SelectedFontSize exch store
  1379.         /Window_y exch store
  1380.         /Window_x exch store
  1381.  
  1382.         /MyWindow framebuffer /new PSTermWindow send store
  1383.  
  1384.         /UserWindowCustom load MyWindow send
  1385.  
  1386.         Window_x Window_y 0 0 /doreshape MyWindow send
  1387.         % this calls checkcanvases to set up FrameMenu ... ugh...
  1388.  
  1389.         {
  1390.             /FrameLabel MyFrameLabel def
  1391.             /IconLabel MyIconLabel def
  1392.             makemenus
  1393.             ClientCanvas
  1394.  
  1395.         } MyWindow send
  1396.  
  1397.         createoverlay /HiLightCanvas exch store
  1398.  
  1399.         IconInitialX 0 ge IconInitialY 0 ge and {
  1400.             { /IconX IconInitialX def /IconY IconInitialY def }
  1401.             MyWindow send
  1402.         } if
  1403.  
  1404.         SetupResizeMenu
  1405.         ToggleSimpleShow
  1406.         ToggleFastRepaint
  1407.         ToggleUseCopyArea
  1408.  
  1409.         Window_cols 0 le Window_lines 0 le or {
  1410.             /Window_lines DefaultLines store
  1411.             /Window_cols DefaultCols store
  1412.         } if
  1413.  
  1414.         SelectedFontSize 0 le
  1415.             { /SelectedFontSize DefaultFontSize store } if
  1416.  
  1417.         { InitialFont findfont } errored not
  1418.             { InitialFont ChangeFont } if
  1419.  
  1420.         SelectedFontSize ChangeFontSize
  1421.  
  1422.         MyWindow /ClientCanvas get setcanvas
  1423.  
  1424.         InitialReshapeFromUser { /reshapefromuser MyWindow send } if
  1425.  
  1426.         StartIconic 0 ne { /flipiconic MyWindow send } if
  1427.         /map MyWindow send
  1428.         pause
  1429.  
  1430.         /MySetTransform createevent store
  1431.  
  1432.         MySetTransform begin
  1433.             /Name /SetTransform def
  1434.             /Canvas currentcanvas def
  1435.         end
  1436.  
  1437.         /MyMouseEvents createevent store
  1438.  
  1439.         MyMouseEvents begin
  1440.             /Name [ /MouseDragged /PointButton load
  1441.                 /AdjustButton load ] def
  1442.             /Canvas currentcanvas def
  1443.         end
  1444.  
  1445.     } def
  1446.  
  1447.     /startinput {
  1448.         /childprocess null store
  1449.         resetscale
  1450.         ( ) 0 0 CU
  1451.         pause
  1452.         {
  1453.             systemdict /Selections known {
  1454.                 { ClientCanvas } MyWindow send
  1455.                 dup addkbdinterests pop
  1456. %                dup addselectioninterests pop
  1457.                 addfunctionstringsinterest pop 
  1458.                 { FrameCanvas } MyWindow send
  1459.                 dup addkbdinterests pop
  1460.                 addfunctionstringsinterest pop 
  1461.                 { IconCanvas } MyWindow send
  1462.                 dup addkbdinterests pop
  1463.                 addfunctionstringsinterest pop 
  1464.             } {
  1465.                 /Ascii 128 dict def
  1466.                 /Template createevent def
  1467.                 Ascii begin
  1468.                 0 1 127 { dup def } for
  1469.                 end
  1470.                 Template
  1471.                 Ascii seteventname
  1472.                 currentcanvas seteventcanvas
  1473.                 expressinterest
  1474.             } ifelse
  1475.             MyMouseEvents expressinterest
  1476.             MySetTransform expressinterest
  1477.  
  1478.             /MyEventActions 20 dict dup begin
  1479.     
  1480.                 /Ignore {
  1481.                 } def
  1482.         
  1483.                 /AcceptFocus {
  1484.             %       true /reflectfocus MyWindow send
  1485.                 } def
  1486.                 /RestoreFocus {
  1487.             %       true /reflectfocus MyWindow send
  1488.                 } def
  1489.     
  1490.                 /SetTransform {
  1491.                     Action dup null ne {
  1492.                         setmatrix
  1493.                     } {
  1494.                         pop
  1495.                     } ifelse
  1496.                 } def
  1497.             
  1498.                 /SetSelectionAt {
  1499.                 } def
  1500.         
  1501.                 /ExtendSelectionTo {
  1502.                 } def
  1503.             
  1504.                 /DeSelect {
  1505.                 } def
  1506.         
  1507.                 /LoseFocus {    % NeWS/X version of DeSelect
  1508.                 } def
  1509.         
  1510.                 /SelectionRequest {
  1511.                 } def
  1512.  
  1513.                 /PointButton load {
  1514.                     Action /DownTransition eq {
  1515.                         false KeyState {
  1516.                             /Shift eq {
  1517.                                 pop true exit
  1518.                             } if
  1519.                         } forall {
  1520.                             BeginRectSelectionCode
  1521.                             print
  1522.                         } {
  1523.                             BeginSelectionCode
  1524.                             print
  1525.                         } ifelse
  1526.                         XLocation =
  1527.                         YLocation maxy sub =
  1528.                         1 =
  1529.                         /Selection_in_progress?
  1530.                             true store
  1531.                     } {    % /UpTransition
  1532.                         Selection_in_progress? {
  1533.                             EndSelectionCode print
  1534.                             XLocation =
  1535.                             YLocation maxy sub =
  1536.                             1 =
  1537.                             /Selection_in_progress?
  1538.                                 false store
  1539.                         } if
  1540.                     } ifelse
  1541.                 } def
  1542.  
  1543.                 /AdjustButton load {
  1544.                     Action /DownTransition eq {
  1545.                         false KeyState {
  1546.                             /Shift eq {
  1547.                                 pop true exit
  1548.                             } if
  1549.                         } forall {
  1550.                             BeginRectExtendCode
  1551.                             print
  1552.                         } {
  1553.                             ExtendSelectionCode
  1554.                             print
  1555.                         } ifelse
  1556.                         XLocation =
  1557.                         YLocation maxy sub =
  1558.                         1 =
  1559.                         /Selection_in_progress?
  1560.                             true store
  1561.                     } {    % /UpTransition
  1562.                         Selection_in_progress? {
  1563.                             EndSelectionCode print
  1564.                             XLocation =
  1565.                             YLocation maxy sub =
  1566.                             1 =
  1567.                             /Selection_in_progress?
  1568.                                 false store
  1569.                         } if
  1570.                     } ifelse
  1571.                 } def
  1572.  
  1573.                 /MouseDragged {
  1574.                     Selection_in_progress? {
  1575.                         ExtendSelectionCode print
  1576.                         XLocation =
  1577.                         YLocation maxy sub =
  1578.                         1 =
  1579.                     } if
  1580.                 } def
  1581.         
  1582.                 /InsertValue        {
  1583.                     Action print
  1584.                 } def
  1585.         
  1586.                 /Default    {
  1587.                     { UI_private /meta_keys_down get
  1588.                         /MetaP? exch store
  1589.                     } errored pop
  1590.                     ( ) dup 0 Name MetaP? 0 ne
  1591.                     { 128 add } if
  1592.                     put dup (\200) eq
  1593.                     { (\200) print } if print
  1594.                 } def
  1595.             end def
  1596.         
  1597.             {   awaitevent
  1598.         %        systemdict /_termlogger known { _termlogger } if
  1599.                 begin                % event
  1600.                 MyEventActions Name 2 copy known not {
  1601.                     pop /Default
  1602.                 } if
  1603.                 get exec
  1604.             end
  1605.             } loop
  1606.         } fork /childprocess exch store
  1607.         pause pause
  1608.     } def
  1609.  
  1610.     /StretchOpen {                % called from -ui StretchOpen
  1611.         /InitialReshapeFromUser true def
  1612.     } def
  1613.  
  1614.     /PSTermInit {
  1615.         /HowManyFontsCanYouCount? 1 def
  1616.         /Term_Font DefaultTerminalFont findfont def
  1617.         /SelectedFont Term_Font def
  1618.         /SelectedFontSize DefaultFontSize def
  1619.         /ScaledFont Term_Font def
  1620.         /InitialFont Term_Font def
  1621.         /InitialReshapeFromUser false def
  1622.         /StartIconic 0 def
  1623.         /IconInitialX -1 def
  1624.         /IconInitialY -1 def
  1625.         /MonoSpacedFont true def
  1626.         /FontFixedP true def
  1627.         /SimpleShow DefaultSimpleShow not def
  1628.                 % inverted because we toggle to set up menu
  1629.         /FastRepaint DefaultFastRepaint not def        % likewise
  1630.         /UseCopyArea DefaultUseCopyArea not def        % likewise
  1631.         /CurrentMatrix matrix def
  1632.         /CurrentSelection () def
  1633.  
  1634.         /char_width 1 def
  1635.         /char_height 1 def
  1636.         /MetaP?    0 def
  1637.         /ShowChar ( ) def
  1638.         /Selection_in_progress? false def
  1639.         /HiLightPath null def
  1640.         /HiLightCanvas null def
  1641.  
  1642.         /Font_size SelectedFontSize def
  1643.         /Window_cols    DefaultCols def
  1644.         /Window_lines    DefaultLines def
  1645.         /Window_width    0 def
  1646.         /Window_height    0 def
  1647.         /Window_x    0 def
  1648.         /Window_y    0 def
  1649.  
  1650.         /MyIconLabel    () def
  1651.         /MyFrameLabel    () def
  1652.  
  1653.         /MyWindow    null def
  1654.         /MyMouseEvents    null def
  1655.         /MySetTransform    null def
  1656.         /childprocess    null def
  1657.  
  1658.         /FontChangeProc    /DefaultFontChangeProc load def
  1659.         /LineColChangeProc /DefaultLineColChangeProc load def
  1660.         /WidthHeightChangeProc /DefaultWidthHeightChangeProc load def
  1661.  
  1662.         /HlBgColor where { pop } { /HlBgColor 0 0 0 rgbcolor def } ifelse
  1663.  
  1664.         pause
  1665.     } def
  1666.  
  1667. end
  1668.  
  1669. pause
  1670.  
  1671. /ptr /ptr_m framebuffer setstandardcursor
  1672. @@@ Fin de psterm.ps
  1673. echo selection.c
  1674. cat >selection.c <<'@@@ Fin de selection.c'
  1675. /*
  1676.  * This file is a product of Sun Microsystems, Inc. and is provided for
  1677.  * unrestricted use provided that this legend is included on all tape
  1678.  * media and as a part of the software program in whole or part.
  1679.  * Users may copy, modify or distribute this file at will.
  1680.  * 
  1681.  * THIS FILE IS PROVIDED AS IS WITH NO WARRANTIES OF ANY KIND INCLUDING THE
  1682.  * WARRANTIES OF DESIGN, MERCHANTIBILITY AND FITNESS FOR A PARTICULAR
  1683.  * PURPOSE, OR ARISING FROM A COURSE OF DEALING, USAGE OR TRADE PRACTICE.
  1684.  * 
  1685.  * This file is provided with no support and without any obligation on the
  1686.  * part of Sun Microsystems, Inc. to assist in its use, correction,
  1687.  * modification or enhancement.
  1688.  * 
  1689.  * SUN MICROSYSTEMS, INC. SHALL HAVE NO LIABILITY WITH RESPECT TO THE
  1690.  * INFRINGEMENT OF COPYRIGHTS, TRADE SECRETS OR ANY PATENTS BY THIS FILE
  1691.  * OR ANY PART THEREOF.
  1692.  * 
  1693.  * In no event will Sun Microsystems, Inc. be liable for any lost revenue
  1694.  * or profits or other special, indirect and consequential damages, even
  1695.  * if Sun has been advised of the possibility of such damages.
  1696.  * 
  1697.  * Sun Microsystems, Inc.
  1698.  * 2550 Garcia Avenue
  1699.  * Mountain View, California  94043
  1700.  *
  1701.  * Modifications to the original Sun Microsystems, Inc. source code
  1702.  * made by the Grasshopper Group are in the Public Domain.
  1703.  *
  1704.  * Extensions to this file by Eric Messick of the Grasshopper Group.
  1705.  *
  1706.  * Grasshopper Group
  1707.  * 212 Clayton St
  1708.  * San Francisco, CA 94117
  1709.  *
  1710.  */
  1711.  
  1712. #ifndef lint
  1713. static char sccsid[] = "@(#)selection.c 9.4 88/01/19 Copyright 1987 Sun Micro";
  1714. static    char RCSid[] =
  1715.     "@(#)$Header: selection.c,v 2.3 88/10/04 05:59:54 gnu Release $";
  1716. #endif
  1717.  
  1718. /*
  1719.  * Copyright (c) 1987 by Sun Microsystems, Inc. 
  1720.  */
  1721.  
  1722. /*-
  1723.     selection.c
  1724.  
  1725.     selection.c, Fri Feb 27 23:51:49 1987
  1726.  
  1727.  */
  1728.  
  1729. /*
  1730.  * Selection module 
  1731.  *
  1732.  * The external interfaces of this module are
  1733.  * tc_extend_to(col, row, rank, rect)
  1734.  * tc_report_selection(rank)
  1735.  * tc_deselect(rank)
  1736.  * tc_refresh_selection()
  1737.  */
  1738.  
  1739. #include    <sys/types.h>
  1740. #ifdef REF
  1741. #include    <ref/config.h>
  1742. #endif
  1743. #include    "screen.h"
  1744. #include    "tcap.h"
  1745.  
  1746. extern int    CharsPerLine;
  1747. extern int    LinesPerScreen;
  1748. extern int    ScrollY;
  1749. extern int    ScrollLength;
  1750. extern int    ScrollLinesSaved;
  1751.  
  1752. static int FixedRow, FixedCol, FloatRow, FloatCol;
  1753. static int ValidSelectionRange = 0 ;
  1754. static int FixedPointSet = 0 ;
  1755. static int Selecting = 0 ;
  1756. static int RectSelection = 0 ;
  1757. static char spaces[MaxCharsPerLine];
  1758.  
  1759. #define SelectionThreshold 32000
  1760.  
  1761. StartSelection(col, row)
  1762. int col, row;
  1763. {
  1764.     if (FixedPointSet)
  1765.         return;
  1766.     if (row<ScrollLinesSaved-ScrollLength)
  1767.         row = ScrollLinesSaved - ScrollLength ;
  1768.     if (row>=ScrollLength) row = ScrollLength - 1 ;
  1769.     if (col<0) col = 0 ;
  1770.     if (RectSelection) {
  1771.         if (col>=CharsPerLine) col = CharsPerLine - 1 ;
  1772.         }
  1773.     else    {
  1774.         if (col>lines[row]->length) col = lines[row]->length ;
  1775.         }
  1776.     DeSelect();
  1777.     FixedRow = row ;
  1778.     FixedCol = col ;
  1779.     FixedPointSet = 1 ;
  1780. }
  1781.  
  1782. ExtendTo(col, row, strokeoutline)
  1783. int col, row, strokeoutline;
  1784. {
  1785. /*    if (row<ScrollY)
  1786.         scroll_to(ScrollY - ScrollLength + ScrollLinesSaved - row); */
  1787.     if (row<ScrollLength-ScrollLinesSaved)
  1788.         row = ScrollLength - ScrollLinesSaved ;
  1789. /*    if (row>=ScrollY+LinesPerScreen)
  1790.         scroll_to(ScrollY - ScrollLength + ScrollLinesSaved +
  1791.                 LinesPerScreen - row) ; */
  1792.     if (row>=ScrollLength) row = ScrollLength - 1 ;
  1793.     if (col<0) col = 0 ;
  1794.     if (RectSelection) {
  1795.         if (col>=CharsPerLine) col = CharsPerLine - 1 ;
  1796.         }
  1797.     else    {
  1798.         if (col>lines[row]->length) col = lines[row]->length ;
  1799.         }
  1800.     if (ValidSelectionRange) {
  1801.         if (FloatRow==FixedRow) {
  1802.             if (FloatCol > FixedCol)
  1803.                 ChooseFixed(FixedCol, FixedRow,
  1804.                         FloatCol, FloatRow, col, row);
  1805.             else    ChooseFixed(FloatCol, FloatRow,
  1806.                         FixedCol, FixedRow, col, row);
  1807.             }
  1808.         else    if (FloatRow > FixedRow)
  1809.             ChooseFixed(FixedCol, FixedRow,
  1810.                     FloatCol, FloatRow, col, row);
  1811.         else    ChooseFixed(FloatCol, FloatRow,
  1812.                     FixedCol, FixedRow, col, row);
  1813.         }
  1814.     else    StartSelection(col, row);
  1815.     FloatRow = row ;
  1816.     FloatCol = col ;
  1817.     if (FloatRow==FixedRow) {
  1818.         if (FloatCol > FixedCol)
  1819.             HiLight(FixedCol, FixedRow,
  1820.                     FloatCol, FloatRow, strokeoutline);
  1821.         else    HiLight(FloatCol, FloatRow,
  1822.                     FixedCol, FixedRow, strokeoutline);
  1823.         }
  1824.     else    if (FloatRow > FixedRow)
  1825.         HiLight(FixedCol, FixedRow, FloatCol, FloatRow, strokeoutline);
  1826.     else    HiLight(FloatCol, FloatRow, FixedCol, FixedRow, strokeoutline);
  1827. }
  1828.  
  1829. ReportSelection()
  1830. {
  1831.     if (FloatRow==FixedRow) {
  1832.         if (FloatCol > FixedCol)
  1833.             Report(FixedCol, FixedRow, FloatCol, FloatRow);
  1834.         else    Report(FloatCol, FloatRow, FixedCol, FixedRow);
  1835.         }
  1836.     else    if (FloatRow > FixedRow)
  1837.         Report(FixedCol, FixedRow, FloatCol, FloatRow);
  1838.     else    Report(FloatCol, FloatRow, FixedCol, FixedRow);
  1839.     FixedPointSet = 0 ;
  1840. }
  1841.  
  1842. ChooseFixed(startcol, startrow, endcol, endrow, col, row)
  1843. int startcol, startrow, endcol, endrow, col, row;
  1844. {
  1845.     if (RectSelection) {
  1846.         if (abs(startrow-row) > abs(endrow-row))
  1847.             row = startrow ;
  1848.         else    row = endrow ;
  1849.         if (abs(startcol-col) > abs(endcol-col))
  1850.             col = startcol ;
  1851.         else    col = endcol ;
  1852.         StartSelection(col, row) ;
  1853.         return;
  1854.         }
  1855.     if ((row < startrow) || ((row == startrow) && (col <= startcol))) {
  1856.         StartSelection(endcol, endrow);
  1857.         return;
  1858.         }
  1859.     if ((row > endrow) || ((row == endrow) && (col >= endcol))) {
  1860.         StartSelection(startcol, startrow);
  1861.         return;
  1862.         }
  1863.     if (countchars(startcol, startrow, col, row) <
  1864.         countchars(col, row, endcol, endrow)) {
  1865.         StartSelection(endcol, endrow);
  1866.         }
  1867.     else    {
  1868.         StartSelection(startcol, startrow);
  1869.         }
  1870. }
  1871.  
  1872. countchars(startcol, startrow, endcol, endrow)
  1873. int startcol, startrow, endcol, endrow;
  1874. {
  1875.     int count ;
  1876.     struct line **sp;
  1877.  
  1878.     count = endcol-startcol ;
  1879.     for (sp = &lines[startrow]; startrow<endrow; sp++, startrow++)
  1880.         count += (*sp)->length ;
  1881.     return count;
  1882. }
  1883.  
  1884. HiLight(startcol, startrow, endcol, endrow, strokeoutline)
  1885. int startcol, startrow, endcol, endrow, strokeoutline;
  1886. {
  1887.     int row, col;
  1888.     struct line **sp;
  1889.     extern int fontisfixedwidth;
  1890.  
  1891.     startrow -= ScrollY ;
  1892.     endrow -= ScrollY ;
  1893.  
  1894.     if (RectSelection) {
  1895.         if (startrow>endrow) {
  1896.             row = startrow ;
  1897.             startrow = endrow ;
  1898.             endrow = row ;
  1899.             }
  1900.         if (startcol>endcol) {
  1901.             col = startcol ;
  1902.             startcol = endcol ;
  1903.             endcol = col ;
  1904.             }
  1905.         if (endrow < 0 || startrow >= LinesPerScreen) return;
  1906.         if (startrow < 0) startrow = 0 ;
  1907.         if (endrow >= LinesPerScreen) endrow = LinesPerScreen - 1 ;
  1908.         if (fontisfixedwidth) {
  1909.             HiLightRect(startcol, startrow,
  1910.                     endcol, endrow, strokeoutline);
  1911.             }
  1912.         else    {
  1913.             HiLightRect(startcol, startrow,
  1914.                     endcol, endrow, strokeoutline);
  1915.                 /* punt for now */
  1916.             }
  1917.         }
  1918.     else    {
  1919.         if (startrow < 0) {
  1920.             startrow = 0 ;
  1921.             startcol = 0 ;
  1922.             }
  1923.         if (endrow >= LinesPerScreen) {
  1924.             endrow = LinesPerScreen - 1 ;
  1925.             endcol = screen[endrow]->length ;
  1926.             }
  1927.         StartHiLighting(strokeoutline);
  1928.         for (sp = &lines[startrow+ScrollY], row = startrow;
  1929.                 row<endrow;
  1930.                 sp++, row++)
  1931.             if (fontisfixedwidth)
  1932.                 HiLightLine((*sp)->length);
  1933.             else    {
  1934.                 (*sp)->body[(*sp)->length] = ' ' ;
  1935.                 StrHiLightLine((*sp)->body, (*sp)->length + 1);
  1936.                 }
  1937.         if (fontisfixedwidth)
  1938.             EndHiLighting(endcol, startcol, startrow);
  1939.         else    {
  1940.             (*sp)->body[(*sp)->length] = ' ' ;
  1941.             StrEndHiLighting((*sp)->body, endcol+1,
  1942.                     lines[startrow+ScrollY]->body,
  1943.                     startcol, startrow);
  1944.             }
  1945.         }
  1946. }
  1947.  
  1948. Report(startcol, startrow, endcol, endrow)
  1949. int startcol, startrow, endcol, endrow;
  1950. {
  1951.     int row, col, selection_length, extra;
  1952.     struct line **sp;
  1953.  
  1954.     selection_length = 0 ;
  1955.  
  1956.     StartSavingSelection();
  1957.     if (RectSelection) {
  1958.         RePaintHiLight();
  1959.         if (startrow>endrow) {
  1960.             row = startrow ;
  1961.             startrow = endrow ;
  1962.             endrow = row ;
  1963.             }
  1964.         if (startcol>endcol) {
  1965.             col = startcol ;
  1966.             startcol = endcol ;
  1967.             endcol = col ;
  1968.             }
  1969.         for (sp = &lines[startrow];
  1970.                 startrow<=endrow;
  1971.                 startrow++, sp++) {
  1972.             selection_length += endrow - startrow + 1 ;
  1973.             if (selection_length > SelectionThreshold) {
  1974.                 bugprintf("Selection truncated. Max %d chars",
  1975.                     SelectionThreshold, 0, 0);
  1976.                 break;
  1977.                 }
  1978.             if ((*sp)->length < startcol) {
  1979.                 SaveSelectionPiece(spaces, endcol-startcol+1);
  1980.                 }
  1981.             else if ((*sp)->length < endcol) {
  1982.                 SaveSelectionPiece(&((*sp)->body[startcol]),
  1983.                         (*sp)->length - startcol);
  1984.                 SaveSelectionPiece(spaces,
  1985.                         endcol - (*sp)->length + 1);
  1986.                 }
  1987.             else    {
  1988.                 SaveSelectionPiece(&((*sp)->body[startcol]),
  1989.                         endcol - startcol + 1);
  1990.                 }
  1991.             SaveSelectionPiece("\r", 1);
  1992.             }
  1993.         }
  1994.     else    {
  1995.         sp = &lines[startrow] ;
  1996.         if (startrow == endrow) {
  1997.             if (endcol >= (*sp)->length)
  1998.                 extra = 0 ;
  1999.             else    extra = 1 ;
  2000.             if ((*sp)->buffer_length > 0)
  2001.                 SaveSelectionPiece(&((*sp)->body[startcol]),
  2002.                         endcol - startcol + extra);
  2003.             (*sp)->changeposition = 0 ;
  2004.             (*sp)->end_of_changes = CharsPerLine ;
  2005.             if ((*sp)->buffer_length > 0)
  2006.                 for (; startcol<=endcol; startcol++)
  2007.                     (*sp)->prop[startcol] |= PrimSelMode ;
  2008.             }
  2009.         else    {
  2010.             selection_length = (*sp)->length - startcol + 1 ;
  2011.             SaveSelectionPiece(&((*sp)->body[startcol]),
  2012.                         (*sp)->length - startcol);
  2013.             if ((((*sp)->flags) & LINE_WRAPPED) == 0)
  2014.                 SaveSelectionPiece("\r", 1);
  2015.             (*sp)->changeposition = 0 ;
  2016.             (*sp)->end_of_changes = CharsPerLine ;
  2017.             if ((*sp)->buffer_length > 0)
  2018.                 for (; startcol<=(*sp)->length; startcol++)
  2019.                     (*sp)->prop[startcol] |= PrimSelMode ;
  2020.             for (sp++, startrow++;
  2021.                     startrow<endrow;
  2022.                     sp++, startrow++) {
  2023.                 selection_length += (*sp)->length + 1 ;
  2024.                 if (selection_length > SelectionThreshold) {
  2025.                     break;
  2026.                     }
  2027.                 if ((*sp)->buffer_length > 0)
  2028.                     SaveSelectionPiece((*sp)->body,
  2029.                             (*sp)->length);
  2030.                 if ((((*sp)->flags) & LINE_WRAPPED) == 0)
  2031.                     SaveSelectionPiece("\r", 1);
  2032.                 (*sp)->changeposition = 0 ;
  2033.                 (*sp)->end_of_changes = CharsPerLine ;
  2034.                 if ((*sp)->buffer_length > 0)
  2035.                     for (startcol=0;
  2036.                         startcol<=(*sp)->length;
  2037.                         startcol++)
  2038.                         (*sp)->prop[startcol] |=
  2039.                             PrimSelMode ;
  2040.                 }
  2041.             selection_length += (endcol >= (*sp)->length) ?
  2042.                         (*sp)->length+1 : endcol+1;
  2043.             if ((*sp)->buffer_length > 0)
  2044.                 SaveSelectionPiece((*sp)->body,
  2045.                         (endcol >= (*sp)->length) ?
  2046.                         (*sp)->length : endcol+1);
  2047.             if (selection_length > SelectionThreshold) {
  2048.                 bugprintf("Selection truncated. Max %d chars",
  2049.                         SelectionThreshold, 0, 0);
  2050.                 }
  2051.             else    {
  2052.                 (*sp)->changeposition = 0 ;
  2053.                 (*sp)->end_of_changes = CharsPerLine ;
  2054.                 if ((*sp)->buffer_length > 0)
  2055.                     for (startcol=0;
  2056.                         startcol<=((endcol >=
  2057.                             (*sp)->length) ?
  2058.                             (*sp)->length :
  2059.                             endcol);
  2060.                         startcol++)
  2061.                         (*sp)->prop[startcol] |=
  2062.                             PrimSelMode ;
  2063.                 }
  2064.             }
  2065.         if (endcol>=(*sp)->length)
  2066.             SaveSelectionPiece("\r", 1);
  2067.         }
  2068.     FinishSavingSelection();
  2069.     TakeDownOutline();
  2070. }
  2071.  
  2072. DeSelect()
  2073. {
  2074.     int row, col, endrow;
  2075.  
  2076.     if (ValidSelectionRange == 0) return;
  2077.     if (RectSelection) {
  2078.         RePaintHiLight();
  2079.         }
  2080.     else    {
  2081.         if (FixedRow > FloatRow) {
  2082.             row = FloatRow;
  2083.             endrow = FixedRow;
  2084.             }
  2085.         else    {
  2086.             row = FixedRow;
  2087.             endrow = FloatRow;
  2088.             }
  2089.         for (; row<=endrow; row++) {
  2090.             lines[row]->changeposition = 0 ;
  2091.             lines[row]->end_of_changes = CharsPerLine;
  2092.             if (lines[row]->buffer_length > 0)
  2093.                 for(col=0; col<lines[row]->length+1; col++)
  2094.                     lines[row]->prop[col] &= ~PrimSelMode ;
  2095.             }
  2096.         }
  2097.     ClearSelectionPath();
  2098. }
  2099.  
  2100. /* --------------- External Routines Below ------------------- */
  2101. tc_init_selection()
  2102. {
  2103.     int i;
  2104.     char *s;
  2105.  
  2106.     for (i=0, s=spaces; i<MaxCharsPerLine; i++, s++)
  2107.         *s = ' ' ;
  2108. }
  2109. /*ARGSUSED*/
  2110. tc_extend_selection(col, row, rank, rect)
  2111.     int    col, row, rank, rect;
  2112. {
  2113.     if (rect)
  2114.         RectSelection = 1 ;
  2115.     ExtendTo(col, row + ScrollY, 1);
  2116.     ValidSelectionRange = 1 ;
  2117.     Selecting = 1 ;
  2118. }
  2119. /*ARGSUSED*/
  2120. tc_report_selection(rank)
  2121. int rank;
  2122. {
  2123.     if (Selecting) {
  2124.         ReportSelection();
  2125.         Selecting = 0 ;
  2126.         }
  2127. }
  2128. /*ARGSUSED*/
  2129. tc_deselect(rank)
  2130.     int rank;
  2131. {
  2132.     if (!Selecting) {
  2133.         DeSelect();
  2134.         ValidSelectionRange = 0 ;
  2135.         RectSelection = 0 ;
  2136.         }
  2137. }
  2138.  
  2139. tc_take_down_selection()
  2140. {
  2141.     if (!Selecting && ValidSelectionRange && RectSelection) {
  2142.         RePaintHiLight();
  2143.         }
  2144. }
  2145.  
  2146. tc_refresh_selection()
  2147. {
  2148.     ClearSelectionPath();
  2149.     if (!Selecting && ValidSelectionRange && RectSelection) {
  2150.         ExtendTo(FloatCol, FloatRow, 0);
  2151.         FixedPointSet = 0 ;
  2152.         RePaintHiLight();
  2153.         }
  2154. }
  2155. @@@ Fin de selection.c
  2156. echo sys5.c
  2157. cat >sys5.c <<'@@@ Fin de sys5.c'
  2158. /*
  2159.  * This file is a product of Sun Microsystems, Inc. and is provided for
  2160.  * unrestricted use provided that this legend is included on all tape
  2161.  * media and as a part of the software program in whole or part.
  2162.  * Users may copy, modify or distribute this file at will.
  2163.  * 
  2164.  * THIS FILE IS PROVIDED AS IS WITH NO WARRANTIES OF ANY KIND INCLUDING THE
  2165.  * WARRANTIES OF DESIGN, MERCHANTIBILITY AND FITNESS FOR A PARTICULAR
  2166.  * PURPOSE, OR ARISING FROM A COURSE OF DEALING, USAGE OR TRADE PRACTICE.
  2167.  * 
  2168.  * This file is provided with no support and without any obligation on the
  2169.  * part of Sun Microsystems, Inc. to assist in its use, correction,
  2170.  * modification or enhancement.
  2171.  * 
  2172.  * SUN MICROSYSTEMS, INC. SHALL HAVE NO LIABILITY WITH RESPECT TO THE
  2173.  * INFRINGEMENT OF COPYRIGHTS, TRADE SECRETS OR ANY PATENTS BY THIS FILE
  2174.  * OR ANY PART THEREOF.
  2175.  * 
  2176.  * In no event will Sun Microsystems, Inc. be liable for any lost revenue
  2177.  * or profits or other special, indirect and consequential damages, even
  2178.  * if Sun has been advised of the possibility of such damages.
  2179.  * 
  2180.  * Sun Microsystems, Inc.
  2181.  * 2550 Garcia Avenue
  2182.  * Mountain View, California  94043
  2183.  *
  2184.  * Modifications to the original Sun Microsystems, Inc. source code
  2185.  * made by the Grasshopper Group are in the Public Domain.
  2186.  *
  2187.  * Extensions to this file by Eric Messick of the Grasshopper Group.
  2188.  *
  2189.  * Grasshopper Group
  2190.  * 212 Clayton St
  2191.  * San Francisco, CA 94117
  2192.  *
  2193.  */
  2194.  
  2195. #ifndef lint
  2196. static  char sccsid[] = "@(#)sys5.c 9.6 88/01/19 SMI";
  2197. static    char RCSid[] =
  2198.     "@(#)$Header: sys5.c,v 2.1 88/10/04 05:59:56 gnu Release $";
  2199. #endif
  2200.  
  2201. /*
  2202.  * Copyright (c) 1987 by Sun Microsystems, Inc.
  2203.  */
  2204.  
  2205. #ifdef    REF
  2206. #include    <ref/config.h>
  2207. #endif
  2208.  
  2209. /*
  2210.  * System V Support Routines.
  2211.  */
  2212. #ifdef HAVE_SYSV_TTYS
  2213. #include <sys/types.h>
  2214. #include <fcntl.h>
  2215. #include <sys/ioctl.h>
  2216. #include <sys/termio.h>
  2217. #include <signal.h>
  2218. #include <stdio.h>
  2219.  
  2220. static    struct termio old_termio, slave_termio, default_termio = {
  2221.     BRKINT|IGNPAR|ISTRIP|ICRNL|IXON|IXANY,
  2222.     OPOST|ONLCR,
  2223.     B9600|CS8|CREAD|HUPCL|CLOCAL,
  2224.     ISIG|ICANON|ECHO|ECHOE|ECHOK,
  2225.     0,
  2226.     03,CQUIT,010,025,CEOF,CNUL,0,0
  2227. };
  2228. static    int notty = 0;
  2229. extern    int CharsPerLine;
  2230. extern    int LinesPerScreen;
  2231.  
  2232. GetTTYDefaults()
  2233. { 
  2234.     int fd;
  2235.  
  2236.     /*
  2237.      * Try to copy the termio settings for our controlling terminal for
  2238.      * use on the slave pty, but watch out for the case where we were invoked
  2239.      * as a background process by a shell that may have subsequently put the
  2240.      * control terminal into raw mode (e.g. ksh will do this).
  2241.      */
  2242.     slave_termio = default_termio;    /* assume the worst */
  2243.     if ((fd = open("/dev/tty", O_RDWR|O_NDELAY)) >= 0) {
  2244.     if (ioctl(fd, TCGETA, &old_termio) == 0) {
  2245.         if (old_termio.c_line == default_termio.c_line) {
  2246.         if (old_termio.c_lflag & ICANON)
  2247.             slave_termio = old_termio;
  2248.         else {
  2249.             /* if not doing canonical input, we can probably still
  2250.              * use the VINTR, VQUIT, VERASE, and VKILL parameters
  2251.              */
  2252.             slave_termio.c_cc[VINTR] = old_termio.c_cc[VINTR];
  2253.             slave_termio.c_cc[VQUIT] = old_termio.c_cc[VQUIT];
  2254.             slave_termio.c_cc[VERASE] = old_termio.c_cc[VERASE];
  2255.             slave_termio.c_cc[VKILL] = old_termio.c_cc[VKILL];
  2256.         }
  2257.         }
  2258.     }
  2259.     close(fd);
  2260.     }
  2261.     else
  2262.     notty = 1;
  2263. }
  2264.  
  2265. SetTTYState(fd)
  2266.     int fd;
  2267. {
  2268.  
  2269.     (void) ioctl(fd, TCSETA, &slave_termio);
  2270.     {
  2271.     char num[16];
  2272.     sprintf(num, "%d", LinesPerScreen);
  2273.     set_environment_var("LINES",num);
  2274.     sprintf(num, "%d", CharsPerLine);
  2275.     set_environment_var("COLUMNS", num);
  2276.     }
  2277. }
  2278.  
  2279. DisAssociateTTY()
  2280. {
  2281.  
  2282. }
  2283.  
  2284. AssociateTTY()
  2285. {
  2286.  
  2287.     if (notty)
  2288.     setpgrp();
  2289. }
  2290.  
  2291. SetupControllingTTY(line)
  2292.     char line[];
  2293. {
  2294.  
  2295.     (void) setpgrp();
  2296.     (void) close(open(line, O_RDWR));
  2297. }
  2298.  
  2299. #include <utmp.h>
  2300. #ifndef UTMP_FILE
  2301. #define UTMP_FILE "/etc/utmp"
  2302. #endif
  2303. #include <pwd.h>
  2304.  
  2305. static    int tslot = -1;
  2306.  
  2307. addut(uid, line)
  2308.     char line[];
  2309. {
  2310. #ifdef UTMP
  2311.     struct passwd *pw, *getpwuid();
  2312.     int i;
  2313.  
  2314.     /*
  2315.      * Record entry in /etc/utmp if possible.
  2316.      */
  2317.     tslot = ttyslot();
  2318. #if defined(hpux)
  2319.     /*
  2320.      * Must create utmp entry before ttyslot will work.
  2321.      */
  2322.     if (tslot < 0) {
  2323.     int fd = open(UTMP_FILE, O_RDWR|O_APPEND);
  2324.  
  2325.     if (fd > -1) {
  2326.         struct utmp utmp;
  2327.         memset(&utmp, 0, sizeof (utmp));
  2328.         memcpy(utmp.ut_line, &line[5], sizeof (utmp.ut_line));
  2329.         utmp.ut_type = USER_PROCESS;
  2330.         write(fd, &utmp, sizeof (utmp));
  2331.         close(fd);
  2332.         tslot = ttyslot();        /* try again */
  2333.     } 
  2334.     }
  2335. #endif /* hpux */
  2336.     pw = getpwuid(uid);
  2337.     if (tslot > 0 && pw && (i = open(UTMP_FILE, O_RDWR)) >= 0) {
  2338.     struct utmp utmp;
  2339.     char *cp, *p, *getenv(), *index();
  2340.  
  2341.     memset(&utmp, 0, sizeof (utmp));
  2342.     memcpy(utmp.ut_line, &line[5], sizeof (utmp.ut_line));
  2343.     memcpy(utmp.ut_name, pw->pw_name, sizeof (utmp.ut_name));
  2344.     memcpy(utmp.ut_id, "NeWS", sizeof (utmp.ut_id));
  2345.     utmp.ut_type = USER_PROCESS;
  2346.     (void) time(&utmp.ut_time);
  2347.     (void) lseek(i, tslot * sizeof (utmp), 0);
  2348.     (void) write(i, &utmp, sizeof (utmp));
  2349.     (void) close(i);
  2350.     }
  2351. #endif /* UTMP */
  2352. }
  2353.  
  2354. rmut()
  2355. {
  2356. #ifdef UTMP
  2357.     int fd;
  2358.  
  2359.     if (tslot >= 0 && (fd = open(UTMP_FILE, O_WRONLY)) >= 0) {
  2360.     struct utmp utmp;
  2361.  
  2362.     (void) lseek(fd, tslot * sizeof (utmp), 0);
  2363.     (void) read(fd, &utmp, sizeof (utmp));
  2364.     utmp.ut_type = DEAD_PROCESS;
  2365.     (void) lseek(fd, tslot * sizeof (utmp), 0);
  2366.     (void) write(fd, &utmp, sizeof (utmp));
  2367.     (void) close(fd);
  2368.     }
  2369. #endif
  2370. }
  2371.  
  2372. killpg(pgrp, sig)
  2373. {
  2374.  
  2375.     kill(-pgrp, sig);
  2376. }
  2377. #endif /* HAVE_SYSV_TTYS */
  2378. @@@ Fin de sys5.c
  2379. exit 0
  2380.  
  2381.