WIP: Optimize the project #23

2022-09-20T05:23:51+02:00

kreyren commented

2022-09-20 05:23:51 +02:00

Fixes: #22

DO NOT CONTRIBUTE: Needs to be redesigned

TODO

Rework the newly called "HANDLERS" meaning methods used to manage environmental variables into GNU Guile
Rework tests
Remove the Makefile interpretation functionality

Fixes: https://git.dotya.ml/kreyren/pman/issues/22 DO NOT CONTRIBUTE: Needs to be redesigned ### TODO - [ ] Rework the newly called "HANDLERS" meaning methods used to manage environmental variables into GNU Guile - [ ] Rework tests - [ ] Remove the `Makefile` interpretation functionality

kreyren added this to the Minimal usability milestone 2022-09-20 05:23:51 +02:00

kreyren added the current-run label 2022-09-20 05:23:51 +02:00

kreyren self-assigned this 2022-09-20 05:23:51 +02:00

kreyren added 1 commit 2022-09-20 05:23:53 +02:00

Optimize the project e2eaa56344

kreyren added spent time 11 hours 47 minutes

2022-09-20 05:24:57 +02:00

kreyren commented

2022-09-20 05:25:17 +02:00

11h47m research and abstracting

kreyren commented

2022-10-03 23:41:34 +02:00

#!/usr/bin/env -S guile -e main -s    
!#    
(define targets     
  `(("nvim" . ,(lambda () (system "nvim")))    
    ("hello" . ,(lambda () (display "Hello, World!\n")))))    
(define (main args)    
  (let*    
    ((task (list-ref args 1))    
    (fun (assoc task targets)))    
    (if fun    
      ((cdr fun))     
      (display (append "task " task " not found!")))))

Solution through associated lists proposed

``` #!/usr/bin/env -S guile -e main -s !# (define targets `(("nvim" . ,(lambda () (system "nvim"))) ("hello" . ,(lambda () (display "Hello, World!\n"))))) (define (main args) (let* ((task (list-ref args 1)) (fun (assoc task targets))) (if fun ((cdr fun)) (display (append "task " task " not found!"))))) ``` Solution through associated lists proposed

kreyren commented

2022-10-10 01:26:05 +02:00

#!/usr/bin/env -S guile -e main -s
!#
(define (main args)
  (let*
      ((targets (let*
		    ((makes "makes/")
		     (sdir (opendir makes))
		     (suffx ".scm")
		     (targets '()))
		  (do ((sdirf (readdir sdir)))
		      ((eof-object? sdirf))
		    (set! sdirf (readdir sdir))
		    (when (and (string? sdirf) (string-suffix? suffx sdirf))
		      (primitive-eval
		       (let ((fil (open-file (string-append makes sdirf) "r")))
			 (set! targets (assoc-set! targets (substring sdirf 0 (+ 1 (string-suffix-length sdirf suffx))) (primitive-eval
															 `(lambda ()
															    ,(read fil)
															    ,(read fil))))))))
		    (set! targets
			  (assoc-set! targets "help"
				      (lambda (task)
					"Show the list of all commands and their docstrings"
					(display
					 (let ((e (assoc task targets)))
					   (string-append
					    (car e)
					    " : "
					    (procedure-documentation (cdr e))
					    "\n"))))))
		    (set! targets
			  (assoc-set! targets "tasks"
				      (lambda ()
					"Show the list of all commands and their docstrings"
					(map
					 (lambda (e)
					   (display
					    (string-append
					     (car e)
					     " : "
					     (procedure-documentation (cdr e))
					     "\n")))
					 targets)))))
		  targets))
       (task (list-ref args 1))
       (arg (list-tail args 2))
       (fun (assoc task targets)))
    (if fun
	(primitive-eval (append `(,(cdr fun)) arg))
	(display (string-append "task " task " not found!\n")))))

Alternative solution

```scm #!/usr/bin/env -S guile -e main -s !# (define (main args) (let* ((targets (let* ((makes "makes/") (sdir (opendir makes)) (suffx ".scm") (targets '())) (do ((sdirf (readdir sdir))) ((eof-object? sdirf)) (set! sdirf (readdir sdir)) (when (and (string? sdirf) (string-suffix? suffx sdirf)) (primitive-eval (let ((fil (open-file (string-append makes sdirf) "r"))) (set! targets (assoc-set! targets (substring sdirf 0 (+ 1 (string-suffix-length sdirf suffx))) (primitive-eval `(lambda () ,(read fil) ,(read fil)))))))) (set! targets (assoc-set! targets "help" (lambda (task) "Show the list of all commands and their docstrings" (display (let ((e (assoc task targets))) (string-append (car e) " : " (procedure-documentation (cdr e)) "\n")))))) (set! targets (assoc-set! targets "tasks" (lambda () "Show the list of all commands and their docstrings" (map (lambda (e) (display (string-append (car e) " : " (procedure-documentation (cdr e)) "\n"))) targets))))) targets)) (task (list-ref args 1)) (arg (list-tail args 2)) (fun (assoc task targets))) (if fun (primitive-eval (append `(,(cdr fun)) arg)) (display (string-append "task " task " not found!\n"))))) ``` Alternative solution

kreyren referenced this pull request from kruix/kruix

2022-10-15 05:01:31 +02:00

Convert from GNUMake on pman #3

kreyren commented

2022-11-07 11:00:13 +01:00

scheme@(guile-user)> (define foo 2)
scheme@(guile-user)> (define bar 2)
scheme@(guile-user)> (map (lambda (s) (let ((b (symbol->string (car s)))) (if (string-match "^foo" b) s))) (hash-map->list cons (struct-ref (current-module) 0)))
$3 = ((foo . #<variable 7f31385b34a0 value: 2>) #<unspecified>)

Alternative solution

``` scheme@(guile-user)> (define foo 2) scheme@(guile-user)> (define bar 2) scheme@(guile-user)> (map (lambda (s) (let ((b (symbol->string (car s)))) (if (string-match "^foo" b) s))) (hash-map->list cons (struct-ref (current-module) 0))) $3 = ((foo . #<variable 7f31385b34a0 value: 2>) #<unspecified>) ``` Alternative solution

You are not authorized to merge this pull request.

This pull request can be merged automatically.

This pull request is marked as a work in progress.

View command line instructions

Checkout

From your project repository, check out a new branch and test the changes.

git fetch -u origin optimizations:optimizations

git checkout optimizations

Sign in to join this conversation.

1 Participants

Notifications

Total Time Spent: 11 hours 47 minutes

kreyren

11 hours 47 minutes

Due Date

No due date set.

Dependencies

No dependencies set.

Reference: kreyren/pman#23