Freelance, discreet code clean-up and review?
Posted: Thu Dec 16, 2010 11:38 pm
I have dozens of newLisp modules. Each of these modules needs to be reviewed and cleaned up by someone who knows newLisp (and JSON and networking, hopefully). Some of the modules are small, some are large.
It pays, via Paypal, based on small set pieces of code that need to be cleaned up.
Each module is between $50 and $100 for a code review and cleanup. If a bunch of new code needs to be written, we'd negotiate that as a new project.
It's pretty straightforward, I'm just looking for more eyes on the code and trying to help the newLisp community make a little extra cash for the holidays (and, of course, fix my code!).
Here's a terrible, quickly written example with comments:
It pays, via Paypal, based on small set pieces of code that need to be cleaned up.
Each module is between $50 and $100 for a code review and cleanup. If a bunch of new code needs to be written, we'd negotiate that as a new project.
It's pretty straightforward, I'm just looking for more eyes on the code and trying to help the newLisp community make a little extra cash for the holidays (and, of course, fix my code!).
Here's a terrible, quickly written example with comments:
Code: Select all
;; @syntax Util:Interfaces
;; @return <list of interfaces>
;; @param NA
;;
(define (Interfaces)
(set 'iface (exec "ifconfig -a"))
(set 'final-iface nil)
(dolist (x iface)
(set 'curline (trim x "\t\t"))
; (println "Current line" $idx " : '" curline "'")
;; Get the interface, if it exists
(when (find "0: flags" curline )
(set 'myface ((parse curline) 0)) )
(when (starts-with curline "status: ")
(when (= "active"((parse curline) 1))
;(Log:Print "Result" "Adding interface: " myface)
(push myface final-iface -1)
)
)
;(println $idx "|" (trim x "\t\t"))
;; hold it
;; check for status: active
;; save the interface (which is active) to the list
;; return active interface list
(set 'return-interfaces final-iface)
)
)