home *** CD-ROM | disk | FTP | other *** search
Text File | 1993-12-02 | 66.2 KB | 2,028 lines
; ; STDCMDS.E Alphabetized by command name. ; defc alter = parse value upcase(arg(1)) with c1 c2 cnt . if length(c1)<>1 then if length(c1)<>2 | verify(c1, HEXCHARS) then sayerror -328 -- 'Invalid first parameter.' endif compile if EPM c1 = chr((pos(leftstr(c1,1), HEXCHARS) - 1) * 16 + pos(rightstr(c1,1), HEXCHARS) - 1) compile else c1 = chr((pos(substr(c1,1,1), HEXCHARS) - 1) * 16 + pos(substr(c1,2,1), HEXCHARS) - 1) compile endif endif if length(c2)<>1 then if length(c2)<>2 | verify(c2, HEXCHARS) then sayerror -329 -- 'Invalid second parameter.' endif compile if EPM c2 = chr((pos(leftstr(c2,1), HEXCHARS) - 1) * 16 + pos(rightstr(c2,1), HEXCHARS) - 1) compile else c2 = chr((pos(substr(c2,1,1), HEXCHARS) - 1) * 16 + pos(substr(c2,2,1), HEXCHARS) - 1) compile endif endif delim = substr(HEXCHARS, verify(HEXCHARS, c1||c2), 1) -- Pick first char. not in c1 || c2 change_cmd = 'c' delim || c1 || delim || c2 || delim if cnt='' then change_cmd elseif cnt='*' | cnt='M*' | cnt='*M' then change_cmd cnt elseif isnum(cnt) then do i=1 to cnt change_cmd enddo else sayerror -330 -- 'Invalid third parameter' endif compile if EVERSION >=4 defc app, append = -- With linking, PUT can be an external module. 'put' arg(1) -- Collect the names; the module is named PUT.EX. compile else ; Put and append work the same, and the same as XEdit's PUT. ; If the file already exists, append to it. ; If no file is specified, use same file as last specified. ; If no mark, use append the entire file. defc app, append, put = universal last_append_file if arg(1) = '' then app_file=last_append_file else app_file=parse_file_n_opts(arg(1)) last_append_file=app_file endif if app_file='' then sayerror NO_FILENAME__MSG 'PUT' stop endif getfileid fileid if marktype() then had_mark = 1 call psave_mark(save_mark) call prestore_mark(save_mark) elseif .last = 0 then sayerror FILE_IS_EMPTY__MSG; stop else had_mark = 0 call pset_mark(1,.last,1,1,'LINE',fileid) endif /* If file is already in memory, we'll leave it there for speed. */ parse value 1 check_for_printer(app_file) with already_in_ring is_printer . is_console = upcase(app_file)='CON' | upcase(app_file)='CON:' if is_printer | is_console then 'e /q /n 'app_file else 'e /q /n' app_file /* look for file already in ring */ if rc=-282 then -- -282 = sayerror("New file") already_in_ring = 0 'q' 'e /q' app_file /* not 'xcom e', so we can append to host files */ endif endif if is_printer or is_console or not already_in_ring then if rc=-282 then deleteline elseif rc then stop endif endif getfileid tempofid if marktype()<>'LINE' then insertline '',tempofid.last+1 endif bottom copyrc=pcopy_mark() if copyrc then /* Check memory full, invalid path, etc. */ .modify=0; 'q' sayerror copyrc stop endif aborted=0 /* If the app_file was already in memory, don't file it. */ if is_printer or is_console or not already_in_ring then if is_console then say ''; endif 'save' if is_console then pause; endif aborted=rc activatefile tempofid; tempofid.modify=0; 'q' endif activatefile fileid if had_mark then call prestore_mark(save_mark) else unmark endif if not aborted then sayerror MARK_APPENDED__MSG app_file endif compile endif defc asc= parse arg i '=' . if i='' then getline line i=substr(line,.col,1) endif compile if EVERSION < 5 setcommand 'asc 'i'='asc(i)'',5,1 cursorcommand compile else sayerror 'asc 'i'='asc(i)'' compile endif defc autosave= universal vAUTOSAVE_PATH compile if RING_OPTIONAL universal ring_enabled compile endif compile if E3 universal autosave compile endif uparg=upcase(arg(1)) if uparg=ON__MSG then /* If only says AUTOSAVE ON, */ compile if E3 compile if DEFAULT_AUTOSAVE > 0 autosave = DEFAULT_AUTOSAVE compile else autosave = 10 /* default is every 10 lines. */ compile endif compile else compile if DEFAULT_AUTOSAVE > 0 .autosave = DEFAULT_AUTOSAVE compile else .autosave=10 /* default is every 10 mods. */ compile endif compile endif elseif uparg=OFF__MSG then compile if E3 autosave = 0 compile else .autosave = 0 compile endif elseif isnum(uparg) then /* Check whether numeric argument. */ compile if EVERSION < '4.12' autosave = uparg compile else .autosave = uparg compile endif elseif uparg='DIR' then 'dir' vAUTOSAVE_PATH elseif uparg='' then compile if EPM 'commandline autosave' .autosave elseif uparg='?' then compile if RING_OPTIONAL if ring_enabled then compile endif compile if 0 do forever retvalue=winmessagebox(AUTOSAVE__MSG, CURRENT_AUTOSAVE__MSG||.autosave\10||NAME_IS__MSG||MakeTempName()\10\10LIST_DIR__MSG, 24628) -- YESNO + MB_INFORMATION + MOVEABLE + HELP if retvalue<>8 then leave; endif -- MBID_HELP = 8 'helpmenu 2045' enddo if 6=retvalue then -- MBID_YES compile else if 6=winmessagebox(AUTOSAVE__MSG, CURRENT_AUTOSAVE__MSG||.autosave\10||NAME_IS__MSG||MakeTempName()\10\10LIST_DIR__MSG, 16436) -- YESNO + MB_INFORMATION + MOVEABLE then compile endif 'dir' vAUTOSAVE_PATH endif compile if RING_OPTIONAL else call winmessagebox(AUTOSAVE__MSG, CURRENT_AUTOSAVE__MSG||.autosave\10||NAME_IS__MSG||MakeTempName()\10\10NO_LIST_DIR__MSG, 16432) -- OK + MB_INFORMATION + MOVEABLE endif compile endif return compile else -- not EPM; uparg='' cursor_command; begin_line; eraseendline compile if E3 keyin 'autosave' autosave compile else keyin 'autosave' .autosave compile endif compile endif else sayerror AUTOSAVE_PROMPT__MSG return endif compile if E3 sayerror CURRENT_AUTOSAVE__MSG||autosave', 'NAME_IS__MSG||MakeTempName() compile else sayerror CURRENT_AUTOSAVE__MSG||.autosave', 'NAME_IS__MSG||MakeTempName() compile endif ; autoshell off/on/0/1 ; ; specifies whether E should automatically pass internally-unresolved commands ; to DOS. Autoshell is an internal command; this DEFC is a simple front end ; to allow the user to type off/on/0/1. It calls the internal command via ; 'xcom autoshell'. ; ; Users who have very long path-search times might prefer to execute ; "autoshell 0" somewhere in their start-up sequence. compile if EVERSION < 5 defc autoshell= uparg=upcase(arg(1)) if uparg='ON' or uparg=1 then 'xcom autoshell 1' elseif uparg='OFF' or uparg='0' then 'xcom autoshell 0' else sayerror INVALID_ARG__MSG ON_OFF__MSG')' stop endif compile elseif EVERSION >= '5.50' defc autoshell= uparg=upcase(arg(1)) if uparg=ON__MSG or uparg=1 then .autoshell = 1 elseif uparg=OFF__MSG or uparg='0' then .autoshell = 0 else sayerror 'AUTOSHELL =' .AUTOSHELL endif compile endif defc bottom,bot= bottom compile if EVERSION >='4.11' ; BROWSE -- A simple front end to Ralph Yozzo's browse() function. ; It allows the user to type off/on/0/1/?. ; ; BROWSE off/on/0/1 ; ; specifies whether E should allow text to be altered (normal editing mode) ; or whether all text is read-only. ; ; Issuing BROWSE with '?' or no argument returns the current setting. ; ; The function browse() takes an optional argument 0/1. It always returns ; the current setting. So you can query the current setting without changing ; it by giving no argument. ; defc browse = uparg=upcase(arg(1)) if uparg=ON__MSG or uparg=1 then cb = browse(1) elseif uparg=OFF__MSG or uparg='0' then cb = browse(0) elseif uparg='' or uparg='?' then cb = browse() -- query current state compile if EVERSION >= 5 /* jbl 12/30/88: move msg to this case only, avoid trivial sayerror's.*/ sayerror BROWSE_IS__MSG word(OFF__MSG ON__MSG, cb+1) compile endif else sayerror INVALID_ARG__MSG ON_OFF__MSG'/?)' stop endif compile if EVERSION < 5 if cb then cb=ON__MSG; else cb=OFF__MSG; endif sayerror BROWSE_IS__MSG cb compile endif compile endif compile if EVERSION < 4 -- With linking, BOX can be an external module. ; Ver.3.11: Don't move cursor for BOX R. ; Script style suggested by Larry Salomon, Jr. defc box= /* give height width style */ universal tempofid uparg=upcase(arg(1)) msg = BOX_ARGS__MSG if not length(uparg) then sayerror msg cursor_command;begin_line;erase_end_line;keyin 'Box ' stop endif if marktype()<>'BLOCK' then sayerror -288 -- 'Block mark required' stop endif flg=0 for ptr = 1 to length(uparg) if flg then style=substr(arg(1),ptr,1) else style=substr(uparg,ptr,1) endif if style='/' then flg=1; iterate endif if not flg and verify(uparg,"123456BCPAERS") then sayerror msg cursor_command;begin_line;erase_end_line;keyin 'Box ' stop endif call psave_pos(save_pos) getmark firstline,lastline,firstcol,lastcol,fileid if style='E' then getline tline,firstline,fileid getline bline,lastline,fileid msg=BOX_MARK_BAD__MSG if firstcol=1 or firstline=1 or lastline=fileid.last then sayerror msg stop endif brc=substr(bline,lastcol+1,1) lside=substr(tline,firstcol-1,1) if lside='║' or lside='│' or lside=';' or lside='|' or lside='█' then sl=1 elseif lside='*' and firstcol>2 and -- MAX prevents error if firstcol <= 2 pos(substr(tline,max(firstcol-2,1),1),'{/.') then sl=2 elseif brc=lside then sl=1 else sayerror msg stop endif for i=firstline to lastline getline line,i,fileid replaceline substr(line,1,firstcol-sl-1)||substr(line,firstcol,lastcol+1-firstcol)||substr(line,lastcol+sl+1),i,fileid endfor deleteline lastline+1,fileid deleteline firstline-1,fileid call prestore_pos(save_pos) call pset_mark( firstline-1,lastline-1,firstcol-sl,lastcol-sl,marktype(),fileid) elseif style='R' then if not pblock_reflow(0,spc,tempofid) then call pblock_reflow(1,spc,tempofid) endif call prestore_pos(save_pos) else if flg then lside=style;rside=style;tside=style;tlc=style;trc=style;blc=style;brc=style else if style='P' then lside='{*';rside='*}';tside='*';tlc='{*';trc='*}';blc='{*';brc='*}' elseif style='A' then lside=';';rside=' ';tside='*';tlc=';';trc=' ';blc=';';brc=' ' elseif style='C' then lside='/*';rside='*/';tside='*';tlc='/*';trc='*/';blc='/*';brc='*/' elseif style=1 then lside='│';rside='│';tside='─';tlc='┌';trc='┐';blc='└';brc='┘' elseif style=2 then lside='║';rside='║';tside='═';tlc='╔';trc='╗';blc='╚';brc='╝' elseif style=3 then lside='|';rside='|';tside='-';tlc='+';trc='+';blc='+';brc='+' elseif style=4 then lside='█';rside='█';tside='▀';tlc='█';trc='█';blc='▀';brc='▀' elseif style=5 then lside='│';rside='│';tside='═';tlc='╒';trc='╕';blc='╘';brc='╛' elseif style=6 then lside='║';rside='║';tside='─';tlc='╓';trc='╖';blc='╙';brc='╜' elseif style='S' then lside='.*';rside='**';tside='*';tlc='.*';trc='**';blc='.*';brc='**' else style='B';lside=' ';rside=' ';tside=' ';tlc=' ';trc=' ';blc=' ';brc=' ' endif endif sl=length(lside) width=1+lastcol-firstcol /* width of inside of box */ side=substr('',1,width,tside) line = substr('',1,firstcol-1)||blc||side||brc insertline line,lastline+1,fileid insertline substr('',1,firstcol-1)||tlc||side||trc,firstline,fileid for i=firstline+1 to lastline+1 getline line,i,fileid replaceline substr(line,1,firstcol-1)||lside||substr(line,firstcol,width)||rside||substr(line,lastcol+1),i,fileid endfor call prestore_pos(save_pos) call pset_mark(firstline+1,lastline+1,firstcol+sl,lastcol+sl,marktype(),fileid) endif flg=0 endfor compile endif defc c,change= universal lastchangeargs, default_search_options compile if SETSTAY='?' universal stay compile endif compile if defined(HIGHLIGHT_COLOR) universal search_len compile endif compile if SETSTAY call psave_pos(savepos) compile endif /* Insert default_search_options just before supplied options (if any) */ /* so the supplied options will take precedence. */ args=strip(arg(1),'L') /* Delimiter = 1st char, ignoring leading spaces. */ user_options='' if args<>'' then /* If args blank, use lastchangeargs. */ if default_search_options='' then lastchangeargs=args else delim=substr(args,1,1) p=pos(delim,args,2) /* find last delimiter of 2 or 3 */ if p then compile if defined(HIGHLIGHT_COLOR) search_len=p-2 compile endif p=pos(delim,args,p+1) /* find last delimiter of 2 or 3 */ if p>0 then user_options=substr(args,p+1) args=substr(args,1,p-1) endif else sayerror NO_REP__MSG endif if marktype() then all='' else -- No mark, so override if default is M. all='A' endif lastchangeargs=args || delim || default_search_options || all || user_options endif endif if verify(upcase(user_options),'M','M') then call checkmark() /* Put this line back in if you want the M choice to force */ /* the cursor to the start of the mark. */ ;;; call pbegin_mark() /* mark specified - make sure at top of mark */ endif 'xcom c 'lastchangeargs compile if SETSTAY='?' if stay then compile endif compile if SETSTAY call prestore_pos(savepos) compile endif compile if SETSTAY='?' endif compile endif defc cd= rc=0 if arg(1)='' then dir= directory() else dir= directory(arg(1)) endif if not rc then sayerror CUR_DIR_IS__MSG dir endif defc center= call pcenter_mark() defc chr= parse arg i '=' . compile if EVERSION < 5 setcommand 'chr 'i'='chr(i)'',5,1 cursorcommand compile else sayerror 'chr 'i'='chr(i)'' compile endif compile if EPM defc close= call windowmessage(0, getpminfo(EPMINFO_EDITCLIENT), 41, -- WM_CLOSE 0, 0) compile endif defc deleteautosavefile compile if EVERSION < '4.12' universal autosave if autosave then -- Erase the tempfile if autosave is on. compile else if .autosave then -- Erase the tempfile if autosave is on. compile endif TempName = MakeTempName() getfileid tempid, TempName -- (provided it's not in the ring.) if tempid='' then call erasetemp(TempName); endif endif ; This command is the same function that has been attached to ; the key Alt-equal. Moved here as a separate command to make key ; binding more flexible. And to allow execution without a key binding. ; In EPM, no getkey() prompt. Cancel at first error. defc dolines= if marktype()='LINE' then compile if EVERSION < 5 sayerror EX_ALL_YN__MSG loop k=upcase(getkey()) if k=esc then return ''; endif if k=NO_CHAR or k=YES_CHAR then leave endif endloop compile else k=substr('0000'YES_CHAR || NO_CHAR, winmessagebox('Dolines', EX_ALL__MSG, 16389) - 1, 1) -- YESNOCANCEL + MOVEABLE if not k then return ''; endif -- 'Y'=Yes; 'N'=No; '0'=Cancel compile endif if k='Y' then getmark firstline,lastline,i,i,fileid for i=firstline to lastline getline line,i,fileid line endfor sayerror 0 return '' endif compile if EVERSION < 5 sayerror 0 compile endif endif if .line then getline line line endif /* This DEFC EDIT eventually calls the built-in edit command, by calling */ /* loadfile(), but does additional processing for messy-desk windowing (moves */ /* each file to its own window), and ends by calling select_edit_keys(). */ ; Parse off each file individually. Files can optionally be followed by one ; or more commands, each in quotes. The first file that follows a host file ; must be separated by a comma, an option, or a (possibly null) command. ; ; EPM doesn't give error messages from XCOM EDIT, so we have to handle that for ; it. compile if EVERSION < 5 -- E3 & EOS2: display multiple messages on a cleared define SAYERR = 'say' -- screen, since only most recent SAYERROR can be seen. compile else define SAYERR = 'sayerror' -- EPM: Message box shows all SAYERRORs compile endif compile if LINK_HOST_SUPPORT & (HOST_SUPPORT='EMUL' | HOST_SUPPORT='E3EMUL') compile if not defined(MVS) MVS = 0 compile endif compile if not defined(E3MVS) E3MVS = 0 compile endif compile if not defined(HOST_LT_REQUIRED) HOST_LT_REQUIRED = 0 compile endif compile endif compile if not defined(WANT_TRUNCATED_WARNING) const WANT_TRUNCATED_WARNING = 0 compile endif compile if not EPM defc e,ed,edit= compile else defc e,ed,edit,epm= compile endif universal default_edit_options compile if not EPM universal messy compile endif compile if (HOST_SUPPORT='EMUL' | HOST_SUPPORT='E3EMUL') & not SMALL universal fto -- Need this passed to loadfile... compile endif rest=strip(arg(1)) if rest='' then /* 'edit' by itself goes to next file */ compile if EVERSION < 5 call pnextfile() call select_edit_keys() compile else nextfile compile endif return 0 endif options=default_edit_options parse value '0 0' with files_loaded new_files_loaded new_files not_found bad_paths truncated access_denied invalid_drive error_reading error_opening first_file_loaded -- bad_paths --> Non-existing path specified. -- truncated --> File contained lines longer than 255 characters. -- access_denied --> If user tried to edit a subdirectory. -- invalid_drive --> No such drive letter -- error_reading --> Bad disk(ette). -- error_opening --> Path contained invalid name. do while rest<>'' rest=strip(rest,'L') if substr(rest,1,1)=',' then rest=strip(substr(rest,2),'L'); endif ch=substr(rest,1,1) compile if (HOST_SUPPORT='EMUL' | HOST_SUPPORT='E3EMUL') & not SMALL compile if (MVS or E3MVS) and not HOST_LT_REQUIRED -- (MVS filespecs can start with '.) compile if EVERSION >= '5.50' -- Now use "" to support spaces in filenames if 0 then -- No-op compile else if ch='"' then -- Command compile endif compile else compile if EVERSION >= '5.50' -- Now use "" to support spaces in filenames if ch="'" then -- Command compile else if ch='"' | ch="'" then -- Command compile endif compile endif compile else compile if EVERSION >= '5.50' -- Now use "" to support spaces in filenames if ch="'" then -- Command compile else if ch='"' | ch="'" then -- Command compile endif compile endif parse value rest with (ch) cmd (ch) rest do while substr(rest,1,1)=ch & pos(ch,rest,2) parse value rest with (ch) p (ch) rest cmd = cmd || ch || p enddo cmd elseif ch='/' then -- Option parse value rest with opt rest options=options upcase(opt) else files_loaded=files_loaded+1 -- Number of files we tried to load compile if EVERSION >= '5.50' -- Now use "" to support spaces in filenames if ch='"' then p=pos('"',rest,2) if p then file = substr(rest, 1, p) rest = substr(rest, p+1) else sayerror INVALID_FILENAME__MSG return endif else compile endif compile if HOST_SUPPORT & not SMALL p=length(rest)+1 -- If no delimiters, take to the end. p1=pos(',',rest); if not p1 then p1=p; endif p2=pos('/',rest); if not p2 then p2=p; endif p3=pos('"',rest); if not p3 then p3=p; endif p4=pos("'",rest); if not p4 then p4=p; endif compile if HOST_SUPPORT='EMUL' | HOST_SUPPORT='E3EMUL' compile if MVS or E3MVS p4=p -- Can't use single quote for commands if allowing MVS files compile endif p5=pos('[',rest); if not p5 then p5=p; endif -- Allow for [FTO] p=min(p1,p2,p3,p4,p5) compile else p=min(p1,p2,p3,p4) compile endif file=substr(rest,1,p-1) if VMfile(file,more) then -- tricky - VMfile modifies file if p=p1 then p=p+1; endif -- Keep any except comma in string rest=more substr(rest,p) else compile endif parse value rest with file rest2 if pos(',',file) then parse value rest with file ',' rest else rest=rest2; endif compile if HOST_SUPPORT & not SMALL endif compile if HOST_SUPPORT='EMUL' | HOST_SUPPORT='E3EMUL' if substr(strip(rest,'L'),1,1)='[' then parse value rest with '[' fto ']' rest else fto = '' -- reset for each file! endif compile endif compile endif compile if EVERSION >= '5.50' -- Now use "" to support spaces in filenames endif compile endif call parse_filename(file,.filename) compile if USE_APPEND -- Support for DOS 3.3's APPEND, thanks to Ken Kahn. If not(verify(file,'\:','M')) then if not exist(file) then File = Append_Path(File)||File -- LAM todo: fixup Endif Endif compile endif compile if WANT_WINDOWS -- Always 0 for EPM if messy then -- messy-desk style? .windowoverlap=1 if pos('H',options) then -- hidden option used? call loadfile(file,options) else if not verify(file,'?*','M') and -- If no wildcards not pos('D',options) -- and not /D, then if verify(file,':\','M') then -- get fully qualified file getfileid newfileid,file else getfileid newfileid,directory()'\'file -- (add path if necessary). if newfileid='' & pos('N', options) then -- Only match different path if /n getfileid newfileid,file endif endif if newfileid<>'' then -- If it's already loaded, .box=1 if newfileid.windowid=0 then -- (in the hidden ring?) newwindow 'e /w' options file -- (Yes, have to edit it.) else activatefile newfileid -- then just activate it. endif iterate endif endif newwindow 'e /w /n' /* start a new file */ /* Newwindow 'e' creates an empty file just like E startup. */ getfileid emptyfileid if not (rc and rc<>-282) then -- sayerror('New file') if pos('Q',options) then sayerror 1; endif call loadfile(file,options argsep||'w') loadrc=rc getfileid newfileid if loadrc=-270 & newfileid=emptyfileid then -- sayerror('Not enough memory') deletewindow stop endif -- Otherwise, wildcard & some were loaded. call create_window_for_each_file(emptyfileid) .windowoverlap=1 if not loadrc or loadrc=-282 or -- sayerror('New file') loadrc=-270 or -- sayerror('Not enough memory') loadrc=-278 then -- sayerror('Lines truncated') /* Normal results, normal cleanup: discard empty file. */ activatefile emptyfileid quitview activatefile newfileid else /* Unexpected error! */ deletewindow endif endif prevwindow; .box=1; nextwindow endif else -- not messy compile endif call loadfile(file,options) compile if WANT_WINDOWS prevfile;.box=1;nextfile endif -- if messy compile endif if rc=-3 then -- sayerror('Path not found') bad_paths=bad_paths', 'file elseif rc=-2 then -- sayerror('File not found') not_found=not_found', 'file elseif rc=-282 then -- sayerror('New file') new_files=new_files', 'file new_files_loaded=new_files_loaded+1 elseif rc=-278 then --sayerror('Lines truncated') truncated=truncated', 'file .modify = 0 compile if WANT_TRUNCATED_WARNING compile if EPM refresh call winmessagebox(sayerrortext(-278), .filename\10'One or more lines were split at column 255; file may be damaged if saved.', 16416) -- MB_OK + MB_WARNING + MB_MOVEABLE compile else messageNwait('Lines truncated; file may be damaged if saved.') compile endif compile endif -- WANT_TRUNCATED_WARNING elseif rc=-5 then -- sayerror('Access denied') access_denied=access_denied', 'file elseif rc=-15 then -- sayerror('Invalid drive') invalid_drive=invalid_drive', 'file elseif rc=-286 then -- sayerror('Error reading file') error_reading=error_reading', 'file elseif rc=-284 then -- sayerror('Error opening file') error_opening=error_opening', 'file endif if first_file_loaded='' then if rc<>-3 & -- sayerror('Path not found') rc<>-2 & -- sayerror('File not found') rc<>-5 & -- sayerror('Access denied') rc<>-15 -- sayerror('Invalid drive') then getfileid first_file_loaded endif endif endif -- not "cmd" enddo -- while rest<>'' if files_loaded>1 then -- If only one file, leave E3's message if new_files_loaded>1 then p='New files:'; else p='New file:'; endif compile if EVERSION < 5 -- EPM doesn't give messages; have to supply in all cases. if new_files || bad_paths || not_found || truncated || access_denied || error_reading || error_opening || invalid_drive <> invalid_drive || error_opening || error_reading || access_denied || truncated || not_found || bad_paths || new_files then -- More than one. compile else multiple_errors = (new_files || bad_paths || not_found || truncated || access_denied || error_reading || error_opening || invalid_drive <> invalid_drive || error_opening || error_reading || access_denied || truncated || not_found || bad_paths || new_files ) & '' <> new_files || bad_paths || not_found || truncated || access_denied || error_reading || error_opening || invalid_drive compile endif if new_files then $SAYERR NEW_FILE__MSG substr(new_files,2); endif if not_found then $SAYERR FILE_NOT_FOUND__MSG':' substr(not_found,2); endif compile if EPM -- If only one file, don't need "New file" msg in EPM. else multiple_errors = 0 endif compile endif if bad_paths then $SAYERR BAD_PATH__MSG':' substr(bad_paths,2); endif if truncated then $SAYERR LINES_TRUNCATED__MSG':' substr(truncated,2); endif if access_denied then $SAYERR ACCESS_DENIED__MSG':' substr(access_denied,2); endif if invalid_drive then $SAYERR INVALID_DRIVE__MSG':' substr(invalid_drive,2); endif if error_reading then $SAYERR ERROR_OPENING__MSG':' substr(error_reading,2); endif if error_opening then $SAYERR ERROR_READING__MSG':' substr(error_opening,2); endif compile if EVERSION < 5 pause elseif new_files then sayerror NEW_FILE__MSG':' substr(new_files,2) elseif bad_paths then sayerror BAD_PATH__MSG':' substr(bad_paths,2) elseif not_found then sayerror FILE_NOT_FOUND__MSG':' substr(not_found,2) elseif truncated then sayerror LINES_TRUNCATED__MSG':' substr(truncated,2) elseif access_denied then sayerror ACCESS_DENIED__MSG':' substr(access_denied,2) elseif invalid_drive then sayerror INVALID_DRIVE__MSG':' substr(invalid_drive,2) elseif error_reading then sayerror ERROR_OPENING__MSG':' substr(error_reading,2) elseif error_opening then sayerror ERROR_READING__MSG':' substr(error_opening,2) endif compile else if multiple_errors then messageNwait(MULTIPLE_ERRORS__MSG) endif compile endif if first_file_loaded<>'' then activatefile first_file_loaded; endif compile if EVERSION < 5 endif compile endif compile if not EPM /* Save the edit RC through select_edit_keys, since it might get reset */ /* by some command like 'tabs' or 'margins'. This used to be in */ /* select_edit_keys, but that made configurability hard. */ saverc=rc call select_edit_keys() rc=saverc .box=2 compile elseif MENU_LIMIT ;compile if SHOW_MODIFY_METHOD = 'TITLE' ; call settitletext(.filename) /* done internally */ ;compile endif if .visible & files_loaded then call updateringmenu() endif compile endif ; LAM - Edit a file along the EPATH. This command will be included if ; the user is including the required routines. If you've done a ; SET EPMPATH=d:\EPM;d:\my_emacs;d:\E_macros ; and then do ; ep stdcmds.e ; that will load this file, just as if you had entered ; e d:\e_macros\stdcmds.e compile if USE_APPEND or (WANT_SEARCH_PATH and WANT_GET_ENV and not SMALL) defc ep, epath= parse arg filename pathname . if pathname='' then compile if E3 if filetype(filename)='BAT' then compile else if filetype(filename)='CMD' then compile endif pathname='PATH' else pathname=EPATH endif endif if not exist(filename) then filename = search_path_ptr(Get_Env(pathname,1),filename)filename endif 'e 'filename compile if EPM defc op, opath, openpath= "open 'ep "arg(1)"'" compile endif compile endif ; jbl 1/12/89: The syntax of ECHO is revised to be like browse(). It's ; a function so a macro can test its current value. defc echo = compile if EVERSION >= '4.12' uparg=upcase(arg(1)) if uparg=ON__MSG or uparg=1 then call echo(1) elseif uparg=OFF__MSG or uparg='0' then call echo(0) compile if EVERSION >= '5.60' elseif uparg='2' then call echo(2) compile endif else compile if EVERSION < 5 if echo() then onoff = ON__MSG; else onoff = OFF__MSG; endif cursor_command setcommand 'echo' onoff,8,1 compile else sayerror ECHO_IS__MSG word(OFF__MSG ON__MSG 2, echo()+1) compile endif endif compile else -- The old way, for E3 & EOS2FAM. if arg(1) = '' then echo 'ON' else echo arg(1) endif compile endif compile if TOGGLE_ESCAPE defc ESCAPEKEY universal ESCAPE_KEY uparg=upcase(arg(1)) if uparg=ON__MSG or uparg=1 then ESCAPE_KEY = 1 elseif uparg=OFF__MSG or uparg=0 then ESCAPE_KEY = 0 else sayerror 'EscapeKey' word(OFF__MSG ON__MSG, ESCAPE_KEY+1) endif compile endif define TEMPFILENAME = 'vTEMP_FILENAME' compile if WANT_ET_COMMAND -- Ver. 3.09 - Let user omit ET command. compile if EVERSION < 5 defc et= compile else define TEMPFILENAME = 'tempfile' defc et,etpm= compile endif universal vTEMP_PATH,vTEMP_FILENAME infile=arg(1); if infile='' then infile=MAINFILE endif sayerror COMPILING__MSG infile compile if EVERSION < 5 quietshell 'xcom et /e' vTEMP_FILENAME infile if rc=-2 then sayerror CANT_FIND_PROG__MSG 'ET.Exe';stop endif compile else tempfile=vTEMP_PATH'ETPM'substr(ltoa(gethwnd(EPMINFO_EDITCLIENT),16),1,4)'.TMP' -- quietshell 'xcom etpm /e 'tempfile infile compile if defined(ETPM_CMD) -- let user specify fully-qualified name quietshell 'xcom' ETPM_CMD infile ' /e 'tempfile ' /p'upcase(EPATH) compile else quietshell 'xcom etpm 'infile ' /e 'tempfile ' /p'upcase(EPATH) compile endif if rc=-2 then sayerror CANT_FIND_PROG__MSG 'ETPM.EXE'; stop; endif if rc=41 then sayerror 'ETPM.EXE' CANT_OPEN_TEMP__MSG '"'tempfile'"'; stop; endif compile endif if rc then saverc = rc call ec_position_on_error($TEMPFILENAME) rc = saverc else compile if EPM refresh compile endif sayerror COMP_COMPLETED__MSG endif call erasetemp($TEMPFILENAME) -- 4.11: added to erase the temp file. compile endif -- No EXIT command in EPM. Do it from the system pull-downs. compile if EVERSION < 5 ; Ver. 3.11D Optional return code as argument. Added by Davis Foulger defc exit= if askyesno(EXIT_PROMPT__MSG) = YES_CHAR then exit arg(1) endif sayerror 0 compile endif defc expand= universal expand_on uparg=upcase(arg(1)) if uparg=ON__MSG then expand_on = 1 call select_edit_keys() elseif uparg=OFF__MSG then expand_on = 0 call select_edit_keys() elseif uparg='' then compile if EVERSION < 5 if expand_on then onoff = ON__MSG; else onoff = OFF__MSG; endif cursor_command setcommand 'expand' onoff,8,1 compile else sayerror 'EXPAND:' word(OFF__MSG ON__MSG, expand_on+1) compile endif else sayerror INVALID_ARG__MSG ON_OFF__MSG')' stop endif defc f,file= 's 'arg(1) if not rc then .modify=0 -- If saved to a different file, turn modify off 'q' call select_edit_keys() endif ; EPM's replacement for Alt-F. "FILL <character>". defc fill= call checkmark() call pfill_mark(arg(1)) compile if EVERSION < 4 -- With linking, GET can be an external module. defc get= universal default_edit_options get_file = strip(arg(1)) if get_file='' then sayerror NO_FILENAME__MSG 'GET'; stop endif if pos(argsep,get_file) then sayerror INVALID_OPTION__MSG stop endif call parse_filename(get_file,.filename) getfileid fileid s_last=.last 'e /q /h /d' default_edit_options get_file editrc=rc getfileid gfileid if editrc= -2 | .last=0 then -- -2 = sayerror('New file') 'q' if editrc=-2 then sayerror FILE_NOT_FOUND__MSG': 'get_file else sayerror FILE_IS_EMPTY__MSG': 'get_file endif stop endif if editrc & editrc<> -278 then -- -278 = sayerror('Lines truncated') sayerror editrc stop endif call psave_mark(save_mark) top mark_line bottom mark_line activatefile fileid rc=0 copy_mark copy_rc=rc -- Test for memory too full for copy_mark. activatefile gfileid 'q' parse value save_mark with s_firstline s_lastline s_firstcol s_lastcol s_mkfileid s_mt if fileid=s_mkfileid then -- May have to move the mark. diff=fileid.last-s_last -- (Adjustment for difference in size) if fileid.line<s_firstline then s_firstline=s_firstline+diff; endif if fileid.line<s_lastline then s_lastline=s_lastline+diff; endif endif call prestore_mark(s_firstline s_lastline s_firstcol s_lastcol s_mkfileid s_mt) if copy_rc then sayerror NOT_2_COPIES__MSG get_file else call message(1) endif activatefile fileid call select_edit_keys() compile endif defc goto = parse arg line col . line if col<>'' then .col = col; endif /* Uses findfile statement to search EPATH for the helpfile. */ /* Its syntax: findfile destfilename,searchfilename[,envpathvar][,['P']] */ defc help= compile if EVERSION < 5 universal messy compile endif helpfile = HELPFILENAME compile if EVERSION > 4 -- 4.02: search EPATH/DPATH for the help file. New 'D' option on findfile. findfile destfilename, helpfile, '','D' if rc then /* If not there, search the HELP path. */ findfile destfilename, helpfile, 'HELP' endif compile else findfile destfilename, helpfile,EPATH compile endif if rc then /* If all that fails, try the standard path. */ findfile destfilename, helpfile, 'PATH' if rc then sayerror FILE_NOT_FOUND__MSG':' helpfile return '' endif endif compile if EVERSION < 5 compile if WANT_WINDOWS if messy then newwindow 'e /w 'destfilename /* load one view only */ call setzoomwindow(1,1,1,25,screenwidth()) .windowoverlap=1 else compile endif 'e /w 'destfilename /* load one view of help only */ compile if WANT_WINDOWS endif compile endif compile else 'openhelp' destfilename compile endif ; In EPM we don't do a getkey() to ask you for the key. You must supply it ; as part of the command, as in "key 80 =". defc key= parse value arg(1) with number k . if not isnum(number) then sayerror INVALID_NUMBER__MSG;stop endif -- jbl: Allow the user to specify the key in the command, so he can -- say "key 80 =" and avoid the prompt. if k == '' then compile if EVERSION < 5 k=mgetkey(KEY_PROMPT1__MSG) -- Accept key from macro. endif if k<>esc then cursor_data compile else sayerror KEY_PROMPT2__MSG '"key 'number' =", "key 'number' S+F3".' return else k=resolve_key(k) compile endif for i=1 to number executekey k endfor compile if EVERSION < 5 cursor_command compile endif endif sayerror 0 defc l, locate = /* Note: this DEFC also gets executed by the slash ('/') command. */ universal default_search_options compile if defined(HIGHLIGHT_COLOR) universal search_len compile endif compile if EVERSION < 5 r=rc /* This little trick tells us whether we're in a macro or on command */ /* line, so we'll know where to leave the cursor at end. */ compile endif /* Insert default_search_options just before supplied options (if any) */ /* so the supplied options will take precedence. */ args=strip(arg(1),'L') compile if not defined(HIGHLIGHT_COLOR) if default_search_options<>'' then compile endif delim=substr(args,1,1) p=pos(delim,args,2) user_options='' if p then user_options=substr(args,p+1) args=substr(args,1,p-1) endif if marktype() then all='' else -- No mark, so override if default is M. all='A' endif compile if defined(HIGHLIGHT_COLOR) search_len=length(args)-1 /***** added for hilite *****/ compile endif args=args|| delim || default_search_options || all || user_options compile if not defined(HIGHLIGHT_COLOR) endif compile endif 'xcom l 'args compile if EVERSION < 5 if not rc and r then cursor_data compile if defined(HIGHLIGHT_COLOR) refresh sayat '', .windowy+.cursory-1,.windowx+.cursorx-1, HIGHLIGHT_COLOR, min(search_len, .windowwidth - .cursorx + 1) k = mgetkey(); executekey k compile endif else call leave_last_command(r,rc) endif compile elseif defined(HIGHLIGHT_COLOR) if not rc then compile if EVERSION < '5.50' refresh sayat '', .cursory, .cursorx, HIGHLIGHT_COLOR, min(search_len, .windowwidth - .cursorx + 1) compile elseif EVERSION >= '5.60' circleit LOCATE_CIRCLE_STYLE, .line, .col, .col+getpminfo(EPMINFO_LSLENGTH)-1, LOCATE_CIRCLE_COLOR1, LOCATE_CIRCLE_COLOR2 compile elseif EVERSION >= '5.51' circleit LOCATE_CIRCLE_STYLE, .line, .col, .col+getpminfo(EPMINFO_LSLENGTH)-1, HIGHLIGHT_COLOR compile else circleit LOCATE_CIRCLE_STYLE, .line, .col, .col+search_len-1, HIGHLIGHT_COLOR ; refresh compile endif endif compile endif ; As of EPM 5.18, this command supports use of the DOS or OS/2 ATTRIB command, ; so non-IBM users can also use the LIST command. Note that installing SUBDIR ; (DOS) or FILEFIND (OS/2) is still preferred, since it's not necessary to ; "clean up" their output. Also, ATTRIB before DOS 3.? doesn't support the /S ; option we need to search subdirectories. defc list, findfile, filefind= universal vTEMP_FILENAME universal subdir_present compile if EVERSION < 5 call save_command_state(cstate) compile endif /* If I say "list c:\util" I mean the whole util directory. But we */ /* have to tell SubDir that explicitly by appending "\*.*". */ spec = arg(1) call parse_filename(spec,.filename) if spec='' then /* If no argument at all, assume current directory. */ spec="*.*" elseif not verify(spec,'*?','M') then /* If no wildcards... */ compile if EPM /* assume directory. */ if pos(rightstr(spec,1),'\:') then /* If ends in ':' or '\' */ compile else if pos(substr(spec,length(spec),1),'\:') then compile endif spec=spec'*.*' /* just add '*.*' */ else spec=spec'\*.*' /* Otherwise, add '\*.*' */ endif endif src = subdir(spec' >'vTEMP_FILENAME) -- Moved /Q option to defproc subdir 'e' argsep'd' argsep'q' vTEMP_FILENAME call erasetemp(vTEMP_FILENAME) if .last then .filename='.DIR 'spec if pos('ATTRIB.EXE',subdir_present) then /* Handle differently */ getline line,1 if src then /* Extract error message. */ 'xcom q' compile if EVERSION < 5 call restore_command_state(cstate) compile endif sayerror FILE_NOT_FOUND__MSG': 'line else /* Must delete the attributes. */ c=pos(':',line) /* Delete through last space before */ s=lastpos(' ',line,c+1) /* the colon. Can't use absolute */ if s then /* column position; changes with OS */ call psave_mark(savemark) getfileid fid call pset_mark(1,.last,1,s,'BLOCK',fid) deletemark call prestore_mark(savemark) .modify=0 endif endif compile if not E3 elseif substr(subdir_present,1,4)='dir ' then if .last<=2 & substr(textline(.last),1,8)='SYS0002:' then 'xcom q' sayerror FILE_NOT_FOUND__MSG endif compile endif endif else 'xcom q' compile if EVERSION < 5 call restore_command_state(cstate) compile endif sayerror FILE_NOT_FOUND__MSG endif call select_edit_keys() compile if WANT_LAN_SUPPORT defc lock if arg(1)<>'' then 'e 'arg(1) if rc & rc<>-282 then --sayerror('New file') return 1 endif endif call lock() compile endif compile if WANT_LONGNAMES='SWITCH' defc longnames universal SHOW_LONGNAMES uparg=upcase(arg(1)) if uparg=ON__MSG or uparg=1 then SHOW_LONGNAMES = 1 elseif uparg=OFF__MSG or uparg=0 then SHOW_LONGNAMES = 0 else sayerror LONGNAMES_IS__MSG word(OFF__MSG ON__MSG, SHOW_LONGNAMES+1) endif compile endif defc loopkey= parse value arg(1) with finish k . if upcase(finish)='ALL' then finish= .last-.line+1 endif if not isnum(finish) then sayerror INVALID_NUMBER__MSG;stop endif if k == '' then compile if EVERSION < 5 k=mgetkey(KEY_PROMPT1__MSG) -- Accept key from macro. endif if k<>esc then cursor_data compile else sayerror KEY_PROMPT2__MSG '"loopkey 'finish' =", "loopkey 'finish' S+F3".' else k=resolve_key(k) compile endif oldcol=.col for i=1 to finish executekey k;down;.col=oldcol endfor compile if EVERSION < 5 cursor_command compile endif endif sayerror 0 defc lowercase= call plowercase() compile if EPM ; In EOS2 you could query the margins by typing "margins" with no argument. ; It typed them into the command line. In EPM we can't write to the command ; line (yet). So the query uses a sayerror. ; defc margins,ma= if arg(1)<>'' then -- if user gives an argument he's setting, 'xcom margins' arg(1) -- pass it to the old internal margins command. else 'commandline margins' .margins -- Note the new .margins field endif compile endif defc matchtab= universal matchtab_on uparg=upcase(arg(1)) if uparg=ON__MSG then matchtab_on = 1 elseif uparg=OFF__MSG then matchtab_on = 0 elseif uparg='' then compile if EVERSION < 5 if matchtab_on then onoff = ON__MSG; else onoff = OFF__MSG; endif cursor_command setcommand 'matchtab' onoff, 10, 1 compile else sayerror 'MATCHTAB:' word(OFF__MSG ON__MSG, matchtab_on+1) compile endif else sayerror INVALID_ARG__MSG ON_OFF__MSG')' stop endif ; MultiCommand, or Many Commands - lets you enter many commands on a line, ; like XEDIT's SET LINEND, but you specify the delimiter as part of the ; command so there's never a conflict. Example, using ';' as delimiter: ; mc ; top; c /begin/{/ *; top; c/end/}/ *; top defc mc = parse value strip(arg(1),'L') with delim 2 rest do while rest <> '' parse value rest with cmd (delim) rest cmd enddo defc n,name compile if WANT_LONGNAMES='SWITCH' universal SHOW_LONGNAMES compile endif -- Name with no args supplies current name. if arg(1)='' then compile if EVERSION < 5 setcommand 'Name '.filename,6 compile else 'commandline Name '.filename compile endif else compile if WANT_LAN_SUPPORT | EVERSION >= '5.51' if .lockhandle then sayerror LOCKED__MSG return endif compile endif compile if SMARTFILE or EVERSION >= '5.50' oldname = .filename compile endif autosave_name = MakeTempName() call namefile(arg(1)) compile if SMARTFILE or EVERSION >= '5.50' if oldname <> .filename then .modify = .modify+1 endif compile endif compile if EVERSION > 5 if get_EAT_ASCII_value('.LONGNAME')<>'' then call delete_ea('.LONGNAME') compile if WANT_LONGNAMES compile if WANT_LONGNAMES='SWITCH' if SHOW_LONGNAMES then compile endif .titletext = '' compile if WANT_LONGNAMES='SWITCH' endif compile endif compile endif -- WANT_LONGNAMES endif -- .LONGNAME EA exists compile if SHOW_MODIFY_METHOD = 'TITLE' | EVERSION < '5.50' call settitletext(.filename) compile endif compile if MENU_LIMIT call updateringmenu() compile endif compile endif -- EVERSION > 5 compile if E3 if exist(autosave_name) then quietshell 'rename' autosave_name MakeTempName() endif compile else call dosmove(autosave_name, MakeTempName()) -- Rename the autosave file compile endif call select_edit_keys() compile if SUPPORT_USER_EXITS if isadefproc('rename_exit') then call rename_exit(oldname, .filename) endif compile endif compile if INCLUDE_BMS_SUPPORT if isadefproc('BMS_rename_exit') then call BMS_rename_exit(oldname, .filename) endif compile endif endif defc newwindow= compile if EVERSION < 5 universal messy if messy then opt=' /w'; else opt=''; endif rest=parse_file_n_opts(arg(1)) newwindow 'e'opt rest call select_edit_keys() compile else if .modify then 'save' if rc then sayerror ERROR_SAVING_HALT__MSG return endif endif 'open' .filename 'quit' compile endif compile if EPM ; New in EPM. Edits a file in a different PM window. This means invoking ; a completely new instance of E.DLL, with its own window and data. We do it ; by posting a message to the executive, the top-level E application. defc o,open= fname=strip(arg(1)) -- Remove excess spaces call parse_filename(fname,.filename) -- Resolve '=', if any call windowmessage(0, getpminfo(APP_HANDLE), 5386, -- EPM_EDIT_NEWFILE put_in_buffer(fname), 1) -- Tell EPM to free the buffer. compile endif compile if EVERSION > 5 defc openhelp compile if 0 rectangle = atol(4) || atol(75) || atol(632) || atol(351) filename = arg(1) \0 exfile = 'help.ex' \0 topoffile = HELP_TOP__MSG\0 botoffile = HELP_BOT__MSG\0 rethwnd = '1234' params = atol(getpminfo(EPMINFO_HAB)) || /* application anchor block */ atol(getpminfo(EPMINFO_PARENTCLIENT)) || /* handle to parent of edit window */ atol(getpminfo(EPMINFO_OWNERCLIENT)) || /* handle to owner of edit window */ address(rectangle) || /* positioning of edit window */ address(filename) || /* file to be edited */ atol(0) || /* handle to editor pointer icon. */ atol(0) || /* handle to mark pointer icon. */ atol(0) || /* editor ICON. */ atol(12) || /* internal editor options */ atol(203) || /* PM standard window styles (FCF_xxxx) */ atoi(1) || /* TRUE = LARGE FONT, FALSE = SMALL FONT*/ address(exfile) || /* pre-compiled macro code file (EPM.EX) */ address(topoffile) || /* top and bottom of file markers */ address(botoffile) || atoi(0) || /* unique window id specified for edit window */ atol(0) || /* environment variable to search for .ex */ atoi(0) /* reserved for future use. */ call dynalinkc( E_DLL, '_EPM_EDITWINDOWCREATE', address(params) || address(rethwnd)) compile else -- send EPM icon window a help message. It will take care of -- the correct setting up of the help window. -- call windowmessage(0, getpminfo(APP_HANDLE), 5132, -- EPM_POPHELPBROWSER put_in_buffer(arg(1)), 1) -- Tell EPM to free the buffer. compile endif compile endif ; Print just the marked area, if there is one. Defaults to printing on LPT1. ; Optional argument specifies printer. defc print= /* Save the users current file to the printer */ parse arg prt ':' -- Optional printer name if not prt then prt=default_printer(); endif -- Default prtnum = check_for_printer(prt) if prtnum then if not printer_ready(prtnum) then sayerror PRINTER_NOT_READY__MSG stop endif elseif substr(prt,1,2)<>'\\' then -- Assume \\hostname\prt is correct. sayerror BAD_PRINT_ARG__MSG stop endif if marktype() then getmark firstline,lastline,firstcol,lastcol,markfileid getfileid fileid if fileid<>markfileid then sayerror OTHER_FILE_MARKED__MSG UNMARK_OR_EDIT__MSG markfileid.filename stop endif mt=marktype() 'xcom e /n' /* Create a temporary no-name file. */ if rc=-282 then -- sayerror("New file") if marktype()='LINE' then deleteline endif elseif rc then stop endif getfileid tempofid call pcopy_mark() if rc then stop endif call pset_mark(firstline,lastline,firstcol,lastcol,mt,markfileid) activatefile tempofid sayerror PRINTING_MARK__MSG else sayerror PRINTING__MSG .filename endif compile if EVERSION < '5.50' 'xcom save /q' prt /* This will not set .modify to 0 */ compile else 'xcom save /ne /q' prt /* /NE means No EOF (for Laserjet driver) */ compile endif if marktype() then .modify=0; 'xcom q' endif sayerror 0 /* clear 'printing' message */ compile if EVERSION > 5 defc processbreak universal Dictionary_loaded call showwindow('ON') -- Make sure that the window is displayed. if dictionary_loaded then call drop_dictionary() endif sayerror MACRO_HALTED__MSG compile endif compile if WANT_PROFILE='SWITCH' defc PROFILE universal REXX_PROFILE uparg=upcase(arg(1)) if uparg=ON__MSG or uparg=1 then REXX_PROFILE = 1 elseif uparg=OFF__MSG or uparg=0 then REXX_PROFILE = 0 else sayerror 'Profile' word(OFF__MSG ON__MSG, REXX_PROFILE+1) endif compile endif compile if WANT_STACK_CMDS definit universal mark_stack, position_stack mark_stack = '' position_stack = '' defc popmark universal mark_stack parse value mark_stack with savemark '/' mark_stack call prestore_mark(savemark) defc poppos universal position_stack parse value position_stack with fid saveposition '/' position_stack if fid='' then sayerror STACK_EMPTY__MSG return endif compile if EPM -- EPM has error checking; EOS2 & E3 just stop. display -2 rc = 0 compile endif activatefile fid compile if EPM display 2 if rc then sayerror FILE_GONE__MSG return endif compile endif call prestore_pos(saveposition) defc pushmark universal mark_stack call checkmark() call psave_mark(savemark) -- Note - this does an UNMARK call prestore_mark(savemark) if length(mark_stack) + length(savemark) >= MAXCOL then sayerror STACK_FULL__MSG return endif mark_stack = savemark'/'mark_stack defc swapmark universal mark_stack call checkmark() call psave_mark(savemark) 'popmark' if length(mark_stack) + length(savemark) >= MAXCOL then sayerror STACK_FULL__MSG return endif mark_stack = savemark'/'mark_stack defc pushpos universal position_stack call psave_pos(saveposition) getfileid fid if length(position_stack) + length(saveposition fid) >= MAXCOL then sayerror STACK_FULL__MSG return endif position_stack = fid saveposition'/'position_stack defc swappos universal position_stack call psave_pos(saveposition) getfileid fid 'poppos' if length(position_stack) + length(saveposition fid) >= MAXCOL then sayerror STACK_FULL__MSG return endif position_stack = fid saveposition'/'position_stack compile endif defc qs,quietshell,quiet_shell= quietshell arg(1) defc q,quit= -- Ver. 4.11c: If we're trying to quit the shell window, kill the process. compile if EVERSION >= '4.11' compile if SHELL_USAGE if .filename = ".SHELL" then ; It's important to kill the process before we quit the window, else the ; process will churn merrily along without output. If we're MAKEing a ; large C program and quit the editor, it can tie up the session. ; Simpler tasks like DIR and FILEFIND don't tie up the session. ; ; Doesn't hurt anything if the process has already been killed. The ; internal shell_kill function will merely beep at you. call shell_kill() endif compile endif compile endif compile if EVERSION > '5.19' & WANT_EPM_SHELL if leftstr(.filename, 15) = ".command_shell_" then 'shell_kill' return endif compile endif compile if SUPPORT_USER_EXITS if isadefproc('quit_exit') then call quit_exit(.filename) endif compile endif compile if INCLUDE_BMS_SUPPORT if isadefproc('BMS_quit_exit') then call BMS_quit_exit(.filename) endif compile endif compile if TRASH_TEMP_FILES if substr(.filename,1,1) = "." then -- a temporary file .modify=0 -- so no "Are you sure?" endif compile endif getfileid quitfileid -- Temp workaround ;compile if EVERSION > 5 ; if marktype() then ; getmark firstline,lastline,firstcol,lastcol,markfileid ; if markfileid = quitfileid then ; 'ClearSharBuff' -- Remove content of EPM shared text buffer ; endif ; endif ;compile endif compile if WANT_LAN_SUPPORT & EVERSION < '5.51' if .lockhandle then call unlock(quitfileid); endif compile endif call quitfile() compile if EVERSION < 5 call select_edit_keys() .box=2 compile elseif MENU_LIMIT getfileid fileid if fileid <> quitfileid then -- temp workaround - fileid not null if no more files; -- breaks updateringmenu. call updateringmenu() endif compile endif defc rc= arg(1) sayerror 'RC='rc'' defc reflow_all call psave_mark(savemark) call psave_pos(savepos) compile if not EPM cursor_data compile endif stopit = 0 top do forever getline line do while line='' | -- Skip over blank lines or (lastpos(':',line)=1 & pos('.',line)=length(line)) | -- lines containing only a GML tag or substr(line,1,1)='.' -- SCRIPT commands if .line=.last then stopit=1; leave; endif down getline line enddo if stopit then leave; endif startline = .line unmark; mark_line call pfind_blank_line() if .line<>startline then up else bottom endif mark_line reflow getmark firstline,lastline if lastline=.last then leave; endif lastline+1 enddo call prestore_mark(savemark) call prestore_pos(savepos) defc s,save= universal save_with_tabs, default_save_options name=arg(1) call parse_leading_options(name,options) options = default_save_options options compile if EVERSION >= '5.21' save_as = 0 if name='' | name=UNNAMED_FILE_NAME then compile else if name='' then compile endif name=.filename compile if EVERSION >= '5.21' if .filename=UNNAMED_FILE_NAME then result = saveas_dlg(name, type) if result then return result; endif 'name' name if not rc then name=.filename save_as = 1 endif endif compile endif else call parse_filename(name,.filename) endif compile if SUPPORT_USER_EXITS if isadefproc('presave_exit') then call presave_exit(name, options, save_as) endif compile endif compile if INCLUDE_BMS_SUPPORT if isadefproc('BMS_presave_exit') then call BMS_presave_exit(name, options, save_as) endif compile endif compile if WANT_LAN_SUPPORT & EVERSION < '5.51' locked = .lockhandle if locked & not arg(1) then 'unlock'; endif compile endif compile if WANT_BOOKMARKS if .levelofattributesupport%8 - 2*(.levelofattributesupport%16) then 'saveattributes' endif compile endif compile if not E3 -- 4.10: Saving with tab compression is built in now. No need for -- the make-do proc savefilewithtabs(). -- 4.10 new feature: if save_with_tabs is true, always specify /t. if save_with_tabs then options = '/t' options endif compile elseif WANT_TABS if isoption(options,'t') or save_with_tabs then src=savefilewithtabs(name,options) else compile endif src=savefile(name,options) compile if (EVERSION < '4.10') & WANT_TABS endif compile endif compile if SUPPORT_USER_EXITS if isadefproc('postsave_exit') then call postsave_exit(name, options, save_as, src) endif compile endif compile if INCLUDE_BMS_SUPPORT if isadefproc('BMS_postsave_exit') then call BMS_postsave_exit(name, options, save_as, src) endif compile endif if not src & not isoption(options,'q') then call message(SAVED_TO__MSG name) compile if not E3 elseif src=-5 then -- call message('Access denied') if qfilemode(name, attrib) then -- Error from DosQFileMode call message(src) -- ? Don't know why got Access denied. else -- File exists: if attrib % 16 - 2 * (attrib % 32) then -- x'10' is on call message(ACCESS_DENIED__MSG '-' IS_A_SUBDIR__MSG) -- It's a subdirectory elseif attrib // 2 then -- x'01' is on call message(ACCESS_DENIED__MSG '-' READ_ONLY__MSG) -- It's read/only elseif attrib % 4 - 2 * (attrib % 8) then -- x'04' is on call message(ACCESS_DENIED__MSG '-' IS_SYSTEM__MSG) -- It's a system file elseif attrib % 2 - 2 * (attrib % 4) then -- x'02' is on call message(ACCESS_DENIED__MSG '-' IS_HIDDEN__MSG) -- It's a hidden file else -- None of the above? call message(ACCESS_DENIED__MSG '-' MAYBE_LOCKED__MSG) -- Maybe someone locked it. endif endif rc = src -- reset, since qfilemode() changed the RC. compile endif compile if EPM32 elseif src=-345 then call winmessagebox('Demo Version', sayerrortext(-345)\10\10'File too large to be saved.' , MB_CANCEL + MB_CRITICAL + MB_MOVEABLE) compile endif elseif src<0 then -- If RC > 0 assume from host save; and call message(src) -- assume host routine gave error msg. endif compile if EVERSION >= '5.21' if src & save_as then .filename=UNNAMED_FILE_NAME compile if SHOW_MODIFY_METHOD = 'TITLE' call settitletext(.filename) compile endif compile if MENU_LIMIT call updateringmenu() compile endif endif compile endif compile if E3 and SHOW_MODIFY_METHOD call show_modify() compile endif compile if WANT_LAN_SUPPORT & EVERSION < '5.51' if locked & not arg(1) then call lock(); endif compile endif return src defc select_all = getfileid fid call pset_mark(1, .last, 1, length(textline(.last)), 'CHAR' , fid) compile if EVERSION >= 5 'Copy2SharBuff' /* Copy mark to shared text buffer */ compile endif compile if SETSTAY='?' defc stay= universal stay parse arg arg1; arg1=upcase(arg1) compile if EPM if arg1='' then sayerror 'Stay =' word(OFF__MSG ON__MSG, stay+1) compile else if arg1='' then sayerror 'Stay =' stay compile endif elseif arg1='1' | arg1=ON__MSG then stay=1 elseif arg1='0' | arg1=OFF__MSG then stay=0 else sayerror INVALID_ARG__MSG ON_OFF__MSG')' endif compile endif compile if EVERSION >= '4.11' ; read a file from stdin defc stdfile_read while read_stdin() > 0 do join bottom endwhile ; write a file to stdout defc stdfile_write if .filename=='' then .filename='UNNAMED' endif 's' 'type '.filename 'q' compile endif compile if EVERSION >= '5.50' -- Earlier versions didn't retain trailing blanks anyway. defc strip = parse arg firstline lastline . if firstline='' then firstline=1; endif if lastline='' then lastline=.last; endif do i=firstline to lastline getline line, i if length(line) & rightstr(line,1) == ' ' then replaceline strip(line, 'T'), i endif enddo compile endif compile if TOGGLE_TAB defc TABKEY universal TAB_KEY uparg=upcase(arg(1)) if uparg=ON__MSG or uparg=1 then TAB_KEY = 1 elseif uparg=OFF__MSG or uparg=0 then TAB_KEY = 0 else sayerror 'TabKey' word(OFF__MSG ON__MSG, TAB_KEY+1) endif compile endif compile if (EVERSION >= '5.60c' & EVERSION < 6) | EVERSION >= '6.00c' defc tabglyph = uparg=upcase(arg(1)) if uparg=ON__MSG or uparg=1 then call tabglyph(1) elseif uparg=OFF__MSG or uparg='0' then call tabglyph(0) elseif uparg='' or uparg='?' then cb = tabglyph() -- query current state sayerror TABGLYPH_IS__MSG word(OFF__MSG ON__MSG, cb+1) else sayerror INVALID_ARG__MSG ON_OFF__MSG'/?)' endif compile endif compile if EVERSION >= 5 ; In EOS2 you could query the tabs by typing "tabs" with no argument. ; It typed them into the command line. ; defc tabs= if arg(1)<>'' then -- if user gives an argument to be set, 'xcom tabs 'arg(1) -- pass it to the old internal tabs command. else -- Note the new .tabs field; each file has its own tabs. 'commandline Tabs' .tabs endif compile endif defc top= top compile if WANT_LAN_SUPPORT defc unlock parse arg file if file='' then getfileid fileid else getfileid fileid,file if fileid=='' then sayerror '"'file'"' DOES_NOT_EXIST__MSG return 1 endif endif call unlock(fileid) compile endif defc uppercase= call puppercase() compile if EPM defc ver = sayerror EDITOR_VER__MSG ver(0) compile endif defc xcom_quit compile if EVERSION < 5 if .windowoverlap then quitview else 'xcom q' endif compile else 'xcom q' compile endif 
