#!/bin/sh
":"; exec emacs --quick --script "$0" -- "$@" # -*- mode: emacs-lisp; lexical-binding: t; -*-

(with-temp-buffer
  (insert-file-contents "Cargo.toml")
  (goto-char (point-min))
  (cond
   ((search-forward "version =" nil t)
    (re-search-forward " *" (line-end-position) t)
    (cond
     ((= (char-after) 34))
     ((error "Invalid syntax at %d" (point))))
    (let ((end (line-end-position)))
      (cond
       ((= (char-before end) 34))
       ((error "Invalid syntax at %d" (1- end))))
      (princ
       (buffer-substring-no-properties
        (1+ (point)) (1- end)))))
   ((print "Unknown"))))