From e736512cf84c91fc506113ba9b16fa92d3875c8e Mon Sep 17 00:00:00 2001
From: Nader Malih <131417595+n-malih@users.noreply.github.com>
Date: Sun, 30 Jul 2023 04:46:59 +0330
Subject: [PATCH] Add files via upload

---
 Install.tcl | 39 +++++++++++++++++++++++++++++++++++++++
 1 file changed, 39 insertions(+)
 create mode 100644 Install.tcl

diff --git a/Install.tcl b/Install.tcl
new file mode 100644
index 0000000..3bf7ccc
--- /dev/null
+++ b/Install.tcl
@@ -0,0 +1,39 @@
+if {[file isdirectory [file join [pwd] "vmdassist1.0"]]} {
+    set path [file join [pwd] "vmdassist1.0"]
+} elseif {[file isdirectory [file join [file dirname [info script]] "vmdassist1.0"]]} {
+    set path [file join [file dirname [info script]] "vmdassist1.0"]
+} else {
+    puts "\"vmdassist1.0\" folder not found"
+    return
+}
+
+if {$tcl_platform(platform) == "windows"} {
+    if {[file exists [file join $env(HOME) "vmd.rc"]]} {
+        set vmdrc_dir [file join $env(HOME) "vmd.rc"]
+    } elseif {[file exists [file join $env(VMDDIR) "vmd.rc"]]} {
+        set vmdrc_dir [file join $env(VMDDIR) "vmd.rc"]
+    } else {
+        puts "\"vmd.rc\" not found. Create a text file in \"$env(VMDDIR)\", rename it to \"vmd.rc\" and restart install program."
+        return
+    }
+} else {
+    if {[file exists [file join $env(HOME) ".vmdrc"]]} {
+        set vmdrc_dir [file join $env(HOME) ".vmdrc"]
+    } elseif {[file exists [file join $env(VMDDIR) ".vmdrc"]]} {
+        set vmdrc_dir [file join $env(VMDDIR) ".vmdrc"]
+    } else {
+        puts "\".vmdrc\" not found. Create a text file in \"$env(VMDDIR)\", rename it to \".vmdrc\" and restart install program."
+        return
+    }
+}
+
+set vmdrc [open $vmdrc_dir a+]
+puts $vmdrc "\n"
+puts $vmdrc "lappend auto_path {$path}"
+puts $vmdrc "\n"
+puts $vmdrc {vmd_install_extension vmdAssist vmdAssist_gui "vmdAssist"}
+puts $vmdrc "\n"
+close $vmdrc
+
+puts "vmdrc directory: $vmdrc_dir"
+puts "All done successfully!\nRestart VMD. Next time you can find vmdAssist in Extensions menu"
\ No newline at end of file