Menu

Show posts

This section allows you to view all posts made by this member. Note that you can only see posts made in areas you currently have access to.

Show posts Menu

Messages - tburton

Pages1
#1
newLISP Graphics & Sound /
August 25, 2007, 09:05:10 AM
Thanks for your replies.  Yes, I used .dmg.  I just uninstalled and reinstalled; same error.
#2
newLISP Graphics & Sound / GUI server icon non-responsive
August 24, 2007, 11:51:23 AM
I'm running macosx 10.4 with java 1.5 and when the GUI icon is double-clicked, the error "Cannot launch java application...uncaught exception in main method...java.io.IOException: newlisp: not found"  occurs.



However, if I cd to /usr/bin/newlisp-edit and run it from there, it works fine.



What needs to be tweaked to make the icon double-clickable?   Tim
#3
Anything else we might add? /
July 22, 2006, 08:12:52 AM
Thanks; that clarifies.  



Tim
#4
newLISP newS /
July 22, 2006, 08:10:28 AM
The documentation in the .cfm files is included within "home grown" comment sections.  



Tim
#5
newLISP newS / newLisp vs Perl executable
July 21, 2006, 09:22:48 PM
I wrote a Perl script a couple years ago that loops through all *.cfm files in a given directory, grabs the documentation from each, and writes that documentation to a text file.  Using Perl2exe, the source was packaged into an exe of 347 KB.



I rewrote that script in newLisp and, using link.lsp, the source was packaged into an exe of only 174 KB.



About 50% smaller!
#6
Anything else we might add? / vexing problem or bug?
July 21, 2006, 09:13:02 PM
the following works fine:



Code Select
(set 'out-buff "Now is the time to try men's souls")

(write-file "soulTest1.txt" out-buff)



but this doesn't:



Code Select
(set 'out-buff "Now is the time to try men's souls")

(set 'out-file-handle (open "soulTest2.txt" "write"))

(write-file out-file-handle out-buff)



What's going on here?  Many thanks.
#7
Anything else we might add? /
July 10, 2006, 05:26:07 PM
Oh, thanks.  Yes, I'll need to remember COND, which appears like CASE in other languages...
#8
newLISP in the real world /
July 09, 2006, 11:55:04 AM
Yes, code still runs from the command line, which is why I suspected TextWrangler, and which means I can probably call and execute newLisp code from within CFML (Cold Fusion Markup Language)...will start experimenting with that soon....
#9
Anything else we might add? / humble contribution: states & provinces 'contiguity chec
July 09, 2006, 11:40:44 AM
A couple years ago, I wrote an algorithm that checks whether a series of input (or is it inputted?) U.S. states and/or Canadian provinces were contiguous with eachother. It is used by a governmental agency as part of the process of validating applications for trucking licenses.  Although initially written in Java, I rewrote it in Cold Fusion for production because the latter was much faster!.  Later, I rewrote it while fooling around with python.



Then I discovered newLisp and found that all the hoopla about it was true after rewriting the algorithm again.  The newLisp version is more than half the number of lines than the previous languages and writing it in newLisp required a subtle change in consciousness that felt, to use an adjective posted more than once elsewhere, Zen-like in its focus and clarity.  Verrrry interesting.  



Anyway, the algorithm is below.  Needless to say, the bulk of the work consisted of setting up a data structure listing all North American jurisdictions and integers representing each jurisdiction's neighbors.  Since I'm a newbie, any feedback on how to make the code more 'lispy' would be appreciated!



Code Select




#!/usr/bin/newlisp



;(set 'theInputStr "OR,CA,CO,ID,WA");not contig test

;(set 'theInputStr "OR,CA,ID,WA");contig test



(set 'testStr (replace "," (parse theInputStr)))



(if (< (length testStr) 2)

(begin

(println "You must input at least two jurisdictions.")

(exit)))



(set 'statesNeighbors

'(("AL" 1 2 3 4)

("AK" 5 138)

("AR" 6 7 8 9 10 11)

("AZ" 12 13 14 15 16)

("CA" 12 17 18 19)

("CO" 20 21 22 23 24 25)

("CT" 26 27 28)

("DE" 29 30 31)

("FL" 1 32)

("GA" 2 32 33 34 35)

("ID" 36 37 38 39 40 41 42)

("IL" 43 44 45 46 47)

("IN" 43 48 49 50)

("IA" 44 51 52 53 54 55)

("KS" 20 56 57 58)

("KY" 45 48 59 60 61 62 63)

("LA" 6 64 65)

("ME" 66 67 68)

("MD" 29 69 70 71 144)

("MA" 26 72 73 74 75)

("MI" 49 76 77 78)

("MN" 51 79 80 81 82 83)

("MS" 3 7 64 84)

("MO" 8 46 52 56 59 85 86 87)

("MT" 36 88 89 90 91 92 93)

("NE" 21 53 57 85 94 95)

("NV" 13 17 37 96 97)

("NH" 66 72 98 99)

("NJ" 30 100 101)

("NM" 14 22 102 103 104)

("NY" 27 73 100 105 106 107 108)

("NC" 33 109 110 111)

("ND" 79 88 112 113 114)

("OH" 50 60 76 115 116)

("OK" 9 23 58 86 102 117)

("OR" 18 38 96 118)

("PA" 31 69 101 105 115 119)

("RI" 28 74)

("SC" 34 109)

("SD" 54 80 89 94 112 120)

("TN" 4 10 35 61 84 87 110 121)

("TX" 11 65 103 117 122)

("UT" 15 24 39 97 123)

("VT" 75 98 106 124)

("VA" 62 70 111 121 125 145)

("WA" 40 118 126)

("WV" 63 71 116 119 125)

("WI" 47 55 77 81)

("WY" 25 41 90 95 120 123)

("AB" 91 127 128 142)

("BC" 5 42 92 126 127 139 140)

("MB" 82 113 129 130)

("NB" 67 131 132 134)

("NS" 131 135 137)

("ON" 78 83 107 129 133)

("QC" 68 99 108 124 132 133 136)

("SK" 93 114 128 130 141)

("PE" 134 135)

("NL" 136 137)

("NT" 140 141 142 143)

("YT" 138 139 143)

("MX" 16 19 104 122)

("DC" 144 145)))



(push "ZZ" testStr -1) ;postpend a marker for a batch (one complete loop)



;remove first state from testStr & push its neighbors into matchingBucket:

(set 'matchingBucket (rest (assoc (pop testStr) statesNeighbors)))

(set 'cntBatchNoChange 0)



(while (and (< cntBatchNoChange 2 ) (> (length testStr) 1))

(set 'tempState (pop testStr))



(if (!= tempState "ZZ")

(begin

(set 'tempStatesBoundaries (rest (assoc tempState statesNeighbors)))

;if there is one boundary common to this state and boundaries in matchingBucket:

;then push this state's boundaries into bucket

;else push (at tail) this state back into the testStr

(if (!= 0 (length (intersect tempStatesBoundaries matchingBucket)))

(begin

(push tempStatesBoundaries matchingBucket)

(set 'matchingBucket (unique (flat matchingBucket)))

(set 'cntBatchNoChange 0))

(begin

(push tempState testStr)

(rotate testStr -1))))

(begin ;if ZZ encountered

(push tempState testStr)

(rotate testStr -1)

(inc 'cntBatchNoChange))))



(if (> (length testStr) 1)

(begin

(replace "ZZ" testStr)

(println "not contiguous because of " testStr))

(println "contiguous!"))
#10
newLISP in the real world / Conflict: JRUN4/CFMX vs. executing newLisp from TextWrangler
July 09, 2006, 11:13:04 AM
I'm using MacOSX 10.4 and if I happen to start JRUN4 and an associated Cold Fusion application (CFMXv7) and then try to execute a newLisp script within TextWrangler, the latter fails.  The latter functionality returns after logging out and logging in again.



Anybody have ideas here?  cheers this beautiful Sunday. ~tim
Pages1