[9fans] rc funny / my lack of understanding

[9fans] rc funny / my lack of understanding

[steve.simon]

[-- Attachment #1: Type: text/plain, Size: 610 bytes --]



Hi,

Attached is a bit of hget + rc + sam -d to get recent AP newswire
stories.

It has two modes - without an arg it lists the stories, with one it
prints that story.

The if statement seems to confuse the here document syntax of rc and it
start interpreting the tmp file as commands - all very odd.

If I remove the if statement and implement the program as two scripts
envoked seperately it works so the basic code must be right... I think.

I tried running the sam -d here document in a subshell ( @{...} )
but it still did the same thing.

Confused of Winchester,

-Steve



 

[-- Attachment #2: Newswire --]
[-- Type: application/octet-stream, Size: 675 bytes --]

#!/bin/rc
#
#	get AP news headline list or the given story
#

tmp=/tmp/tmp.$pid
wire='http://www.newsday.com/news/nationworld/wire'

if ( ~ $#* 0 ){
	hget $wire | grep headlines > $tmp
	sam -d $tmp >[2] /dev/null << 'EOF'
		,x/^.*sns-/d
		,x/,0,[0-9]*\.story.*">/c/@/
		,x/<\/a>/d
		w
	EOF
	awk -F@ '{printf("%-45s %s\n", $1, $2);}' $tmp
	rm -f $tmp
	exit 0
}

hget $wire/^sns-^$1^.story > $tmp
sam -d $tmp >[2] /dev/null << 'EOF'
	0,/END RELATED CONTENT RAIL/ d
	/^<\/font>$/,$ d
	,x/&copy;/ c/(c)/
	,x/&nbsp;/ c/ /
	,x/&lt;/ c/</
	,x/&gt;/ c/>/
	,x/&amp;/ c/&/
	,x/&nbsp;/ c/ /
	,x/&[a-z0-9][a-z0-9]*;/ d
	,x/<br>/ c/\n/
	,x/<[^>]*>/ d
	/^ *$/ d
	w
EOF
fmt $tmp
rm -f $tmp

Re: [9fans] rc funny / my lack of understanding

[Russ Cox]

Here documents have to come after all the braces
have been closed, so you say

if(foo){
	cat <<EOF
	echo hi
}
Hello world
EOF

and not

if(foo){
	cat <<EOF
Hello world
EOF
	echo hi
}

it is admittedly very strange.