Sorry for answering myself. It was just easy. hdefine2=: 1 : 0 m hdef2 (0 : 0) )
2007/5/28, June Kim <[EMAIL PROTECTED]>:
One thing I'd like to improve is, The duplication that would occur between hdef2 and hdefine2(not implemented yet). The original definition is, hdefine 1 : 'm : (hrep 0 : 0)' hdef 2 : 'm : (hrep n)' Now that I have hdef2, how could I define hdefine2 without much duplication? 2007/5/28, June Kim <[EMAIL PROTECTED]>: > Thank you for the hint. Following is my attempt at using locales. Any > suggestions for improvement? > > require 'web/jhp' > > v2=: 3 : 0 > (monad hdef2 y) '' > ) > > hdef2=: 2 : 0 > '' m hdef2 n y > : > start=.coname '' > cocurrent this=. cocreate '' > r=: '' > print=: 3 : '''''[r=: r,padj y' > println=: 3 : '''''[r=: r,LF,~ padj y' > x 4 : (hrep n) y > here=. r > cocurrent start > coerase this > here > ) > > male=: monad hdef2 'Mr. <%= y%>' > couple=: dyad hdef2 'Mr. <%=x%> and Mrs. <%=y%>' > he=:person=: 'Joe' > she=:'Jane' > v2 'Hello, <%=male_base_ person_base_%>!' > Hello, Mr. Joe! > v2 'Hello, <%=he_base_ couple_base_ she_base_%>!' > Hello, Mr. Joe and Mrs. Jane! > > > 2007/5/28, Raul Miller <[EMAIL PROTECTED]>: > > On 5/27/07, June Kim <[EMAIL PROTECTED]> wrote: > > > Maybe, using locales is better? > > > > I'd think so. > > > > Try putting > > cocurrent this=.cocreate'' > > at the top of v, and > > coerase this > > on the second to last line. > > > > Note, however, that any "globally defined names" must be > > qualified with their locale (for example base) if they're not in z, > > if you want to reference them from jhp text which is used in > > this fashion. > > > > -- > > Raul > > ---------------------------------------------------------------------- > > For information about J forums see http://www.jsoftware.com/forums.htm > > >
---------------------------------------------------------------------- For information about J forums see http://www.jsoftware.com/forums.htm
