Re: [9fans] scripting sam

Re: [9fans] scripting sam

[rob pike]

Sam prints messages to stderr, so unlike the silly '-' argument to silence
ed, you can say
	sam -d foo >[2] /dev/null <<!
		...
	!

Here is an example of the combined power and idiocy of this approach.
The code is radically dependent on details of the HTML, which changes
about once a year, inviting me to dive back in to this enchanting world.


% cat /bin/weather
#!/bin/rc

rfork e

fn  sigint sighup sigterm{
	rm -f /tmp/w$pid
	exit 1
}

fn  sigexit{
	rm -f /tmp/w$pid
	exit ''
}

fn usage{
	echo usage:
	echo '	'weather known-name
	echo '		'known-names: '
			newark
			new york
			sf
			san fransisco
			la
			los angeles'
	echo '	'weather New_York NY
	echo '	'weather Toronto CN
	echo for a list of cities in new york, say
	echo '	' weather list NY
	exit
}

city = Newark
state = _NJ
country = US

switch($*){
case '?'
	usage
case newark local ''
	city = Newark; state = _NJ; country = US
case 'new york'
	city = New_York; state = _NY
case 'sf' 'san francisco'
	city = San_Francisco; state = _CA
case 'la' 'los angeles'
	city = Los_Angeles; state = _CA
case 'north pole'
	city = North_Pole_Nwt; state = ''; country = CN
case 'list '*
	city = list
	state = $2
case *
	if(! ~ $#* 2) usage
	city = $1
	state = $2
	switch($state){
	case AL AK AZ AR CA CO CT DE FL GA HI ID IL IN IA KS KY LA ME MD MA MI MN MS MO MT NE NV NH NJ NM NY NC ND OH OK OR PA RI SC SD TN TX UT VT VA WA DC WV WI WY PR
		state = _$state
		country = US
	case *
		country = $state
		state = ''
	}
}


if(~ $city list){
	if (! hget http://weather.yahoo.com/regional/US/^$state^.html > /tmp/w$pid) exit $status
	grep 'href="forecast' /tmp/w$pid | sed -n 's/.*forecast.//
		s/_'$state'_.*$//
		s/.*/weather & '$state'/p'
	exit
}

if (! hget http://weather.yahoo.com/forecast/^$city^$state^_^$country^_f.html > /tmp/w$pid) exit $status

#cat /tmp/w$pid
sam -d /tmp/w$pid >[2] /dev/null <<'!'
,s/&#176;/°/g
,s/&nbsp;//g
/^<title>.*\n/ {
	y!</?title>!p
	1,.d
}
f MAIN
B LOCAL
b MAIN
/Local Forecast/,$m "LOCAL"
b MAIN
,x/<[aA] ([^>]|\n)+>/ .,/<\/[aA]>/d
,x/<([^>]|\n)+>/d
,x/>/d
,x/Yahoo!.+\n/d
/^F°.+\n/d
/^&#139;10/;/^100\+\n/d
0;0/^ *-.+\n/d
0/.*[0-9]+°/,$-/^(Sunset|Barometer).+\n/m0/^Today\n/
/^Today/,$-/(^Sunset|Barometer)/ x/\n\n+/c/\n/
/^Today/;.+3 s/\n/ /g
/^Current conditions/,/^Neighboring.+\n/d
,x/\n *(\n *)+/c/\n\n/
,x/^(Sun|Mon|Tue|Wed|Thu|Fri|Sat)$/ a/:/
0/^(Haze|Snow|Windy|Rain|Showers|Sunny|((Most|Part)ly *)?Cloudy)/m0/:$/
0/^(Haze|Snow|Windy|Rain|Showers|Sunny|((Most|Part)ly *)?Cloudy)/m0/:$/
0/^(Haze|Snow|Windy|Rain|Showers|Sunny|((Most|Part)ly *)?Cloudy)/m0/:$/
0/^(Haze|Snow|Windy|Rain|Showers|Sunny|((Most|Part)ly *)?Cloudy)/m0/:$/
,x/^(Sun|Mon|Tue|Wed|Thu|Fri|Sat):.*/ a/:/
0/^Hi .*/m0/:$/
0/^Hi .*/m0/:$/
0/^Hi .*/m0/:$/
0/^Hi .*/m0/:$/
,x/^(Sun|Mon|Tue|Wed|Thu|Fri|Sat):.*/ a/:/
0/^Lo .*/m0/:$/
0/^Lo .*/m0/:$/
0/^Lo .*/m0/:$/
0/^Lo .*/m0/:$/
/^Copyright.+\n/d
,x/ *-/d
,x/&gt;/d
,x/ *=/d
,x/\n *(\n *)+/c/\n\n/
0/\n+/d
,p
b LOCAL
,x/<[aA] [^>]+>/ .,/<\/[aA]>/d
,x/<([^>]|\n)+>/d
/^Copyright.+\n/d
,x/ *-/d
,x/ *=/d
,x/\n *(\n *)+/c/\n\n/
,p
!

Re: [9fans] scripting sam

[cLIeNUX user]

rob@plan9.bell-labs.com... 
>Sam prints messages to stderr, so unlike the silly '-' argument to silence
>ed, you can say
>	sam -d foo >[2] /dev/null <<!
>		...
>	!
>
>Here is an example of the combined power and idiocy of this approach.
>The code is radically dependent on details of the HTML, which changes
>about once a year, inviting me to dive back in to this enchanting world.
>
>
>% cat /bin/weather
>#!/bin/rc
>
>rfork e
>
>fn  sigint sighup sigterm{
>	rm -f /tmp/w$pid
>	exit 1
>}
>
>fn  sigexit{
>	rm -f /tmp/w$pid
>	exit ''
>}
>
>fn usage{
>	echo usage:
>	echo '	'weather known-name
>	echo '		'known-names: '
>			newark
>			new york
>			sf
>			san fransisco
>			la
>			los angeles'
>	echo '	'weather New_York NY
>	echo '	'weather Toronto CN
>	echo for a list of cities in new york, say
>	echo '	' weather list NY
>	exit
>}
>
>city = Newark
>state = _NJ
>country = US
>
>switch($*){
>case '?'
>	usage
>case newark local ''
>	city = Newark; state = _NJ; country = US
>case 'new york'
>	city = New_York; state = _NY
>case 'sf' 'san francisco'
>	city = San_Francisco; state = _CA
>case 'la' 'los angeles'
>	city = Los_Angeles; state = _CA
>case 'north pole'
>	city = North_Pole_Nwt; state = ''; country = CN
>case 'list '*
>	city = list
>	state = $2
>case *
>	if(! ~ $#* 2) usage
>	city = $1
>	state = $2
>	switch($state){
>	case AL AK AZ AR CA CO CT DE FL GA HI ID IL IN IA KS KY LA ME MD MA MI MN MS MO MT NE NV NH NJ NM NY NC ND OH OK OR PA RI SC SD TN TX UT VT VA WA DC WV WI WY PR
>		state = _$state
>		country = US
>	case *
>		country = $state
>		state = ''
>	}
>}
>
>
>if(~ $city list){
>	if (! hget http://weather.yahoo.com/regional/US/^$state^.html > /tmp/w$pid) exit $status
>	grep 'href="forecast' /tmp/w$pid | sed -n 's/.*forecast.//
>		s/_'$state'_.*$//
>		s/.*/weather & '$state'/p'
>	exit
>}
>
>if (! hget http://weather.yahoo.com/forecast/^$city^$state^_^$country^_f.html > /tmp/w$pid) exit $status
>
>#cat /tmp/w$pid
>sam -d /tmp/w$pid >[2] /dev/null <<'!'
>,s/&#176;//g
>,s/&nbsp;//g
>/^<title>.*\n/ {
>	y!</?title>!p
>	1,.d
>}
>f MAIN
>B LOCAL
>b MAIN
>/Local Forecast/,$m "LOCAL"
>b MAIN
>,x/<[aA] ([^>]|\n)+>/ .,/<\/[aA]>/d
>,x/<([^>]|\n)+>/d
>,x/>/d
>,x/Yahoo!.+\n/d
>/^F.+\n/d
>/^&#139;10/;/^100\+\n/d
>0;0/^ *-.+\n/d
>0/.*[0-9]+/,$-/^(Sunset|Barometer).+\n/m0/^Today\n/
>/^Today/,$-/(^Sunset|Barometer)/ x/\n\n+/c/\n/
>/^Today/;.+3 s/\n/ /g
>/^Current conditions/,/^Neighboring.+\n/d
>,x/\n *(\n *)+/c/\n\n/
>,x/^(Sun|Mon|Tue|Wed|Thu|Fri|Sat)$/ a/:/
>0/^(Haze|Snow|Windy|Rain|Showers|Sunny|((Most|Part)ly *)?Cloudy)/m0/:$/
>0/^(Haze|Snow|Windy|Rain|Showers|Sunny|((Most|Part)ly *)?Cloudy)/m0/:$/
>0/^(Haze|Snow|Windy|Rain|Showers|Sunny|((Most|Part)ly *)?Cloudy)/m0/:$/
>0/^(Haze|Snow|Windy|Rain|Showers|Sunny|((Most|Part)ly *)?Cloudy)/m0/:$/
>,x/^(Sun|Mon|Tue|Wed|Thu|Fri|Sat):.*/ a/:/
>0/^Hi .*/m0/:$/
>0/^Hi .*/m0/:$/
>0/^Hi .*/m0/:$/
>0/^Hi .*/m0/:$/
>,x/^(Sun|Mon|Tue|Wed|Thu|Fri|Sat):.*/ a/:/
>0/^Lo .*/m0/:$/
>0/^Lo .*/m0/:$/
>0/^Lo .*/m0/:$/
>0/^Lo .*/m0/:$/
>/^Copyright.+\n/d
>,x/ *-/d
>,x/&gt;/d
>,x/ *=/d
>,x/\n *(\n *)+/c/\n\n/
>0/\n+/d
>,p
>b LOCAL
>,x/<[aA] [^>]+>/ .,/<\/[aA]>/d
>,x/<([^>]|\n)+>/d
>/^Copyright.+\n/d
>,x/ *-/d
>,x/ *=/d
>,x/\n *(\n *)+/c/\n\n/
>,p
>!
>

Re: [9fans] scripting sam

[Russ Cox]

eww.

don't you mean

____________________________________________________________________________
cLIeNUX sam/tp text processing language cheatsheet
cheatsheet markup...
(sam: more in /tmp/sam.err)

russ

Re: [9fans] scripting sam

[anothy]

//plan 9 has been around for nearly 10 years.  all this
//'why can't i have my favourite toy on it?' mail is a
//bit much.

and i've been at least a casual user for almost half of
that. how is asking about sam "why can't i have my favorite
toy"? i was asking how to better use the tools Plan 9
provides. yeah, you can write telnet with echo and cat; how
exactly is that relavant to the issue at hand again? i'm
well aware of the power of the system... which is exactly
why i was asking how to use it, and the tools it provides,
better, rather than sticking with sed (which can do what i
want, but i'd need to use the hold spaces, which are ugly).

much thanks to everyone who responded helpfully.
-α.

Re: [9fans] scripting sam

[cLIeNUX user]

anothy@cosym.net... 
>//plan 9 has been around for nearly 10 years.  all this
>//'why can't i have my favourite toy on it?' mail is a
>//bit much.
>
>and i've been at least a casual user for almost half of
>that. how is asking about sam "why can't i have my favorite
>toy"? i was asking how to better use the tools Plan 9
>provides. yeah, you can write telnet with echo and cat; how
>exactly is that relavant to the issue at hand again? i'm
>well aware of the power of the system... which is exactly
>why i was asking how to use it, and the tools it provides,
>better, rather than sticking with sed (which can do what i
>want, but i'd need to use the hold spaces, which are ugly).
>
>much thanks to everyone who responded helpfully.
>-.




h is for help. In cLIeNUX sam. Easy hack, BTW.


____________________________________________________________________________
cLIeNUX sam/tp text processing language cheatsheet
cheatsheet markup...
  refNAME  `default'  "virtual"  /delimited/  0_or_more...  <variable>

syntax operators                (in commands, not patterns or strings)
  delimiter                     any punctuation, paired or with EOL
  next character is literal     \

text location operators         (address elements)
  linefeed (unix newline)       \n
  "empty line" at End Of File   $
  current text segment          .
  MARKed text segment           '
  scanning DIRection            - or `+'
  Line Number                   <digits>
  Character Number              #<digits>
  match scan PATtern            /regular expression, \n allowed/
  OFFset                        <DIR>LN or CN or PAT or `1'
  HALF address                  <LN or CN or PAT or MARK or `.'><OFF...>
  full ADDRess                  <HALF>,<HALF>    just  ,  is whole buffer

text inputs
  INTERactive                   accept typed text up to . alone on line
  Whole Match Backreference     &
  SUBmatch backreference        \<digit>    nth match ()-delimited in PAT
  LITeral string                /literal text and|or WMB... and|or SUB.../
  INPUT                         LIT or INTER

commands and thier PHRASE syntaxes, some multi-buffer phrases omitted
  <ADDR>a<INPUT>                _append_ INPUT after address
        b<buffer>               make buffer the current buffer
  <ADDR>c<INPUT>                _clobber_ address with INPUT
  <ADDR>d                       _delete_ addressed range of text
        e<file>                 _edit_ file, make file current buffer
        f<name>                 rename current buffer
  <ADDR>g<PAT> PHRASE           do PHRASE _if_ PAT matches in ADDR
        h                       You're soaking in it.
  <ADDR>i<INPUT>                _insert_ INPUT before address
  <ADDR>k                       mark address for reference as '
  <ADDR>m<ADDR>                 move, not copy
        n                       list buffers
  <ADDR>p                       _print_ to stdout. usual default command.
        q                       _quit_. Always works the second time.
  <ADDR>r<file>                 _read_ file into buffer after ADDR
  <ADDR>s<PAT><LIT>             use <ADDR>x<PAT>c<INPUT> instead
  <ADDR>t<ADDR>                 copy
        u                       undo. Unlimited, but one-way.
  <ADDR>v<PAT> PHRASE           do PHRASE if PAT _doesn't_ match in ADDR
  <ADDR>w<file>                 _write_ out ADDR. default is whole buffer.
  <ADDR>x<PAT> PHRASE           for each match of PAT in ADDR do PHRASE
  <ADDR>y<PAT> PHRASE           do PHRASE on text between each PAT in ADDR
............................................................................



Rick Hohensee
Forth, unix, nutmeg, tinsel

Re: [9fans] scripting sam

[Boyd Roberts]

From: James A. Robinson <jim.robinson@stanford.edu>
To: <boyd@planete.net>
Cc: <9fans@cs.psu.edu>
Sent: Saturday, December 23, 2000 9:48 AM
Subject: Re: [9fans] scripting sam


> God, you really love it don't you? Sure, let's spam the list
> so they can all see what a foolish little man you are.

spam?  that's unsolicited mail to (usually) market something.

i'm not sure that 'foolish' is the adjective.  rob said it
best, i think, as 'doing a boyd'.

> Plenty of other people seemed to be able to have a much
> nicer way of telling him that no, stream editing ala sed
> wasn't possible, but yes he could batch it like so. What
> made it so hard for you to either A) not respond or B) if
> you went through the effort respond with some politness?

à la sed...  use english; gratuitous use of french is
pretentious.  at least get the accents right.

politeness?  read the 1st ammendment.

take a stroll down university and have a bit of a think.

plan 9 has been around for nearly 10 years.  all this
'why can't i have my favourite toy on it?' mail is a
bit much.

name me one other system where you can write telnet
with echo and cat.

Re: [9fans] scripting sam

[matt]

oh dear

if you can't say something to attack the argument attack the grammar

works on usenet

> > God, you really love it don't you? Sure, let's spam the list
> > so they can all see what a foolish little man you are.
>
> spam?  that's unsolicited mail to (usually) market something.
>
> i'm not sure that 'foolish' is the adjective.  rob said it
> best, i think, as 'doing a boyd'.
>
> à la sed...  use english; gratuitous use of french is
> pretentious.  at least get the accents right.
>
> politeness?  read the 1st ammendment.

Re: [9fans] scripting sam

[Boyd Roberts]

... the epistemological anarchist has no compunction to defend
the most trite, or the most outrageous statement. ... he may use
reason, emotion, ridicule, an `attitude of serious concern' and
whatever other means have been invented by humans to get the better
of their fellow men.  His favourite pastime is to confuse rationalists
... There is no view, however `absurd' or `immoral', he refuses to
consider or to act upon, and no method is regarded as indispensable.

    -Paul K Feyerabend "Against Method"

:-)

Re: [9fans] scripting sam

[matt]

touché

There is no view, however `absurd' or `immoral', he refuses to
consider or to act upon, and no method is regarded as indispensable.

and here's to that brother

Re: [9fans] scripting sam

[Boyd Roberts]

From: matt <matt@proweb.co.uk>

> touché

yup, accents.

> There is no view, however `absurd' or `immoral', he refuses to
> consider or to act upon, and no method is regarded as indispensable.
>
> and here's to that brother

damn straight.

Re: [9fans] scripting sam

[forsyth]

>>just remember:  charlie don't surf...

certainly not if i can help it.

Re: [9fans] scripting sam

[kilgore]

From: James A. Robinson <jim.robinson@stanford.edu>
To: <boyd@planete.net>
Sent: Saturday, December 23, 2000 9:13 AM
Subject: Re: [9fans] scripting sam 


> > sam -fucking d -- RTFM.
> 
> Gosh, you really are a dink, aren't you? sam -d doesn't do
> what he wants, unless he jumps through hoops like the people
> who responded to him have written. Try to capture some of
> the holiday cheer fer chrissake.

listen son, 'dink' was used as derogatory term for any
given vietnamese, during the war.  i ain't no dink.

jumping through hoops?  maybe that's called _learning_.

sam -d was the response, but if it had been written
by those GNU fools is woulda beeen:

    sam --fucking d

ok?

just remember:  charlie don't surf...

Re: [9fans] scripting sam

[James A. Robinson]

God, you really love it don't you? Sure, let's spam the list
so they can all see what a foolish little man you are.

Plenty of other people seemed to be able to have a much
nicer way of telling him that no, stream editing ala sed
wasn't possible, but yes he could batch it like so. What
made it so hard for you to either A) not respond or B) if
you went through the effort respond with some politness?

JHim

Re: [9fans] scripting sam

[Russ Cox]

there's always sam -d < script,
and i think there are two programs
called ssam floating around on the
unix side of things.  search google
for ssam, they're sure to turn up.

russ

Re: [9fans] scripting sam

[Scott Schwartz]

<russ:
| there's always sam -d < script,

Sam, like ed, has no control structures for reacting to errors, so if
the slightest thing goes wrong, it's garbage out.  Really what one wants
is a noninteractive version of acme, so that you can write tcl scripts
to control /dev/editor.  (NIH: that's roughly how XEDIT and REXX worked
in the IBM mainframe universe.)

[9fans] scripting sam

[anothy]

can the sam command line editor be
scripted, for automated batch
processing? i guess what i really
want is "ssam" (s^sam, as in s^ed),
but any pointers would be helpful.
-α.

Re: [9fans] scripting sam

[Mark C. Otto]

In unix, the difference between ed and sed is that edits are applied globally by
default.  In sam, this is equivalent to adding a comma for the addresses.  As a
variation to russ's suggestion, you can use an inline here document rc(1), and
add arguments right into your editing script.

sam -d filename <<!
 ,x/$<from argument>/ c/$<to argument>/
 other sam commands
 ...
 w $<argument for output>
 q
 !



Mark
The future of plan9: small tools to make big things.

Re: [9fans] scripting sam

[Boyd Roberts]

sam -fucking d -- RTFM.