UV.EM
From Pickwiki
Jump to navigationJump to search
UV.EM is based upon UV.VI and can be used to edit MVDatabase records in Emacs, especially under Unix X(-windows) for extra functionality which depends upon Emacs Lisp packages uv-edit-mode and uv-tools. See the Emacs Lisp source page in this Wiki.
* $Id: UV.EM,v 1.1 2006/05/11 22:32:55 kenf Exp kenf $
******************************************************************************
*
* Invoke Emacs using uniVerse style command syntax
*
* Module: UV.EM
*
* Origin: Cloned from UV.VI by Ken Ford ([[NetTeller]] Pty Ltd) - 12th May, 2005.
*
* $Revision: 1.1 $
*
*******************************************************************************
id = "%W%"
$INCLUDE UNIVERSE.INCLUDE MACHINE.NAME
temp.made = 0
titem.num = 0
select.active = 0
PERMISSIONS = '-PERMISSIONS'
open 'VOC' to voc.file
else
call *UVPRINTMSG(1720,"")
stop
end
command = trim(@sentence)
command = convert(" ",@FM,command)
if upcase(command<1>) = "RAID" OR upcase(command<1>) = "RUN" then
command = delete(command,1,0,0) ; * delete command
command = delete(command,1,0,0) ; * delete program file
end
IF DCOUNT(command,@FM) = 1 THEN ; * No command line arguments
emacs.id = ''
GOSUB runemacs
STOP
END
num.args = dcount(command,@FM) - 2
file = command<2>
dict = 0
write.permissions = 1
if num.args < 0
then
call *UVPRINTMSG(39412,"")
stop
end
*** read edit file item from voc
read f.item from voc.file,file
else
if index(file,",",1) then
mainfile = field(file,",",1)
read f.item from voc.file,mainfile
else
call *UVPRINTMSG(1521,mainfile:@fm:"VOC")
stop
end
end
else
call *UVPRINTMSG(1521,file:@fm:"VOC")
stop
end
end
*** is edit file a dictionary
if upcase(trim(f.item<1>)[1,1]) = 'K'
then
if f.item<2> = 20 and dict = 0
then
dict = 1
file = file:' ':command<3>
num.args = num.args - 1
if num.args < 0
then
call *UVPRINTMSG(39412,"")
stop
end
end
end
*** open edit file
open file to edit.file
else
call *UVPRINTMSG(1520,file)
stop
end
*** get status information on edit file
status file.info from edit.file
else
call *UVPRINTMSG(39413,file)
stop
end
*** is edit file a directory
if file.info<21> = 1 or file.info<21> = 19
then
file.path = file.info<20>
dirtype = file.info<21>
end
else
*** check permissions on file
distributed.file = 0
if file.info<21> = 27
then
distributed.file = 1
end
perm.mode = 1
perm.in = 6 ; * read and write permissions
perm.out = ''
call @PERMISSIONS(edit.file,perm.mode,perm.in,perm.out)
if NOT(perm.out)
then
oprompt = system(26)
prompt " "
call *UVPRINTMSG(39419,file)
abort.flag = ""
input abort.flag
prompt oprompt
if UPCASE(abort.flag) = "Y"
then
goto end.program
end
else
write.permissions = 0
end
end
gosub mktemp:
status file.info from temp.file
else
call *UVPRINTMSG(39413,new.temp)
goto end.program
end
file.path = file.info<20>
dirtype = 0
end
emacs.id = ""
begin case
case num.args = 1 and command<3+dict> = "*"
select edit.file
readnext f.arg
else
call *UVPRINTMSG(39411,file)
stop
end
gosub process.select.list
case num.args = 0
readnext f.arg else f.arg = ""
if f.arg = ""
then
oprompt = system(26)
prompt " "
call *UVPRINTMSG(1082,"")
input f.arg
prompt oprompt
gosub process.argument
if emacs.id = "" then goto end.program
end
else
gosub process.select.list
end
case 1
For i = 1 to num.args
f.arg = command<i+2+dict>
gosub process.argument
next i
if emacs.id = "" then goto end.program
end case
GOSUB runemacs
*** end of program tidy up *******************************************
end.program:
if temp.made
then
gosub get.new.data:
close temp.file
* execute "DELETE.FILE ":new.temp capturing output
* Work around to stop temporary files being left because of DELETE.FILE being a secure verb
cmd = 'rm -rf ':'EMACS.TMP00*'
execute 'SH -c "':cmd:'"' capturing output
execute 'DELETE VOC ':new.temp capturing output
call *UVPRINTMSG(39414,new.temp)
end
close edit.file
release
stop
*** subroutines follow ***********************************************
runemacs:
*** prepare and execute Emacs command
convert @FM to " " in emacs.id
* cmd = 'sh -c "echo $DISPLAY"'
* cmd='sh -c "ps -fu ':@LOGNAME:' | grep -E ':"'[0-9] /.+emacsserver'":' | grep -v grep"'
cmd='sh -c "ls -l /tmp/emacs* | grep -E ':'"':@LOGNAME:'"':' | grep -v grep"'
EXECUTE cmd CAPTURING output
emacs.id = CHANGE(emacs.id,'&','\&',-1)
IF output<1> = '' THEN ; * Don't use X-windows Emacs
cmd = 'sh -c "/usr/local/bin/emacs -nw -l uv-edit-mode -f uv-edit-mode'
EXECUTE cmd:' ':emacs.id:'"'
END ELSE ; * Running under X-windows
cmd = 'sh -c "/usr/local/bin/emacsclient ':emacs.id:'"'
EXECUTE cmd
SLEEP 1
END
RETURN
*
**********************************************************************
process.select.list:
select.active = 1
f.end = 0
loop
gosub process.argument
readnext f.arg else f.end = 1
until f.end do
repeat
if emacs.id = "" then return to end.program
return
**********************************************************************
process.argument:
if (dirtype ne 19) then
if not(longnames) then
execute 'UNIX.PATH "':f.arg:'"' capturing item.id
item.id = item.id<1>
end else
item.id = f.arg
end
end else
item.id = f.arg
end
if dirtype then
readu item.data from edit.file,f.arg
locked
if select.active
then
oprompt = system(26)
prompt " "
call *UVPRINTMSG(039422,f.arg)
abort.flag = ""
input abort.flag
prompt oprompt
if UPCASE(abort.flag) = "Y"
else
return
end
end else
call *UVPRINTMSG(39418,f.arg)
end
return to end.program
end
then
item.data = ""
emacs.id = emacs.id:" ":file.path:"/":item.id
end
else
if select.active
then
emacs.id = emacs.id:" ":file.path:"/":item.id
end
else
*** make it use temporary file
titem.name = f.arg[1,10]: titem.num 'r%3'
if not(temp.made) then gosub mktemp:
if item.list
then
item.list = item.list:@fm:f.arg
titem.list = titem.list:@fm:titem.name
end else
item.list = f.arg
titem.list = titem.name
end
list.size += 1
titem.num += 1
emacs.id = emacs.id:" ":new.temp:"/":titem.name
end
end
end else
[[RecordID]].OK = 1
gosub move.to.temp
if [[RecordID]].OK then
emacs.id = emacs.id:" ":file.path:"/":item.id
end
end
return
**************************************************************
mktemp:
mask.count = 1
item.list = ""
list.size = 0
loop
new.temp = "EMACS.TMP": @userno 'r%4': mask.count 'r%2'
open new.temp to temp.file
then
close temp.file
end
else
* execute "CREATE.BFILE DATA ":new.temp:" UV.EMACS" capturing output
execute "CREATE.FILE DATA ":new.temp:" 1,1,19" capturing output
if trans('VOC','CREATE.FILE',5,'X') = 'LONGNAMES' then
longnames = @true
end else
longnames = @false
end
open new.temp to temp.file
then
temp.made = 1
end
end
until temp.made do
mask.count += 1
if mask.count > 99
then
call *UVPRINTMSG(39415,"")
stop
end
repeat
call *UVPRINTMSG(39416,new.temp)
return
move.to.temp:
readu item.data from edit.file,f.arg
locked
call *UVPRINTMSG(39418,f.arg)
goto end.program
end
else
df.error = status()
if df.error = 1 or df.error = 2 then
if distributed.file
then
call *UVPRINTMSG(970013,f.arg)
end
else
call *UVPRINTMSG(970012,f.arg)
end
[[RecordID]].OK = 0
end else
item.data = ""
end
end
if [[RecordID]].OK then
* if dict then truncate after F10
if dict and upcase(item.data<1>[1,1]) = "I" and count(item.data, @AM) > 10
then
item.data = item.data[1,index(item.data, @AM, 10)-1]
end
readu temp.data from temp.file,f.arg else temp.data = ""
write item.data to temp.file,f.arg
else
call *UVPRINTMSG(39417,f.arg)
goto end.program
end
if write.permissions
then
if item.list
then
item.list = item.list:@fm:f.arg
titem.list = titem.list:@fm:f.arg
end else
item.list = f.arg
titem.list = f.arg
end
list.size += 1
end
else
change.permissions = "SH -c 'chmod 400 ":file.path:"/":item.id:"'"
execute change.permissions capturing command.output
end
end
return
get.new.data:
for i = 1 to list.size
f.arg = item.list<i>
tf.arg = titem.list<i>
read item.data from temp.file,tf.arg
then
write item.data to edit.file,f.arg
end
else
readu item.data from edit.file,f.arg
then
delete edit.file,f.arg
call *UVPRINTMSG(39420,f.arg:@fm:file)
end
else
release edit.file,f.arg
end
end
next i
return
end
