379
380
381
382
383
384
385
386
387
388
389
390
391
392
393
394
395
|
379
380
381
382
383
384
385
386
387
388
389
390
391
392
393
394
395
|
-
+
-
+
|
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; shell functions
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(define (spublish:shell-cp src-path target-path)
(cond
((not (file-exists? target-path))
(print "ERROR: target Directory " target-path " does not exist!!"))
(sauth:print-error (conc " target Directory " target-path " does not exist!!")))
((not (file-exists? src-path))
(print "Error: Source path " src-path " does not exist!!" ))
(sauth:print-error (conc "Source path " src-path " does not exist!!" )))
(else
(if (is_directory src-path)
(begin
(let* ((parent-dir src-path)
(start-dir target-path))
(run (pipe
(begin (system (conc "cd " parent-dir " ;tar chf - ." )))
|
410
411
412
413
414
415
416
417
418
419
420
421
422
423
424
|
410
411
412
413
414
415
416
417
418
419
420
421
422
423
424
|
-
+
|
(run-cmd "tar" (list "xf" "-")))))
(print "Copied data to " start-dir)))))))
(define (spublish:shell-mkdir targ-path)
(if (file-exists? targ-path)
(begin
(print "ERROR: target Directory " targ-path " already exist!!"))
(print "Info: Target Directory " targ-path " already exist!!"))
(let* ((th1 (make-thread
(lambda ()
(create-directory targ-path #t)
(print " ... dir " targ-path " created"))
"mkdir thread"))
(th2 (make-thread
(lambda ()
|
433
434
435
436
437
438
439
440
441
442
443
444
445
446
447
448
449
450
451
452
453
454
455
456
457
458
459
460
461
462
463
464
465
466
467
468
469
470
471
472
473
474
475
476
477
478
479
480
|
433
434
435
436
437
438
439
440
441
442
443
444
445
446
447
448
449
450
451
452
453
454
455
456
457
458
459
460
461
462
463
464
465
466
467
468
469
470
471
472
473
474
475
476
477
478
479
480
481
482
|
-
+
+
+
-
-
-
+
+
+
-
+
-
+
-
+
|
(thread-join! th1)
(cons #t "Successfully saved data"))))
(define (spublish:shell-rm targ-path iport)
(if (not (file-exists? targ-path))
(begin
(print "ERROR: target path " targ-path " does not exist!!"))
(sauth:print-error (conc "target path " targ-path " does not exist!!")))
(begin
(print "Are you sure you want to delete " targ-path "?[y/n]")
(let* ((inl (read-line iport)))
(if (equal? inl "y")
(let* ((th1 (make-thread
(lambda ()
(if (symbolic-link? targ-path)
(delete-file targ-path )
(if (directory? targ-path)
(delete-directory targ-path #t)
(delete-file targ-path ))
(if (directory? targ-path)
(delete-directory targ-path #t)
(delete-file targ-path )))
(print " ... path " targ-path " deleted"))
"rm thread"))
(th2 (make-thread
(lambda ()
(let loop ()
(thread-sleep! 15)
(display ".")
(flush-output)
(loop)))
"action is happening thread")))
(thread-start! th1)
(thread-start! th2)
(thread-join! th1)
(cons #t "Successfully saved data")))))))
(define (spublish:shell-ln src-path target-path sub-path)
(if (not (file-exists? sub-path))
(print "ERROR: Path " sub-path " does not exist!! cannot proceed with link creation!!")
(sauth:print-error (conc "Path " sub-path " does not exist!! cannot proceed with link creation!!"))
(begin
(if (not (file-exists? src-path))
(print "ERROR: Path " src-path " does not exist!! cannot proceed with link creation!!")
(sauth:print-error (conc "Path " src-path " does not exist!! cannot proceed with link creation!!"))
(begin
(if (file-exists? target-path)
(print "ERROR: Path " target-path "already exist!! cannot proceed with link creation!!")
(sauth:print-error (conc "Path " target-path "already exist!! cannot proceed with link creation!!"))
(begin
(create-symbolic-link src-path target-path )
(print " ... link " target-path " created"))))))))
(define (spublish:shell-help)
(conc "Usage: [action [params ...]]
|