Chris: I got Joxygen to work on one of my scripts, but it chokes on another
with the following displayed in Terminal:
load 'c:/users/tom
arneson/j64-802-user/projects/vexilla-2013/docs/makedocs.ijs'
processnew.ijs
downloadvx.ijs
|index error: pick
| y=.(3{.y),('desc';upper1 termstop(<2 1) pick y),3}.y
The error occurs in verb: adddesc which is called from verb: makescript
when processing the following script:
NB. =========================================================
NB.%downloadvx.ijs - download VX points
NB. Purpose: download VX points
NB. Update: 2013-09-21
NB. =========================================================
require '~addons/format/printf/printf.ijs'
require '~addons/web/gethttp/gethttp.ijs'
require '~addons/tables/csv/csv.ijs'
NB. ---------------------------------------------------------
NB.*setdownload v
NB. y must be boxed list of literals
setdownload=: verb define
'http://geovexilla.gpsgames.org/cgi-bin/vx.pl?download=1&mapcenterlat=%s&map
centerlon=%s&downloadformat=%s&downloadradius=%s&player=Tom+Arneson' sprintf
y
)
NB. ---------------------------------------------------------
NB.*downloadvx v downloads from Geovexilla website
downloadvx=: verb define
PATH=. '~Projects/data/geovex/'
LAT=. '45' [ LON=. '-93' [ RAD=. '500'
data=. > chopcsv each <;. _2 gethttp setdownload LAT;LON;'CSV';RAD
head=. 0{data
data=. 1}.data
NB. sort by VX name and write to csv
data=. (/: 1{"1 data){data
(head,data) writecsv PATH,'geovexilla.csv'
ld=. 10{.>0{_1{data NB. last date
f=. (<ld)=10{. each 0{"1 data
NB. update dailycount.csv
('%s,%d,%d'sprintf ld;(+/f);#data) fappends PATH,'dailycount.csv'
NB.save gpx in file: new.gpx
gpx=. gethttp setdownload LAT;LON;'GPX';RAD
gpx fwrite PATH,'new.gpx'
NB. return literal new VX count
'Last date: %s\nNew count: %d\nGeoVexilla count: %d' sprintf
ld;(+/f);#data
)
NB. ---------------------------------------------------------
----------------------------------------------------------------------
For information about J forums see http://www.jsoftware.com/forums.htm
