/****************************** Module Header ******************************* * * Module Name: draw.e * * Copyright (c) Netlabs EPM Distribution Project 2002 * * $Id$ * * =========================================================================== * * This file is part of the Netlabs EPM Distribution package and is free * software. You can redistribute it and/or modify it under the terms of the * GNU General Public License as published by the Free Software * Foundation, in version 2 as it comes in the "COPYING" file of the * Netlabs EPM Distribution. This library is distributed in the hope that it * will be useful, but WITHOUT ANY WARRANTY; without even the implied warranty * of MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU * General Public License for more details. * ****************************************************************************/ /****************************************************************************** DRAW.E revised from SLIMDRAW.E Bryan Lewis 3/23/88 Two small changes have made this a separately-compilable and linkable-at-runtime module. In EOS2 it makes more sense to "connect up" the DRAW feature only when needed, rather than compile it into the always-present base. Any stand-alone command (not called as a subroutine by others) that's used only occasionally is a good candidate for linking. (1) The conditional compilation test (WANT_DRAW) has been removed to make this separately compilable, since WANT_DRAW is defined in INIT.E, not available when this is compiled alone. (2) A DEFMAIN has been added which merely invokes the original DRAW command. When the user issues "draw" on the command line, DRAW.EX will be linked from disk and entered at DEFMAIN. The effect seen by the user will be the same as before, except for the slight delay of searching the DPATH for DRAW.EX. When DEFMAIN finishes, DRAW.EX will be automatically unlinked to free up memory. (SlimDraw was revised from Davis Foulger's DRAW.E by Bryan Lewis 10/87.) (Insert-toggle feature suggested by John McAssey.) ******************************************************************************/ compile if not defined( SMALL) -- If compiled separately EA_comment 'This defines the DRAW command; it can be linked or executed directly.' define INCLUDING_FILE = 'DRAW.E' include 'stdconst.e' const tryinclude 'mycnf.e' const compile if not defined( NLS_LANGUAGE) NLS_LANGUAGE = 'ENGLISH' compile endif include NLS_LANGUAGE'.e' compile endif ; --------------------------------------------------------------------------- ; defc Draw is now defined in INIT.E to load DRAW.EX explicitely. That is ; required, because the Draw accelerator keyset uses commands now. With ; implicite loading via defining defmain Draw, the EX file would be unloaded ; before a key command is executed. ; defc Draw calls Draw_Init. defc Draw_Init universal boxtab1, boxtab2, boxtab3, boxtab4 universal g1, g2, g3, g4, g5, g6, g7, g8, g9, ga, gb universal ondbcs universal cursor_mode universal activeaccel args = arg( 1) if args = '' then KeyPath = '\NEPMD\User\Format\DrawStyle' args = QueryConfigKey( KeyPath) endif upargs = upcase( args) if upargs = 'SELECT' | upargs = '' then call SelectDrawStyle() return endif Style = substr( upargs, 1, 1) if not length( Style) or verify( Style, '123456B/') then if ondbcs then 'SayError 'DRAW_ARGS_DBCS__MSG else 'SayError 'DRAW_ARGS__MSG endif -- Open commandline to typein the missing arg and call Draw again 'CommandLine draw ' return endif getfileid fid Keyset = GetAVar( fid'.keyset') if Keyset = '' then Keyset = activeaccel endif if Keyset = 'draw' then 'SayError 'ALREADY_DRAWING__MSG return else PreviousKeyset = GetAVar( fid'.previouskeyset') if PreviousKeyset = '' then call SetAVar( fid'.previouskeyset', Keyset) endif 'SetKeyset draw' endif -- Pick characters from a packed string rather than if's, to save space. if ondbcs then all6 = \23\5\2\4\3\1\21\22\25\6\16'+|+++++++-+'\11\11\11\11\11\11\11\11\11\11\11\14\14\14\14\14\14\14\14\14\14\14\20\20\20\20\20\20\20\20\20\20\20\26\26\26\26\26\26\26\26\26\26\26 else all6 = '´³¿ÙÀÚÁÂÃÄŹº»¼ÈÉÊËÌÍÎ+|+++++++-+ÛÛÛßßÛßÛÛßÛµ³¸¾ÔÕÏÑÆÍضº·½ÓÖÐÒÇÄ×' endif if Style = '/' then drawchars = copies( substr( args, 2, 1), 11) elseif Style = 'B' then drawchars = substr( '', 1, 11) else drawchars = substr( all6, 11 * Style - 10, 11) endif -- LAM - changed assignments to a parse statement. Saved 140 bytes of .ex file. parse value drawchars with g1 +1 g2 +1 g3 +1 g4 +1 g5 +1 g6 +1 g7 +1 g8 +1 g9 +1 ga +1 gb boxtab1 = g1''g2''g4''g5''g7''g9''gb boxtab2 = g1''g2''g3''g6''g8''g9''gb boxtab3 = g1''ga''g4''g3''g7''g8''gb boxtab4 = g9''ga''g5''g6''g7''g8''gb istate = insert_state() if istate then insert_toggle call Fixup_Cursor() endif internalkeys = QueryControl( 26) cursor_mode = internalkeys istate 'ToggleControl 26 0' -- don't use internal key definitions 'SayError Draw mode entered. Insert mode interrupts. Esc ends.' ; --------------------------------------------------------------------------- defc DrawKeys DefKey( 'left' , 'draw_left' ) DefKey( 'right' , 'draw_right' ) DefKey( 'up' , 'draw_up' ) DefKey( 'down' , 'draw_down' ) DefKey( 'esc' , 'draw_exit' ) ; --------------------------------------------------------------------------- ; Draw mode cursor commands: overwrite mode draws, insert mode moves cursor. defc draw_left if insert_state() then left else call NextCmdAltersText() draw_left() endif ; --------------------------------------------------------------------------- defc draw_right if insert_state() then right else call NextCmdAltersText() draw_right() endif ; --------------------------------------------------------------------------- defc draw_up if insert_state() then up else call NextCmdAltersText() draw_up() endif ; --------------------------------------------------------------------------- defc draw_down if insert_state() then down else call NextCmdAltersText() draw_down() endif ; --------------------------------------------------------------------------- defc draw_exit universal cursor_mode getfileid fid Keyset = GetAVar( fid'.keyset') if Keyset = 'draw' then PreviousKeyset = GetAVar( fid'.previouskeyset') 'SetKeyset' PreviousKeyset call DropAVar( fid'.previouskeyset') endif parse value cursor_mode with internalkeys istate if istate <> insertstate() then inserttoggle call Fixup_Cursor() endif 'togglecontrol 26' internalkeys 'SayError 'DRAW_ENDED__MSG 'Postme UnLink quiet draw' ; --------------------------------------------------------------------------- defproc get_char universal linepos, colpos, target colpos = .col linepos = .line getline target return substr( target, .col, 1) ; --------------------------------------------------------------------------- ; draw logic for the up key defproc draw_up universal last, l, r, u, d, boxtab1, linepos, colpos universal g1, g2, g3, g4, g5, g6, g7, g8, g9, ga, gb if last = 'd' then up else c = get_char() if last=='u' & c == ' ' then keyin g2 left up elseif not verify( c, boxtab1) then up elseif c == g3 then keyin g1 left up elseif c == g6 then keyin g9 left up elseif c == g8 then keyin gb left up elseif c == ga then call left_right() if l = 1 & r = 1 then keyin g7 elseif l = 1 then keyin g4 else keyin g5 endif left up else call left_right() if last = 'r' & l = 1 then keyin g4 elseif last = 'l' & r = 1 then keyin g5 else keyin g2 endif left up endif if linepos = 1 then insert .col = colpos else c = get_char() if c == g4 then keyin g1 left elseif c == g5 then keyin g9 left elseif c == g7 then keyin gb left elseif c == ga then call left_right() if l = 1 & r = 1 then keyin g8 elseif l = 1 then keyin g3 else keyin g6 endif left endif endif endif last = 'u' ; --------------------------------------------------------------------------- ; Draw logic for the Down key defproc draw_down universal last, l, r, u, d, boxtab2, linepos, colpos universal g1, g2, g3, g4, g5, g6, g7, g8, g9, ga, gb if last = 'u' then down else c = get_char() if last =='d' & c == ' ' then keyin g2 left down elseif not verify( c, boxtab2) then down elseif c == g4 then keyin g1 left down elseif c == g5 then keyin g9 left down elseif c == g7 then keyin gb left down elseif c == ga then call left_right() if l = 1 & r = 1 then keyin g8 elseif l = 1 then keyin g3 else keyin g6 endif left down else call left_right() if last = 'r' & l = 1 then keyin g3 elseif last = 'l' & r = 1 then keyin g6 else keyin g2 endif left down endif if linepos = .last then insert .col = colpos else c = get_char() if c == g3 then keyin g1 left elseif c == g6 then keyin g9 left elseif c == g8 then keyin gb left elseif c == ga then call left_right() if l = 1 & r = 1 then keyin g7 elseif l = 1 then keyin g4 else keyin g5 endif left endif endif endif last = 'd' ; --------------------------------------------------------------------------- ; Check character left and right of cursor position defproc left_right universal last, l, r, boxtab3, boxtab4, lpos, rpos, target, colpos universal g1, g2, g3, g4, g5, g6, g7, g8, g9, ga, gb lpos = colpos - 1 if lpos > 0 then l = substr( target, lpos, 1) else l = ' ' endif rpos = colpos + 1 if rpos < MAXCOL then r = substr( target, rpos, 1) else r = ' ' endif l = not verify( l, boxtab4) r = not verify( r, boxtab3) ; --------------------------------------------------------------------------- ; Draw logic for the Left key defproc draw_left universal last, u, d, boxtab3 universal g1, g2, g3, g4, g5, g6, g7, g8, g9, ga, gb if last == 'r' then left else c = get_char() if last == 'l' & isdbcs( c) then keyin ga keyin ga left left left elseif last == 'l' & c == ' ' then keyin ga left left elseif not verify( c, boxtab3) then left elseif c == g5 then keyin g7 left left elseif c == g6 then keyin g8 left left elseif c == g9 then keyin gb left left elseif c == g2 then call up_down() if u = 1 & d = 1 then keyin g1 elseif u = 1 then keyin g4 else keyin g3 endif left left else call up_down() if last = 'u' & d = 1 then keyin g3 elseif last = 'd' & u = 1 then keyin g4 else keyin ga endif left left endif c = get_char() if isdbcs( c) then keyin ' ' c = get_char() endif if c == g4 then keyin g7 left elseif c == g2 then call up_down() if u = 1 & d = 1 then keyin g9 elseif d = 1 then keyin g6 else keyin g5 endif left elseif c == g3 then keyin g8 left elseif c == g1 then keyin gb left endif endif last = 'l' ; --------------------------------------------------------------------------- ; Draw logic for the Right key defproc draw_right universal last, u, d, boxtab4, colpos universal g1, g2, g3, g4, g5, g6, g7, g8, g9, ga, gb if last == 'l' then right else c = get_char() if last == 'r' & c == ' ' then keyin ga else if not verify( c, boxtab4) then right elseif c == g4 then keyin g7 elseif c == g3 then keyin g8 elseif c == g1 then keyin gb elseif c == g2 then call up_down() if u = 1 & d = 1 then keyin g9 elseif d = 1 then keyin g6 else keyin g5 endif else call up_down() if last = 'u' & d = 1 then keyin g6 elseif last = 'd' & u = 1 then keyin g5 else keyin ga endif endif call left_right() endif c = get_char() if c == g5 then keyin g7 left elseif c == g2 then call up_down() if u = 1 & d = 1 then keyin g1 elseif u = 1 then keyin g4 else keyin g3 endif left elseif c == g6 then keyin g8 left elseif c == g9 then keyin gb left endif endif last = 'r' if colpos = MAXCOL then left endif ; --------------------------------------------------------------------------- ; Check character above and below cursor position defproc up_down universal u, d, boxtab1, boxtab2, linepos, colpos, dpos, upos, target universal g1, g2, g3, g4, g5, g6, g7, g8, g9, ga, gb if linepos = 1 then u = 0 else upos = linepos - 1 getline target, upos u = substr( target, colpos, 1) u = not verify( u, boxtab2) endif dpos = linepos + 1 if dpos > .last then d = ' ' else getline target, dpos d = substr( target, colpos, 1) endif d = not verify( d, boxtab1) getline target, linepos ; --------------------------------------------------------------------------- defproc SelectDrawStyle Sep = \1 Entries = '' -- E bug: String concatenation sometimes adds an additional space char -- for string1''string2 if string2 contains a special (non-ASCII?) char. -- That doesn't happen with string1 || string2. -- The following spacing looks good with 9.Warp Sans: Entries = Entries''Sep || '1 '\179' CP 850, 437' -- ³ thin, single line Entries = Entries''Sep || '2 '\186' CP 850, 437' -- º thin, double line Entries = Entries''Sep || '3 | ASCII' -- | ASCII chars Entries = Entries''Sep || '4 '\219' CP 850, 437' -- Û thick line Entries = Entries''Sep || '5 '\216' CP 437' -- Ø H: double, V: single line Entries = Entries''Sep || '6 '\215' CP 437' -- × H: single, V: double line Entries = Entries''Sep || 'B space' Entries = Entries''Sep || '/ any char' KeyPath = '\NEPMD\User\Format\DrawStyle' OldStyle = QueryConfigKey( KeyPath) rest = Entries i = 0 DefaultItem = 1 do while rest <> '' if i = 20 then -- just to prevent looping forever leave endif i = i + 1 parse value rest with (Sep) 2 Char 3 . (Sep) +0 rest if Char = leftstr( OldStyle, 1) then DefaultItem = i leave endif enddo Title = 'Select a draw style' --copies( ' ', 20) Text = 'The selection will be saved on 'ChangeStr( '~', OK__MSG, '')'.' HelpId = 2110 DefaultButton = 1 Buttons = '/'OK__MSG'/'CANCEL__MSG'/'HELP__MSG refresh Result = ListBox( Title\0, -- <-- \0 required? Entries, Buttons, 0, 0, -- top, left in chars, (0,0) = center, (C,C) = cursor 14, 50, -- height, width in chars GethWndC( APP_HANDLE) || atoi( DefaultItem) || atoi( DefaultButton) || atoi( HelpId) || Text\0) refresh -- Check result parse value Result with Button 2 Selected \0 Selected = leftstr( Selected, 1) BoxChar = '' Style = '' if Button = \1 then -- OK if wordpos( Selected, '1 2 3 4 5 6 B') then Style = Selected endif if Selected = '/' then -- Get box char Title = 'Configure draw character' Text = 'Enter a character:' Text = Text''copies( ' ', Max( 100 - length(Text), 0)) Buttons = '/'OK__MSG'/'CANCEL__MSG Entry = '' parse value EntryBox( Title, Buttons, Entry, 0, 240, atoi( 1) || atoi( 0) || atol( 0) || Text) with Button 2 BoxChar \0 if Button = \1 then -- OK Style = Selected''BoxChar else -- Cancel Style = '' endif endif if Style <> '' & Style <> OldStyle then -- Save selection WriteConfigKey( KeyPath, Style) 'SayError Draw style saved to 'Style'.' endif else -- Cancel endif