/****************************** Module Header *******************************
*
* Module Name: epm_ea.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.
*
****************************************************************************/
; Various routines used for manipulating extended attributes.  Used by EPM.

const
   EAT_ASCII    = \253\255    -- FFFD
   EAT_MVMT     = \223\255    -- FFDF

; ---------------------------------------------------------------------------
; Returns 1 if attribute name exists; sets VAR args.  EA_SEG, EA_OFS =
; start of EA buffer.  EA_PTR1, 2 = pointers to start of entry and value,
; respectively, if name was found.  EA_LEN, EA_ENTRYLEN, EA_VALUELEN = length
; of EA area, of entry, and of value, respectively.
; Dependencies:  None
defproc Find_Ea( name, var ea_seg, var ea_ofs, var ea_ptr1, var ea_ptr2, var ea_len, var ea_entrylen, var ea_valuelen)
   ea_long = atol( .eaarea)
;  ea_seg = itoa( rightstr( ea_long, 2), 10)
   ea_seg = ltoa( rightstr( ea_long, 2)\0\0, 10)
;  ea_ofs = itoa( leftstr( ea_long, 2), 10)
   ea_ofs = ltoa( leftstr( ea_long, 2)\0\0, 10)
   if not .eaarea then
      return ''
   endif
   ea_len  = ltoa( peek( ea_seg, ea_ofs, 4), 10)
   ea_end = ea_ofs + ea_len
   ea_ptr1 = ea_ofs + 4                     -- Point past length of FEAList
   do while ea_ptr1 < ea_len
;     ea_flag = itoa( peek( ea_seg, ea_ptr1, 1)\0, 16)
      ea_namelen  = asc( peek( ea_seg, ea_ptr1 + 5, 1))
      ea_valuelen = ltoa( peek( ea_seg, ea_ptr1 + 6, 2)\0\0, 10)
;     ea_entrylen = ltoa( peek( ea_seg, ea_ptr1, 4), 10)
;     if not ea_entrylen then
;        ea_entrylen = ea_len - ea_ptr1
;     endif
      ea_entrylen = (ea_namelen + 12 + ea_valuelen) % 4 * 4  -- ((namelen + 9 + valuelen) + 3) % 4 * 4
      if name = peekz( ea_seg, ea_ptr1 + 8) then
         ea_ptr2 = ea_ptr1 + 9 + ea_namelen  -- Point to start of EA value
         return 1
      endif
      ea_ptr1 = ea_ptr1 + ea_entrylen       -- Point to start of next entry
   enddo

; ---------------------------------------------------------------------------
; Dependencies:  None
defc AddEa, Add_Ea                 -- Adds a single name / value pair to an existing EA list
   parse arg name data
   if name = '' then
      sayerror 'ADD_EA <name> <value> adds the extended attribute value specified to the current file.'
      return
   endif
   name_len = length( name)
   data_len = length( data)
   ea_len_incr = ((16 + name_len + data_len) % 4) * 4  -- align on 32bit boundary (+13 for overhead +3 for rounding)
   if .eaarea then
      ea_long = atol( .eaarea)
;     ea_seg = itoa( rightstr( ea_long, 2), 10)
      ea_seg = ltoa( rightstr( ea_long, 2)\0\0, 10)
;     ea_ofs = itoa( leftstr( ea_long, 2), 10)
      ea_ofs = ltoa( leftstr( ea_long, 2)\0\0, 10)
      ea_old_len  = ltoa( peek( ea_seg, ea_ofs, 4), 10)
      call dynalink32( E_DLL,
                       'myrealloc',
                       ea_long ||
                       atol( ea_old_len + ea_len_incr) ||
                       atol( 0),
                       2)

      r = 0
      ea_ptr = ea_seg
   else
      ea_ptr = atol( dynalink32( E_DLL,
                                 'mymalloc',
                                 atol( ea_len_incr + 4), 2))
      ea_ptr  = ltoa( substr( ea_ptr, 3, 2)\0\0, 10)
      r = -270 * (ea_ptr = 0)
      ea_ofs = 0
      ea_old_len  = 4           -- Point past length field
   endif

   if r then
      sayerror ERROR__MSG r ALLOC_HALTED__MSG
      stop
   endif
   poke ea_ptr, ea_ofs, atol( ea_old_len + ea_len_incr)
   ea_ofs = ea_ofs + ea_old_len
 compile if 0  -- C code does this internally, when saving.
   -- we need to make sure the last entry is marked with zero length
   --   to find the last entry, just look for
   --   a bogus entry.  "\1\2\4\3\5" seems pretty unlikely.
   call Find_Ea( "\1\2\4\3\5", xx_seg, xx_ofs, xx_ptr1, xx_ptr2, xx_len, xx_entrylen, xx_valuelen)
   if (xx_len > 4) and xx_entrylen then
      poke ea_ptr, xx_len-xx_entrylen, atol( xx_entrylen)
   endif

   poke ea_ptr, ea_ofs + 0, atol( 0)        -- Start of EA:  size (last one is always marked as zero)
 compile else

   poke ea_ptr, ea_ofs, atol( ea_len_incr)  -- Start of EA:  size
 compile endif

   poke ea_ptr, ea_ofs + 4, \0                   -- flag byte
   poke ea_ptr, ea_ofs + 5, chr( name_len)
   poke ea_ptr, ea_ofs + 6, atoi( data_len + 4)  -- Value length = len( data) + len( data_type) + len( data_len)
   poke ea_ptr, ea_ofs + 8, name
   poke ea_ptr, ea_ofs + 8 + name_len, \0        -- Null byte after name
   poke ea_ptr, ea_ofs + 9 + name_len, EAT_ASCII
   poke ea_ptr, ea_ofs + 11 + name_len, atoi( data_len)
   poke ea_ptr, ea_ofs + 13 + name_len, data
   .eaarea = MpFrom2Short( ea_ptr, 0)

; ---------------------------------------------------------------------------
; Dependencies:  find_ea
defproc Get_Eat_Ascii_Value( name)  -- Returns the value for a given attribute name
   if Find_Ea( name, ea_seg, ea_ofs, ea_ptr1, ea_ptr2, ea_len, ea_entrylen, ea_valuelen) then
      stuff = peek( ea_seg, ea_ptr2, Min( ea_valuelen, 4))
      if leftstr( stuff, 2) = EAT_ASCII & ea_valuelen > 4 then
         return peek( ea_seg, ea_ptr2 + 4, Min( itoa( substr( stuff, 3, 2), 10), MAXCOL))
      endif
   endif

; ---------------------------------------------------------------------------
; Dependencies:  find_ea()
defproc Delete_Ea( name)
   parse arg name .
   if not Find_Ea( name, ea_seg, ea_ofs, ea_ptr1, ea_ptr2, ea_len, ea_entrylen, ea_valuelen) then
      return
   endif
   newlen = ea_len - ea_entrylen
   poke ea_seg, ea_ofs, atol( newlen)
   if ea_ptr1 + ea_entrylen < ea_len then  -- If in the middle, close it up
      call memcpyx( atoi( ea_ptr1)''atoi( ea_seg),
         atoi( ea_ptr1 + ea_entrylen)''atoi( ea_seg),
         ea_len - ea_ptr1 - ea_entrylen)
   endif
--   call dynalink32( 'DOSCALLS',
--                    '#305',                -- DosSetMem
--                     atol( ea_seg\0\0) ||
--                     atol( .eaarea) ||
--                     atol( newlen)  ||
--                     atol( 19) )             -- PAG_READ | PAG_WRITE | PAG_COMMIT
   call dynalink32( E_DLL,
                    'myrealloc',
                    \0\0 || atoi( ea_seg) ||
                    atol( newlen) ||
                    atol( 0),
                    2)

; ---------------------------------------------------------------------------
; Dependencies:  find_ea(), delete_ea(), add_ea
defc type
   found = Find_Ea( '.TYPE', ea_seg, ea_ofs, ea_ptr1, ea_ptr2, ea_len, ea_entrylen, ea_valuelen)
   if not found | ea_valuelen = 0 then
      rcx = WinMessageBox( TYPE_TITLE__MSG, NO_FILE_TYPE__MSG, 16388) -- YESNO + MOVEABLE
   elseif peek( ea_seg, ea_ptr2, 2) = EAT_ASCII then
;     type = peek( ea_seg, ea_ptr2 + 4, Min( itoa( peek( ea_seg, ea_ptr2 + 2, 2), 10), MAXCOL))
      type = peek( ea_seg, ea_ptr2 + 4, Min( ltoa( peek( ea_seg, ea_ptr2 + 2, 2)\0\0, 10), MAXCOL))
      rcx = WinMessageBox( TYPE_TITLE__MSG, ONE_FILE_TYPE__MSG\13type\13\13CHANGE_QUERY__MSG, 16388) -- YESNO + MOVEABLE
   elseif peek( ea_seg, ea_ptr2, 2) = EAT_MVMT then
;     ea_numentries = itoa( peek( ea_seg, ea_ptr2 + 4, 2), 10)
      ea_numentries = ltoa( peek( ea_seg, ea_ptr2 + 4, 2)\0\0, 10)
      if ea_numentries = 1 then
         type = ONE_FILE_TYPE__MSG
      else
         type = MANY_FILE_TYPES__MSG
      endif
      ea_entry_ofs = ea_ptr2 + 6
      do i = 1 to ea_numentries
;        ea_entrylen = itoa( peek( ea_seg, ea_entry_ofs + 2, 2), 10)
         ea_entrylen = ltoa( peek( ea_seg, ea_entry_ofs + 2, 2)\0\0, 10)
         if peek( ea_seg, ea_entry_ofs, 2) = EAT_ASCII then
            type = type\13''peek( ea_seg, ea_entry_ofs + 4, Min( ea_entrylen, MAXCOL))
         else
            type = type\13''NON_ASCII__MSG
         endif
         ea_entry_ofs = ea_entry_ofs + ea_entrylen + 4
      enddo
      rcx = WinMessageBox( TYPE_TITLE__MSG, type\13\13CHANGE_QUERY__MSG, 16388) -- YESNO + MOVEABLE
   else
      rcx = WinMessageBox( TYPE_TITLE__MSG, NON_ASCII_TYPE__MSG\13CHANGE_QUERY__MSG, 16388) -- YESNO + MOVEABLE
   endif
   if rcx = 6 then
      parse value ListBox( TYPE_TITLE__MSG, TYPE_LIST__MSG, '/'SET__MSG'/'CANCEL__MSG'/'HELP__MSG, 0, 0, 0, 0,
                           GethWndC( APP_HANDLE)''atoi( 1)''atoi( 1)''atoi( 6040) ||
                           SELECT_TYPE__MSG) with button 2 newtype \0
      if newtype & (button = \1) then
         if found then
            call Delete_Ea( '.TYPE')
         endif
         'add_ea .TYPE' newtype
      endif
   endif

; ---------------------------------------------------------------------------
; Dependencies:  find_ea(), delete_ea(), add_ea
defc subject
   subj = ''
   found = Find_Ea( '.SUBJECT', ea_seg, ea_ofs, ea_ptr1, ea_ptr2, ea_len, ea_entrylen, ea_valuelen)
   if arg( 1) = '' then
      max_len = MAXCOL - length( SUBJECT_IS__MSG) - length( CHANGE_QUERY__MSG) - 5
      if not found | ea_valuelen = 0 then
         rcx = WinMessageBox( SUBJ_TITLE__MSG, NO_SUBJECT__MSG, 16388) -- YESNO + MOVEABLE
      elseif peek( ea_seg, ea_ptr2, 2) = EAT_ASCII then
         subj = peek( ea_seg, ea_ptr2 + 4, Min( ltoa( peek( ea_seg, ea_ptr2 + 2, 2)\0\0, 10), MAXCOL))
         newsubj = subj
         if length( subj) > max_len then
            newsubj = leftstr( subj, max_len-3)'...'
         endif
         rcx = WinMessageBox( SUBJ_TITLE__MSG, SUBJECT_IS__MSG\13 newsubj\13\13''CHANGE_QUERY__MSG, 16388) -- YESNO + MOVEABLE
      else
         rcx = WinMessageBox( SUBJ_TITLE__MSG, NON_ASCII_SUBJECT__MSG\1''CHANGE_QUERY__MSG, 16388) -- YESNO + MOVEABLE
      endif
   else  -- arg( 1) not null
      rcx = 6
   endif
   if rcx = 6 then
      if arg( 1) = '' then
         parse value EntryBox( SUBJ_TITLE__MSG, '/'SET__MSG'/'CANCEL__MSG'/'HELP__MSG, subj, 40,
                260,
                atoi( 1)''atoi( 6050)''GethWndC( APP_HANDLE)''SELECT_SUBJECT__MSG) with button 2 newsubj \0
      else
         newsubj = arg( 1)
         button = \1
      endif
      if newsubj & (button = \1) then
         if found then
            call Delete_Ea( '.SUBJECT')
         endif
         'add_ea .SUBJECT' newsubj
      endif  -- newsubj
   endif  -- rcx = 'YES'