+/* --- @scan_push@ --- *
+ *
+ * Arguments: @scanner *sc@ = pointer to main scanner context
+ * @scansrc *ss@ = souorce to push
+ *
+ * Returns: ---
+ *
+ * Use: Pushes a scanner source onto the front of the queue.
+ */
+
+void scan_push(scanner *sc, scansrc *ss)
+{
+ ss->next = sc->head;
+ if (sc->head == &scan_eof)
+ sc->tail = &ss->next;
+ sc->head = ss;
+ dstr_create(&ss->pushback);
+ ss->tok = 0;
+ ss->t = 0;
+}
+
+/* --- @scan_add@ --- *
+ *
+ * Arguments: @scanner *sc@ = pointer to main scanner context
+ * @scansrc *ss@ = souorce to push
+ *
+ * Returns: ---
+ *
+ * Use: Adds a scanner source onto the end of the queue.
+ */
+
+void scan_add(scanner *sc, scansrc *ss)
+{
+ ss->next = &scan_eof;
+ *sc->tail = ss;
+ sc->tail = &ss->next;
+ dstr_create(&ss->pushback);
+ ss->tok = 0;
+ ss->t = 0;
+}
+
+/* --- @scan_create@ --- *
+ *
+ * Arguments: @scanner *sc@ = scanner context to initialize
+ *
+ * Returns: ---
+ *
+ * Use: Initializes a scanner block ready for use.
+ */
+
+void scan_create(scanner *sc)