;;; -*- Mode: LISP; Syntax: Common-lisp; Package: :Common-Lisp-USer -*-
;;; OOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOO ;;;
;;;  © 1985-2009 by Walker Sigismund.  All Rights Reserved.  This code must NOT be distributed
;;;  In any manner without the copyright holders express writtem permission,
;;;  Developed using Allegro Common Lisp and Macintosh Common Lisp ©Apple and ©Digitool
;;; OOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOO ;;;
;;;  Header Updated on 2009-04-26 @ 08:38:25 SUN

(in-package :Common-Lisp-USer)
;; (use-package )
;; (shadow 'x)

(export '(URwerk-Time-Zone URwerk-Choose-Directory URwerk-Choose-File))
;; (import )

;; (require 'x)

;;; OOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOO ;;;
;;;
;;;
;;;
;;; OOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOO ;;;


(defun URwerk-Time-Zone ()
  #+:Digitool
  (ccl::get-time-zone)
  #+:CLOZURE-COMMON-LISP
  0
  )


;;; ===========================================================================

;; (URwerk-File-type (URwerk-Choose-File :directory "!WW:"))
;; (URwerk-File-type #P"Arbeit:Allegro:!WW:URwerk:@Platform-Filesystem.lisp")

(defun URwerk-File-type (path)
  #+:Digitool
  (MAC-FILE-TYPE path)
  #+:CLOZURE-COMMON-LISP
  nil ; (pathname-type path)
  )

;; (Set-URwerk-File-type #P"Arbeit:Allegro:!WW:URwerk:@Platform-Filesystem.lisp" :TEXT)

(defun Set-URwerk-File-type (path file-type-keyword)
  #+:Digitool
  (set-MAC-FILE-TYPE path file-type-keyword)
  #+:CLOZURE-COMMON-LISP
  nil ; (rename  (pathname-type path))
  )


;; (URwerk-File-Creator #P"Arbeit:Allegro:!WW:URwerk:@Platform-Filesystem.lisp")

(defun URwerk-File-Creator (path)
  #+:Digitool
  (MAC-FILE-Creator path)
  #+:CLOZURE-COMMON-LISP
  nil
  )

;; (Set-URwerk-File-Creator #P"Arbeit:Allegro:!WW:URwerk:@Platform-Filesystem.lisp" :BIKE)

(defun Set-URwerk-File-Creator (path file-creator-keyword)
  #+:Digitool
  (set-MAC-FILE-Creator path file-creator-keyword)
  #+:CLOZURE-COMMON-LISP
  nil
  )

;; (URwerk-File-Create-Date #P"Arbeit:Allegro:!WW:URwerk:@Platform-Filesystem.lisp")

(defun URwerk-File-Create-Date (path)
  #+:Digitool
  (ccl::MAC-FILE-Create-Date path)
  #+:CLOZURE-COMMON-LISP
  nil
  )

;; (Set-URwerk-File-Create-Date #P"Arbeit:Allegro:!WW:URwerk:@Platform-Filesystem.lisp" 3323579898)

(defun Set-URwerk-File-Create-Date (path Universal-time)
  #+:Digitool
  (ccl::set-MAC-FILE-Create-Date path Universal-time)
  #+:CLOZURE-COMMON-LISP
  nil
  )


;; (URwerk-File-Modify-Date #P"Arbeit:Allegro:!WW:URwerk:@Platform-Filesystem.lisp")

(defun URwerk-File-Modify-Date (path)
  #+:Digitool
  (ccl::MAC-FILE-write-Date path)
  #+:CLOZURE-COMMON-LISP
  nil
  )

;; (Set-URwerk-File-Modify-Date #P"Arbeit:Allegro:!WW:URwerk:@Platform-Filesystem.lisp" 3323602000)
;; (Set-URwerk-File-Modify-Date #P"Arbeit:Allegro:!WW:URwerk:@Platform-Filesystem.lisp" 3323602930)

(defun Set-URwerk-File-Modify-Date (path Universal-time)
  #+:Digitool
  (ccl::set-MAC-FILE-write-Date path Universal-time)
  #+:CLOZURE-COMMON-LISP
  nil
  )

;;; ===========================================================================

;; *features*

;; (URwerk-Choose-Directory :DIRECTORY  "!WW:")

(defun URwerk-Choose-Directory (&key (directory "!WW:")
                                       WINDOW-TITLE
                                       PROMPT
                                       )
  (DECLARE (IGNORable WINDOW-TITLE PROMPT))
  #+:Digitool
  (choose-directory-dialog :DIRECTORY directory :WINDOW-TITLE WINDOW-TITLE :PROMPT PROMPT)
  ; (choose-new-directory-dialog :DIRECTORY directory :WINDOW-TITLE WINDOW-TITLE :PROMPT PROMPT)
  #+:CLOZURE-COMMON-LISP
  (or  #+:COCOA (GUI::COCOA-CHOOSE-DIRECTORY-DIALOG :directoRy directory) 
       (GUI::CHOOSE-DIRECTORY-DIALOG)
       )
  )


;; (URwerk-Choose-File :DIRECTORY "!WW:")

(defun URwerk-Choose-File (&key (directory "!WW:")
                                     file-type-L
                                     mac-file-type
                                     button-string
                                     prompt
                                     )
  (DECLARE (IGNORable file-type-L mac-file-type button-string prompt))
  #+:Digitool
  (CHOOSE-FILE-DIALOG :DIRECTORY directory :mac-file-type mac-file-type :button-string button-string)
  ;; (CHOOSE-NEW-FILE-DIALOG :directory directory :prompt prompt :button-string button-string)
  #+:CLOZURE-COMMON-LISP
  (or  #+:COCOA (GUI::COCOA-CHOOSE-FILE-DIALOG :directoRy directory 
                                               :file-type file-type-L
                                               ) 
       (GUI::CHOOSE-FILE-DIALOG)
       )
  )


;;; ========================================

;; (make-pathname :host (PATHNAME-host "!WW:a;") :directory (PATHNAME-DIRECTORY "!WW:a;b.jpg"))

; (URwerk-Directory-component "!WW:a;")

(defun URwerk-Directory-component (path) 
  (make-pathname :host (PATHNAME-host path) :directory (PATHNAME-DIRECTORY path))
  )

;;; OOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOO ;;;
;;; OOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOO ;;;

(provide "@PLATFORM-FILESYSTEM")