home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 13 / 13.iso / p / p047 / 4.ddi / TY / MSSH.LSP < prev    next >
Encoding:
Text File  |  1989-10-26  |  1.2 KB  |  47 lines
  1. ;****** TY\MSSH.LSP ****** 10-26-89 BJ
  2. (defun C:MSSH ( )
  3.   (setq fn1 (getstring "\n file name *.ssh:"))
  4.   (setq fn1 (strcat fn1 ".ssh"))
  5.   (setq f1 (open fn1 "r"))
  6.   (if (= f1 nil) (setq lll nil ll11 "" k 1) (rssh0))
  7.   (setq wcy 1)
  8.   (while wcy
  9.     (setq sname (getstring (strcat ll11 " new string 
  10.       <or RETURN for none>:")))
  11.     (if (= sname "") (setq wcy nil) (progn
  12.       (setq lll (cons sname lll))
  13.       (setq ll11 (strcat ll11 "/" (itoa k) "." sname))
  14.       (setq k (1+ k))))
  15.   )
  16.   (wssh0)
  17. )
  18. ;--------
  19. (defun rssh0 ( )
  20.   (setq wxr 1 k 1 lll nil ll11 "")
  21.   (read-line f1)
  22.   (while wxr
  23.     (setq sname (read-line f1))
  24.     (if (= sname nil) (setq wxr nil) (progn
  25.       (setq lll (cons (setq sname (read sname)) lll))
  26. ;     (setq lll (cons sname lll))
  27.       (setq ll11 (strcat ll11 (itoa k) "." sname "/"))
  28.       (setq k (1+ k))))
  29.   )
  30.   (close f1)
  31. )
  32. ;----------------------
  33. (defun wssh0 ( )
  34.   (setq f1 (open fn1 "w"))
  35.   (prin1 fn1 f1)
  36.   (setq lll (reverse lll))
  37.   (setq k 0)
  38.   (while k
  39.     (setq sname (nth k lll))
  40.     (if (= sname nil) (setq k nil) (progn
  41. ;     (prin1 (read sname) f1)
  42.       (print sname f1)
  43.       (setq k (1+ k))))
  44.   )
  45.   (close f1)
  46. )
  47.