In the thread http://groups.google.com/group/J-Programming/browse_thread/thread/22d3c6d5d516491e
"In this demo I have for the first time in an application used the option of creating anonymous verbs to execute statements from a boxed list. For some reason I have overlooked the possibilities it offers. C=:A (4 : V) B Here V is a boxed list coming from the editm field and A respectively B are the left and right arguments x and y in the resulting verb. Similarly C=:(3 : V) B Is the monadic version of the same. " In http://groups.google.com/group/J-Programming/files There is fall.ijs using this 2009/3/23 Alex Rufon <[email protected]> > Wow, it took some time for me to get back to this but I think I figured it > out. > > So instead of using evoke ... I used 0!:0 like so: > > NB. ========================================================= > NB.*createCMD (v) creates a temporary verb with a J sentence string > NB. > NB. y is: a string J sentence > NB. creates a GLOBAL variable eoeCMD > createCMD=: verb define > temp=. 'eoeCMD=: 3 : ''', y, ' y''' > 0!:0 temp > ) > > createCMD '{. ~.' > eoeCMD ;: 'aa bb cc aa bb cc aa bb' > +--+ > |aa| > +--+ > > createCMD '+/' > eoeCMD i. 5 5 > 50 55 60 65 70 > > I would appreciate it if somebody got a better idea. :) > > Thanks. > > r/Alex > > > -----Original Message----- > From: [email protected] [mailto: > [email protected]] On Behalf Of Markus Schmidt-Gröttrup > Sent: Tuesday, February 24, 2009 4:43 PM > To: Programming forum > Subject: Re: [Jprogramming] Executing a string command > > Looking to the vocabulary page of Evoke I have: > > cmd =. {. > 'cmd'~ (i.10) > 0 > > Regards, Markus > > Alex Rufon schrieb: > > Hi. > > > > I've been tinkering with my old EDI parser and I would like to extend it > > with a new feature. > > > > NB. ========================================================= > > NB. AS400 File Maps > > NB. Each mapping follows the following format > > NB. Source*Variable*Type*Length*Decimal*Justify*Default*Remarks > > NB. > > NB. Valid values for each values are: > > NB. Source - values corresponds to names defined in RECIEVING.IJS: > > NB. ENVELOP > > NB. PO_HEADER > > NB. PO_LINE_ITEM > > NB. DESTINATION_QUANTITY > > NB. SUB_LINE_ITEM > > NB. LOCAL - a local map specifiying non EDI retrievable values > > NB. Variable - Names defined in RECIEIVING.IJS for each Source > > NB. Type - Supported datatypes: CHR, NUM, DTE > > NB. note that for DATE the format will be YYYYMMDD > > NB. and for NUM there will be NO decimal/period character > > NB. Length - number of characters the entry will occupy > > NB. Decimal - valid only for numbers, this list the decimal positions > > NB. Justify - Justification, valid values are: LJ and RJ > > NB. Default - if the variable value is blank, use this value > > NB. Remarks - free text, NOT USED by code > > NB. Additional Operation - ADVANCED, additional operation to apply to > > variable > > > > NB. ========================================================= > > NB.*PO_HEADER_MAP (n) definition for PO Header > > PO_HEADER_MAP=: unbox '*' cutstring each cutopen noun define > > LOCAL*SOURCE*CHR*8*0*LJ*POLO*Source Code* > > ENVELOP*SENDER_QUAL*CHR*2*0*LJ**IQ* > > ENVELOP*SENDER_ID*CHR*15*0*LJ**ID* > > PO_HEADER*PO_NO*CHR*30*0*LJ**PO NO* > > PO_HEADER*RELEASE_NO*NUM*3*0*RJ*000*PO REV* > > LOCAL*EDI_REVISION*NUM*3*0*RJ*000*EDI REV* > > PO_HEADER*PO_EXTRACT_DATE*DTE*8*0*LJ**PO Date* > > PO_HEADER*CUST_ORDER_NO*CHR*30*0*LJ**Contract No* > > LOCAL*LOT_NO*CHR*5*0*LJ**LOT No* > > ) > > > > What I want to do is add the "Additional Operation" at the end. For > > example: in the entry > > LOCAL*LOT_NO*CHR*5*0*LJ**LOT No* > > > > I want to change it to: > > LOCAL*LOT_NO*CHR*5*0*LJ**LOT No*{. > > > > So the idea is that I would only take the first item in the data so to > > simulate: > > cmd=. '{.' > > (cmd)~ i. 10 > > |ill-formed name > > | (cmd)~i.10 > > > > (".(cmd)) 1 2 3 > > |syntax error > > | (".(cmd))1 2 3 > > > > What I did find out is that I can get away with it if I use the > > primitives: > > LOCAL*LOT_NO*CHR*5*0*LJ**LOT No*take > > cmd=. 'take' > > (cmd)~ 1 2 3 > > 1 > > > > Am I missing something or I really just have to use the primitives? > > > > Thanks. > > > > r/Alex > > ---------------------------------------------------------------------- > > For information about J forums see http://www.jsoftware.com/forums.htm > > > > > > > ---------------------------------------------------------------------- > For information about J forums see http://www.jsoftware.com/forums.htm > ---------------------------------------------------------------------- > For information about J forums see http://www.jsoftware.com/forums.htm > -- Björn Helgason, Verkfræðingur Fugl&Fiskur ehf, Þerneyjarsundi 23, Hraunborgum Po Box 127,801 Selfoss , t-póst: [email protected] gsm: +3546985532 Landslags og skrúðgarðagerð, gröfuþjónusta http://groups.google.com/group/J-Programming Tæknikunnátta höndlar hið flókna, sköpunargáfa er meistari einfaldleikans góður kennari getur stigið á tær án þess að glansinn fari af skónum /|_ .-----------------------------------. ,' .\ / | Með léttri lund verður | ,--' _,' | Dagurinn í dag | / / | Enn betri en gærdagurinn | ( -. | `-----------------------------------' | ) | (\_ _/) (`-. '--.) (='.'=) ♖♘♗♕♔♙ `. )----' (")_(") ☃☠ ---------------------------------------------------------------------- For information about J forums see http://www.jsoftware.com/forums.htm
