home *** CD-ROM | disk | FTP | other *** search
/ InfoMagic Source Code 1993 July / THE_SOURCE_CODE_CD_ROM.iso / bsd_srcs / usr.bin / lisp / lispnews / text0323.txt < prev    next >
Encoding:
Text File  |  1985-11-10  |  11.6 KB  |  437 lines
  1.  
  2. Subject: franz to vi & back
  3.  
  4. > We have a heavily loaded vax on which we run our Lisp classes.  It
  5. > seems to me that we could lessen the load by not having VI start
  6. > up anew every time the student does a VIL in Franz.  
  7. > 
  8. > It would be nice to have two processes, one Lisp and the other VI.
  9. > There would be a function (like VIL) in Franz that would start up
  10. > a VI process if there wasn't one and if there was a VI process just
  11. > goto it.  When the student is finished editing the file he/she would
  12. > hit a key that would save out the file and return to Lisp (without
  13. > killing the VI process).  I believe that Gosling Emacs had something
  14. > like this, only more sophisticated.
  15. > 
  16. > My questions.  Has anyone done this for Franz & VI?  Would this help
  17. > the load average on a VAX?  If no one has done it, would it be difficult
  18. > to do?
  19. > 
  20.  
  21. I have developed something similar to what you describe, for franz
  22. running under bsd4.2
  23.  
  24. It was moderately difficult at the time, but I was just learning to
  25. exploit job control.
  26.  
  27. in this system, the user invokes: 
  28. (vif  foo)
  29. to edit the function foo.
  30.  
  31. when he is finished editing, he saves the current buffer by:
  32. :w
  33. then exits the editor by pressing:
  34. ^Z  [NOT wq!!]
  35.  
  36. (getting users o use ^Z rather than wq is the biggest difficulty)
  37.  
  38. the function is the read from a temporary file which is created
  39. by vif.
  40.  
  41. if the user later wishes to modify the SAME function [often the case]
  42. he simply invokes:
  43. (vif)
  44. - and is returned to the [stopped] editing session EXACTLY where
  45. he left it.  
  46. [ providing some motivation for putting up with ^Z ]
  47.  
  48.  
  49. The system people around here aren't too adventurous, so the only people
  50. who use this system are my friends and myself, so I can't say what effect
  51. it has on the load, [but it can only help]
  52.  
  53. one problem:  files in /tmp may accumulate, as there is no way to force
  54. a user to clean up all editing sessions before exiting lisp.
  55. [but that is what /tmp is for!]  you might warn your system people
  56. to remove all VIF files that are over 2days old, or something like that.
  57.  
  58.  
  59. note: this package knows about changes made by [cmu]edit, and may
  60. be simplified if you are using a system where cmuedit is unavailable.
  61.  
  62.  
  63. NOTE!!!!!!
  64. Neither the University of Delaware
  65. nor Apperson H. Johnson
  66. relinquishes any rightts toi this software.
  67.  
  68. Please do NOT transfer the software without written permission
  69. from both The University of Delaware and Apperson H. Johnson.
  70.  
  71.  
  72. **********************************************************
  73. setting up the system:
  74.  
  75. Script started on Fri Mar  1 06:49:30 1985
  76. % make jced
  77. cc  -c jced.c
  78. cc  -c eroar.c
  79. ld -o jcedmod.o -r  jced.o eroar.o
  80. % lisp
  81. Franz Lisp, Opus 38.79
  82. -> [load 'vif]
  83. [load vif.l]
  84. /usr/lib/lisp/nld -N -x -A /usr/ucb/lisp -T 95800 jcedmod.o -e _jced_ -o /tmp/Li8788.0  -lc
  85. t
  86. -> [dumplisp newlisp]
  87. nil
  88. -> (exit)
  89. script done on Fri Mar  1 06:51:45 1985
  90. *******************************************************************
  91.  
  92. "newlisp" is now the lisp to use - you can put it in some directory
  93. in youtr student's path
  94. ----------  here is vif.l  --------------------------------
  95. (setq sccid "#(@)vif.l    V1.1    johnson@udel    10/13/84")
  96. (eval-when (compile)
  97.     (msg "vif doen't work compiled!!!\\ "N) (exit))
  98. (declare (localf sccid))
  99. ;
  100. ;  uses job-control to allow ^Z from 'vi' to return to inside of
  101. ;  Lisp function
  102. ;
  103.  
  104.  
  105. ; ::vif::
  106. ;
  107. ;  Usage: (vif [<function-name>])
  108. ;  returns: t if function is loaded without errors, nil otherwise
  109. ;  side-effect: starts vi with temporary file,
  110. ;
  111. ;  does NOT REMOVE FILE UNLESS SUCCESSFUL LOAD HAS BEEN MADE
  112. ;  AND user has "quit" the editor
  113. ;
  114. ;  - allows ~instantaneous return to file being edited if
  115. ;    vi has been exited by ^Z (or whatever the susp character is, [see stty.1])
  116. ;   
  117. ;  NOTE: file and vi session may stay "LIVE" even between invocations!!!
  118. ; eg:
  119. ;
  120. ;  (def jnk '(lambda (x) "i am jnk"))
  121. ;
  122. ;  (vif jnk)
  123. ;    --> vi session, followed by :w, and then ^Z
  124. ;  t
  125. ;  followed by  :
  126. ;     (vif jnk ) 
  127. ;  or:
  128. ;     (vif)
  129. ;   --> INSTANTLY returns to former vi session !!
  130. ;
  131. ;
  132. ;
  133. (declare (special *jced_lastf* *jced_lastc*  %changes))
  134.  
  135. (def vif
  136.   (nlambda (fn)
  137.     (prog (res tf er ppflag)
  138.           (cond
  139.            (fn
  140.             (cond
  141.              ((or (not (boundp '*jced_lastf*))
  142.                   (neq *jced_lastf* (car fn)))
  143.               (setq ppflag t)
  144.               (setq *jced_lastf* (car fn))))))
  145.           (cond ((boundp '*jced_lastf*)
  146.                  (setq tf
  147.                        (substring (concat '/tmp/VF
  148.                                           (concat (syscall 20)
  149.                                                   (concat '_
  150.                                                           *jced_lastf*)))
  151.                                   1))
  152.                  (cond
  153.                   ((and (boundp '%changes)
  154.                         (memq *jced_lastf* %changes)
  155.                         (or (not (boundp '*jced_lastc*))
  156.                             (neq *jced_lastc* (memq *jced_lastf* %changes))))
  157.                    (setq ppflag t)))
  158.                  (cond
  159.                   (ppflag
  160.                    (eval (list 'pp (list 'F tf) *jced_lastf*)))))
  161.                 (t (msg "vif: edit what ??" N) (return nil)))
  162.      lp   (setq res (jced_ tf ""))
  163.           (setq er nil)
  164.           (setq ER%all '(lambda (x)
  165.                                 (setq er t))
  166.                         )
  167.           (cond
  168.            ((not (probef tf))
  169.             (msg "vif: cannot find " tf)
  170.             (cond
  171.              ((eq res 1)
  172.               (msg " want to return to the editor? {y/n} ")
  173.               (cond ((eq (read) 'y) (go lp)))
  174.               (return nil)))
  175.             (msg " sorry." N)
  176.             (makunbound '*jced_lastf*)
  177.             (return t)))
  178.           (errset (load tf))
  179.           (cond
  180.            ((boundp '%changes)
  181.             (setq *jced_lastc* (memq *jced_lastf* %changes))))
  182.           (cond
  183.            (er (msg "vif: want to fix " *jced_lastf* "? {y/n} ")
  184.                (cond ((eq (read) 'y) (go lp)))))
  185.           (cond ((eq res 0)
  186.                  (makunbound '*jced_lastf*)
  187.                  (syscall 10 tf)
  188.                  (return t))
  189.                 (t (return nil))))))
  190.  
  191.  
  192. ;
  193. ; include modules written in C
  194. (cfasl 'jcedmod.o '_jced_ 'jced_ "integer-function")
  195.  
  196. ;  initialization string for jced
  197. (jced_ ":se lisp
  198. " "edinit")
  199.  
  200. ;  editor to use
  201. (jced_ "/usr/ucb/vi" "editor")
  202.  
  203. --------------- -------     jced.c             ---------------
  204. static char sccid[] = "@(#)jced.c    1.1    johnson@udel 11/2/84";
  205.  
  206. #include  <signal.h>
  207. #include  <sgtty.h>
  208. #include  <errno.h>
  209. #include  <sys/wait.h>
  210. #include  <sys/types.h>
  211. #include  <sys/stat.h>
  212. #include  <sys/file.h>
  213. #include  <stdio.h>
  214.  
  215. #define streq(s1,s2)    (0 == strcmp(s1,s2))
  216. #define file_exist(FN)  (0 == access(FN,F_OK))
  217. static int chpgrp, pgrp;   
  218. static union wait status;
  219. static struct stat st0,st1;
  220. static struct sigvec sv1 = { SIG_IGN, 0, 0};
  221. static struct sigvec sv0;
  222.  
  223. static char curname[128];
  224. static char ed_buf[] = "/usr/ucb/vi";
  225. static char init_buf[] = "";
  226. static char myname_buf[] = "jced_";
  227. static char *editor = ed_buf;
  228. static char *edinit = init_buf;
  229. static char *myname = myname_buf;
  230.  
  231. /*    ::jced_::
  232.  *    
  233.  *    Usage: (jced_ "filename" "")
  234.  *    
  235.  *            jced_ is a job-control editor
  236.  *
  237.  *    - starts an editor session with "filename"
  238.  *      (or resumes it if there is a 'living' session with that file)
  239.  *    - returns 1 if the session remains alive, 0 if the session is over
  240.  *    
  241.  *     NOTE: if the SECOND argument is not the EMPTY string, 
  242.  *    then the following special calls may apply:
  243.  *    
  244.  *         (jced_ "/usr/ucb/vi" "editor") 
  245.  *    - causes jced to use /usr/ucb/vi as the editor (this is the default)
  246.  *    
  247.  *        : (jced_ ":se bla" "edinit") 
  248.  *    - causes jced cause the editor to pretend that the user typed ":se bla"
  249.  *    every time the editor is invoked (the default is "")
  250.  *
  251.  *        : (jced_ "jced_" "myname") 
  252.  *    - causes jced to use the name "jced_" in its prompts and messages
  253.  *    (this is the default)
  254.  *
  255.  */
  256. int
  257. jced_(fname,cmd)
  258. char *fname, *cmd;
  259. {
  260. union wait  status;
  261. char resp[2];
  262.  
  263.  
  264.     if (*cmd) {
  265.         if (streq(cmd,"editor")) newstring(&editor,fname);
  266.         else if (streq(cmd,"edinit")) newstring(&edinit,fname);
  267.         else if (streq(cmd,"myname")) newstring(&myname,fname);
  268.         else fprintf(stderr,"%s: %s is an unknown command",myname,cmd);
  269.         return(0);
  270.     }
  271.  
  272.     if (*curname) {
  273.         if (*fname &&  !streq(fname,curname)) {
  274.                 if (file_exist(curname))
  275.                     eroar(unlink(curname),0,"unlink %",curname);
  276.                 kvil_();
  277.                 strcpy(curname,fname);
  278.                 begin_vi(); resume_vi();
  279.         } else {
  280.              /*
  281.              * if file has been modified elsewhere,
  282.              * new editing session is needed
  283.              */ 
  284.             if (file_exist(curname)) { 
  285.                 eroar(stat(curname,&st1),0,"stat");
  286.                 if(st0.st_mtime != st1.st_mtime) {
  287.                     kvil_(); strcpy(curname,fname); begin_vi();
  288.                 }
  289.             }
  290.             resume_vi();
  291.         }
  292.     } else if (*fname) {
  293.             strcpy(curname,fname);
  294.             begin_vi(); resume_vi();
  295.     } else
  296.         return(0);
  297.         
  298.     return((*curname) ? 1 : 0);
  299. }
  300.  
  301. /*  to be called when a function is modified elsewhwre */
  302. kvil_()
  303. {
  304.     eroar(killpg(chpgrp,SIGKILL),0,"killpg %d",chpgrp);
  305.     wait3(&status,WUNTRACED,0);
  306.     curname[0] = '\0';
  307. }
  308.  
  309. static
  310. begin_vi()
  311. {
  312.     if (chpgrp = fork()) {
  313.         pgrp = getpgrp(0);
  314.         eroar(setpgrp(chpgrp,chpgrp),0,"setpgrp");
  315.     } else {
  316.         fakeinput(edinit);
  317.         execlp(editor,editor,curname,0);
  318.         fprintf(stderr,"%s: exec of %s failed\n",myname,editor);
  319.     }
  320. }
  321.  
  322.  
  323. static
  324. resume_vi()
  325. {
  326. char dum[2];
  327.  
  328.     for (;;) {
  329.         eroar(sigvec(SIGTTOU,&sv1,&sv0),0,"sigvec -IGN TTOU");
  330.         eroar(ioctl(0,TIOCSPGRP,&chpgrp),0,"SPGRP chpgrp");
  331.         if (file_exist(curname))
  332.             eroar(stat(curname,&st1),0,"stat");
  333.         else
  334.             st1.st_mtime = 0;
  335.         killpg(chpgrp,SIGCONT);
  336.         wait3(&status,WUNTRACED,0);
  337.         eroar(ioctl(0,TIOCSPGRP,&pgrp),0,"ioctl SPGRP pid");
  338.         eroar(sigvec(SIGTTOU,&sv0,0),0,"sigvec -DFL TTOU");
  339.         if (file_exist(curname))
  340.             eroar(stat(curname,&st0),0,"stat");
  341.         else
  342.             st0.st_mtime = st1.st_mtime;
  343.  
  344.         if(!status.w_status) {
  345.              curname[0] = '\0'; break;
  346.         }
  347.         if(st0.st_mtime == st1.st_mtime) {
  348.             fprintf(stderr,"%s: %s was not modified, try again? {y/n} ",
  349.                 myname, curname);
  350.             if (1 == scanf("%1s",dum) && dum[0] == 'n')  break;
  351.         } else 
  352.             break;
  353.     }
  354. }
  355.  
  356. static
  357. fakeinput(s)
  358. char *s;
  359. {
  360. int i;
  361.     /* pretend s was typed at the terminal */
  362.     for(i=0;s[i]; ++i)
  363.         ioctl(0,TIOCSTI,s+i);
  364. }
  365.  
  366. static
  367. newstring(sptr,s)
  368. char **sptr, *s;
  369. {
  370. char *s2, *malloc();
  371.  
  372.     if (NULL == (s2 = malloc(1 + strlen(s)))) {
  373.         fprintf(stderr,"%s: malloc failed\n",myname);
  374.     } else {
  375.         strcpy(s2,s);
  376.         *sptr = s2;
  377.     }
  378. }
  379.  
  380. ---------------------------  eroar.c  --------------------
  381.  
  382. static char sccid[] = "@(#)eroar.c    1.0    johnson@udel 10/13/84";
  383.  
  384. /*    ::eroar.c::
  385.  *    
  386.  *    error reporter-handler for faulty system function calls
  387.  *    
  388.  *    Usage: eroar( <system-call>, <exit-code>, <printf-pattern>, 
  389.  *                        <printf-arg>, <printf-arg>,  ...... );
  390.  *    
  391.  *    behavior:
  392.  *        if the system call is successful, returns (1) immediately
  393.  *        else
  394.  *            prints out the error message (from the printf pattern)
  395.  *              and prints an error explanation
  396.  *             if exit-code is non-zero, exits with that code
  397.  *            else returns (0)
  398.  */
  399.  
  400.  
  401. #include <errno.h>
  402. #include <stdio.h>
  403. #define ERR_BUFMAX 128
  404.  
  405. extern int sys_nerr, errno;
  406. extern char *sys_errlist[];
  407.  
  408. eroar(expr,code,s,p1,p2,p3,p4,p5,p6,p7,p8,p9)
  409. int expr,code; char *s;
  410. {
  411.     static char errbuf[ERR_BUFMAX];
  412.     if (-1 != expr) return(1);
  413.     fprintf(stderr,s,p1,p2,p3,p4,p5,p6,p7,p8,p9);
  414.     fprintf(stderr,": %s\n",
  415.         (0 < errno && errno < sys_nerr) ?
  416.                 sys_errlist[errno] : "UNKNOWN ERROR");
  417.     if (code) exit(code);
  418.     return(0);
  419. }
  420.  
  421. -----------------    makefile -----------------------
  422.  
  423. jced : jcedmod.o
  424.  
  425. jcedmod.o : jced.o eroar.o
  426.     ld -o jcedmod.o -r  jced.o eroar.o
  427. -------------------------------------------------------
  428.  
  429. ... (share a little joke with the world) ...
  430.  
  431. net:        johnson@udel-ee
  432. usmail:     Apperson H. Johnson
  433.             618 Lehigh Rd. apt S11
  434.             Newark, De. 19711
  435. --------------------------------------------------------
  436.  
  437.