From: erik quanstrom <quanstro@coraid.com>
To: 9fans@cse.psu.edu
Subject: Re: [9fans] How can I shift a variable other than ?
Date: Thu, 8 Mar 2007 23:38:03 -0500 [thread overview]
Message-ID: <cc8c2a661e86bdb12378ab71b38075aa@coraid.com> (raw)
[-- Attachment #1: Type: text/plain, Size: 458 bytes --]
... or the deleterious effects of insomnia.
i decided to see how hard this is. after considering "shift var",
and hd and tl, i added ranges to rc, as in
cpu% 8.out
broken! a=(1 2 3 4)
broken! echo $a(1 4)
1 4
broken! echo $a(2-3)
2 3
broken! echo $a(2-)
2 3 4
broken! fn myshift{echo $*; '*' = $*(2-) ; echo $*}
broken! myshift 1 2 3 4 5
1 2 3 4 5
less than 20 lines of code. (attached so you can avert your eyes.)
- erik
[-- Attachment #2: snippit --]
[-- Type: text/plain, Size: 640 bytes --]
word*
copynwords(word *a, word *tail, int n)
{
word *v = 0, **end;
for(end=&v;a && n-- != 0;a = a->next,end=&(*end)->next)
*end = newword(a->word, 0);
*end = tail;
return v;
}
word*
subwords(word *val, int len, word *sub, word *a)
{
int n, m;
char *s;
if(!sub)
return a;
s = sub->word;
deglob(s);
a = subwords(val, len, sub->next, a);
n = 0; m = 0;
while('0'<=*s && *s<='9') n = n*10+ *s++ -'0';
if(*s++ == '-'){
if(*s) while('0'<=*s && *s<='9') m = m*10+ *s++ -'0';
else m = len;
m -= n;
}
if(n<1 || len<n)
return a;
while(--n) val = val->next;
return copynwords(val, a, m+1);
}
next reply other threads:[~2007-03-09 4:38 UTC|newest]
Thread overview: 39+ messages / expand[flat|nested] mbox.gz Atom feed top
2007-03-09 4:38 erik quanstrom [this message]
2007-03-09 4:48 ` erik quanstrom
2007-03-09 5:27 ` Federico G. Benavento
2007-03-09 5:31 ` erik quanstrom
2007-03-09 7:00 ` Kris Maglione
2007-03-09 13:55 ` erik quanstrom
2007-03-09 14:09 ` Kris Maglione
2007-03-09 14:33 ` erik quanstrom
2007-03-09 14:37 ` erik quanstrom
2007-03-09 4:57 ` lucio
2007-03-09 14:41 ` erik quanstrom
-- strict thread matches above, loose matches on Subject: below --
2007-03-10 12:32 erik quanstrom
2007-03-10 17:30 ` Kris Maglione
2007-03-10 21:20 ` Dan Cross
2007-03-10 21:53 ` Kris Maglione
2007-03-10 22:20 ` Dan Cross
2007-03-11 12:12 ` matt
2007-03-11 20:23 ` Kris Maglione
2007-03-11 22:11 ` erik quanstrom
2007-03-11 23:14 ` Martin Neubauer
2007-03-12 8:50 ` Kris Maglione
2007-03-12 12:26 ` erik quanstrom
2007-03-12 13:37 ` Anthony Sorace
2007-03-12 13:39 ` Dan Cross
2007-03-12 15:22 ` Russ Cox
2007-03-12 17:05 ` Dan Cross
2007-03-12 18:41 ` Kris Maglione
2007-03-13 14:59 ` rog
2007-03-13 15:22 ` erik quanstrom
2007-03-13 15:40 ` C H Forsyth
2007-03-13 17:45 ` Anthony Sorace
2007-03-13 20:39 ` Paweł Lasek
2007-03-13 17:32 ` Anthony Sorace
2007-03-10 4:46 erik quanstrom
2007-03-10 5:14 ` Kris Maglione
2007-03-08 8:00 YAMANASHI Takeshi
2007-03-08 8:41 ` Russ Cox
2007-03-09 18:23 ` rog
2007-03-09 19:25 ` Kris Maglione
Reply instructions:
You may reply publicly to this message via plain-text email
using any one of the following methods:
* Save the following mbox file, import it into your mail client,
and reply-to-all from there: mbox
Avoid top-posting and favor interleaved quoting:
https://en.wikipedia.org/wiki/Posting_style#Interleaved_style
* Reply using the --to, --cc, and --in-reply-to
switches of git-send-email(1):
git send-email \
--in-reply-to=cc8c2a661e86bdb12378ab71b38075aa@coraid.com \
--to=quanstro@coraid.com \
--cc=9fans@cse.psu.edu \
/path/to/YOUR_REPLY
https://kernel.org/pub/software/scm/git/docs/git-send-email.html
* If your mail client supports setting the In-Reply-To header
via mailto: links, try the mailto: link
Be sure your reply has a Subject: header at the top and a blank line
before the message body.
This is a public inbox, see mirroring instructions
for how to clone and mirror all data and code used for this inbox;
as well as URLs for NNTP newsgroup(s).