OS/2 Shareware BBS: 5 Edit

home *** CD-ROM | disk | FTP | other *** search

/ OS/2 Shareware BBS: 5 Edit / 05-Edit.zip / epmmac2.zip / TREE.E < prev next >

Wrap

Text File | 1996-01-22 | 25KB | 637 lines

compile if not defined(ERROR__MSG) include 'english.e' const EPM = EVERSION >= 5 EPM32 = EVERSION >= 6 defmain 'tree' arg(1) compile endif compile if EPM32 -- ACTIONS file? compile if not defined(MB_OK) include 'stdconst.e' compile endif const TREE__MSG = 'Tree' -- Dialog title; also the name of the command TREE_PROMPT = 'Display files in a given subdirectory or below' TREE2_PROMPT = '. Arguments may be given as a parameter, or will be prompted for otherwise.' TREE_PROMPT__MSG = 'Enter arguments for Tree' TREE_DIR__MSG = 'Tree_Dir' -- Dialog title; also the name of the command TREE_DIR_PROMPT = 'Like DIR, but output in TREE format' TREE_DIR_PROMPT__MSG = 'Enter arguments for Tree_Dir' ; Note: Translations of the following line must stay aligned with the sample ; separator line below it. "Full name" can get as wide as necessary. Stuff in ; parens must be unchanged, but can be shifted left or right. TREES_HEADER = ' Date Time FileSize EA-size Attr. Full name... (% = %d%p%f ; %f = %n.%e)' ; '══════════ ════════ ═════════ ═════════ ═════ ════════════' EA_comment 'This defines the TREE and TREE_DIR commands; it can be linked, or TREE can be executed directly. This is also a toolbar "actions" file.' --------------------- End of text to be translated ---------------------------- ; Here is the <file_name>_ACTIONLIST command that adds the action command ; to the list. defc TREE_actionlist universal ActionsList_FileID -- This is the fileid that gets the line(s) insertline '~tree_action~'TREE_PROMPT || TREE2_PROMPT'~TREE~', ActionsList_FileID.last+1, ActionsList_FileID insertline '~tree_dir_action~'TREE_DIR_PROMPT || TREE2_PROMPT'~TREE~', ActionsList_FileID.last+1, ActionsList_FileID ; This is the command that will be called for the above action. defc tree_action parse arg action_letter parms if action_letter = 'S' then -- button Selected sayerror 0 if parms='' then 'compiler_help_add tree.hlp' -- Make sure the help file is loaded parse value entrybox(TREE__MSG,'/'OK__MSG'/'Cancel__MSG'/'Help__MSG'/',checkini(0, 'TREE_ARG', ''),'',1590, atoi(1) || atoi(32115) || gethwndc(APP_HANDLE) || TREE_PROMPT__MSG) with button 2 parms \0 if button <> \1 then return endif call setini('TREE_ARG', parms) endif 'tree' parms elseif action_letter = 'I' then -- button Initialized display -8 sayerror TREE_PROMPT display 8 elseif action_letter = 'H' then -- button Help 'compiler_help_add tree.hlp' -- Make sure the help file is loaded 'helpmenu 32111' -- & invoke it. elseif action_letter = 'E' then -- button End ;; sayerror 0 endif defc tree_dir_action parse arg action_letter parms if arg(1) = 'S' then -- button Selected sayerror 0 if parms='' then 'compiler_help_add tree.hlp' -- Make sure the help file is loaded parse value entrybox(TREE_DIR__MSG,'/'OK__MSG'/'Cancel__MSG'/'Help__MSG'/',checkini(0, 'TREE_DIR_ARG', ''),'',1590, atoi(1) || atoi(32115) || gethwndc(APP_HANDLE) || TREE_DIR_PROMPT__MSG) with button 2 parms \0 if button <> \1 then return endif call setini('TREE_DIR_ARG', parms) endif 'tree_dir' parms elseif arg(1) = 'I' then -- button Initialized display -8 sayerror TREE_DIR_PROMPT display 8 elseif arg(1) = 'H' then -- button Help 'compiler_help_add tree.hlp' -- Make sure the help file is loaded 'helpmenu 32112' -- & invoke it. elseif arg(1) = 'E' then -- button End ;; sayerror 0 endif compile endif -- ACTIONS file const DEBUG_TREE = 0 defc tree = parse arg filename call parse_filename(filename, .filename) if substr(filename, 1, 1)='"' then parse value filename with '"' filename '"' endif if filename='' then filename = '*.*' elseif pos(rightstr(filename,1), ':\') then filename = filename'*.*' endif colon = pos(':', filename) if not pos('\', filename) & not colon then filename = directory()'\'filename endif compile if EPM if not verify(filename,'?*','M') then -- If no wildcards if not qfilemode(filename, attrib) then -- File exists compile if EVERSION >= '6.01b' if attrib bitand 16 then -- If x'10' is on then it's a directory compile else if attrib % 16 - 2 * (attrib % 32) then -- If x'10' is on then it's a directory compile endif lp = lastpos('\', filename) if not lp then lp=colon; endif result = winmessagebox('Tree: Directory exists: 'filename, 'Select Yes to search' filename'\*'\10'Select No to search' leftstr(filename, lp) 'for files named "'substr(filename, lp+1)'"', MB_YESNOCANCEL + MB_QUERY + MB_MOVEABLE) if result=MBID_CANCEL then return endif if result=MBID_YES then filename = filename'\*' endif endif endif endif compile endif getfileid startid compile if EPM 'xcom e /c .tree' compile else 'xcom e /q /n .tree' compile endif if rc & rc<>sayerror('New file') then compile if EPM sayerror ERROR__MSG rc BAD_TMP_FILE__MSG sayerrortext(rc) compile else sayerror ERROR__MSG rc BAD_TMP_FILE__MSG compile endif return rc endif getfileid tree_id compile if EPM 'xcom e /c .dirs' compile else 'xcom e /q /n /h .dirs' compile endif if rc & rc<>sayerror('New file') then compile if EPM sayerror ERROR__MSG rc BAD_TMP_FILE__MSG sayerrortext(rc) compile else sayerror ERROR__MSG rc BAD_TMP_FILE__MSG compile endif return rc endif getfileid dirs_fid compile if EPM .visible = 0 -- Make hidden compile endif file_count = 0 total_size = 0 attribute = 55 -- Want to see all files files_truncated = 0 compile if EVERSION < '5.60' dirs_truncated = 0 compile endif if colon then parse value filename with drives ':' filepart filename = 'x:'filepart -- make lp be loop invariant else drives = ' ' -- Want loop to be executed at least once. endif lp=lastpos('\', filename) if not lp & colon then lp=2; endif deleteline 1 do i=1 to length(drives) if colon then filename = substr(drives, i, 1)':'filepart else drives = ' ' -- Want loop to be executed at least once. endif insertline leftstr(filename,lp), 1 filename = substr(filename, lp+1) do while dirs_fid.last getline file_path, 1, dirs_fid if file_path<>'' & not pos(rightstr(file_path,1), ':\') then file_path = file_path'\' endif compile if DEBUG_TREE debug_message( 'dirs last =' dirs_fid.last 'file_path = "'file_path'"') compile endif deleteline 1, dirs_fid compile if EVERSION >= '5.60' call tree_searchdir(file_path || filename, attribute, file_count, total_size, 0, tree_id) call tree_searchdir(file_path'*.*', 4151, junk, junk, 1, dirs_fid) compile else if -278 = tree_searchdir(file_path || filename, attribute, file_count, total_size, 0, tree_id) then files_truncated = -278 endif if -278 = tree_searchdir(file_path'*.*', 4112, junk, junk, 1, dirs_fid) then dirs_truncated = 1 endif compile endif enddo -- dirs_fid.last enddo -- drives activatefile dirs_fid .modify = 0 .autosave = 0 'xcom quit' activatefile tree_id call tree_common_finish(tree_id, file_count, total_size, 'Tree:' arg(1), files_truncated) compile if EVERSION < '5.60' if dirs_truncated then refresh compile if EPM call winmessagebox('Tree incomplete', 'Listing not complete; some directories were truncated.', 16416) -- MB_OK + MB_WARNING + MB_MOVEABLE compile else messageNwait('Listing not complete; some directories were truncated.') compile endif endif compile endif defc tree_dir = parse arg filename call parse_filename(filename, .filename) if substr(filename, 1, 1)='"' then parse value filename with '"' filename '"' endif if filename='' then filename = '*.*' elseif pos(rightstr(filename,1), ':\') then filename = filename'*.*' endif if not pos('\', filename) & substr(filename,2,1)<>':' then filename = directory()'\'filename endif if not verify(filename,'?*','M') then -- If no wildcards if not qfilemode(filename, attrib) then -- File exists compile if EVERSION >= '6.01b' if attrib bitand 16 then -- If x'10' is on then it's a directory compile else if attrib % 16 - 2 * (attrib % 32) then -- If x'10' is on then it's a directory compile endif filename = filename'\*.*' endif endif endif compile if EPM 'xcom e /c .tree' compile else 'xcom e /q /n .tree' compile endif if rc & rc<>sayerror('New file') then compile if EPM sayerror ERROR__MSG rc BAD_TMP_FILE__MSG sayerrortext(rc) compile else sayerror ERROR__MSG rc BAD_TMP_FILE__MSG compile endif return rc endif getfileid tree_id file_count = 0 total_size = 0 attribute = 55 -- Want to see all files res= tree_searchdir(filename, attribute, file_count, total_size, 0, tree_id) call tree_common_finish(tree_id, file_count, total_size, 'Tree_Dir:' arg(1), res) defproc tree_common_finish(tree_id, file_count, total_size, title) if tree_id.modify then compile if EVERSION < '5.60' if arg(5) = -278 then -- sayerror("Lines truncated") replaceline TREES_HEADER' ('LINES_TRUNCATED__MSG')', 1 else replaceline TREES_HEADER, 1 endif compile else replaceline TREES_HEADER, 1 compile endif insertline '══════════ ════════ ═════════ ═════════ ═════ ════════════', 2 insertline ' 'file_count 'file(s) 'total_size 'bytes used', .last+1 compile if EVERSION >= '5.50' .lineg = 3 compile else 3 compile endif .col = 52 compile if EPM .titletext = title 'postme monofont' 'postme tabs 1 13 23 34 45 52' compile else .filename = '.'title .tabs = 1 13 23 34 45 52 compile endif sayerror ALT_1_LOAD__MSG .modify = 0 compile if EVERSION < '5.60' if arg(5) = -278 then -- sayerror("Lines truncated") refresh compile if EPM -- Do a sayerror; it will stay on messageline sayerror 'Warning: Some lines truncated at column 255.' compile else -- must do a messageNwait to be sure it's not erased by a "Tree incomplete" message. messageNwait('Warning: Some lines truncated at column 255.') compile endif endif compile endif else 'xcom q' sayerror 'No hits.' endif ; The arguments to Tree_SearchDir are as follows: ; ; filename: The fully-qualified name we're searching for. ; attribute: The file attributes we pass to DosFindFirst ; file_count: Incremented for each "hit". ; total_size: Incremented by the filesize for each "hit". ; dir_only: A flag to say if we're looking for directories only (for sweeping the tree). ; out_fid: The fileid where the output is to be appended. ; defproc tree_searchdir(filename, attribute, var file_count, var total_size, dir_only, out_fid) compile if DEBUG_TREE debug_message( 'tree_searchdir('filename', 'attribute', ..., 'dir_only', 'out_fid '=' out_fid.filename) compile endif wild_prefix=substr(filename,1,lastpos('\', filename)) if wild_prefix='' & substr(filename, 2, 1)=':' then wild_prefix = leftstr(filename, 2); endif parse value filename with filename ',' masks truncated = 0 -- Initialize do forever -- Until masks run out namez = filename\0 -- ASCIIZ compile if EPM resultbuf = copies(\0, 300) -- Might need to allocate a buffer if < EPM 5.60 compile else resultbuf = substr('', 1, 300, \0) compile endif compile if EVERSION >= 6 -- EPM32: 32-bit version dirhandle = \xff\xff\xff\xff -- Ask system to assign us a handle searchcnt = atol(1) -- Search count; we're only asking for 1 file at a time here. result=dynalink32('DOSCALLS', -- dynamic link library name '#264', -- ordinal value for DOS32FINDFIRST address(namez) || -- Filename we're looking for address(dirhandle) || -- Pointer to the handle atol(attribute) || -- Attribute value describing desired files address(resultbuf) || -- string address atol(length(resultbuf)) || address(searchcnt) || -- Pointer to the count; system updates atol(2), 2) -- File info level 2 requested compile else dirhandle = \255\255 -- Ask system to assign us a handle searchcnt = atoi(1) -- Search count; we're only asking for 1 file at a time here. result=dynalink('DOSCALLS', -- dynamic link library name '#184', -- ordinal value for DOSFINDFIRST2 address(namez) || -- Filename we're looking for address(dirhandle) || -- Pointer to the handle atoi(attribute) || -- Attribute value describing desired files address(resultbuf) || -- string address atoi(length(resultbuf)) || address(searchcnt) || -- Pointer to the count; system updates atoi(2) || -- FileInfoLevel atol(0)) -- reserved compile endif -- EVERSION >= 6 compile if not DEBUG_TREE if result & result<>18 then -- unexpected error, skip remaining masks. sayerror 'result' result 'from DosFindFirst' filename return result endif compile else -- debug if result then if result = 2 then msg = 'FILE NOT FOUND' elseif result = 3 then msg = 'PATH NOT FOUND' elseif result = 6 then msg = 'INVALID HANDLE' elseif result = 18 then msg = 'NO MORE FILES' elseif result = 26 then msg = 'NOT DOS DISK' elseif result = 87 then msg = 'INVALID PARAMETER' elseif result = 108 then msg = 'DRIVE LOCKED' elseif result = 111 then msg = 'BUFFER OVERFLOW' elseif result = 113 then msg = 'NO MORE SEARCH HANDLES' elseif result = 206 then msg = 'FILENAME EXCED RANGE' endif debug_message( 'Error' result '('msg') for "'filename'"') if result<>2 & result<>18 then return result; endif endif compile endif if not result then loop compile if EVERSION >= 6 -- EPM32: 32-bit version filename = substr(resultbuf, 34, asc(substr(resultbuf, 33, 1))) fileattrib = ltoa(substr(resultbuf,25,4),10) skip = filename='.' | filename='..' -- Not a directory we want! filename = wild_prefix || filename if dir_only then if not (fileattrib//32%16) then -- Not a directory? skip = 1 -- Check, because apparently LAN drives don't respect "Must have" attributes... endif if not skip then insertline filename, out_fid.last + 1, out_fid endif else compile if DEBUG_TREE debug_message('Hit on "'filename'" - out_fid.last =' out_fid.last) compile endif filedate = substr(resultbuf, 13, 4) file_size = ltoa(substr(resultbuf,17,4),10) ; filealloc = ltoa(substr(resultbuf,21,4),10) ea_size = ltoa(substr(resultbuf,29,4),10) compile else filename = substr(resultbuf, 28, asc(substr(resultbuf, 27, 1))) skip = filename='.' | filename='..' -- Not a directory we want! fileattrib = itoa(substr(resultbuf,21,2),10) filename = wild_prefix || filename if dir_only then if not (fileattrib//32%16) then -- Not a directory? skip = 1 -- 1.3's DosFindFirst doesn't have "Must have" attributes... endif if not skip then compile if EVERSION < '5.60' if length(wild_prefix) + asc(substr(resultbuf, 27, 1)) > 255 then truncated = 1 -- Don't insert a partial directory else compile endif insertline filename, out_fid.last + 1, out_fid compile if EVERSION < '5.60' endif compile endif endif else filedate = substr(resultbuf, 9, 4) file_size = ltoa(substr(resultbuf,13,4),10) ; filealloc = ltoa(substr(resultbuf,17,4),10) ea_size = ltoa(substr(resultbuf,23,4),10) compile endif -- EVERSION >= 6 file_count = file_count + 1 total_size = total_size + file_size date = ltoa(substr(filedate,1,2)\0\0,10); time = ltoa(substr(filedate,3,2)\0\0,10) year = date % 512; date = date // 512 month = date % 32; day = date // 32 % 1 -- %1 to drop fraction. date = year+1980'-'rightstr(month,2,0)'-'rightstr(day,2,0) hour = time % 2048; time = time // 2048 min = time % 32; sec = time // 32 * 2 % 1 time = rightstr(hour,2)':'rightstr(min,2,0)':'rightstr(sec,2,0) if ea_size=4 then ea_size=0 compile if EVERSION >= 6 else ea_size=ea_size%2 compile endif endif compile if EVERSION < '6.01b' fileattrib = fileattrib // 64 compile endif attr_string = ' ' compile if EVERSION < '6.01b' if fileattrib % 32 then compile else if fileattrib bitand 32 then compile endif attr_string = overlay('A', attr_string, 1) compile if EVERSION < '6.01b' fileattrib = fileattrib // 32 compile endif endif compile if EVERSION < '6.01b' if fileattrib % 16 then compile else if fileattrib bitand 16 then compile endif attr_string = overlay('D', attr_string, 2) file_size = '<dir>' compile if EVERSION < '6.01b' fileattrib = fileattrib // 16 compile endif endif compile if EVERSION < '6.01b' if fileattrib % 4 then compile else if fileattrib bitand 4 then compile endif attr_string = overlay('S', attr_string, 3) compile if EVERSION < '6.01b' fileattrib = fileattrib // 4 compile endif endif compile if EVERSION < '6.01b' if fileattrib % 2 then compile else if fileattrib bitand 2 then compile endif attr_string = overlay('H', attr_string, 4) compile if EVERSION < '6.01b' fileattrib = fileattrib // 2 compile endif endif compile if EVERSION < '6.01b' if fileattrib then compile else if fileattrib bitand 1 then compile endif attr_string = overlay('R', attr_string, 5) endif file_size = rightstr(file_size, 10) out_line = date' 'time file_size rightstr(ea_size,10)' 'attr_string' 'filename insertline out_line, out_fid.last + 1, out_fid compile if EVERSION < '5.60' if length(filename) > 203 then -- Full filename starts in col 52 truncated = 1 endif compile endif endif -- dir_only compile if EVERSION >= 6 -- EPM32: 32-bit version result=dynalink32('DOSCALLS', -- dynamic link library name '#265', -- ordinal value for DOS32FINDNEXT dirhandle || -- Directory handle, returned by DosFindFirst(2) address(resultbuf) || -- address of result buffer atol(length(resultbuf)) || address(searchcnt), 2) -- Pointer to the count; system updates compile else result=dynalink('DOSCALLS', -- dynamic link library name '#65', -- ordinal value for DOSFINDNEXT dirhandle || -- Directory handle, returned by DosFindFirst(2) address(resultbuf) || -- address of result buffer atoi(length(resultbuf)) || address(searchcnt) ) -- Pointer to the count; system updates compile endif -- EVERSION >= 6 if result then compile if EVERSION >= 6 -- EPM32: 32-bit version call dynalink32('DOSCALLS', -- dynamic link library name '#263', -- ordinal value for DOS32FINDCLOSE dirhandle) -- Directory handle, returned by DosFindFirst(2) compile else call dynalink('DOSCALLS', -- dynamic link library name '#63', -- ordinal value for DOSFINDCLOSE dirhandle) -- Directory handle, returned by DosFindFirst(2) compile endif -- EVERSION >= 6 if result<>18 then sayerror UNEXPECTED__MSG 'DosFindNext' result endif leave endif endloop endif -- result from DosFindFirst if masks='' then leave endif parse value masks with mask ',' masks filename = wild_prefix || strip(mask) enddo compile if EVERSION < '5.60' if truncated then return -278 -- sayerror("Lines truncated") endif compile endif compile if DEBUG_TREE defproc debug_message(msgstring) = compile if EPM sayerror msgstring compile else messageNwait(msgstring) compile endif compile endif defc treesort = revrse = '' startmod = .modify arglist = upcase(arg(1)) getfileid thisfid call psave_mark(savemark) mt = marktype() firstline = 3; lastline = .last-1 if mt then getmark firstl, lastl, firstcol, lastcol, markfileid if markfileid=thisfid & firstline<>lastline then firstline = firstl; lastline = lastl endif endif do while arglist<>'' result = 0 parse value arglist with thisarg arglist if abbrev('/REVERSE', thisarg, 2) then revrse = 'R' elseif abbrev('/FORWARD', thisarg, 2) then revrse = '' elseif abbrev('DATE', thisarg, 1) then result = sort(firstline, lastline, 1, 20, thisfid, revrse) elseif abbrev('TIME', thisarg, 1) then result = sort(firstline, lastline, 13, 20, thisfid, revrse) elseif abbrev('SIZE', thisarg, 1) then result = sort(firstline, lastline, 21, 31, thisfid, revrse) elseif abbrev('EASIZE', thisarg, 2) then result = sort(firstline, lastline, 32, 42, thisfid, revrse) elseif abbrev('FILENAME', thisarg, 1) | abbrev('FULLNAME', thisarg, 2) then result = sort(firstline, lastline, 52, 260, thisfid, 'CI'revrse) elseif abbrev('NAME', thisarg, 1) | abbrev('EXTENSION', thisarg, 2) then ext = leftstr(thisarg, 1) = 'E' do l = firstline to lastline line = textline(l) p = lastpos('\', line) if ext then p1 = lastpos('.', line) if p1>p then p = p1; endif endif replaceline substr(line, p+1) || \0 || leftstr(line, p), l enddo result = sort(firstline, lastline, 1, 260, thisfid, 'CI'revrse) do l = firstline to lastline parse value textline(l) with p2 \0 p1 replaceline p1 || p2, l enddo else sayerror sayerrortext(-263) '-' thisarg endif if result then sayerror 'SORT' ERROR_NUMBER__MSG result endif enddo .modify = startmod call prestore_mark(savemark)