home *** CD-ROM | disk | FTP | other *** search
/ Usenet 1994 October / usenetsourcesnewsgroupsinfomagicoctober1994disk2.iso / unix / volume13 / korner / func < prev    next >
Text File  |  1988-01-31  |  495b  |  31 lines
  1. function setenv
  2. {
  3.     export $1
  4.     eval $1=\"$2\"
  5. }
  6.  
  7. function unsetenv
  8. {
  9.     eval $1=\"\"
  10. }
  11.  
  12. KD=/tmp/kd$$
  13.  
  14. function source
  15. {
  16.     if [ -s $1 ]
  17.     then
  18.         printenv >$KD.pe
  19.         csh -c "source $1; echo +E >$KD.csh; /usr/ucb/printenv | comm  -23 - $KD.pe >>$KD.csh; echo +A >>$KD.csh; alias >>$KD.csh; echo +S >>$KD.csh; set >>$KD.csh; echo +D >>$KD.csh; dirs >>$KD.csh"
  20.         korner $KD.csh $KD.env
  21.         . $KD.env
  22.         if [ -n "$KDOUT" ]
  23.         then
  24.             cat $KD.env >>$KDOUT
  25.         fi
  26.         rm $KD.*
  27.     else
  28.         echo source: $1 not found
  29.     fi
  30. }
  31.