shithub: atom

Info  •  Files  •  Log

Initial commit

--- /dev/null

+++ b/atom.1

@@ -1,0 +1,45 @@

+.TH ATOM 1

+.SH NAME

+atom \- atom feed generator

+.SH SYNOPSIS

+.B atom

+[

+.B -n

+.I name

+] [

+.B -i

+.I id

+] title link path

+.SH DESCRIPTION

+.I Atom

+is a not quite RFC4287 compliant atom feed generator.

+.I Atom

+takes a feed title, base url, and directory path

+and creates one feed entry per file within the directory.

+The generated atom feed is printed on standard output.

+Each entry is expected to live at the concatination of

+the feed url and the last member of the files path. Entry

+titles are generated by stripping their file extension.

+The feed updated time is set to the current time, while

+each entry's udpated field is set to the files mtime.

+Each flag modifies the meta information of the feed,

+.I name

+and

+.I id

+default to glenda and '9front atom' respectively.

+.SH DIAGNOSTICS

+The ID for each entry is taken from its Qid path.

+All timestamps are reported in UTC.

+.br

+

+The lack of compliance is due to whitespace issues with how

+.IR xml(2)

+outputs, most atom implementations that use generic xml

+parsers seem to work fine.

+.SH SOURCE

+https://git.sr.ht/~moody/atom

+.SH BUGS

+You tell me.

+.SH SEE ALSO

+.IR xml(2),

+https://tools.ietf.org/html/rfc4287

--- /dev/null

+++ b/atom.c

@@ -1,0 +1,110 @@

+#include <u.h>

+#include <libc.h>

+#include <xml.h>

+

+Xml *x;

+Tzone *tz;

+Elem *feed;

+

+char*

+unix2date(vlong abs)

+{

+	Tm tm;

+

+	tmtime(&tm, abs, tz);

+	return smprint("%τ", tmfmt(&tm, "YYYY-MM-DDThh:mm:ssZ"));

+}

+

+void

+initmeta(char *title, char *link, char *author, char *id)

+{

+	Elem *e;

+

+	feed = xmlelem(x, &x->root, nil, "feed");

+	xmlattr(x, &feed->attrs, feed, "xmlns", "http://www.w3.org/2005/Atom");

+

+	e = xmlelem(x, &feed->child, feed, "title");

+	e->pcdata = title;

+

+	e = xmlelem(x, &feed->child, feed, "link");

+	xmlattr(x, &e->attrs, e, "href", link);

+

+	e = xmlelem(x, &feed->child, feed, "updated");

+	e->pcdata = unix2date(time(nil));

+

+	e = xmlelem(x, &feed->child, feed, "author");

+	e = xmlelem(x, &e->child, e, "name");

+	e->pcdata = author;

+

+	e = xmlelem(x, &feed->child, feed, "id");

+	e->pcdata = id;

+}

+

+void

+addentry(Dir *d, char *prefix)

+{

+	Elem *e, *entry;

+	char *dot;

+

+	entry = xmlelem(x, &feed->child, feed, "entry");

+

+	e = xmlelem(x, &entry->child, entry, "title");

+	e->pcdata = strdup(d->name);

+	if((dot = strrchr(e->pcdata, '.')) != nil)

+		*dot = '\0';

+

+	e = xmlelem(x, &entry->child, entry, "link");

+	xmlattr(x, &e->attrs, e, "href", smprint("%s/%s", prefix, d->name));

+

+	e = xmlelem(x, &entry->child, entry, "id");

+	e->pcdata = smprint("%ulld", d->qid.path);

+

+	e = xmlelem(x, &entry->child, entry, "updated");

+	e->pcdata = unix2date(d->mtime);

+}

+

+void

+usage(void)

+{

+	fprint(2, "Usage: %s [-n name] [-i id] title link dir\n", argv0);

+	exits("usage");

+}

+

+void

+main(int argc, char *argv[])

+{

+	char *name, *id;

+	Dir *files;

+	long n, i;

+	int fd;

+

+	id = "9front atom";

+	name = "glenda";

+

+	ARGBEGIN {

+	case 'n':

+		name = EARGF(usage());

+		break;

+	case 'i':

+		id = EARGF(usage());

+		break;

+	} ARGEND

+

+	if(argc < 3)

+		usage();

+

+	tmfmtinstall();

+	tz = tzload(nil);

+	x = xmlnew(8192);

+

+	fd = open(argv[2], OREAD);

+	if(fd < 0)

+		sysfatal("failed to read dir: %r");

+

+	n = dirreadall(fd, &files);

+	initmeta(argv[0], argv[1], name, id);

+	for(i=0;i<n;i++)

+		addentry(files+i, argv[1]);

+

+	xmlprint(x, 1);

+}

--- /dev/null

+++ b/mkfile

@@ -1,0 +1,7 @@

+</$objtype/mkfile

+BIN=/usr/moody/bin/amd64

+

+TARG=atom

+OFILES=atom.$O

+

+</sys/src/cmd/mkone