mirror of
https://github.com/GnoConsortium/gno.git
synced 2024-11-15 15:07:16 +00:00
112 lines
2.7 KiB
C
112 lines
2.7 KiB
C
/*
|
|
|
|
parsing code for 'edit'
|
|
|
|
1.2(jb) 10/27/91
|
|
Added support for a '$editor' variable. edit now checks this var so
|
|
users can select different editors without copying files around.
|
|
1.1(jb) 10/9/91
|
|
Removed a lot of yucky code, added error checking to make sure there
|
|
is one and only one filename specified before 'edit' does anything.
|
|
1.0(jb) Ick! Nasty! Unnecessary code everywhere! Ick!
|
|
|
|
*/
|
|
|
|
#pragma stacksize 1024
|
|
|
|
#include <stdio.h>
|
|
#include <stdlib.h>
|
|
#include <string.h>
|
|
#include <ctype.h>
|
|
#include <types.h>
|
|
#include <gsos.h>
|
|
#include <shell.h>
|
|
#include <orca.h>
|
|
#include <stddef.h>
|
|
#include <texttool.h>
|
|
#include <gno/gno.h>
|
|
#include <sys/wait.h>
|
|
|
|
char *invoke;
|
|
|
|
doError(char *err)
|
|
{
|
|
printf("%s: %s\n",invoke,err);
|
|
exit(2);
|
|
}
|
|
|
|
char sfile[65], dfile[65], parms[256], istring[256];
|
|
Get_LInfoPB gl;
|
|
|
|
ExpandPathRecGS ep;
|
|
|
|
main (int argc,char *argv[])
|
|
{
|
|
int pid,wpid;
|
|
union wait status;
|
|
GSString255Ptr inPath;
|
|
ResultBuf255Ptr outPath;
|
|
int i;
|
|
char *editname, *editinvoke, *nm, *spc;
|
|
|
|
invoke = argv[0];
|
|
if (argc < 2) doError("no filename specified");
|
|
else if (argc > 2) doError("only one filename allowed");
|
|
|
|
sfile[1] = 0;
|
|
strcat(sfile+1,argv[1]);
|
|
sfile[0] = strlen(sfile+1);
|
|
|
|
dfile[0] = parms[0] = istring[0] = 0;
|
|
gl.pflags = 0x8000000l;
|
|
gl.mflags = 0l;
|
|
gl.kflag = 0;
|
|
gl.sfile = sfile;
|
|
gl.dfile = dfile;
|
|
gl.parms = parms;
|
|
gl.istring = istring;
|
|
|
|
gl.merr = 8; gl.merrf = 0;
|
|
gl.org = 0l;
|
|
|
|
inPath = malloc((size_t) (sfile[0] + 2));
|
|
inPath->length = sfile[0];
|
|
memcpy(inPath->text,sfile+1,(size_t) sfile[0]);
|
|
outPath = malloc(sizeof(ResultBuf255));
|
|
outPath->bufSize = 255;
|
|
ep.pCount = 3;
|
|
ep.inputPath = inPath;
|
|
ep.outputPath = outPath;
|
|
ep.flags = 0;
|
|
ExpandPathGS(&ep);
|
|
if (toolerror()) { printf("edit: error %04X\n",toolerror()); exit(-1); }
|
|
sfile[0] = outPath->bufString.length;
|
|
memcpy(sfile+1,outPath->bufString.text,sfile[0]);
|
|
free(inPath);
|
|
free(outPath);
|
|
|
|
/* hmm. These could well be considered bugs in Rose */
|
|
for (i = 1; i <= sfile[0]; i++) {
|
|
if (sfile[i] == ':') sfile[i] = '/';
|
|
}
|
|
SET_LINFO(&gl);
|
|
editname = getenv("editor");
|
|
if (editname == NULL) editinvoke = editname="4/editor";
|
|
else {
|
|
nm = malloc(strlen(editname)+1); strcpy(nm,editname);
|
|
spc = strchr(nm, ' ');
|
|
if (spc == NULL) { editname = editinvoke = nm; }
|
|
else {
|
|
editinvoke = malloc(strlen(nm)+1); strcpy(editinvoke,nm);
|
|
*spc = 0; editname = nm;
|
|
}
|
|
}
|
|
if ((pid = exec(editname,editinvoke)) >= 0) {
|
|
waitlp2:
|
|
wpid = wait(&status);
|
|
if ((wpid != pid) || (status.w_stopval == WSTOPPED)) goto waitlp2;
|
|
}
|
|
else perror("edit: ");
|
|
exit(status.w_retcode);
|
|
}
|