radxide.tcl 8.8 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188189190191192193194195196197198199200201202203204205206207208209210211212213214215216217218219220221222223224225226227228229230231232233234235236237238239240241242243244245246247248249250251252253254255256257258259260261262263264265266267268269270271272273274275
  1. #! /usr/bin/env tclsh
  2. ###########################################################
  3. # Name: radxide.tcl
  4. # Author: Daniele Bonini (posta@elettronica.lol)
  5. # Date: 05/12/2023
  6. # Desc: Bootstrap file of RadXIDE.
  7. #
  8. # Bootstrap file and most of the code
  9. # here presented and distributed contains excerpts
  10. # from [alited](https://github.com/aplsimple/alited
  11. # by Alex Plotnikov and contributors to the project.
  12. # The original code of these excerpts could be
  13. # borrowed from other sources which the author
  14. # and the contributors to this RadXIDE have no
  15. # knowledge about.
  16. #
  17. # Code Library scaffolding and most of its code contains
  18. # excerpts from "Practical Programming in Tcl and Tk, 4th Ed."
  19. # by Brent B. Welch, Ken Jones, Jeffrey Hebbs.
  20. # The original code of these excerpts could be
  21. # borrowed from other sources which the author
  22. # and the contributors to RadXIDE have no
  23. # knowledge about. For the related copyright notice
  24. # refer <eglib.tcl> part of this software.
  25. #
  26. # License: MIT. Copyrights 5 Mode (Last implementation and adaptations.)
  27. # Copyright (c) 2021-2023 Alex Plotnikov https://aplsimple.github.io (original scaffolding and excerpts.)
  28. #
  29. ###########################################################
  30. set version "1.3.0"
  31. set os "$::tcl_platform(os) $::tcl_platform(osVersion)"
  32. package provide radxide $version
  33. set _ [package require Tk]
  34. wm withdraw .
  35. if {![package vsatisfies $_ 8.6.10-]} {
  36. tk_messageBox -message "\nradxide needs Tcl/Tk v8.6.10+ \
  37. \n\nwhile the current is v$_\n"
  38. exit
  39. }
  40. unset -nocomplain _
  41. # __________________________ radxide:: Main _________________________ #
  42. namespace eval radxide {
  43. variable dan; array set dan [list]
  44. variable tcltk_version "Tcl/Tk [package versions Tk]"
  45. ## ________________________ Main variables _________________________ ##
  46. set DEBUG no ;# debug mode
  47. set dan(WIN) .danwin ;# main form
  48. set dan(TITLE) RADXIDE
  49. set tmpfname "~"
  50. set userhome [file normalize $tmpfname]
  51. if {$userhome eq "/root"} {
  52. tk_messageBox -title $dan(TITLE) -icon error -message "RADXIDE can't run under root."
  53. exit 0
  54. }
  55. set dan(WORKDIR) "$userhome/.radxwork" ;# working dir
  56. # Check workdir existance..
  57. if {![file exists $dan(WORKDIR)]} {
  58. file mkdir $dan(WORKDIR)
  59. }
  60. # Check Code Library dir existance.. (WORKDIR)/.examples)
  61. if {![file exists $dan(WORKDIR)/.snippets]} {
  62. file mkdir $dan(WORKDIR)/.snippets
  63. }
  64. set dan(TREEVIEW) "" ;# ide project tree
  65. set dan(GUTTEXT) "" ;# ide guttext control
  66. set dan(GUTTERWIDTH) 12
  67. set dan(TEXT) "" ;# ide text control
  68. set dan(TEXTBG) "#222223"
  69. set dan(TEXTFG) "#55ff55"
  70. set dan(TEXTSELFG) "red"
  71. set dan(CURSORCOLOR) "red"
  72. set dan(CURSORWIDTH) "4"
  73. set dan(prjdirignore) {.git .bak} ;# ignored subdirectories of project
  74. set project(NAME) "" ;# project default name
  75. set project(ROOT) "" ;# project default root
  76. set project(PATH) "" ;# project default path
  77. set project(CUR_FILE_PATH) "" ;# project current file path
  78. set project(TREE_PROJECT_ROOT) "" ;# Treeview: Project root node
  79. set project(TREE_PRIVATE_ROOT) "" ;# Treeview: Private node
  80. set project(TREE_PUBLIC_ROOT) "" ;# Treeview: Public node
  81. set files(FILE1) "" ;# Array files
  82. set files(FILE2) ""
  83. set files(FILE3) ""
  84. set files(FILE4) ""
  85. set files(FILE5) ""
  86. # main data of radxide (others are in ini.tcl)
  87. variable SCRIPT [info script]
  88. variable SCRIPTNORMAL [file normalize $SCRIPT]
  89. variable FILEDIR [file dirname $SCRIPTNORMAL]
  90. variable DIR [file dirname $FILEDIR]
  91. # directories of sources
  92. variable SRCDIR [file join $DIR src]
  93. variable LIBDIR [file join $DIR lib]
  94. variable ICONDIR [file join $SRCDIR icons]
  95. # misc. vars
  96. variable pID 0
  97. # directory tree's content
  98. variable _dirtree [list]
  99. set dan(TITLE_TEMPL) {%f :: %t} ;# radxide title's template
  100. set dan(WIDTH) 1280
  101. set dan(HEIGHT) 760
  102. #set al(MOVEFG) "black"
  103. #set al(MOVEBG) "#7eeeee"
  104. set dan(FG) "#000000"
  105. set dan(BG) "#cecece"
  106. set dan(fgred) "red"
  107. set dan(fgbold) "magenta"
  108. set dan(fgtodo) "orange"
  109. set dan(fgbranch) "blue"
  110. set dan(CHARFAMILY) "Sans"
  111. set dan(CHARSIZE) 10
  112. set dan(MAXFILES) 250
  113. set dan(MAXFILESIZE) 65534
  114. set dan(MAXFINDLENGTH) 50
  115. set dan(TAB_IN_SPACE) " "
  116. # icons
  117. set dan(ICON) "$ICONDIR/radxide.png"
  118. set dan(ICONI) [image create photo imgobj1 -file $dan(ICON)]
  119. set icons(PROJECT-ICON) "$ICONDIR/archive.png"
  120. set icons(PROJECT-ICONI) [image create photo imgobj2 -file $icons(PROJECT-ICON)]
  121. set icons(PUBLICF-ICON) "$ICONDIR/public-folder.png"
  122. set icons(PUBLICF-ICONI) [image create photo imgobj3 -file $icons(PUBLICF-ICON)]
  123. set icons(PRIVATEF-ICON) "$ICONDIR/private-folder.png"
  124. set icons(PRIVATEF-ICONI) [image create photo imgobj4 -file $icons(PRIVATEF-ICON)]
  125. set icons(HTML-ICON) "$ICONDIR/file-html.png"
  126. set icons(HTML-ICONI) [image create photo imgobj5 -file $icons(HTML-ICON)]
  127. set icons(JS-ICON) "$ICONDIR/file-js.png"
  128. set icons(JS-ICONI) [image create photo imgobj6 -file $icons(JS-ICON)]
  129. set icons(IMG-ICON) "$ICONDIR/image.png"
  130. set icons(IMG-ICONI) [image create photo imgobj7 -file $icons(IMG-ICON)]
  131. set icons(CSS-ICON) "$ICONDIR/file-css.png"
  132. set icons(CSS-ICONI) [image create photo imgobj8 -file $icons(CSS-ICON)]
  133. set icons(PHP-ICON) "$ICONDIR/file-php.png"
  134. set icons(PHP-ICONI) [image create photo imgobj9 -file $icons(PHP-ICON)]
  135. set icons(TXT-ICON) "$ICONDIR/file-txt.png"
  136. set icons(TXT-ICONI) [image create photo imgobj10 -file $icons(TXT-ICON)]
  137. set icons(GENERIC-FILE-ICON) "$ICONDIR/file-generic.png"
  138. set icons(GENERIC-FILE-ICONI) [image create photo imgobj11 -file $icons(GENERIC-FILE-ICON)]
  139. set icons(FOLDER-ICON) "$ICONDIR/folder.png"
  140. set icons(FOLDER-ICONI) [image create photo imgobj12 -file $icons(FOLDER-ICON)]
  141. # Menu variables
  142. set menu(ROOT) "";
  143. set menu(ADD_FILE_ENTRY_IDX) 2;
  144. set menu(SAVE_AS_ENTRY_IDX) 4;
  145. set menu(SAVE_ENTRY_IDX) 5;
  146. set menu(CLOSE_ENTRY_IDX) 7;
  147. set menu(CLOSE_PROJECT_ENTRY_IDX) 8;
  148. set menu(COPY_ENTRY_IDX) 0;
  149. set menu(PASTE_ENTRY_IDX) 1;
  150. set menu(CUT_ENTRY_IDX) 2;
  151. set menu(FIND_ENTRY_IDX) 4;
  152. set menu(GOTO_ENTRY_IDX) 5;
  153. # a couplle of extension definitions..
  154. set dan(PhpExts) {.php .php2 .php3 .php4 .php5 .funny .inc} ;# extensions of php files
  155. set dan(HtmlExts) {.html .htm} ;# extensions of html files
  156. set dan(CssExts) {.css} ;# extensions of css files
  157. set dan(JsExts) {.js} ;# extensions of js files
  158. set dan(TxtExts) {.txt .rtf} ;# extensions of txt files
  159. set dan(ImgExts) {.gif .png .jpg .jpeg} ;# extensions of images
  160. set dan(BinExts) {.so .o .exe} ;# extensions of binary
  161. # __________________ iswindows ___________________ #
  162. proc iswindows {} {
  163. # Checks for "platform is MS Windows".
  164. expr {$::tcl_platform(platform) eq {windows}}
  165. }
  166. # __________________ quit ___________________ #
  167. proc quit {{w ""} {res 0} {ask yes}} {
  168. # Closes alited application.
  169. # w - not used
  170. # res - result of running of main window
  171. # ask - if "yes", requests the confirmation of the exit
  172. exit 0;
  173. }
  174. # __________________ raise_window ___________________ #
  175. proc raise_window {} {
  176. # Raises the app's window.
  177. variable dan
  178. catch {
  179. wm withdraw $dan(WIN)
  180. wm deiconify $dan(WIN)
  181. }
  182. }
  183. # __________________ Tclexe ___________________ #
  184. proc Tclexe {} {
  185. # Gets Tcl's executable file.
  186. variable dan
  187. set tclexe [info nameofexecutable]
  188. return $tclexe
  189. }
  190. source [file join $SRCDIR main.tcl]
  191. source [file join $SRCDIR filelib.tcl]
  192. source [file join $SRCDIR win.tcl]
  193. source [file join $SRCDIR menu.tcl]
  194. source [file join $SRCDIR tree.tcl]
  195. source [file join $SRCDIR eglib.tcl]
  196. ## _ EONS: radxide _ ##
  197. }
  198. # ________________________ ::argv, ::argc _________________________ #
  199. set ::radxide::ARGV $::argv
  200. set ::radxide::dan(IsWindows) [expr {$::tcl_platform(platform) eq {windows}}]
  201. # _________________________ Run the app _________________________ #
  202. namespace upvar ::radxide dan dan
  203. radxide::main::_create ;# create the main form
  204. unset -nocomplain _
  205. if {[catch {set res [radxide::main::_run]} err]} {
  206. set res 0
  207. set msg "\nERROR in radxide:"
  208. puts \n$msg\n\n$::errorInfo\n
  209. set msg "$msg\n\n$err\n\nPlease, inform authors.\nDetails are in stdout."
  210. tk_messageBox -title $dan(TITLE) -icon error -message $msg
  211. exit 2
  212. }
  213. exit 0
  214. # _________________________________ EOF _________________________________ #