Or you may patch map inside jmf to provide the entire shape,
(JFL;10 10) map1_jmf_ 'tmp';'/tmp/tmp'
$tmp
10 10
--- jmf.ijs 2009-06-11 13:36:33.000000000 +0800
+++ jmf1.ijs 2009-06-19 09:43:35.000000000 +0800
@@ -317,11 +317,12 @@
NB. =========================================================
NB.*map v map a file
NB. [type [,trailing_shape]] map name;filename [;sharename;ro]
-map=: 3 : 0
-0 map y
+map1=: 3 : 0
+0 map1 y
:
if. 0=L.x do. t=. <&> x else. t=. x end.
'type tshape hsize'=. 3 {. t, a:
+tshape=. }.tshape [ lshape=. {.tshape
'trailing shape may not be zero' assert -. 0 e. tshape
@@ -392,7 +393,7 @@
had=. allochdr 127 NB. allocate header
bx=. JBOXED=type
hs=. (+/hsize)*asize=. JSIZES {~ JTYPES i. type
- lshape=. bx}.<.(ts-hs)%(*/tshape)*asize
+NB. lshape=. bx}.<.(ts-hs)%(*/tshape)*asize
d=. sfu hs+-/ufs fad,had
h=. d,aa,ts,type,1,(*/lshape,tshape),((-.bx)+#tshape),lshape,tshape
h memw had,0,(#h),JINT NB. set header
--
regards,
====================================================
GPG key 1024D/4434BAB3 2008-08-24
gpg --keyserver subkeys.pgp.net --recv-keys 4434BAB3
----------------------------------------------------------------------
For information about J forums see http://www.jsoftware.com/forums.htm
