;;; ----------------------------------------------------------------------
;;;
;;; Common startup
;;;
;;; Installs ${HOME}/.talkrc and ${HOME}/talk-play for a new Talk user.
;;;
;;; To execute this file:   italk < talkrc
;;;
;;; ----------------------------------------------------------------------

(unless (access #f"${HOME}/.talkrc")
  ;; User has no .talkrc in her/his home directory, so we provide him/her
  ;; with a basic playing environment.
  (unless (access #f"${HOME}/talk-play")
    (printf ";;; Creating directory %s\n" #f"${HOME}/talk-play")
    (mkdir #f"${HOME}/talk-play")
    (mkdir #f"${HOME}/talk-play/src")
    (mkdir #f"${HOME}/talk-play/c")
    (mkdir #f"${HOME}/talk-play/lib")
    (copy-file #f"${ILT_DIR}/talk/src/playws.td.init"
	       #f"${HOME}/talk-play/src/playws.td"))
  ;; Creation of a basic .talkrc
  (printf ";;; Creating %s\n" #f"${HOME}/.talkrc")
  (copy-file #f"${ILT_DIR}/talk/src/dot-talkrc" #f"${HOME}/.talkrc"))

;; Create system-specific directories if needed
(when (access #f"${HOME}/talk-play")
  (unless (access #f"${HOME}/talk-play/${PORTNAME}")
    (mkdir #f"${HOME}/talk-play/${PORTNAME}")
    (mkdir #f"${HOME}/talk-play/${PORTNAME}/o"))
  (unless (access #f"${HOME}/talk-play/lib/${PORTNAME}")
    (mkdir #f"${HOME}/talk-play/lib/${PORTNAME}")))

