├── .buildini ├── .configurations ├── .gitignore ├── .jazini ├── .project ├── .repository ├── INSTALL ├── NEWS ├── README ├── configure ├── deploy ├── jam ├── jaz ├── lib ├── .project └── jedi │ ├── .package │ ├── .project │ ├── bundles │ └── jedi │ │ └── Contents │ │ ├── Info.plist │ │ └── Resources │ │ └── jedi.icns │ ├── doc │ └── jedi.jml │ ├── jedi.project │ ├── resources │ ├── jedi.ico │ └── jedi.rc │ ├── src │ ├── jedi │ │ ├── _jedi.jazz │ │ ├── application │ │ │ ├── Jedi-Application.jazz │ │ │ ├── Jedi-Menubar.jazz │ │ │ ├── Jedi-Status.jazz │ │ │ ├── Jedi-Toolbar.jazz │ │ │ └── Jedi-Toplevel.jazz │ │ ├── autoload.jazz │ │ ├── data │ │ │ ├── bindings.jazz │ │ │ ├── preferences.jazz │ │ │ └── workspaces.jazz │ │ ├── debugger │ │ │ ├── _debugger.jazz │ │ │ ├── implementation.jazz │ │ │ └── stub.jazz │ │ ├── install.scm │ │ ├── live │ │ │ ├── Live-Properties-Manager.jazz │ │ │ ├── Live-Properties.jazz │ │ │ ├── Live-Style.jazz │ │ │ └── _live.jazz │ │ ├── preference │ │ │ ├── Jedi-Actions.jazz │ │ │ ├── Jedi-Bindings.jazz │ │ │ └── Jedi-Preferences.jazz │ │ ├── problem.jazz │ │ ├── product.jazz │ │ ├── profile │ │ │ └── Jedi-Profile.jazz │ │ ├── run.jazz │ │ ├── search │ │ │ └── Jedi-Search.jazz │ │ ├── services.jazz │ │ └── validate │ │ │ ├── Jedi-Tester.jazz │ │ │ ├── _validate.jazz │ │ │ └── autoload.jazz │ └── world │ │ └── debuggee │ │ └── stub.jazz │ └── templates │ ├── file │ ├── c │ │ ├── NewC.c.template │ │ ├── NewCpp.cpp.template │ │ └── NewHeader.h.template │ ├── java │ │ ├── New.java.template │ │ └── NewClass.java.template │ ├── jazz │ │ ├── New.jazz.template │ │ ├── NewClass.jazz.template │ │ ├── NewInterface.jazz.template │ │ ├── NewModule.jazz.template │ │ ├── NewScript.jazz.template │ │ └── NewUnit.jazz.template │ ├── lisp │ │ └── New.lisp.template │ ├── scheme │ │ └── New.scm.template │ ├── sql │ │ └── New.sql.template │ └── text │ │ └── New.txt.template │ ├── package │ └── %package% │ │ ├── .package │ │ └── .project │ ├── profile │ ├── emacs │ │ ├── .jazz │ │ │ └── %jazz-settings-version% │ │ │ │ └── .buildini │ │ └── .jedi │ │ │ └── %settings-version% │ │ │ ├── .settings │ │ │ ├── profiles │ │ │ ├── .repository │ │ │ └── lib │ │ │ │ └── %profile-unit% │ │ │ │ ├── .package │ │ │ │ ├── .project │ │ │ │ └── profile │ │ │ │ └── %profile-lowercase% │ │ │ │ ├── %profile%.jazz │ │ │ │ └── settings │ │ │ │ ├── Bindings.jml │ │ │ │ ├── Colors.jml │ │ │ │ ├── Connections.jml │ │ │ │ ├── Favorites.jml │ │ │ │ ├── Fonts.jml │ │ │ │ ├── Formats.jml │ │ │ │ ├── PageSetup.jml │ │ │ │ ├── Preferences.jml │ │ │ │ ├── Servers.jml │ │ │ │ ├── Skins.jml │ │ │ │ ├── Styles.jml │ │ │ │ ├── Toolbox.jml │ │ │ │ ├── Workbench.jml │ │ │ │ └── Workspaces.jml │ │ │ └── projects │ │ │ └── .repository │ └── jazz │ │ ├── .jazz │ │ └── %jazz-settings-version% │ │ │ └── .buildini │ │ └── .jedi │ │ └── %settings-version% │ │ ├── .settings │ │ ├── profiles │ │ ├── .repository │ │ └── lib │ │ │ └── %profile-unit% │ │ │ ├── .package │ │ │ ├── .project │ │ │ └── profile │ │ │ └── %profile-lowercase% │ │ │ ├── %profile%.jazz │ │ │ └── settings │ │ │ ├── Bindings.jml │ │ │ ├── Colors.jml │ │ │ ├── Connections.jml │ │ │ ├── Favorites.jml │ │ │ ├── Fonts.jml │ │ │ ├── Formats.jml │ │ │ ├── PageSetup.jml │ │ │ ├── Preferences.jml │ │ │ ├── Servers.jml │ │ │ ├── Skins.jml │ │ │ ├── Styles.jml │ │ │ ├── Toolbox.jml │ │ │ ├── Workbench.jml │ │ │ └── Workspaces.jml │ │ └── projects │ │ └── .repository │ ├── project │ ├── empty │ │ └── %project%.project │ ├── gambit │ │ └── %project% │ │ │ ├── %product%.project │ │ │ ├── .package │ │ │ ├── .project │ │ │ └── src │ │ │ └── %product-directories% │ │ │ ├── product.jazz │ │ │ └── run.jazz │ └── jazz │ │ ├── application │ │ ├── empty │ │ │ └── %project% │ │ │ │ ├── %product%.project │ │ │ │ ├── .package │ │ │ │ ├── .project │ │ │ │ └── src │ │ │ │ └── %product-directories% │ │ │ │ ├── application.jazz │ │ │ │ └── run.jazz │ │ └── standard │ │ │ └── %project% │ │ │ ├── %product%.project │ │ │ ├── .package │ │ │ ├── .project │ │ │ └── src │ │ │ └── %product-directories% │ │ │ ├── application.jazz │ │ │ └── run.jazz │ │ ├── empty │ │ └── %project% │ │ │ ├── %product%.project │ │ │ ├── .package │ │ │ ├── .project │ │ │ └── src │ │ │ └── %product-directories% │ │ │ └── product.jazz │ │ ├── package │ │ └── %project% │ │ │ ├── .package │ │ │ └── .project │ │ ├── process │ │ └── %project% │ │ │ ├── %product%.project │ │ │ ├── .package │ │ │ ├── .project │ │ │ └── src │ │ │ └── %product-directories% │ │ │ ├── process.jazz │ │ │ └── run.jazz │ │ └── repository │ │ └── %project% │ │ ├── .project │ │ └── .repository │ ├── repository │ └── %dirname% │ │ └── .repository │ └── workspace │ ├── Debugger.jazz.template │ ├── Designer.jazz.template │ ├── Formatted.jazz.template │ ├── Groupware.jazz.template │ ├── Help.jazz.template │ ├── Home.jazz.template │ ├── SQL.jazz.template │ └── Text.jazz.template └── makefile /.buildini: -------------------------------------------------------------------------------- 1 | ;;;============== 2 | ;;; JazzScheme 3 | ;;;============== 4 | ;;; 5 | ;;;; Local buildini 6 | ;;; 7 | 8 | 9 | (jazz:jazz-repository "jazz") 10 | (jazz:repositories ".") 11 | -------------------------------------------------------------------------------- /.configurations: -------------------------------------------------------------------------------- 1 | (name: test safety: develop optimize?: #f debug-environments?: #t debug-location?: #t debug-source?: #f debug-foreign?: #f mutable-bindings?: #f kernel-interpret?: #f destination: "binaries/test" features: (test) properties: (binaries?: #t)) 2 | (name: stable safety: develop optimize?: #f debug-environments?: #t debug-location?: #t debug-source?: #f debug-foreign?: #f mutable-bindings?: #f kernel-interpret?: #f destination: "build/stable" features: (stable) properties: ()) 3 | (name: stage safety: develop optimize?: #f debug-environments?: #t debug-location?: #t debug-source?: #f debug-foreign?: #f mutable-bindings?: #f kernel-interpret?: #f destination: "binaries/stage" features: (stage) properties: (binaries?: #t)) 4 | (name: prod safety: develop optimize?: #f debug-environments?: #t debug-location?: #t debug-source?: #f debug-foreign?: #f mutable-bindings?: #f kernel-interpret?: #f destination: "binaries/prod" features: (prod) properties: (binaries?: #t)) 5 | -------------------------------------------------------------------------------- /.gitignore: -------------------------------------------------------------------------------- 1 | /bin 2 | /binaries 3 | /build 4 | /cache 5 | /gambit 6 | /jazz 7 | /.jaz 8 | /.jazzini 9 | .configuration 10 | .DS_Store -------------------------------------------------------------------------------- /.jazini: -------------------------------------------------------------------------------- 1 | ;;;============== 2 | ;;; JazzScheme 3 | ;;;============== 4 | ;;; 5 | ;;;; Local jamini 6 | ;;; 7 | 8 | 9 | (jazz:default-safety 'release) 10 | (jazz:default-target 'jedi) 11 | -------------------------------------------------------------------------------- /.project: -------------------------------------------------------------------------------- 1 | ;;;============== 2 | ;;; JazzScheme 3 | ;;;============== 4 | ;;; 5 | ;;;; Project 6 | ;;; 7 | 8 | 9 | (data jazz.ide.data.project 10 | 11 | 12 | (import (jazz.project) 13 | (jazz.editor.jazz)) 14 | 15 | 16 | (form 17 | ( name: jedi description-file: {File :context ".repository"} active-project: Jedi depot-directory: {Directory :context} 18 | (<*> tag-reference: {File :context "lib" "jedi" "jedi.project"}) 19 | (<*> tag-reference: {File :context "jazz" ".project"}) 20 | (<*> tag-reference: {File :context "lib" ".project"})))) 21 | -------------------------------------------------------------------------------- /.repository: -------------------------------------------------------------------------------- 1 | (repository Jedi 2 | 3 | (library "lib")) 4 | -------------------------------------------------------------------------------- /INSTALL: -------------------------------------------------------------------------------- 1 | Dependencies 2 | ============ 3 | 4 | Cairo 5 | If you plan on doing GUI development, you will need to install Cairo from 6 | http://cairographics.org/. On Windows, we precompiled it for you as a DLL 7 | so it is already installed. On other systems, you should install it the 8 | usual way with your package manager and Jazz will use pkg-config to find 9 | the various paths. If you are on Mac OS X, the simplest way to install Cairo 10 | is through macports. See the next section for details on installing macports 11 | if you don't already have it. With macports installed, installing cairo is 12 | easy. Simply execute the following command from any terminal: 13 | "sudo port install cairo". Note that on systems that support both binary 14 | and development packages you should install the cairo-dev development 15 | package. 16 | 17 | Macports 18 | You install macports from http://www.macports.org/. Note that a standard 19 | Mac OS X Package (.pkg) Installer is available. After the installation, you 20 | will need to edit your ~/.bash_profile file. Add /opt/local/bin to your PATH 21 | variable if it is not already there, and add the following line anywhere: 22 | "export PKG_CONFIG_PATH=/opt/local/lib/pkgconfig". 23 | 24 | X11 on the Mac 25 | Due to a bug in Apple's installed version of X11, if you plan on using X11 26 | on the Mac, you will need to install the latest X11 from Apple's official 27 | site for X11: http://xquartz.macosforge.org/. Note that depending on your 28 | settings, X11 may need to be manually started before launching Jedi. 29 | 30 | MinGW 31 | On Windows, the only backend fully tested to work with JazzScheme is MinGW. 32 | Note that some people have reported problems when building JazzScheme with 33 | old versions of MinGW. You can get the latest version of MinGW from 34 | http://www.mingw.org/. Another reported problem was from someone having both 35 | Cygwin and MinGW installed, where MinGW would wrongly call Cygwin's gcc. 36 | Uninstalling Cygwin fixed the problem. 37 | 38 | Also, as both MinGW and Git come with their own shell, the simplest way to 39 | have a shell supporting both, which is required to build Jazz, is to select 40 | the "Run Git and included Unix tools from the Windows Command Prompt" when 41 | installing Git and then using the MinGW shell. 42 | 43 | 44 | Sources 45 | ======= 46 | 47 | Jedi uses Git http://git.or.cz/ to store and access all development files. 48 | 49 | Repository 50 | The Jedi repository is currently hosted at 51 | git://github.com/jazzscheme/jedi.git 52 | 53 | Help 54 | Some usefull Git links : 55 | - http://www.kernel.org/pub/software/scm/git/docs/ 56 | - http://www.kernel.org/pub/software/scm/git/docs/user-manual.html 57 | - http://www.kernel.org/pub/software/scm/git/docs/gittutorial.html 58 | 59 | Troubleshooting 60 | If you get an error like "fatal: unable to connect a socket (Connection timed out)" 61 | it may be that you are behind a firewall that blocks outbound connections on Git's 62 | port 9418. 63 | 64 | 65 | Scenarios 66 | --------- 67 | 68 | User 69 | ;; Clone the Jedi repository (only once). 70 | ;; This will create a 'jedi' directory containing all development files. 71 | $ git clone git://github.com/jazzscheme/jedi.git 72 | $ cd jedi 73 | 74 | ;; Pull from time to time to get the latest revision. 75 | $ git pull 76 | 77 | Contributor 78 | ;; Clone the Jedi repository (only once). 79 | ;; This will create a 'jedi' directory containing all development files. 80 | $ git clone git://github.com/jazzscheme/jedi.git 81 | $ cd jedi 82 | 83 | ;; Add email and name information that will appear in patches you submit. 84 | $ git config user.email "you@email.com" 85 | $ git config user.name "Your Name" 86 | 87 | ;; Create a public branch that will be used to rebase your changes. 88 | $ git branch public 89 | 90 | ;; Commit changes you made and want to contribute. 91 | ;; Note that the -a option is necessary if you added any new files. 92 | $ git commit -a -m "Some message describing your changes" 93 | 94 | ;; Pull from time to time to get the latest revision and rebase your changes. 95 | ;; Rebasing your changes before sending your changes as patches will greatly 96 | ;; minimize risks of conflicts when the Jedi maintainers apply your patches to 97 | ;; the central repository. 98 | $ git checkout public 99 | $ git pull origin master 100 | $ git checkout master 101 | $ git rebase public 102 | ;; Optional step: fix any rebase conflicts. 103 | ;; See http://www.kernel.org/pub/software/scm/git/docs/git-rebase.html for details. 104 | ;; Edit and resolve conflicts in all the conflicting files. 105 | $ git add 106 | $ git rebase --continue 107 | 108 | ;; Send contributions as a series of patch files. 109 | $ git format-patch origin 110 | 111 | 112 | Maintainer 113 | ;; Publish some changes. 114 | $ git push pub master 115 | 116 | ;; Merge contributions. 117 | $ git am -3 *.patch 118 | ;; Optional step: fix any conflict. 119 | $ git am --resolved 120 | 121 | 122 | Building 123 | ======== 124 | 125 | To build Jedi, simply invoke the ./jam (Jazz Manager) script from the Jedi source directory. 126 | Jam will take care of updating any Git submodule dependencies and of building all the source 127 | files that have changed since the last build. 128 | 129 | The build system follows the usual configure / make methodology but as the underlying 130 | Scheme system already represents a platform independant abstraction, there is no need to 131 | use the low-level GNU tools. The build system is fully implemented in Scheme, accessed using 132 | the ./jam script. 133 | 134 | Do not worry about the many warnings generated when building the platform modules. These are 135 | due to limitations in the current implementation of Gambit's foreign-function interface and 136 | can be safely ignored. 137 | 138 | A full build of Jazz will take about 10mn on a MacBook Pro and require about 2G of memory 139 | to build without disk swapping. 140 | 141 | 142 | Examples 143 | -------- 144 | 145 | Building Jedi 146 | $ cd jedi 147 | $ ./jam 148 | JazzScheme Build System v2.6 149 | 150 | ;; Create the default configuration 151 | % configure 152 | 153 | system: gambit 154 | platform: windows 155 | safety: release 156 | ... 157 | 158 | ;; Build the default target: 'jedi' 159 | % make 160 | ... 161 | 162 | ;; Quit the build system 163 | % quit 164 | 165 | ;; Launch Jedi 166 | $ bin/jedi 167 | 168 | Building many targets at a time 169 | $ cd jedi 170 | $ ./jam 171 | JazzScheme Build System v2.6 172 | 173 | ;; This will build : 174 | ;; - the jazz target in the default configuration 175 | ;; - the platform target in the debug configuration 176 | ;; - the default target in the release configuration 177 | % make jazz platform@debug @release 178 | ... 179 | 180 | 181 | Scripting 182 | --------- 183 | 184 | Launching the build system using jam with no options starts it in interactive mode 185 | which is unsuitable for batch scripting. 186 | 187 | For scripting, the build system can be invoked directly from the command line : 188 | 189 | $ ./jam [options] 190 | 191 | 192 | configure 193 | --------- 194 | 195 | Register a new configuration. 196 | 197 | To support multiple configurations, configurations can optionaly be named. 198 | 199 | Configurations are loaded / saved from a .configurations file located in the 200 | .jazz directory of the user's home. Using configure is basically an easy way 201 | to edit the .configurations file. 202 | 203 | configure 204 | [name: name] 205 | [system: system] 206 | [platform: platform] 207 | [windowing: windowing] 208 | [safety: safety] 209 | [optimize?: optimize?] 210 | [debug-environments?: debug-environments?] 211 | [debug-location?: debug-location?] 212 | [debug-source?: debug-source?] 213 | [kernel-interpret?: kernel-interpret?] 214 | [destination: destination] 215 | 216 | name 217 | The optional name. Must be alphanumeric. 218 | 219 | system 220 | The underlying Scheme system (automatically determined) 221 | - gambit (the only fully supported scheme system at the moment) 222 | - chicken 223 | - ... 224 | 225 | platform 226 | The platform (will try and guess based on system type) 227 | - mac 228 | - windows 229 | - unix 230 | 231 | windowing 232 | The windowing system (will try and guess based on system type) 233 | - carbon (development started) 234 | - x11 (almost there) 235 | - #f (use default platform windowing) 236 | 237 | safety 238 | The runtime safety level 239 | - core 240 | Core debug mode for debugging JazzScheme itself. Adds tests to make the 241 | kernel and core safe. 242 | - debug 243 | Standard debug mode with tests to make user code safe. This is the 244 | recommanded safety for development. 245 | - release (the default) 246 | Release mode for stable user code with no safety tests. If you plan on 247 | using Jedi, you may want to build using this safety level as it will run 248 | alot faster. 249 | 250 | optimize? 251 | This option adds optimization declares to the source code. Note that this 252 | will make debugging somewhat harder as the generated code will have gone 253 | through some transformations. At the moment it adds: proper-tail-calls, 254 | constant-fold and lambda-lift. 255 | - #f 256 | - #t (the default) 257 | 258 | debug-source? 259 | Include source in compiled code by compiling with Gambit's 'debug-source' 260 | option. 261 | 262 | Note that this option is not needed anymore for using the statprof statistical 263 | profiler with compiled files since the new 'debug-location' option was added 264 | to Gambit. 265 | 266 | Do not use this option unless you have a very specific need for it as it will 267 | result in much larger object files and due to a flaw in gcc also result in longer 268 | compile times. 269 | - #f (the default) 270 | - #t 271 | 272 | kernel-interpret? 273 | An option for Jazz developers to enable loading the kernel fully interpreted. 274 | - #f (the default) 275 | - #t 276 | 277 | destination 278 | The optional build destination (defaults to "bin"). 279 | 280 | The destination specifies the directory where files will be built relative to the 281 | current directory. 282 | 283 | Note that being able to specify an explicit build destination enables building 284 | multiple configurations under the current directory. 285 | 286 | 287 | make 288 | ---- 289 | 290 | Build target for a configuration. 291 | 292 | make [target@configuration:image] ... 293 | 294 | target 295 | The optional target to build which defaults to 'jedi'. 296 | 297 | - kernel : the unit system 298 | - core : the module system 299 | - scheme : the scheme dialect 300 | - jazz : the jazz dialect 301 | - platform : the platform packages 302 | - jedi : the jedi ide 303 | - all : all the pre-installed packages 304 | - clean : remove all build files 305 | - cleankernel : remove all kernel files 306 | - cleanobject : remove all object files 307 | - cleanlibrary : remove all library files 308 | - : user 309 | 310 | configuration 311 | The optional configuration which defaults to the default configuration. 312 | 313 | image 314 | The optional image which defaults to 'exe'. 315 | 316 | - exe | executable : build an executable 317 | - lib | library : build a gambit .o1 loadable library 318 | 319 | 320 | make clean 321 | ---------- 322 | 323 | Clean a configuration by removing all build files. 324 | 325 | make [clean@configuration] ... 326 | 327 | configuration 328 | The optional configuration which defaults to the default configuration. 329 | 330 | 331 | make cleankernel 332 | ---------------- 333 | 334 | Clean a configuration's kernel by removing all kernel files. 335 | 336 | make [cleankernel@configuration] ... 337 | 338 | configuration 339 | The optional configuration which defaults to the default configuration. 340 | 341 | 342 | make cleanobject 343 | ---------------- 344 | 345 | Clean a configuration's object files. 346 | 347 | make [cleanobject@configuration] ... 348 | 349 | configuration 350 | The optional configuration which defaults to the default configuration. 351 | 352 | 353 | make cleanlibrary 354 | ----------------- 355 | 356 | Clean a configuration's library files. 357 | 358 | make [cleanlibrary@configuration] ... 359 | 360 | configuration 361 | The optional configuration which defaults to the default configuration. 362 | 363 | 364 | make install 365 | ------------ 366 | 367 | There is no equivalent of make install due to the complexity of supporting 368 | multiple systems and user preferences. Since this step is also very simple to 369 | do manually, installing the built configuration is left to the user. 370 | 371 | Depending on your system you will usually 372 | - Copy the built files to standard system locations or 373 | - Modify your environment variables to point to the location of the Jazz 374 | executable 375 | 376 | Note that at this time, modifying your environment variables is the preferred 377 | approach as some units like Jedi are still dependent on source files. 378 | 379 | 380 | list 381 | ---- 382 | 383 | List configurations. 384 | 385 | list 386 | 387 | 388 | delete 389 | ------ 390 | 391 | Delete a configuration. 392 | 393 | delete [configuration] 394 | 395 | configuration 396 | The optional configuration which defaults to the default configuration. 397 | 398 | 399 | quit 400 | ---- 401 | 402 | Quit the build system. 403 | 404 | quit 405 | 406 | 407 | Troubleshooting 408 | --------------- 409 | 410 | The following instructions presuppose basic knowledge of Gambit's REPL 411 | (Read Eval Print Loop) that is used for debugging Gambit code. See Gambit's 412 | manual for details. 413 | 414 | If you get an error while building, and the message is not enough to understand 415 | the problem, you can follow the following instructions to get a full-fledged 416 | Gambit REPL to explore the problem further. 417 | 418 | First, you have to determine if the error is occuring while building the kernel 419 | or while building a product. Each build step displays a message of the following 420 | format: 'make '. Any other than 'kernel' means that it is a 421 | product that is being built. 422 | 423 | - If the problem is in building the kernel, launch the build system in debug 424 | mode with: './jam debug'. This will disable the build system's own REPL and 425 | get you a Gambit REPL. To build configuration :, 426 | execute: (jazz:make 'kernel@:). 427 | 428 | - Else, find the built 'kernel.exe' kernel located inside the build directory 429 | and launch it like this: kernel -make target -debug. 430 | -------------------------------------------------------------------------------- /NEWS: -------------------------------------------------------------------------------- 1 | 1.0.0 2 | ===== 3 | 4 | Initial release 5 | -------------------------------------------------------------------------------- /README: -------------------------------------------------------------------------------- 1 | Jedi is a sophisticated programmable IDE for lisp languages. 2 | 3 | 4 | License 5 | ======= 6 | 7 | Jedi is pending copyright. 8 | 9 | 10 | Platforms 11 | ========= 12 | 13 | Windows, Mac OS X / X11, Linux / X11 14 | 15 | 16 | Distribution 17 | ============ 18 | 19 | README : Readme file 20 | INSTALL : Installation instructions 21 | 22 | .git : Git repository 23 | .gitignore : File patterns ignored by Git 24 | .gitmodules : Used by Git to manage submodules 25 | 26 | jam : JazzScheme Management System 27 | configure : Placeholder for configure 28 | make : Placeholder for make 29 | 30 | bin : Default configuration binaries 31 | build : Custom configurations binaries 32 | jazz : Jazz repository as a Git submodule 33 | lib : Pre-installed packages 34 | 35 | 36 | Building 37 | ======== 38 | 39 | Please see INSTALL for details and examples on building Jedi. 40 | 41 | 42 | Launching 43 | ========= 44 | 45 | Launch 46 | Once you have built Jedi you can launch it using the jedi executable. 47 | 48 | Debugging 49 | If you get an error before the Jedi is fully functional, you will end up in 50 | the Gambit debugger. This is not as painful as would appear as JazzScheme 51 | code is very close to the generated Scheme code so that inspecting a Jazz 52 | stack inside the Gambit debugger is very easy. Having access to a lower level 53 | debugger is even a very nice feature as it is virtually impossible to crash 54 | Jedi even when modifying a critical piece of code (like inserting a bug in 55 | the view system for instance) as the Gambit debugger is completely self 56 | contained. 57 | 58 | If you get an error that brings you to the Gambit debugger, the console will 59 | automatically open. You can then use all of Gambit's debugging command to 60 | debug your code and when you are done, simply execute the (resume) command. 61 | This will resume Jedi's message loop making it again functional. 62 | 63 | 64 | Documentation 65 | ============= 66 | 67 | Jedi documentation is available online at ... 68 | 69 | 70 | ------------------------------------------ 71 | Send comments, suggestions, bugs,... to: 72 | gcartier@jazzscheme.org 73 | -------------------------------------------------------------------------------- /configure: -------------------------------------------------------------------------------- 1 | #!/bin/sh 2 | 3 | echo 'Jedi does not use the ./configure and make build process.' 4 | echo 'See INSTALL for details and start the build system with ./jam.' 5 | -------------------------------------------------------------------------------- /deploy: -------------------------------------------------------------------------------- 1 | #!/bin/sh 2 | 3 | if [ -z "$1" ]; then 4 | # echo "No environment parameter" 5 | # exit 1 6 | ENVIRONMENT="test" 7 | else 8 | ENVIRONMENT="$1" 9 | shift 10 | fi 11 | 12 | ./jaz deploy "jedi@$ENVIRONMENT" "$@" -debug 13 | -------------------------------------------------------------------------------- /jam: -------------------------------------------------------------------------------- 1 | #!/bin/sh 2 | 3 | REL="$(dirname "$0")" 4 | 5 | JAZZ="$REL/jazz" 6 | JAM="$JAZZ/jam" 7 | 8 | if [ ! -f "$JAM" ]; then 9 | echo "Unable to find jazz/jam" 10 | exit 1 11 | fi 12 | 13 | exec "$JAM" "$@" 14 | -------------------------------------------------------------------------------- /jaz: -------------------------------------------------------------------------------- 1 | #!/bin/sh 2 | 3 | REL="$(dirname "$0")" 4 | 5 | JAZZ="$REL/jazz" 6 | JED="$REL/jedi" 7 | JAZ="$JAZZ/jaz" 8 | 9 | UPDATE_SUBMODULES="true" 10 | 11 | bootstrap_init () { 12 | cd "$REL" 13 | git submodule init 14 | } 15 | 16 | bootstrap_update () { 17 | cd "$REL" 18 | git submodule update 19 | } 20 | 21 | bootstrap () { 22 | (bootstrap_init) && 23 | (bootstrap_update) 24 | } 25 | 26 | bootstrap_dispatch () { 27 | case "$1" in 28 | "init" ) 29 | bootstrap_init 30 | ;; 31 | "update" ) 32 | bootstrap_update 33 | ;; 34 | "" ) 35 | bootstrap 36 | ;; 37 | * ) 38 | echo "Unknown bootstrap option : $1" 39 | return 1 40 | ;; 41 | esac 42 | } 43 | 44 | display_module_info () { 45 | echo "$1" 46 | if [ -d "$2" ]; then 47 | cd "$2" && 48 | git log -1 49 | fi 50 | } 51 | 52 | display_info () { 53 | (display_module_info "Jedi" "$REL") 54 | echo 55 | (display_module_info "Jazz" "$JAZZ") 56 | } 57 | 58 | update_submodules () { 59 | cd "$REL" 60 | git submodule update 61 | } 62 | 63 | while getopts "l" OPTION; do 64 | case $OPTION in 65 | "l" ) 66 | UPDATE_SUBMODULES="false" 67 | ;; 68 | esac 69 | done 70 | 71 | shift $((OPTIND-1)) 72 | 73 | case "$1" in 74 | "bootstrap" ) 75 | bootstrap_dispatch $2 76 | exit 77 | ;; 78 | 79 | "info" ) 80 | display_info 81 | exit 82 | ;; 83 | esac 84 | 85 | if [ ! -f "$JAZ" ]; then 86 | bootstrap 87 | elif $UPDATE_SUBMODULES; then 88 | (update_submodules) 89 | fi 90 | 91 | if [ ! -f "$JAZ" ]; then 92 | echo "Unable to find jazz/jaz" 93 | exit 1 94 | fi 95 | 96 | exec "$JAZ" "$@" 97 | -------------------------------------------------------------------------------- /lib/.project: -------------------------------------------------------------------------------- 1 | ;;;============== 2 | ;;; JazzScheme 3 | ;;;============== 4 | ;;; 5 | ;;;; Project 6 | ;;; 7 | 8 | 9 | (data jazz.ide.data.project 10 | 11 | 12 | (import (jazz.project)) 13 | 14 | 15 | (form 16 | ( name: lib 17 | (<*> tag-reference: {File :context "jedi" ".project"})))) 18 | -------------------------------------------------------------------------------- /lib/jedi/.package: -------------------------------------------------------------------------------- 1 | (package jedi 2 | 3 | (title "Jedi") 4 | (description "Jazz IDE") 5 | (authors "Guillaume Cartier") 6 | (stage release) 7 | (root "src") 8 | (install jedi.install) 9 | (products (jedi (title "Jedi") 10 | (product jedi.product) 11 | (run jedi.run) 12 | (update jedi 13 | jedi.data.bindings 14 | jedi.data.preferences 15 | jedi.data.workspaces 16 | jedi.debugger 17 | jedi.debugger.implementation 18 | jedi.debugger.stub 19 | jedi.live 20 | jedi.problem 21 | jedi.product 22 | jedi.run 23 | jedi.services 24 | jedi.validate 25 | world.debuggee.stub) 26 | (build (jedi include-compiler?: #t bundle: "jedi" resources: "resources")) 27 | (dependencies preinstalled 28 | descriptors 29 | extras 30 | samples 31 | jazz.designer 32 | jazz.editor.dart 33 | jazz.ide 34 | jedi.install)) 35 | (jedi.install (update jedi.install) 36 | (dependencies jazz))) 37 | (project ".project")) 38 | -------------------------------------------------------------------------------- /lib/jedi/.project: -------------------------------------------------------------------------------- 1 | ;;;============== 2 | ;;; JazzScheme 3 | ;;;============== 4 | ;;; 5 | ;;;; Project 6 | ;;; 7 | 8 | 9 | (data jazz.ide.data.project 10 | 11 | 12 | (import (jazz.project) 13 | (jazz.editor.jazz)) 14 | 15 | 16 | (form 17 | ( name: jedi documentation: {File :context "doc" "jedi.jml"} description-file: {File :context ".package"} 18 | ( directory: {Directory :context "src"} 19 | ( directory: {Directory :context "src" "jedi"} 20 | ( directory: {Directory :context "src" "jedi" "application"} 21 | ( name: Jedi-Menubar source: {File :context "src" "jedi" "application" "Jedi-Menubar.jazz"}) 22 | ( name: Jedi-Status source: {File :context "src" "jedi" "application" "Jedi-Status.jazz"}) 23 | ( name: Jedi-Toolbar source: {File :context "src" "jedi" "application" "Jedi-Toolbar.jazz"}) 24 | ( name: Jedi-Toplevel source: {File :context "src" "jedi" "application" "Jedi-Toplevel.jazz"}) 25 | ( name: Jedi-Application source: {File :context "src" "jedi" "application" "Jedi-Application.jazz"})) 26 | ( directory: {Directory :context "src" "jedi" "profile"} 27 | ( name: Jedi-Profile source: {File :context "src" "jedi" "profile" "Jedi-Profile.jazz"})) 28 | ( directory: {Directory :context "src" "jedi" "search"} 29 | ( name: Jedi-Search source: {File :context "src" "jedi" "search" "Jedi-Search.jazz"})) 30 | ( name: _jedi source: {File :context "src" "jedi" "_jedi.jazz"}) 31 | ( name: autoload source: {File :context "src" "jedi" "autoload.jazz"}) 32 | ( name: run source: {File :context "src" "jedi" "run.jazz"}) 33 | ( source: {File :context "src" "jedi" "install.scm"}) 34 | ( name: services source: {File :context "src" "jedi" "services.jazz"}) 35 | ( directory: {Directory :context "src" "jedi" "data"} 36 | ( name: bindings source: {File :context "src" "jedi" "data" "bindings.jazz"}) 37 | ( name: preferences source: {File :context "src" "jedi" "data" "preferences.jazz"}) 38 | ( name: workspaces source: {File :context "src" "jedi" "data" "workspaces.jazz"})) 39 | ( directory: {Directory :context "src" "jedi" "validate"} 40 | ( name: Jedi-Tester source: {File :context "src" "jedi" "validate" "Jedi-Tester.jazz"}) 41 | ( name: _validate source: {File :context "src" "jedi" "validate" "_validate.jazz"}) 42 | ( name: autoload source: {File :context "src" "jedi" "validate" "autoload.jazz"})) 43 | ( directory: {Directory :context "src" "jedi" "preference"} 44 | ( name: Jedi-Actions source: {File :context "src" "jedi" "preference" "Jedi-Actions.jazz"}) 45 | ( name: Jedi-Bindings source: {File :context "src" "jedi" "preference" "Jedi-Bindings.jazz"}) 46 | ( name: Jedi-Preferences source: {File :context "src" "jedi" "preference" "Jedi-Preferences.jazz"})) 47 | ( directory: {Directory :context "src" "jedi" "debugger"} 48 | ( name: _debugger source: {File :context "src" "jedi" "debugger" "_debugger.jazz"}) 49 | ( name: implementation source: {File :context "src" "jedi" "debugger" "implementation.jazz"}) 50 | ( name: stub source: {File :context "src" "jedi" "debugger" "stub.jazz"})) 51 | ( directory: {Directory :context "src" "jedi" "live"} 52 | ( name: Live-Properties-Manager source: {File :context "src" "jedi" "live" "Live-Properties-Manager.jazz"}) 53 | ( name: Live-Properties source: {File :context "src" "jedi" "live" "Live-Properties.jazz"}) 54 | ( name: Live-Style source: {File :context "src" "jedi" "live" "Live-Style.jazz"}) 55 | ( name: _live source: {File :context "src" "jedi" "live" "_live.jazz"})) 56 | ( name: product source: {File :context "src" "jedi" "product.jazz"}) 57 | ( name: problem source: {File :context "src" "jedi" "problem.jazz"})) 58 | ( directory: {Directory :context "src" "world"} 59 | ( directory: {Directory :context "src" "world" "debuggee"} 60 | ( name: stub source: {File :context "src" "world" "debuggee" "stub.jazz"})))) 61 | ( directory: {Directory :context "doc"} 62 | ( source: {File :context "doc" "jedi.jml"}))))) 63 | -------------------------------------------------------------------------------- /lib/jedi/bundles/jedi/Contents/Info.plist: -------------------------------------------------------------------------------- 1 | 2 | 3 | 4 | 5 | CFBundleExecutable 6 | jedi 7 | CFBundleGetInfoString 8 | Jedi 9 | CFBundleIconFile 10 | jedi.icns 11 | CFBundleIdentifier 12 | Jedi 13 | CFBundleName 14 | Jedi 15 | CFBundlePackageType 16 | APPL 17 | CFBundleDocumentTypes 18 | 19 | 20 | CFBundleTypeExtensions 21 | 22 | * 23 | 24 | CFBundleTypeName 25 | All Files 26 | CFBundleTypeRole 27 | Viewer 28 | 29 | 30 | NSHighResolutionCapable 31 | True 32 | 33 | 34 | -------------------------------------------------------------------------------- /lib/jedi/bundles/jedi/Contents/Resources/jedi.icns: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/jazzscheme/jedi/0ae4357fd4b8ea013a42415736340e37e2271b36/lib/jedi/bundles/jedi/Contents/Resources/jedi.icns -------------------------------------------------------------------------------- /lib/jedi/doc/jedi.jml: -------------------------------------------------------------------------------- 1 | ;;;============== 2 | ;;; JazzScheme 3 | ;;;============== 4 | ;;; 5 | ;;;; Jedi Documentation 6 | ;;; 7 | ;;; The contents of this file are subject to the Mozilla Public License Version 8 | ;;; 1.1 (the "License"); you may not use this file except in compliance with 9 | ;;; the License. You may obtain a copy of the License at 10 | ;;; http://www.mozilla.org/MPL/ 11 | ;;; 12 | ;;; Software distributed under the License is distributed on an "AS IS" basis, 13 | ;;; WITHOUT WARRANTY OF ANY KIND, either express or implied. See the License 14 | ;;; for the specific language governing rights and limitations under the 15 | ;;; License. 16 | ;;; 17 | ;;; The Original Code is JazzScheme. 18 | ;;; 19 | ;;; The Initial Developer of the Original Code is Guillaume Cartier. 20 | ;;; Portions created by the Initial Developer are Copyright (C) 1996-2015 21 | ;;; the Initial Developer. All Rights Reserved. 22 | ;;; 23 | ;;; Contributor(s): 24 | ;;; 25 | ;;; Alternatively, the contents of this file may be used under the terms of 26 | ;;; the GNU General Public License Version 2 or later (the "GPL"), in which 27 | ;;; case the provisions of the GPL are applicable instead of those above. If 28 | ;;; you wish to allow use of your version of this file only under the terms of 29 | ;;; the GPL, and not to allow others to use your version of this file under the 30 | ;;; terms of the MPL, indicate your decision by deleting the provisions above 31 | ;;; and replace them with the notice and other provisions required by the GPL. 32 | ;;; If you do not delete the provisions above, a recipient may use your version 33 | ;;; of this file under the terms of any one of the MPL or the GPL. 34 | ;;; 35 | ;;; See www.jazzscheme.org for details. 36 | 37 | 38 | (data jazz.doc.data 39 | 40 | 41 | (form 42 | ( name: jedi title: "Jedi" 43 | ( 44 | (

"Jedi is a full-featured IDE for the Jazz programming language built entirely in Jazz")) 45 | ( name: ide title: "Working with the IDE" 46 | ( name: login title: "Login" 47 | ( 48 | ( src: "images/jedi/login_new.png"))) 49 | ( name: workspaces title: "Workspaces" 50 | ( 51 | "Workspaces are groups of related windows, tools, ... that are activated together. " 52 | (

) 53 | "The buttons located at the right-hand side of the Jedi toolbar can be used to switch the active workspace. " 54 | (

) 55 | "Jedi comes with the following workspaces installed:" 56 | (

) 57 | ( src: "images/jedi/workspaces.png") 58 | (

) 59 | ( 60 | ( ( src: "images/common/workspace_home.png") "Home") 61 | ( ( src: "images/common/workspace_text.png") "Text") 62 | ( ( src: "images/common/workspace_debugger.png") "Debugger") 63 | ( ( src: "images/common/workspace_groupware.png") "Groupware")))) 64 | ( name: bindings title: "Bindings" 65 | ( 66 | "The following bindings are predefined:" 67 | (

) 68 | ( 69 | "Jazz" 70 | "Emacs (basic)" 71 | "Mac (todo)" 72 | "Windows") 73 | ( title: "Bindings Manager" 74 | ( src: "images/jedi/bindings_manager.png")) 75 | ( title: "Bindings Viewer" 76 | ( src: "images/jedi/bindings_viewer.png")))) 77 | ( name: properties title: "Properties" 78 | ( 79 | ( src: "images/jedi/properties.png") 80 | (

) 81 | "This window is used to visually edit properties of components. " 82 | (

) 83 | "Mainly used by the workbench at the moment.")) 84 | ( name: preferences title: "Preferences") 85 | ( name: help title: "Getting Help") 86 | ( name: eclipse title: "Eclipse Glossary" 87 | ( 88 | "Here is a very informal correspondance between some Eclipse and Jazz concepts where applicable." 89 | (

) 90 | ( width: "300" class: "terminology" 91 | ( ( ( ( (
"Eclipse") ( "Jazz") 92 | (
"workspace") ( "profile")) 93 | (
"feature") ( "package")) 94 | (
"project") ( "project")) 95 | (
"perspective") ( "workspace")))))) 96 | ( name: projects title: "Managing Projects" 97 | ( name: workbench title: "Workbench" 98 | ( 99 | "The workbench is the window used to manage source files. " 100 | (

) 101 | ( src: "images/jedi/workbench.png"))) 102 | ( name: project title: "Project" 103 | ( 104 | "Projects are workbench entities that contain source files and resources. " 105 | (

) 106 | "For every project, Jedi will build a full cross-reference database (its catalog) of every source file in that project. " 107 | (

) 108 | "You update your project's catalog either by using the 'Update Catalog' context menu item or through the 'Catalogs Manager' window found in the 'Tools' menu. " 109 | (

) 110 | "Once you catalog is up-to-date, you can:" 111 | ( 112 | "edit a symbol's definitions by using alt-period on it" 113 | "list all definitions that reference a certain symbol by pressing ctrl-alt-period on it") 114 | (

) 115 | "Note that projects can contain source code from any language. Jedi will only catalog the source files that it knows about. " 116 | (

) 117 | "At the moment the following languages are fully supported:" 118 | ( 119 | "Scheme" 120 | "JazzScheme" 121 | "CommonLisp") 122 | (

) 123 | "Those are partially supported:" 124 | ( 125 | "C" 126 | "C++" 127 | "Java" 128 | "Lua" 129 | "Python" 130 | "CSS"))) 131 | ( name: language-project title: "Language Specific Project" 132 | ( 133 | "In addition to plain projects, Jedi supports language specific projects that can be used to build and run code in that language. " 134 | (

) 135 | "Two languages are supported at the moment:" 136 | ( 137 | "Gambit (in development)" 138 | "Jazz")) 139 | ( name: configuration title: "Configuration" 140 | ()) 141 | ( name: build title: "Building" 142 | ()) 143 | ( name: test title: "Testing" 144 | ()) 145 | ( name: debug title: "Debugging" 146 | ()) 147 | ( name: run title: "Running" 148 | ()) 149 | ( name: gambit title: "Gambit Development" 150 | ()) 151 | ( name: jazz title: "Jazz Development" 152 | ())) 153 | ( name: catalog title: "Catalog" 154 | ( 155 | "A catalog is a full cross-reference database of a set of source files. " 156 | "Catalogs can be created manually but the easiest way to manage catalogs is through projects as each project automatically creates a catalog of it's source files. " 157 | (

) 158 | "Note that a new profile comes with projects for all Jazz packages pre-installed in the workbench. " 159 | "An easy way to update the catalogs of all these projects is through the Catalogs Manager window that can be invoked using Tools / Catalogs / Catalogs Manager. " 160 | "In the catalog manager, if no project is selected, pressing the Update button will update all catalogs. " 161 | ( title: "Languages" 162 | "Languages supported at the moment:" 163 | ( 164 | "CommonLisp" 165 | "Scheme" 166 | "Jazz" 167 | "C (very basic)" 168 | "CSS (very basic)" 169 | "Java (very basic)" 170 | "JavaScript (very basic)" 171 | "Lua-Parser (very basic)" 172 | "Properties (very basic)" 173 | "Python (very basic)")) 174 | ( title: "Catalogs Manager" 175 | ( src: "images/jedi/catalogs_manager.png"))))) 176 | ( name: code title: "Source Code" 177 | ( name: text title: "Text" 178 | ( name: scrolling title: "Scrolling") 179 | ( name: coloring title: "Syntax Coloring") 180 | ( name: evaluating title: "Evaluating Code" 181 | ( 182 | "In a Jazz text, use ctrl-enter to evaluate the current definition. " 183 | "Note that Jazz will need to know to what debuggee to send the code for evaluation. " 184 | "You can right-click on any debuggee in the Processed window and select 'Focus' to focus this debuggee so it will be the one that gets the code evaluations. ")) 185 | ( name: cataloging title: "Cataloging Code" 186 | ) 187 | ( name: printing title: "Printing")) 188 | ( name: exploring title: "Exploring" 189 | () 190 | ( name: chapters title: "Chapters" 191 | ( 192 | ( src: "images/jedi/text_chapters.png"))) 193 | ( name: hierarchy title: "Hierarchy" 194 | ( 195 | ( src: "images/jedi/text_hierarchy.png"))) 196 | ( name: definitions title: "Find Definitions") 197 | ( name: references title: "Find References") 198 | ( name: history-navigation title: "History Navigation") 199 | ( name: class-browser title: "Class Browser" 200 | ( 201 | ( src: "images/jedi/class_browser.png")))) 202 | ( name: searching title: "Searching" 203 | ( name: incremental-search title: "Incremental Search") 204 | ( name: search title: "Search" 205 | ( 206 | ( 207 | "Multiple search & replace" 208 | "Preserve Case" 209 | "Textual macros on replace") 210 | ( title: "Text" 211 | ( src: "images/jedi/search_text.png")) 212 | ( title: "Directories" 213 | ( src: "images/jedi/search_directories.png")) 214 | ( title: "Projects" 215 | ( src: "images/jedi/search_projects.png")) 216 | ( title: "Results" 217 | ( src: "images/jedi/search_results.png")) 218 | ( title: "Shortcuts" 219 | ( class: "terminology" width: "400" 220 | ( ( ( ( (
"Shortcut") ( "Description") 221 | (
"Alt-W") ( "Toggle Whole Words")) 222 | (
"Alt-I") ( "Toggle Ignore Case")) 223 | (
"Alt-C") ( "Toggle Preserve Case")) 224 | (
"Alt-R") ( "Toggle Play Recording"))))))) 225 | ( name: editing title: "Editing" 226 | ( name: text-navigation title: "Navigation" 227 | ( 228 | ( 229 | "char" 230 | "word" 231 | "expression"))) 232 | ( name: clipboard-stack title: "Clipboard Stack") 233 | ( name: mouse-copy title: "Mouse Copy") 234 | ( name: completion title: "Symbol Completion") 235 | ( name: tabulation title: "Code Tabulation") 236 | ( name: recorder title: "Macro Recording") 237 | ( name: undo title: "Undo / Redo")) 238 | ( name: editing-lisp title: "Editing Lisp Code" 239 | ( name: outer title: "Select Outer Expression") 240 | ( name: flash title: "Flash Matching Character"))) 241 | ( name: debugging title: "Debugging" 242 | ( 243 | ( 244 | "debugger" 245 | "debuggee")) 246 | ( name: debugger title: "Debugger" 247 | ( 248 | "The Jazz debugger is a remote debugger. " 249 | "This means that the debugger will debug one or more remote 'debuggee' that are automatically connected to it via TCP/IP. " 250 | "Note that Jedi also a debuggee that is debugged by itself so that should an error occur inside the IDE, the debugger can be used to debug it. " 251 | (

) 252 | "A great advantage of remote debugging is that you are debugging your application exactly as itself with all its features: windows, menus, connections, ports, threads, ... instead of simulating inside the IDE it's various features. " 253 | "With a remote debugger it is even possible to debug a game running remotely on a gaming console. " 254 | (

) 255 | "The Jazz kernel supports debugging of Jazz code. " 256 | "But it really is a Gambit debugger and can be used to debug any Gambit code. " 257 | "All you need to do is create a product that will load your Gambit code and then run your product using the Debug command. " 258 | (

)) 259 | ( name: terminal title: "Terminal" 260 | ( 261 | ( src: "images/jedi/terminal.png") 262 | (

) 263 | "The terminal represent's Gambit console. " 264 | "The terminal name was choose to distinguish it from Jedi's own console. ")) 265 | ( name: console title: "Console" 266 | ( 267 | ( src: "images/jedi/debugger_console.png") 268 | (

) 269 | "The console is where the debuggee interact with the debugger usually through a read-eval-print loop. " 270 | (

) 271 | "Each thread that throws an exception will open it's own console and start a repl at that point. " 272 | (

) 273 | "Note that Jedi automatically opens a console when it starts to enable experimenting. " 274 | "Expression entered in that console are evaluation inside the IDE's primordial thread. " 275 | "Beware that if you built Jedi in release safety, Gambit's safe mode is disabled so that code entered in that console can crash the IDE. " 276 | ( title: "Evaluation Context") 277 | ( title: "Enclosing REPL"))) 278 | ( name: processes title: "Processes" 279 | ( 280 | ( src: "images/jedi/debugger_processes.png"))) 281 | ( name: threads title: "Threads" 282 | ( 283 | ( src: "images/jedi/debugger_threads.png"))) 284 | ( name: frames title: "Frames" 285 | ( 286 | ( src: "images/jedi/debugger_frames.png"))) 287 | ( name: detail title: "Detail" 288 | ( 289 | ( src: "images/jedi/debugger_detail.png"))) 290 | ( name: variables title: "Variables" 291 | ( 292 | ( src: "images/jedi/debugger_variables.png"))) 293 | ( name: inspector title: "Inspector" 294 | ( 295 | ( src: "images/jedi/inspector.png"))) 296 | ( name: view-explorer title: "View Explorer" 297 | ( 298 | ( src: "images/jedi/view_explorer.png"))) 299 | ( name: test-functions title: "Test Functions" 300 | ())) 301 | ( name: debuggee title: "Debuggee" 302 | ( name: restart title: "Restart" 303 | ( 304 | "Jazz supports a concept of restarts similar to CommonLisp. " 305 | "The debugger will automatically propose all restarts when displaying an exception or break point. ")) 306 | ( name: crash title: "Crash Handler" 307 | ()))) 308 | ( name: profiling title: "Profiling" 309 | ( 310 | ( src: "images/jedi/debugger_profiler.png")) 311 | ( name: profiler title: "Profiler")) 312 | ( name: collaborative-work title: "Collaborative Work" 313 | ( name: compare-directories title: "Compare Directories" 314 | ( 315 | ( src: "images/jedi/compare_directories.png"))) 316 | ( name: compare-files title: "Compare Files" 317 | ( 318 | ( src: "images/jedi/compare_files.png"))) 319 | ( name: capture title: "Screen Captures" 320 | ( 321 | ))) 322 | ( name: web title: "Web Development" 323 | ( 324 | ( src: "images/jedi/servers.png"))) 325 | ( name: user title: "User Preferences" 326 | ( name: launch title: "Launch Parameters" 327 | ( 328 | (

"Jedi supports the following launch parameters in addition to the ones supported by the kernel:") 329 | ( class: "terminology" width: "500" 330 | ( (
"Parameter") ( "Description") 331 | (
"/profile") ( "automatic profile name used for loggin"))) 332 | (

) 333 | (

"Example:") 334 | (

(

#"kernel.exe -run jedi -profile Guillaume"#)))) 335 | (<Section-Doc> name: profile title: "Profile" 336 | (<description> 337 | "A profile is a set of Jedi preferences. " 338 | (<p>) 339 | "Profiles are located inside the Profiles repository. " 340 | "For example, if a 'Me' profile is created, it will contain the following files: " 341 | (<p>) 342 | (<xmp> #"HOME 343 | .jazz 344 | .jazzini 345 | lib 346 | jedi.profiles 347 | profile 348 | Me 349 | _Me.jazz 350 | Me-Project.jazz 351 | settings 352 | Bindings.jml 353 | Preferences.jml 354 | Servers.jml 355 | Workbench.jml"#) 356 | (<p>) 357 | "The reason profiles reside inside a package is that they contain Jazz code. " 358 | "In the example above, the _Me.jazz unit contains a Me class that can be used to customize the IDE, experiment with code, ..." 359 | (<p>) 360 | "One nice way of using your profile is to test your code there is a very Lispish interactive fashion and when it is functional, migrate it to it's own unit. " 361 | )) 362 | (<Section-Doc> name: Settings 363 | (<Section-Doc> name: Preferences)))))) 364 | -------------------------------------------------------------------------------- /lib/jedi/jedi.project: -------------------------------------------------------------------------------- 1 | ;;;============== 2 | ;;; JazzScheme 3 | ;;;============== 4 | ;;; 5 | ;;;; Jedi Project 6 | ;;; 7 | 8 | 9 | (data jazz.debugger.jazz.data.project 10 | 11 | 12 | (form 13 | (<Jazz-Project> name: Jedi default-traits: Safety.Devel directory: {Directory :context "../.."} product: jedi 14 | (<Trait> name: Safety 15 | (<install>) 16 | (<Trait> name: Core 17 | (<install> configuration: "cache/core")) 18 | (<Trait> name: Devel 19 | (<install> configuration: "cache/develop")) 20 | (<Trait> name: Release 21 | (<install> configuration: "cache/release")))))) 22 | -------------------------------------------------------------------------------- /lib/jedi/resources/jedi.ico: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/jazzscheme/jedi/0ae4357fd4b8ea013a42415736340e37e2271b36/lib/jedi/resources/jedi.ico -------------------------------------------------------------------------------- /lib/jedi/resources/jedi.rc: -------------------------------------------------------------------------------- 1 | app ICON "jedi.ico" 2 | -------------------------------------------------------------------------------- /lib/jedi/src/jedi/_jedi.jazz: -------------------------------------------------------------------------------- 1 | ;;;============== 2 | ;;; JazzScheme 3 | ;;;============== 4 | ;;; 5 | ;;;; Jedi 6 | ;;; 7 | ;;; The contents of this file are subject to the Mozilla Public License Version 8 | ;;; 1.1 (the "License"); you may not use this file except in compliance with 9 | ;;; the License. You may obtain a copy of the License at 10 | ;;; http://www.mozilla.org/MPL/ 11 | ;;; 12 | ;;; Software distributed under the License is distributed on an "AS IS" basis, 13 | ;;; WITHOUT WARRANTY OF ANY KIND, either express or implied. See the License 14 | ;;; for the specific language governing rights and limitations under the 15 | ;;; License. 16 | ;;; 17 | ;;; The Original Code is JazzScheme. 18 | ;;; 19 | ;;; The Initial Developer of the Original Code is Guillaume Cartier. 20 | ;;; Portions created by the Initial Developer are Copyright (C) 1996-2015 21 | ;;; the Initial Developer. All Rights Reserved. 22 | ;;; 23 | ;;; Contributor(s): 24 | ;;; 25 | ;;; Alternatively, the contents of this file may be used under the terms of 26 | ;;; the GNU General Public License Version 2 or later (the "GPL"), in which 27 | ;;; case the provisions of the GPL are applicable instead of those above. If 28 | ;;; you wish to allow use of your version of this file only under the terms of 29 | ;;; the GPL, and not to allow others to use your version of this file under the 30 | ;;; terms of the MPL, indicate your decision by deleting the provisions above 31 | ;;; and replace them with the notice and other provisions required by the GPL. 32 | ;;; If you do not delete the provisions above, a recipient may use your version 33 | ;;; of this file under the terms of any one of the MPL or the GPL. 34 | ;;; 35 | ;;; See www.jazzscheme.org for details. 36 | 37 | 38 | (module jedi jazz 39 | 40 | 41 | (hub reload-documentation) 42 | 43 | 44 | (export (jedi.autoload)) 45 | 46 | (import (jazz.debugger) 47 | (jazz.presence)) 48 | 49 | 50 | ;;; 51 | ;;;; World 52 | ;;; 53 | 54 | 55 | (definition protected (collect-world-debuggees) 56 | (define (load-debuggee process) 57 | (load-object (get-remote-register process) 'world.debuggee 'world-debuggee)) 58 | 59 | (let ((server #f) 60 | (clients (new-queue)) 61 | (manager (get-debugger-manager))) 62 | (for-each-process manager 63 | (lambda (debugger debugged-process live? focused?) 64 | (let ((process (get-reference debugged-process))) 65 | (when (remote-proxy? process) 66 | (let ((kind ;; quick hack until server inherits from process 67 | ;; again so we can use runtime properties as before 68 | (if (ends-with? (get-title process) "-Server") 69 | 'server 70 | 'client) 71 | @wait (determine-process-property debugger process kind: #f))) 72 | (case kind 73 | ;@wait-windowless-server 74 | ((server) (set! server (load-debuggee process))) 75 | ((client) (enqueue clients (load-debuggee process))))))))) 76 | (values server (queue-list clients))))) 77 | -------------------------------------------------------------------------------- /lib/jedi/src/jedi/application/Jedi-Menubar.jazz: -------------------------------------------------------------------------------- 1 | ;;;============== 2 | ;;; JazzScheme 3 | ;;;============== 4 | ;;; 5 | ;;;; Jedi Menubar 6 | ;;; 7 | ;;; The contents of this file are subject to the Mozilla Public License Version 8 | ;;; 1.1 (the "License"); you may not use this file except in compliance with 9 | ;;; the License. You may obtain a copy of the License at 10 | ;;; http://www.mozilla.org/MPL/ 11 | ;;; 12 | ;;; Software distributed under the License is distributed on an "AS IS" basis, 13 | ;;; WITHOUT WARRANTY OF ANY KIND, either express or implied. See the License 14 | ;;; for the specific language governing rights and limitations under the 15 | ;;; License. 16 | ;;; 17 | ;;; The Original Code is JazzScheme. 18 | ;;; 19 | ;;; The Initial Developer of the Original Code is Guillaume Cartier. 20 | ;;; Portions created by the Initial Developer are Copyright (C) 1996-2015 21 | ;;; the Initial Developer. All Rights Reserved. 22 | ;;; 23 | ;;; Contributor(s): 24 | ;;; 25 | ;;; Alternatively, the contents of this file may be used under the terms of 26 | ;;; the GNU General Public License Version 2 or later (the "GPL"), in which 27 | ;;; case the provisions of the GPL are applicable instead of those above. If 28 | ;;; you wish to allow use of your version of this file only under the terms of 29 | ;;; the GPL, and not to allow others to use your version of this file under the 30 | ;;; terms of the MPL, indicate your decision by deleting the provisions above 31 | ;;; and replace them with the notice and other provisions required by the GPL. 32 | ;;; If you do not delete the provisions above, a recipient may use your version 33 | ;;; of this file under the terms of any one of the MPL or the GPL. 34 | ;;; 35 | ;;; See www.jazzscheme.org for details. 36 | 37 | 38 | (module protected jedi.application.Jedi-Menubar jazz 39 | 40 | 41 | (import (jazz.action) 42 | (jazz.ide.menu) 43 | (jazz.markup) 44 | (jazz.menu) 45 | (jazz.resource)) 46 | 47 | 48 | (class Jedi-Menubar extends Menubar 49 | 50 | 51 | ;;; 52 | ;;;; Host 53 | ;;; 54 | 55 | 56 | (method meta override (host-icon self) 57 | {Image-Resource "Document"}) 58 | 59 | 60 | (method meta override (host-title self) 61 | "Text") 62 | 63 | 64 | ;;; 65 | ;;;; Menubar 66 | ;;; 67 | 68 | 69 | (method override (install self rest) 70 | (nextmethod self rest) 71 | (with-update-locked self 72 | (lambda () 73 | (new Label-Item parent: self name: 'file content: (new IDE-File-Menu)) 74 | (new Label-Item parent: self name: 'edit content: (new IDE-Edit-Menu)) 75 | (new Label-Item parent: self name: 'source content: (new IDE-Source-Menu)) 76 | (new Label-Item parent: self name: 'recorder content: (new IDE-Recorder-Menu)) 77 | (new Label-Item parent: self name: 'search content: (new IDE-Search-Menu)) 78 | (new Label-Item parent: self name: 'project content: (new IDE-Project-Menu)) 79 | (new Label-Item parent: self name: 'debug content: (new IDE-Debug-Menu)) 80 | (new Label-Item parent: self name: 'tools content: (new IDE-Tools-Menu)) 81 | (new Label-Item parent: self name: 'workspace content: (new IDE-Workspace-Menu)) 82 | (new Label-Item parent: self name: 'view content: (new IDE-View-Menu)) 83 | (new Label-Item parent: self name: 'window content: (new IDE-Window-Menu)) 84 | (new Label-Item parent: self name: 'help content: (new Help-Menu)))))) 85 | 86 | 87 | ;;; 88 | ;;;; Help 89 | ;;; 90 | 91 | 92 | (class Help-Menu extends Menu 93 | 94 | 95 | (form 96 | (<install> title: "Help" 97 | (<Label-Item> title: "Readme" icon: {Image-Resource "Document"} action-handler: {Action jedi readme}) 98 | (<Separator-Item>) 99 | (<Label-Item> title: "About Jedi..." icon: {Image-Resource "About"} action-handler: {Action application about}))))) 100 | -------------------------------------------------------------------------------- /lib/jedi/src/jedi/application/Jedi-Status.jazz: -------------------------------------------------------------------------------- 1 | ;;;============== 2 | ;;; JazzScheme 3 | ;;;============== 4 | ;;; 5 | ;;;; Jedi Status 6 | ;;; 7 | ;;; The contents of this file are subject to the Mozilla Public License Version 8 | ;;; 1.1 (the "License"); you may not use this file except in compliance with 9 | ;;; the License. You may obtain a copy of the License at 10 | ;;; http://www.mozilla.org/MPL/ 11 | ;;; 12 | ;;; Software distributed under the License is distributed on an "AS IS" basis, 13 | ;;; WITHOUT WARRANTY OF ANY KIND, either express or implied. See the License 14 | ;;; for the specific language governing rights and limitations under the 15 | ;;; License. 16 | ;;; 17 | ;;; The Original Code is JazzScheme. 18 | ;;; 19 | ;;; The Initial Developer of the Original Code is Guillaume Cartier. 20 | ;;; Portions created by the Initial Developer are Copyright (C) 1996-2015 21 | ;;; the Initial Developer. All Rights Reserved. 22 | ;;; 23 | ;;; Contributor(s): 24 | ;;; 25 | ;;; Alternatively, the contents of this file may be used under the terms of 26 | ;;; the GNU General Public License Version 2 or later (the "GPL"), in which 27 | ;;; case the provisions of the GPL are applicable instead of those above. If 28 | ;;; you wish to allow use of your version of this file only under the terms of 29 | ;;; the GPL, and not to allow others to use your version of this file under the 30 | ;;; terms of the MPL, indicate your decision by deleting the provisions above 31 | ;;; and replace them with the notice and other provisions required by the GPL. 32 | ;;; If you do not delete the provisions above, a recipient may use your version 33 | ;;; of this file under the terms of any one of the MPL or the GPL. 34 | ;;; 35 | ;;; See www.jazzscheme.org for details. 36 | 37 | 38 | (module protected jedi.application.Jedi-Status jazz 39 | 40 | 41 | (import (jazz.ide)) 42 | 43 | 44 | (class Jedi-Status extends IDE-Status)) 45 | -------------------------------------------------------------------------------- /lib/jedi/src/jedi/application/Jedi-Toolbar.jazz: -------------------------------------------------------------------------------- 1 | ;;;============== 2 | ;;; JazzScheme 3 | ;;;============== 4 | ;;; 5 | ;;;; Jedi Toolbar 6 | ;;; 7 | ;;; The contents of this file are subject to the Mozilla Public License Version 8 | ;;; 1.1 (the "License"); you may not use this file except in compliance with 9 | ;;; the License. You may obtain a copy of the License at 10 | ;;; http://www.mozilla.org/MPL/ 11 | ;;; 12 | ;;; Software distributed under the License is distributed on an "AS IS" basis, 13 | ;;; WITHOUT WARRANTY OF ANY KIND, either express or implied. See the License 14 | ;;; for the specific language governing rights and limitations under the 15 | ;;; License. 16 | ;;; 17 | ;;; The Original Code is JazzScheme. 18 | ;;; 19 | ;;; The Initial Developer of the Original Code is Guillaume Cartier. 20 | ;;; Portions created by the Initial Developer are Copyright (C) 1996-2015 21 | ;;; the Initial Developer. All Rights Reserved. 22 | ;;; 23 | ;;; Contributor(s): 24 | ;;; 25 | ;;; Alternatively, the contents of this file may be used under the terms of 26 | ;;; the GNU General Public License Version 2 or later (the "GPL"), in which 27 | ;;; case the provisions of the GPL are applicable instead of those above. If 28 | ;;; you wish to allow use of your version of this file only under the terms of 29 | ;;; the GPL, and not to allow others to use your version of this file under the 30 | ;;; terms of the MPL, indicate your decision by deleting the provisions above 31 | ;;; and replace them with the notice and other provisions required by the GPL. 32 | ;;; If you do not delete the provisions above, a recipient may use your version 33 | ;;; of this file under the terms of any one of the MPL or the GPL. 34 | ;;; 35 | ;;; See www.jazzscheme.org for details. 36 | 37 | 38 | (module protected jedi.application.Jedi-Toolbar jazz 39 | 40 | 41 | (import (jazz.action) 42 | (jazz.handler) 43 | (jazz.ide) 44 | (jazz.layout) 45 | (jazz.markup) 46 | (jazz.resource) 47 | (jazz.ui)) 48 | 49 | 50 | (class Jedi-Toolbar extends IDE-Toolbar 51 | 52 | 53 | (form 54 | (<install> 55 | (<Action-Icon> name: new tooltip-text: "New" resource: {Image-Resource "New"} action-handler: {Action application new}) 56 | (<Action-Icon> name: open tooltip-text: "Open" resource: {Image-Resource "Open"} action-handler: {Action application open}) 57 | (<Action-Icon> name: save tooltip-text: "Save" resource: {Image-Resource "Save"} action-handler: {Action guest save}) 58 | (<Separator>) 59 | (<Action-Icon> name: print tooltip-text: "Print" resource: {Image-Resource "Print"} action-handler: {Action application print}) 60 | (<Action-Icon> name: print-layout tooltip-text: "Print Layout" resource: {Image-Resource "PrintLayout"} action-handler: {Action application print-layout}) 61 | (<Action-Icon> name: print-preview tooltip-text: "Print Preview" resource: {Image-Resource "PrintPreview"} action-handler: {Action application print-preview}) 62 | (<Separator> size: {Dimension 4 0}) 63 | (<Action-Icon> name: cut tooltip-text: "Cut" resource: {Image-Resource "Cut"} action-handler: {Action view cut}) 64 | (<Action-Icon> name: copy tooltip-text: "Copy" resource: {Image-Resource "Copy"} action-handler: {Action view copy}) 65 | (<Action-Icon> name: paste tooltip-text: "Paste" resource: {Image-Resource "Paste"} action-handler: {Action view paste} context-menu-handler: {Event-Handler :form on-clipboard-menu}) 66 | (<Separator>) 67 | (<Action-Icon> name: undo tooltip-text: "Undo" resource: {Image-Resource "Undo"} action-handler: {Action view undo}) 68 | (<Action-Icon> name: redo tooltip-text: "Redo" resource: {Image-Resource "Redo"} action-handler: {Action view redo}) 69 | (<Separator>) 70 | (<Action-Icon> name: find tooltip-text: "Find" resource: {Image-Resource "Find"} action-handler: {Event-Handler :search on-find :preserve-domain? #t}) 71 | (<Separator>) 72 | (<Action-Icon> name: compare-directories tooltip-text: "Compare Directories" resource: {Image-Resource "CompareDirectories"} action-handler: {Action ide compare-directories}) 73 | (<Action-Icon> name: compare-files tooltip-text: "Compare Files" resource: {Image-Resource "CompareFiles"} action-handler: {Event-Handler :application on-compare-files}) 74 | (<Separator>) 75 | (<Push-Combo> name: backward action-handler: {Action application backward-history} 76 | (<!> name: body resource: {Image-Resource "Backward"} tooltip-text: "Backward in History" action-handler: {Action application backward-history}) 77 | (<!> name: pick action-handler: {Event-Handler :form on-backward-menu})) 78 | (<Separator> size: {Dimension 1 0}) 79 | (<Push-Combo> name: forward action-handler: {Action application forward-history} 80 | (<!> name: body resource: {Image-Resource "Forward"} tooltip-text: "Forward in History" action-handler: {Action application forward-history}) 81 | (<!> name: pick action-handler: {Event-Handler :form on-forward-menu})) 82 | (<Separator> size: {Dimension 16 0} location: tail) 83 | (<Separator> name: tail-separator size: {Dimension 3 0} location: tail))) 84 | 85 | 86 | ;;; 87 | ;;;; Host 88 | ;;; 89 | 90 | 91 | (method meta override (host-icon self) 92 | {Image-Resource "Document"}) 93 | 94 | 95 | (method meta override (host-title self) 96 | "Jedi"))) 97 | -------------------------------------------------------------------------------- /lib/jedi/src/jedi/application/Jedi-Toplevel.jazz: -------------------------------------------------------------------------------- 1 | ;;;============== 2 | ;;; JazzScheme 3 | ;;;============== 4 | ;;; 5 | ;;;; Jedi Toplevel 6 | ;;; 7 | ;;; The contents of this file are subject to the Mozilla Public License Version 8 | ;;; 1.1 (the "License"); you may not use this file except in compliance with 9 | ;;; the License. You may obtain a copy of the License at 10 | ;;; http://www.mozilla.org/MPL/ 11 | ;;; 12 | ;;; Software distributed under the License is distributed on an "AS IS" basis, 13 | ;;; WITHOUT WARRANTY OF ANY KIND, either express or implied. See the License 14 | ;;; for the specific language governing rights and limitations under the 15 | ;;; License. 16 | ;;; 17 | ;;; The Original Code is JazzScheme. 18 | ;;; 19 | ;;; The Initial Developer of the Original Code is Guillaume Cartier. 20 | ;;; Portions created by the Initial Developer are Copyright (C) 1996-2015 21 | ;;; the Initial Developer. All Rights Reserved. 22 | ;;; 23 | ;;; Contributor(s): 24 | ;;; 25 | ;;; Alternatively, the contents of this file may be used under the terms of 26 | ;;; the GNU General Public License Version 2 or later (the "GPL"), in which 27 | ;;; case the provisions of the GPL are applicable instead of those above. If 28 | ;;; you wish to allow use of your version of this file only under the terms of 29 | ;;; the GPL, and not to allow others to use your version of this file under the 30 | ;;; terms of the MPL, indicate your decision by deleting the provisions above 31 | ;;; and replace them with the notice and other provisions required by the GPL. 32 | ;;; If you do not delete the provisions above, a recipient may use your version 33 | ;;; of this file under the terms of any one of the MPL or the GPL. 34 | ;;; 35 | ;;; See www.jazzscheme.org for details. 36 | 37 | 38 | (module protected jedi.application.Jedi-Toplevel jazz 39 | 40 | 41 | (import (jazz.ide) 42 | (jazz.markup)) 43 | 44 | 45 | (class Jedi-Toplevel extends IDE-Toplevel 46 | 47 | 48 | (form 49 | (<install> caption-base: "Jedi" position: {Point 75 75} size: {Dimension 1200 800})))) 50 | -------------------------------------------------------------------------------- /lib/jedi/src/jedi/autoload.jazz: -------------------------------------------------------------------------------- 1 | ;;;============== 2 | ;;; JazzScheme 3 | ;;;============== 4 | ;;; 5 | ;;;; Jedi Autoload 6 | ;;; 7 | ;;; The contents of this file are subject to the Mozilla Public License Version 8 | ;;; 1.1 (the "License"); you may not use this file except in compliance with 9 | ;;; the License. You may obtain a copy of the License at 10 | ;;; http://www.mozilla.org/MPL/ 11 | ;;; 12 | ;;; Software distributed under the License is distributed on an "AS IS" basis, 13 | ;;; WITHOUT WARRANTY OF ANY KIND, either express or implied. See the License 14 | ;;; for the specific language governing rights and limitations under the 15 | ;;; License. 16 | ;;; 17 | ;;; The Original Code is JazzScheme. 18 | ;;; 19 | ;;; The Initial Developer of the Original Code is Guillaume Cartier. 20 | ;;; Portions created by the Initial Developer are Copyright (C) 1996-2015 21 | ;;; the Initial Developer. All Rights Reserved. 22 | ;;; 23 | ;;; Contributor(s): 24 | ;;; 25 | ;;; Alternatively, the contents of this file may be used under the terms of 26 | ;;; the GNU General Public License Version 2 or later (the "GPL"), in which 27 | ;;; case the provisions of the GPL are applicable instead of those above. If 28 | ;;; you wish to allow use of your version of this file only under the terms of 29 | ;;; the GPL, and not to allow others to use your version of this file under the 30 | ;;; terms of the MPL, indicate your decision by deleting the provisions above 31 | ;;; and replace them with the notice and other provisions required by the GPL. 32 | ;;; If you do not delete the provisions above, a recipient may use your version 33 | ;;; of this file under the terms of any one of the MPL or the GPL. 34 | ;;; 35 | ;;; See www.jazzscheme.org for details. 36 | 37 | 38 | (module protected jedi.autoload jazz 39 | 40 | 41 | (export 42 | (jedi.application.Jedi-Application (autoload Jedi-Application)) 43 | (jedi.application.Jedi-Menubar (autoload Jedi-Menubar)) 44 | (jedi.application.Jedi-Status (autoload Jedi-Status)) 45 | (jedi.application.Jedi-Toolbar (autoload Jedi-Toolbar)) 46 | (jedi.application.Jedi-Toplevel (autoload Jedi-Toplevel)) 47 | (jedi.live.Live-Properties (autoload Live-Properties)) 48 | (jedi.live.Live-Properties-Manager (autoload Live-Properties-Manager)) 49 | (jedi.live.Live-Style (autoload Live-Style)) 50 | (jedi.preference.Jedi-Actions (autoload Jedi-Actions)) 51 | (jedi.preference.Jedi-Bindings (autoload Jedi-Bindings)) 52 | (jedi.preference.Jedi-Preferences (autoload Jedi-Preferences)) 53 | (jedi.profile.Jedi-Profile (autoload Jedi-Profile)) 54 | (jedi.search.Jedi-Search (autoload Jedi-Search)))) 55 | -------------------------------------------------------------------------------- /lib/jedi/src/jedi/data/bindings.jazz: -------------------------------------------------------------------------------- 1 | ;;;============== 2 | ;;; JazzScheme 3 | ;;;============== 4 | ;;; 5 | ;;;; Bindings Data 6 | ;;; 7 | ;;; The contents of this file are subject to the Mozilla Public License Version 8 | ;;; 1.1 (the "License"); you may not use this file except in compliance with 9 | ;;; the License. You may obtain a copy of the License at 10 | ;;; http://www.mozilla.org/MPL/ 11 | ;;; 12 | ;;; Software distributed under the License is distributed on an "AS IS" basis, 13 | ;;; WITHOUT WARRANTY OF ANY KIND, either express or implied. See the License 14 | ;;; for the specific language governing rights and limitations under the 15 | ;;; License. 16 | ;;; 17 | ;;; The Original Code is JazzScheme. 18 | ;;; 19 | ;;; The Initial Developer of the Original Code is Guillaume Cartier. 20 | ;;; Portions created by the Initial Developer are Copyright (C) 1996-2015 21 | ;;; the Initial Developer. All Rights Reserved. 22 | ;;; 23 | ;;; Contributor(s): 24 | ;;; 25 | ;;; Alternatively, the contents of this file may be used under the terms of 26 | ;;; the GNU General Public License Version 2 or later (the "GPL"), in which 27 | ;;; case the provisions of the GPL are applicable instead of those above. If 28 | ;;; you wish to allow use of your version of this file only under the terms of 29 | ;;; the GPL, and not to allow others to use your version of this file under the 30 | ;;; terms of the MPL, indicate your decision by deleting the provisions above 31 | ;;; and replace them with the notice and other provisions required by the GPL. 32 | ;;; If you do not delete the provisions above, a recipient may use your version 33 | ;;; of this file under the terms of any one of the MPL or the GPL. 34 | ;;; 35 | ;;; See www.jazzscheme.org for details. 36 | 37 | 38 | (module jedi.data.bindings jazz 39 | 40 | 41 | (export (jazz.ui) 42 | (jedi))) 43 | -------------------------------------------------------------------------------- /lib/jedi/src/jedi/data/preferences.jazz: -------------------------------------------------------------------------------- 1 | ;;;============== 2 | ;;; JazzScheme 3 | ;;;============== 4 | ;;; 5 | ;;;; Preferences Data 6 | ;;; 7 | ;;; The contents of this file are subject to the Mozilla Public License Version 8 | ;;; 1.1 (the "License"); you may not use this file except in compliance with 9 | ;;; the License. You may obtain a copy of the License at 10 | ;;; http://www.mozilla.org/MPL/ 11 | ;;; 12 | ;;; Software distributed under the License is distributed on an "AS IS" basis, 13 | ;;; WITHOUT WARRANTY OF ANY KIND, either express or implied. See the License 14 | ;;; for the specific language governing rights and limitations under the 15 | ;;; License. 16 | ;;; 17 | ;;; The Original Code is JazzScheme. 18 | ;;; 19 | ;;; The Initial Developer of the Original Code is Guillaume Cartier. 20 | ;;; Portions created by the Initial Developer are Copyright (C) 1996-2015 21 | ;;; the Initial Developer. All Rights Reserved. 22 | ;;; 23 | ;;; Contributor(s): 24 | ;;; 25 | ;;; Alternatively, the contents of this file may be used under the terms of 26 | ;;; the GNU General Public License Version 2 or later (the "GPL"), in which 27 | ;;; case the provisions of the GPL are applicable instead of those above. If 28 | ;;; you wish to allow use of your version of this file only under the terms of 29 | ;;; the GPL, and not to allow others to use your version of this file under the 30 | ;;; terms of the MPL, indicate your decision by deleting the provisions above 31 | ;;; and replace them with the notice and other provisions required by the GPL. 32 | ;;; If you do not delete the provisions above, a recipient may use your version 33 | ;;; of this file under the terms of any one of the MPL or the GPL. 34 | ;;; 35 | ;;; See www.jazzscheme.org for details. 36 | 37 | 38 | (module jedi.data.preferences jazz 39 | 40 | 41 | (export (jedi) 42 | (jazz.application) 43 | (jazz.component) 44 | (jazz.groupware) 45 | (jazz.ui))) 46 | -------------------------------------------------------------------------------- /lib/jedi/src/jedi/data/workspaces.jazz: -------------------------------------------------------------------------------- 1 | ;;;============== 2 | ;;; JazzScheme 3 | ;;;============== 4 | ;;; 5 | ;;;; Workspaces Data 6 | ;;; 7 | ;;; The contents of this file are subject to the Mozilla Public License Version 8 | ;;; 1.1 (the "License"); you may not use this file except in compliance with 9 | ;;; the License. You may obtain a copy of the License at 10 | ;;; http://www.mozilla.org/MPL/ 11 | ;;; 12 | ;;; Software distributed under the License is distributed on an "AS IS" basis, 13 | ;;; WITHOUT WARRANTY OF ANY KIND, either express or implied. See the License 14 | ;;; for the specific language governing rights and limitations under the 15 | ;;; License. 16 | ;;; 17 | ;;; The Original Code is JazzScheme. 18 | ;;; 19 | ;;; The Initial Developer of the Original Code is Guillaume Cartier. 20 | ;;; Portions created by the Initial Developer are Copyright (C) 1996-2015 21 | ;;; the Initial Developer. All Rights Reserved. 22 | ;;; 23 | ;;; Contributor(s): 24 | ;;; 25 | ;;; Alternatively, the contents of this file may be used under the terms of 26 | ;;; the GNU General Public License Version 2 or later (the "GPL"), in which 27 | ;;; case the provisions of the GPL are applicable instead of those above. If 28 | ;;; you wish to allow use of your version of this file only under the terms of 29 | ;;; the GPL, and not to allow others to use your version of this file under the 30 | ;;; terms of the MPL, indicate your decision by deleting the provisions above 31 | ;;; and replace them with the notice and other provisions required by the GPL. 32 | ;;; If you do not delete the provisions above, a recipient may use your version 33 | ;;; of this file under the terms of any one of the MPL or the GPL. 34 | ;;; 35 | ;;; See www.jazzscheme.org for details. 36 | 37 | 38 | (module jedi.data.workspaces jazz 39 | 40 | 41 | (export (jedi))) 42 | -------------------------------------------------------------------------------- /lib/jedi/src/jedi/debugger/_debugger.jazz: -------------------------------------------------------------------------------- 1 | ;;;============== 2 | ;;; JazzScheme 3 | ;;;============== 4 | ;;; 5 | ;;;; Jedi Debugger 6 | ;;; 7 | ;;; The contents of this file are subject to the Mozilla Public License Version 8 | ;;; 1.1 (the "License"); you may not use this file except in compliance with 9 | ;;; the License. You may obtain a copy of the License at 10 | ;;; http://www.mozilla.org/MPL/ 11 | ;;; 12 | ;;; Software distributed under the License is distributed on an "AS IS" basis, 13 | ;;; WITHOUT WARRANTY OF ANY KIND, either express or implied. See the License 14 | ;;; for the specific language governing rights and limitations under the 15 | ;;; License. 16 | ;;; 17 | ;;; The Original Code is JazzScheme. 18 | ;;; 19 | ;;; The Initial Developer of the Original Code is Guillaume Cartier. 20 | ;;; Portions created by the Initial Developer are Copyright (C) 1996-2015 21 | ;;; the Initial Developer. All Rights Reserved. 22 | ;;; 23 | ;;; Contributor(s): 24 | ;;; 25 | ;;; Alternatively, the contents of this file may be used under the terms of 26 | ;;; the GNU General Public License Version 2 or later (the "GPL"), in which 27 | ;;; case the provisions of the GPL are applicable instead of those above. If 28 | ;;; you wish to allow use of your version of this file only under the terms of 29 | ;;; the GPL, and not to allow others to use your version of this file under the 30 | ;;; terms of the MPL, indicate your decision by deleting the provisions above 31 | ;;; and replace them with the notice and other provisions required by the GPL. 32 | ;;; If you do not delete the provisions above, a recipient may use your version 33 | ;;; of this file under the terms of any one of the MPL or the GPL. 34 | ;;; 35 | ;;; See www.jazzscheme.org for details. 36 | 37 | 38 | (module jedi.debugger jazz 39 | 40 | 41 | (import (jazz.presence) 42 | (jedi.debugger.implementation) 43 | (jedi.debugger.stub)) 44 | 45 | 46 | (definition public (make-jedi-debugger) 47 | (new Jedi-Debugger-Local-Proxy (require-presence 'debugging) (new Jedi-Debugger))) 48 | 49 | 50 | (register-object (get-local-register 'debugging) 'jedi-debugger (make-jedi-debugger))) 51 | -------------------------------------------------------------------------------- /lib/jedi/src/jedi/debugger/implementation.jazz: -------------------------------------------------------------------------------- 1 | ;;;============== 2 | ;;; JazzScheme 3 | ;;;============== 4 | ;;; 5 | ;;;; Jedi Debugger Implementation 6 | ;;; 7 | ;;; The contents of this file are subject to the Mozilla Public License Version 8 | ;;; 1.1 (the "License"); you may not use this file except in compliance with 9 | ;;; the License. You may obtain a copy of the License at 10 | ;;; http://www.mozilla.org/MPL/ 11 | ;;; 12 | ;;; Software distributed under the License is distributed on an "AS IS" basis, 13 | ;;; WITHOUT WARRANTY OF ANY KIND, either express or implied. See the License 14 | ;;; for the specific language governing rights and limitations under the 15 | ;;; License. 16 | ;;; 17 | ;;; The Original Code is JazzScheme. 18 | ;;; 19 | ;;; The Initial Developer of the Original Code is Guillaume Cartier. 20 | ;;; Portions created by the Initial Developer are Copyright (C) 1996-2015 21 | ;;; the Initial Developer. All Rights Reserved. 22 | ;;; 23 | ;;; Contributor(s): 24 | ;;; 25 | ;;; Alternatively, the contents of this file may be used under the terms of 26 | ;;; the GNU General Public License Version 2 or later (the "GPL"), in which 27 | ;;; case the provisions of the GPL are applicable instead of those above. If 28 | ;;; you wish to allow use of your version of this file only under the terms of 29 | ;;; the GPL, and not to allow others to use your version of this file under the 30 | ;;; terms of the MPL, indicate your decision by deleting the provisions above 31 | ;;; and replace them with the notice and other provisions required by the GPL. 32 | ;;; If you do not delete the provisions above, a recipient may use your version 33 | ;;; of this file under the terms of any one of the MPL or the GPL. 34 | ;;; 35 | ;;; See www.jazzscheme.org for details. 36 | 37 | 38 | (module jedi.debugger.implementation jazz 39 | 40 | 41 | (import (jazz.application) 42 | (jazz.event)) 43 | 44 | 45 | (class Jedi-Debugger extends Object 46 | 47 | 48 | (method public (show-properties self debuggee class properties) 49 | (send-event 50 | (lambda () 51 | (show-properties (current-application) debuggee class properties)))) 52 | 53 | 54 | (method public (live-jedi/world self debuggee) 55 | (send-event 56 | (lambda () 57 | (live-jedi/world (current-application) debuggee)))) 58 | 59 | 60 | (method public (design-jedi/world self debuggee) 61 | (send-event 62 | (lambda () 63 | (design-jedi/world (current-application) debuggee)))) 64 | 65 | 66 | (method public (restore-jedi/world self debuggee) 67 | (send-event 68 | (lambda () 69 | (restore-jedi/world (current-application) debuggee)))))) 70 | -------------------------------------------------------------------------------- /lib/jedi/src/jedi/debugger/stub.jazz: -------------------------------------------------------------------------------- 1 | ;;;============== 2 | ;;; JazzScheme 3 | ;;;============== 4 | ;;; 5 | ;;;; Jedi Debugger Stub 6 | ;;; 7 | ;;; The contents of this file are subject to the Mozilla Public License Version 8 | ;;; 1.1 (the "License"); you may not use this file except in compliance with 9 | ;;; the License. You may obtain a copy of the License at 10 | ;;; http://www.mozilla.org/MPL/ 11 | ;;; 12 | ;;; Software distributed under the License is distributed on an "AS IS" basis, 13 | ;;; WITHOUT WARRANTY OF ANY KIND, either express or implied. See the License 14 | ;;; for the specific language governing rights and limitations under the 15 | ;;; License. 16 | ;;; 17 | ;;; The Original Code is JazzScheme. 18 | ;;; 19 | ;;; The Initial Developer of the Original Code is Guillaume Cartier. 20 | ;;; Portions created by the Initial Developer are Copyright (C) 1996-2015 21 | ;;; the Initial Developer. All Rights Reserved. 22 | ;;; 23 | ;;; Contributor(s): 24 | ;;; 25 | ;;; Alternatively, the contents of this file may be used under the terms of 26 | ;;; the GNU General Public License Version 2 or later (the "GPL"), in which 27 | ;;; case the provisions of the GPL are applicable instead of those above. If 28 | ;;; you wish to allow use of your version of this file only under the terms of 29 | ;;; the GPL, and not to allow others to use your version of this file under the 30 | ;;; terms of the MPL, indicate your decision by deleting the provisions above 31 | ;;; and replace them with the notice and other provisions required by the GPL. 32 | ;;; If you do not delete the provisions above, a recipient may use your version 33 | ;;; of this file under the terms of any one of the MPL or the GPL. 34 | ;;; 35 | ;;; See www.jazzscheme.org for details. 36 | 37 | 38 | (module jedi.debugger.stub jazz 39 | 40 | 41 | (import (jazz.presence.syntax (phase syntax)) 42 | (jazz.presence)) 43 | 44 | 45 | (remotable-stub Jedi-Debugger 46 | 47 | 48 | (method public post (show-properties self debuggee class properties)) 49 | (method public post (live-jedi/world self debuggee)) 50 | (method public post (design-jedi/world self debuggee)) 51 | (method public post (restore-jedi/world self debuggee)))) 52 | -------------------------------------------------------------------------------- /lib/jedi/src/jedi/install.scm: -------------------------------------------------------------------------------- 1 | ;;;============== 2 | ;;; JazzScheme 3 | ;;;============== 4 | ;;; 5 | ;;;; Jedi Install 6 | ;;; 7 | ;;; The contents of this file are subject to the Mozilla Public License Version 8 | ;;; 1.1 (the "License"); you may not use this file except in compliance with 9 | ;;; the License. You may obtain a copy of the License at 10 | ;;; http://www.mozilla.org/MPL/ 11 | ;;; 12 | ;;; Software distributed under the License is distributed on an "AS IS" basis, 13 | ;;; WITHOUT WARRANTY OF ANY KIND, either express or implied. See the License 14 | ;;; for the specific language governing rights and limitations under the 15 | ;;; License. 16 | ;;; 17 | ;;; The Original Code is JazzScheme. 18 | ;;; 19 | ;;; The Initial Developer of the Original Code is Guillaume Cartier. 20 | ;;; Portions created by the Initial Developer are Copyright (C) 1996-2015 21 | ;;; the Initial Developer. All Rights Reserved. 22 | ;;; 23 | ;;; Contributor(s): 24 | ;;; 25 | ;;; Alternatively, the contents of this file may be used under the terms of 26 | ;;; the GNU General Public License Version 2 or later (the "GPL"), in which 27 | ;;; case the provisions of the GPL are applicable instead of those above. If 28 | ;;; you wish to allow use of your version of this file only under the terms of 29 | ;;; the GPL, and not to allow others to use your version of this file under the 30 | ;;; terms of the MPL, indicate your decision by deleting the provisions above 31 | ;;; and replace them with the notice and other provisions required by the GPL. 32 | ;;; If you do not delete the provisions above, a recipient may use your version 33 | ;;; of this file under the terms of any one of the MPL or the GPL. 34 | ;;; 35 | ;;; See www.jazzscheme.org for details. 36 | 37 | 38 | (unit jedi.install 39 | 40 | 41 | (jazz:register-service 'workbench 'jedi.services)) 42 | -------------------------------------------------------------------------------- /lib/jedi/src/jedi/live/Live-Properties-Manager.jazz: -------------------------------------------------------------------------------- 1 | ;;;============== 2 | ;;; JazzScheme 3 | ;;;============== 4 | ;;; 5 | ;;;; Live Properties Manager 6 | ;;; 7 | ;;; The contents of this file are subject to the Mozilla Public License Version 8 | ;;; 1.1 (the "License"); you may not use this file except in compliance with 9 | ;;; the License. You may obtain a copy of the License at 10 | ;;; http://www.mozilla.org/MPL/ 11 | ;;; 12 | ;;; Software distributed under the License is distributed on an "AS IS" basis, 13 | ;;; WITHOUT WARRANTY OF ANY KIND, either express or implied. See the License 14 | ;;; for the specific language governing rights and limitations under the 15 | ;;; License. 16 | ;;; 17 | ;;; The Original Code is JazzScheme. 18 | ;;; 19 | ;;; The Initial Developer of the Original Code is Guillaume Cartier. 20 | ;;; Portions created by the Initial Developer are Copyright (C) 1996-2015 21 | ;;; the Initial Developer. All Rights Reserved. 22 | ;;; 23 | ;;; Contributor(s): 24 | ;;; 25 | ;;; Alternatively, the contents of this file may be used under the terms of 26 | ;;; the GNU General Public License Version 2 or later (the "GPL"), in which 27 | ;;; case the provisions of the GPL are applicable instead of those above. If 28 | ;;; you wish to allow use of your version of this file only under the terms of 29 | ;;; the GPL, and not to allow others to use your version of this file under the 30 | ;;; terms of the MPL, indicate your decision by deleting the provisions above 31 | ;;; and replace them with the notice and other provisions required by the GPL. 32 | ;;; If you do not delete the provisions above, a recipient may use your version 33 | ;;; of this file under the terms of any one of the MPL or the GPL. 34 | ;;; 35 | ;;; See www.jazzscheme.org for details. 36 | 37 | 38 | (module protected jedi.live.Live-Properties-Manager jazz 39 | 40 | 41 | (import (jazz.markup) 42 | (jazz.resource) 43 | (jazz.ui) 44 | (jedi)) 45 | 46 | 47 | (class undocumented Live-Properties-Manager extends Layout-View 48 | 49 | 50 | (form 51 | (<install> layout-type: border 52 | (<Layout-View> name: tools) 53 | (<Scroller-View> name: scroller location: center style: document hscroll?: #t vscroll?: #t 54 | (<!> name: content layout-type: fill 55 | (<Live-Properties> name: text))))) 56 | 57 | 58 | (method meta override (external-name self . rest) 59 | 'Live-Properties) 60 | 61 | 62 | ;;; 63 | ;;;; Access 64 | ;;; 65 | 66 | 67 | (method public (get-text self) 68 | (locate self 'text)) 69 | 70 | 71 | ;;; 72 | ;;;; Host 73 | ;;; 74 | 75 | 76 | (method meta override (host-icon self) 77 | {Image-Resource "Properties"}) 78 | 79 | 80 | (method meta override (host-title self) 81 | "Properties") 82 | 83 | 84 | ;;; 85 | ;;;; Docked 86 | ;;; 87 | 88 | 89 | (method override (focus-default self) 90 | (let ((text (get-text self))) 91 | (acquire-focus text))) 92 | 93 | 94 | (method override (get-tools-view self) 95 | (locate self 'tools)) 96 | 97 | 98 | ;;; 99 | ;;;; Actions 100 | ;;; 101 | 102 | 103 | @wait 104 | (method override (guest-actions self) 105 | (cons (find-actions 'live-properties-manager) 106 | (nextmethod self))))) 107 | -------------------------------------------------------------------------------- /lib/jedi/src/jedi/live/Live-Properties.jazz: -------------------------------------------------------------------------------- 1 | ;;;============== 2 | ;;; JazzScheme 3 | ;;;============== 4 | ;;; 5 | ;;;; Live Properties 6 | ;;; 7 | ;;; The contents of this file are subject to the Mozilla Public License Version 8 | ;;; 1.1 (the "License"); you may not use this file except in compliance with 9 | ;;; the License. You may obtain a copy of the License at 10 | ;;; http://www.mozilla.org/MPL/ 11 | ;;; 12 | ;;; Software distributed under the License is distributed on an "AS IS" basis, 13 | ;;; WITHOUT WARRANTY OF ANY KIND, either express or implied. See the License 14 | ;;; for the specific language governing rights and limitations under the 15 | ;;; License. 16 | ;;; 17 | ;;; The Original Code is JazzScheme. 18 | ;;; 19 | ;;; The Initial Developer of the Original Code is Guillaume Cartier. 20 | ;;; Portions created by the Initial Developer are Copyright (C) 1996-2015 21 | ;;; the Initial Developer. All Rights Reserved. 22 | ;;; 23 | ;;; Contributor(s): 24 | ;;; 25 | ;;; Alternatively, the contents of this file may be used under the terms of 26 | ;;; the GNU General Public License Version 2 or later (the "GPL"), in which 27 | ;;; case the provisions of the GPL are applicable instead of those above. If 28 | ;;; you wish to allow use of your version of this file only under the terms of 29 | ;;; the GPL, and not to allow others to use your version of this file under the 30 | ;;; terms of the MPL, indicate your decision by deleting the provisions above 31 | ;;; and replace them with the notice and other provisions required by the GPL. 32 | ;;; If you do not delete the provisions above, a recipient may use your version 33 | ;;; of this file under the terms of any one of the MPL or the GPL. 34 | ;;; 35 | ;;; See www.jazzscheme.org for details. 36 | 37 | 38 | (module protected jedi.live.Live-Properties jazz 39 | 40 | 41 | (import (jazz.event) 42 | (jazz.graphic) 43 | (jazz.handler) 44 | (jazz.text) 45 | (jedi) 46 | (jedi.live) 47 | (jazz.window)) 48 | 49 | 50 | (class undocumented Live-Properties extends Formatted-Text-View 51 | 52 | 53 | (method override (new-model self) 54 | (new Formatted-Text-Model base-style: {Text-Style font: {Font Label}})) 55 | 56 | 57 | (method override (install self rest) 58 | (nextmethod self rest) 59 | ;; Formats 60 | (add-format self 'Heading1 {Format Base keep-with-next?: #t}) 61 | (add-format self 'Heading2 {Format Base keep-with-next?: #t}) 62 | (add-format self 'Heading3 {Format Base keep-with-next?: #t}) 63 | (add-format self 'Heading4 {Format Base keep-with-next?: #t}) 64 | (add-format self 'Heading5 {Format Base keep-with-next?: #t}) 65 | (add-format self 'Code {Format Base @wait-left-margin: 100 @wait-right-margin: 100 background: {Color Light-Gray}}) 66 | ;; Styles 67 | (add-style self 'Heading1 {Text-Style Base font: {Font Heading1} color: {Color Dark-Red}}) 68 | (add-style self 'Heading2 {Text-Style Base font: {Font Heading2} color: {Color Dark-Red}}) 69 | (add-style self 'Heading3 {Text-Style Base font: {Font Heading3} color: {Color Dark-Red}}) 70 | (add-style self 'Heading4 {Text-Style Base font: {Font Heading4} color: {Color Dark-Red}}) 71 | (add-style self 'Heading5 {Text-Style Base font: {Font Heading5} color: {Color Dark-Red}}) 72 | (add-style self 'Reference {Text-Style Base font: {Font Link} color: {Color Dark-Blue}}) 73 | (add-style self 'Link {Link-Style font: {Font Link} color: {Color Link}}) 74 | (add-style self 'Code {Text-Style Base font: {Font Code} @wait-color: {Color Dark-Red}}) 75 | (add-style self 'Variable {Text-Style Code color: {Color Dark-Red}}) 76 | (add-style self 'Live-Component {Text-Style Base font: {Font font-name: "Arial" point-size: 12} color: {Color Dark-Red}})) 77 | 78 | 79 | ;;; 80 | ;;;; Cursor 81 | ;;; 82 | 83 | 84 | (method override (cursor-update self evt) 85 | (let ((view (get-position evt))) 86 | (show-text-cursor self) 87 | (when (and (view-enabled? self) selectable?) 88 | (if (get-alt? evt) 89 | (set-cursor :finger) 90 | (let* ((pos (view->text self view)) 91 | (par (get-paragraph self (get-line pos)))) 92 | (if (< (get-h view) (paragraph-left par)) 93 | (set-cursor :left-arrow) 94 | (let ((style (get-style-at model pos))) 95 | (if (and (is? style Live-Style) 96 | (get-control? evt)) 97 | (set-cursor :finger) 98 | (set-cursor :ibeam))))))))) 99 | 100 | 101 | ;;; 102 | ;;;; Mouse 103 | ;;; 104 | 105 | 106 | (method override (mouse-down self evt) 107 | (let* ((pos (view->text self (get-position evt))) 108 | (style (get-style-at model pos))) 109 | (unless (and (is? style Live-Style) 110 | (get-control? evt)) 111 | (nextmethod self evt)))) 112 | 113 | 114 | (method override (drag-up self evt . rest) 115 | (define (invoke-action action pos style) 116 | (cond ((is? action Event-Handler) 117 | (invoke action self (apply make-event Event :link self (get-properties action)))) 118 | (else 119 | (action self pos style)))) 120 | 121 | (define (goto-anchor anchor) 122 | (for-each-heading model 123 | (lambda (name heading line string) 124 | (when (equal? string anchor) 125 | (set-selection (new Range$Cell$ 126 | (new Cell line 0) 127 | (new Cell line (cardinality string)))))))) 128 | 129 | (let ((mouse-selecting? mouse-selecting?)) 130 | (nextmethod self evt) 131 | (when (and (view-enabled? self) (not mouse-selecting?) (get-control? evt)) 132 | (let* ((pos (view->text (get-position evt))) 133 | (style (get-style-at model pos))) 134 | (when (is? style Live-Style) 135 | (let ((action (get-choose-action style))) 136 | (action self pos style))))))) 137 | 138 | 139 | ;;; 140 | ;;;; Keyboard 141 | ;;; 142 | 143 | 144 | (method override (return-press self evt) 145 | (let ((pos (get-end self))) 146 | (let ((style (get-style-at model pos))) 147 | (if (is? style Live-Style) 148 | (let ((action (get-return-action style))) 149 | (action self pos style)) 150 | (nextmethod self evt))))) 151 | 152 | 153 | ;;; 154 | ;;;; Explorer 155 | ;;; 156 | 157 | 158 | (method override (select-outer self) 159 | (let ((pos (get-end self))) 160 | (let ((style (get-style-at model pos))) 161 | (if (is? style Live-Style) 162 | (set-selection (live-range pos style)) 163 | (nextmethod self))))) 164 | 165 | 166 | (method (live-range self pos style) 167 | (let ((explorer (new (explorer-class self) model start: pos end: pos))) 168 | (select-style explorer (lambda (s) (eq? s style)) strict?: #t) 169 | (get-range explorer))) 170 | 171 | 172 | ;;; 173 | ;;;; Properties 174 | ;;; 175 | 176 | 177 | (method (show-properties self debuggee class properties) 178 | (if (not properties) 179 | (empty-text model) 180 | (let ((content (properties->content debuggee class properties))) 181 | (set-content model content)))) 182 | 183 | 184 | (method (properties->content self debuggee class properties) 185 | (let ((paragraphs (new-queue)) 186 | (formats (new List-Factory)) 187 | (styles (new List-Factory))) 188 | (define (intern-format format) 189 | (when format 190 | (put formats format))) 191 | 192 | (define (intern-style style) 193 | (when style 194 | (put styles style))) 195 | 196 | (define (live-style property value) 197 | (intern-style (new Live-Style font: {Font Label} color: {Color Link} return-action: (return-action property value) choose-action: (choose-action property value)))) 198 | 199 | (define (return-action property value) 200 | (lambda (text pos style) 201 | (let ((range (live-range pos style))) 202 | (let ((literal (with-jazz-readtable 203 | (lambda () 204 | (read-string-element 205 | (get-string text range)))))) 206 | (set-property debuggee property literal))))) 207 | 208 | (define (choose-action property value) 209 | (lambda (text pos style) 210 | (let ((range (live-range pos style))) 211 | (live-choose text style (get-string text range) value range 212 | (lambda (new-value) 213 | (set-property debuggee property new-value)))))) 214 | 215 | (enqueue paragraphs (cons #f (list (list (->string class) (intern-style (new Text-Style base: 'Live-Component)))))) 216 | (for-each (lambda (info) 217 | (bind (property value) info 218 | (enqueue paragraphs (cons #f (list (list (->string property) #f) 219 | (list ": " #f) 220 | (list (->string value) (live-style property value))))))) 221 | properties) 222 | (enqueue paragraphs (cons #f (list (list "" #f)))) 223 | (new Formatted-Text 224 | formats: (get-output formats) 225 | styles: (get-output styles) 226 | paragraphs: (queue-list paragraphs)))))) 227 | -------------------------------------------------------------------------------- /lib/jedi/src/jedi/live/Live-Style.jazz: -------------------------------------------------------------------------------- 1 | ;;;============== 2 | ;;; JazzScheme 3 | ;;;============== 4 | ;;; 5 | ;;;; Live Style 6 | ;;; 7 | ;;; The contents of this file are subject to the Mozilla Public License Version 8 | ;;; 1.1 (the "License"); you may not use this file except in compliance with 9 | ;;; the License. You may obtain a copy of the License at 10 | ;;; http://www.mozilla.org/MPL/ 11 | ;;; 12 | ;;; Software distributed under the License is distributed on an "AS IS" basis, 13 | ;;; WITHOUT WARRANTY OF ANY KIND, either express or implied. See the License 14 | ;;; for the specific language governing rights and limitations under the 15 | ;;; License. 16 | ;;; 17 | ;;; The Original Code is JazzScheme. 18 | ;;; 19 | ;;; The Initial Developer of the Original Code is Guillaume Cartier. 20 | ;;; Portions created by the Initial Developer are Copyright (C) 1996-2015 21 | ;;; the Initial Developer. All Rights Reserved. 22 | ;;; 23 | ;;; Contributor(s): 24 | ;;; 25 | ;;; Alternatively, the contents of this file may be used under the terms of 26 | ;;; the GNU General Public License Version 2 or later (the "GPL"), in which 27 | ;;; case the provisions of the GPL are applicable instead of those above. If 28 | ;;; you wish to allow use of your version of this file only under the terms of 29 | ;;; the GPL, and not to allow others to use your version of this file under the 30 | ;;; terms of the MPL, indicate your decision by deleting the provisions above 31 | ;;; and replace them with the notice and other provisions required by the GPL. 32 | ;;; If you do not delete the provisions above, a recipient may use your version 33 | ;;; of this file under the terms of any one of the MPL or the GPL. 34 | ;;; 35 | ;;; See www.jazzscheme.org for details. 36 | 37 | 38 | (module protected jedi.live.Live-Style jazz 39 | 40 | 41 | (import (jazz.text)) 42 | 43 | 44 | (class Live-Style extends Text-Style 45 | 46 | 47 | (attributes (alignment font color highlight frame) 48 | (slot return-action initialize #f) 49 | (slot choose-action initialize #f)))) 50 | -------------------------------------------------------------------------------- /lib/jedi/src/jedi/live/_live.jazz: -------------------------------------------------------------------------------- 1 | ;;;============== 2 | ;;; JazzScheme 3 | ;;;============== 4 | ;;; 5 | ;;;; Live Coding 6 | ;;; 7 | ;;; The contents of this file are subject to the Mozilla Public License Version 8 | ;;; 1.1 (the "License"); you may not use this file except in compliance with 9 | ;;; the License. You may obtain a copy of the License at 10 | ;;; http://www.mozilla.org/MPL/ 11 | ;;; 12 | ;;; Software distributed under the License is distributed on an "AS IS" basis, 13 | ;;; WITHOUT WARRANTY OF ANY KIND, either express or implied. See the License 14 | ;;; for the specific language governing rights and limitations under the 15 | ;;; License. 16 | ;;; 17 | ;;; The Original Code is JazzScheme. 18 | ;;; 19 | ;;; The Initial Developer of the Original Code is Guillaume Cartier. 20 | ;;; Portions created by the Initial Developer are Copyright (C) 1996-2015 21 | ;;; the Initial Developer. All Rights Reserved. 22 | ;;; 23 | ;;; Contributor(s): 24 | ;;; 25 | ;;; Alternatively, the contents of this file may be used under the terms of 26 | ;;; the GNU General Public License Version 2 or later (the "GPL"), in which 27 | ;;; case the provisions of the GPL are applicable instead of those above. If 28 | ;;; you wish to allow use of your version of this file only under the terms of 29 | ;;; the GPL, and not to allow others to use your version of this file under the 30 | ;;; terms of the MPL, indicate your decision by deleting the provisions above 31 | ;;; and replace them with the notice and other provisions required by the GPL. 32 | ;;; If you do not delete the provisions above, a recipient may use your version 33 | ;;; of this file under the terms of any one of the MPL or the GPL. 34 | ;;; 35 | ;;; See www.jazzscheme.org for details. 36 | 37 | 38 | (module protected jedi.live jazz 39 | 40 | 41 | (hub get-choose-action) 42 | (hub get-return-action) 43 | 44 | 45 | (import (jazz.application) 46 | (jazz.graphic) 47 | (jazz.handler) 48 | (jazz.text) 49 | (jazz.ui) 50 | (jazz.undoer) 51 | (jazz.window)) 52 | 53 | 54 | ;; need to reintegrate this into Jedi-Profile's version 55 | 56 | 57 | (definition public (live-choose text style literal-string literal range evaluate) 58 | (define (literal-range text) 59 | (let ((has-selection? (has-selection? text)) 60 | (expl (new (explorer-class text) (get-model text) start: (get-start text) end: (get-end text)))) 61 | (let (iter) 62 | (when (or has-selection? (outer-expr expl)) 63 | (set! has-selection? #f) 64 | (let ((range (get-range expl))) 65 | (when (= (get-line (get-start range)) 66 | (get-line (get-end range))) 67 | (let ((literal-string (get-marked expl)) 68 | (literal (with-jazz-readtable 69 | (lambda () 70 | (read-marked expl))))) 71 | (cond ((or (integer? literal) (and (number? literal) (inexact? literal))) 72 | (or (iter) (list literal-string literal range))) 73 | ((is? literal Color) 74 | (list literal-string literal range)) 75 | (else 76 | (iter)))))))))) 77 | 78 | (define (choose-literal text undoer atomic-preserved modified? literal-string literal range pos) 79 | (define (choose-number) 80 | (let* ((page-height 10) 81 | (width 100) 82 | (mid (fxround/ width 2)) 83 | (precision (and (inexact? literal) 84 | (let ((pos (find literal-string #\.))) 85 | (if (not pos) 86 | 0 87 | (- (cardinality literal-string) pos 1))))) 88 | (factor (if (inexact? literal) 89 | (* 10 (/ (expt 10. precision))) 90 | 50))) 91 | (define (scroll-proc scrollbar action line-height page-height thumb-pos orientation) 92 | (define (scroll-action) 93 | (define (scroll amount) 94 | (set-pos scrollbar (+ (get-pos scrollbar) amount) redraw?: #t)) 95 | 96 | (case action 97 | ((line-up) (scroll (- line-height))) 98 | ((line-down) (scroll line-height)) 99 | ((page-up) (scroll (- page-height))) 100 | ((page-down) (scroll page-height)) 101 | ((thumb-track) (set-pos scrollbar thumb-pos redraw?: #t)))) 102 | 103 | (scroll-action) 104 | (let ((pos (get-pos scrollbar))) 105 | (when (not modified?) 106 | (set-caret text (get-start range))) 107 | (let ((normalized (/ (cast <fl> (- pos mid)) 50))) 108 | (let ((str (if (inexact? literal) 109 | (format "{r precision: :v}" (+ literal (* normalized factor)) (+ precision 1)) 110 | (->string (+ literal (inexact->exact (round (* normalized factor))))))) 111 | (start (get-start text))) 112 | (delete-range (get-model text) range) 113 | (insert-styled text str style) 114 | @buggy 115 | (replace-styled text range (list str) style) 116 | (update-window (current-toplevel)) 117 | (eval-sel text) 118 | (set! modified? #t) 119 | (set! range (new Range$Cell$ start (get-start text))) 120 | (set-caret text start))))) 121 | 122 | (let ((choose 123 | (new Scrollbar 124 | size: {Dimension 200 13} 125 | orientation: 'horz 126 | pos: mid 127 | range: (new Range 0 (+ width page-height)) 128 | page-height: page-height 129 | scroll-proc: scroll-proc 130 | return-press-handler: (new Event-Handler execute: return-press) 131 | escape-press-handler: (new Event-Handler execute: escape-press) 132 | focus-lose-handler: (new Event-Handler execute: edition-ended)))) 133 | (popup text choose (nu- pos {Dimension 100 25})) 134 | (set-pos choose mid) 135 | (acquire-focus choose)))) 136 | 137 | (define (choose-color) 138 | (let ((choose 139 | (new Color-Choose 140 | size: {Dimension 527 109} background: {Color Dark-Gray} 141 | color: literal 142 | feedback: (lambda (color) 143 | (when (not modified?) 144 | (set-caret text (get-start range))) 145 | (let ((str (->string color)) 146 | (start (get-start text))) 147 | (delete-range (get-model text) range) 148 | (insert-styled text str style) 149 | @buggy 150 | (replace-styled text range (list str) style) 151 | (update-window (current-toplevel)) 152 | (eval-sel text) 153 | (set! modified? #t) 154 | (set! range (new Range$Cell$ start (get-start text))) 155 | (set-caret text start))) 156 | return-press-handler: (new Event-Handler execute: return-press) 157 | escape-press-handler: (new Event-Handler execute: escape-press) 158 | focus-lose-handler: (new Event-Handler execute: edition-ended)))) 159 | (popup text choose (nu- pos {Dimension 304 125})) 160 | (acquire-focus choose))) 161 | 162 | (define (return-press evt) 163 | (end-atomic-undo undoer atomic-preserved) 164 | (set! undoer #f) 165 | (set-caret text (get-end range)) 166 | (close-popups (current-toplevel))) 167 | 168 | (define (escape-press evt) 169 | (end-atomic-undo undoer atomic-preserved) 170 | (set! undoer #f) 171 | (when modified? 172 | (undo text) 173 | (stylize-range (get-model text) range style) 174 | (set-caret text (get-end text)) 175 | (eval-sel text)) 176 | (close-popups (current-toplevel))) 177 | 178 | (define (edition-ended evt) 179 | (when undoer 180 | (end-atomic-undo undoer atomic-preserved))) 181 | 182 | (cond ((or (integer? literal) (and (number? literal) (inexact? literal))) 183 | (choose-number)) 184 | ((is? literal Color) 185 | (choose-color)))) 186 | 187 | (define (eval-sel text) 188 | (let ((pos (get-start text))) 189 | (let ((explorer (new (explorer-class text) (get-model text) start: pos end: pos))) 190 | (select-style explorer (lambda (s) (eq? s style)) strict?: #t) 191 | (let ((range (get-range explorer))) 192 | (let ((literal (with-jazz-readtable 193 | (lambda () 194 | (read-string-element 195 | (get-string text range)))))) 196 | (evaluate literal)))))) 197 | 198 | (let ((undoer (get-undoer (get-model text)))) 199 | (let ((atomic-preserved (start-atomic-undo undoer))) 200 | (let* ((start (get-start range)) 201 | (end (get-end range)) 202 | (mid (fxround/ (+ (get-col start) (get-col end)) 2)) 203 | (pos (text->view text (new Cell (get-line start) mid)))) 204 | (choose-literal text undoer atomic-preserved #f literal-string literal range pos)))))) 205 | -------------------------------------------------------------------------------- /lib/jedi/src/jedi/preference/Jedi-Actions.jazz: -------------------------------------------------------------------------------- 1 | ;;;============== 2 | ;;; JazzScheme 3 | ;;;============== 4 | ;;; 5 | ;;;; Jedi Actions 6 | ;;; 7 | ;;; The contents of this file are subject to the Mozilla Public License Version 8 | ;;; 1.1 (the "License"); you may not use this file except in compliance with 9 | ;;; the License. You may obtain a copy of the License at 10 | ;;; http://www.mozilla.org/MPL/ 11 | ;;; 12 | ;;; Software distributed under the License is distributed on an "AS IS" basis, 13 | ;;; WITHOUT WARRANTY OF ANY KIND, either express or implied. See the License 14 | ;;; for the specific language governing rights and limitations under the 15 | ;;; License. 16 | ;;; 17 | ;;; The Original Code is JazzScheme. 18 | ;;; 19 | ;;; The Initial Developer of the Original Code is Guillaume Cartier. 20 | ;;; Portions created by the Initial Developer are Copyright (C) 1996-2015 21 | ;;; the Initial Developer. All Rights Reserved. 22 | ;;; 23 | ;;; Contributor(s): 24 | ;;; 25 | ;;; Alternatively, the contents of this file may be used under the terms of 26 | ;;; the GNU General Public License Version 2 or later (the "GPL"), in which 27 | ;;; case the provisions of the GPL are applicable instead of those above. If 28 | ;;; you wish to allow use of your version of this file only under the terms of 29 | ;;; the GPL, and not to allow others to use your version of this file under the 30 | ;;; terms of the MPL, indicate your decision by deleting the provisions above 31 | ;;; and replace them with the notice and other provisions required by the GPL. 32 | ;;; If you do not delete the provisions above, a recipient may use your version 33 | ;;; of this file under the terms of any one of the MPL or the GPL. 34 | ;;; 35 | ;;; See www.jazzscheme.org for details. 36 | 37 | 38 | (module protected jedi.preference.Jedi-Actions jazz 39 | 40 | 41 | (import (jazz.action) 42 | (jazz.handler) 43 | (jazz.markup)) 44 | 45 | 46 | (class Jedi-Actions extends Actions 47 | 48 | 49 | (form 50 | (<install> 51 | ;; World 52 | (<Action-Item> name: live-jedi/world action-handler: {Event-Handler :application on-live-jedi/world} shortcut: {Shortcut :meta #\E}) 53 | (<Action-Item> name: design-jedi/world action-handler: {Event-Handler :application on-design-jedi/world} shortcut: {Shortcut :meta #\D}) 54 | (<Action-Item> name: restore-jedi/world action-handler: {Event-Handler :application on-restore-jedi/world} shortcut: {Shortcut :meta #\R}) 55 | ;; Help 56 | (<Action-Item> name: readme action-handler: {Event-Handler :application on-readme}))))) 57 | -------------------------------------------------------------------------------- /lib/jedi/src/jedi/preference/Jedi-Bindings.jazz: -------------------------------------------------------------------------------- 1 | ;;;============== 2 | ;;; JazzScheme 3 | ;;;============== 4 | ;;; 5 | ;;;; Jedi Bindings 6 | ;;; 7 | ;;; The contents of this file are subject to the Mozilla Public License Version 8 | ;;; 1.1 (the "License"); you may not use this file except in compliance with 9 | ;;; the License. You may obtain a copy of the License at 10 | ;;; http://www.mozilla.org/MPL/ 11 | ;;; 12 | ;;; Software distributed under the License is distributed on an "AS IS" basis, 13 | ;;; WITHOUT WARRANTY OF ANY KIND, either express or implied. See the License 14 | ;;; for the specific language governing rights and limitations under the 15 | ;;; License. 16 | ;;; 17 | ;;; The Original Code is JazzScheme. 18 | ;;; 19 | ;;; The Initial Developer of the Original Code is Guillaume Cartier. 20 | ;;; Portions created by the Initial Developer are Copyright (C) 1996-2015 21 | ;;; the Initial Developer. All Rights Reserved. 22 | ;;; 23 | ;;; Contributor(s): 24 | ;;; 25 | ;;; Alternatively, the contents of this file may be used under the terms of 26 | ;;; the GNU General Public License Version 2 or later (the "GPL"), in which 27 | ;;; case the provisions of the GPL are applicable instead of those above. If 28 | ;;; you wish to allow use of your version of this file only under the terms of 29 | ;;; the GPL, and not to allow others to use your version of this file under the 30 | ;;; terms of the MPL, indicate your decision by deleting the provisions above 31 | ;;; and replace them with the notice and other provisions required by the GPL. 32 | ;;; If you do not delete the provisions above, a recipient may use your version 33 | ;;; of this file under the terms of any one of the MPL or the GPL. 34 | ;;; 35 | ;;; See www.jazzscheme.org for details. 36 | 37 | 38 | (module protected jedi.preference.Jedi-Bindings jazz 39 | 40 | 41 | (import (jedi) 42 | (jazz.ide) 43 | (jazz.markup)) 44 | 45 | 46 | (class Jedi-Bindings extends IDE-Bindings 47 | 48 | 49 | (form 50 | (<install> 51 | (<Jedi-Actions> name: jedi))))) 52 | -------------------------------------------------------------------------------- /lib/jedi/src/jedi/preference/Jedi-Preferences.jazz: -------------------------------------------------------------------------------- 1 | ;;;============== 2 | ;;; JazzScheme 3 | ;;;============== 4 | ;;; 5 | ;;;; Jedi Preferences 6 | ;;; 7 | ;;; The contents of this file are subject to the Mozilla Public License Version 8 | ;;; 1.1 (the "License"); you may not use this file except in compliance with 9 | ;;; the License. You may obtain a copy of the License at 10 | ;;; http://www.mozilla.org/MPL/ 11 | ;;; 12 | ;;; Software distributed under the License is distributed on an "AS IS" basis, 13 | ;;; WITHOUT WARRANTY OF ANY KIND, either express or implied. See the License 14 | ;;; for the specific language governing rights and limitations under the 15 | ;;; License. 16 | ;;; 17 | ;;; The Original Code is JazzScheme. 18 | ;;; 19 | ;;; The Initial Developer of the Original Code is Guillaume Cartier. 20 | ;;; Portions created by the Initial Developer are Copyright (C) 1996-2015 21 | ;;; the Initial Developer. All Rights Reserved. 22 | ;;; 23 | ;;; Contributor(s): 24 | ;;; 25 | ;;; Alternatively, the contents of this file may be used under the terms of 26 | ;;; the GNU General Public License Version 2 or later (the "GPL"), in which 27 | ;;; case the provisions of the GPL are applicable instead of those above. If 28 | ;;; you wish to allow use of your version of this file only under the terms of 29 | ;;; the GPL, and not to allow others to use your version of this file under the 30 | ;;; terms of the MPL, indicate your decision by deleting the provisions above 31 | ;;; and replace them with the notice and other provisions required by the GPL. 32 | ;;; If you do not delete the provisions above, a recipient may use your version 33 | ;;; of this file under the terms of any one of the MPL or the GPL. 34 | ;;; 35 | ;;; See www.jazzscheme.org for details. 36 | 37 | 38 | (module protected jedi.preference.Jedi-Preferences jazz 39 | 40 | 41 | (import (jazz.catalog) 42 | (jazz.command) 43 | (jazz.doc) 44 | (jazz.document) 45 | (jazz.ide) 46 | (jazz.io) 47 | (jazz.markup) 48 | (jazz.reference) 49 | (jazz.ui) 50 | (jedi)) 51 | 52 | 53 | (class Jedi-Preferences extends IDE-Preferences 54 | 55 | 56 | (form 57 | (<install> title: "Jedi Preferences" documented?: #t protocols: ((file . {Class-Reference File}) (dir . {Class-Reference Directory}) (group . {Class-Reference Directory-Group}) (manifest . {Class-Reference Manifest}) (url . {Class-Reference URL}) (doc . {Class-Reference Document-Moniker}) (category . {Class-Reference Category-Moniker})) catalog-types: ((filing . {Class-Reference Filing-Catalog}) (doc . {Class-Reference Doc-Catalog})) toolbar-classes: ((:menubar . {Class-Reference Jedi-Menubar}) (:toolbar . {Class-Reference Jedi-Toolbar}) (:command . {Class-Reference Command-Toolbar}) (:minibuffer . {Class-Reference Minibuffer-Toolbar}) (:status . {Class-Reference Jedi-Status})) 58 | (<Wallpaper-Preferences> name: wallpaper))))) 59 | -------------------------------------------------------------------------------- /lib/jedi/src/jedi/problem.jazz: -------------------------------------------------------------------------------- 1 | ;;;=============== 2 | ;;; WorldScheme 3 | ;;;=============== 4 | ;;; 5 | ;;;; Jedi Problems 6 | ;;; 7 | ;;; The Initial Developer of the Original Code is Guillaume Cartier. 8 | ;;; Portions created by the Initial Developer are Copyright (C) 2012-2018 9 | ;;; the Initial Developer. All Rights Reserved. 10 | ;;; 11 | ;;; Contributor(s): 12 | 13 | 14 | (module jedi.problem jazz 15 | 16 | 17 | (import (jazz.io) 18 | (time)) 19 | 20 | 21 | (definition *problems-directory* 22 | {Directory Settings "work" "problems"}) 23 | 24 | (definition *problem-file* 25 | #f) 26 | 27 | (definition *problem-prefix* 28 | "server") 29 | 30 | (definition *problem-port* 31 | #f) 32 | 33 | (definition protected (set-problem-prefix prefix) 34 | (set! *problem-prefix* prefix)) 35 | 36 | 37 | (definition public (make-problem-file) 38 | (let ((file (timestamped-file *problems-directory* *problem-prefix* "log"))) 39 | (create-directories file) 40 | file)) 41 | 42 | 43 | (definition public (problem-file) 44 | (when (not *problem-file*) 45 | (set! *problem-file* (make-problem-file))) 46 | *problem-file*) 47 | 48 | 49 | (definition public (problem-port) 50 | (when (not *problem-port*) 51 | (set! *problem-port* (open-output-file (path-settings (problem-file) append: #t)))) 52 | *problem-port*) 53 | 54 | 55 | (definition public (problem-close) 56 | (when *problem-port* 57 | (close-port *problem-port*) 58 | (set! *problem-port* #f))) 59 | 60 | 61 | (definition public (with-problem-output proc) 62 | (let ((port (problem-port))) 63 | (proc port) 64 | (force-output port))) 65 | 66 | 67 | (definition public (problem-log . rest) 68 | (with-problem-output 69 | (lambda (port) 70 | (apply format port rest)))) 71 | 72 | 73 | (definition public (problem . rest) 74 | (let ((date (date->string (current-date) "~Y-~m-~d ~H:~M:~S")) 75 | (line (apply format rest))) 76 | (problem-log "{a} {a}{%}" date line)))) 77 | -------------------------------------------------------------------------------- /lib/jedi/src/jedi/product.jazz: -------------------------------------------------------------------------------- 1 | ;;;============== 2 | ;;; JazzScheme 3 | ;;;============== 4 | ;;; 5 | ;;;; Jedi Product 6 | ;;; 7 | ;;; The contents of this file are subject to the Mozilla Public License Version 8 | ;;; 1.1 (the "License"); you may not use this file except in compliance with 9 | ;;; the License. You may obtain a copy of the License at 10 | ;;; http://www.mozilla.org/MPL/ 11 | ;;; 12 | ;;; Software distributed under the License is distributed on an "AS IS" basis, 13 | ;;; WITHOUT WARRANTY OF ANY KIND, either express or implied. See the License 14 | ;;; for the specific language governing rights and limitations under the 15 | ;;; License. 16 | ;;; 17 | ;;; The Original Code is JazzScheme. 18 | ;;; 19 | ;;; The Initial Developer of the Original Code is Guillaume Cartier. 20 | ;;; Portions created by the Initial Developer are Copyright (C) 1996-2015 21 | ;;; the Initial Developer. All Rights Reserved. 22 | ;;; 23 | ;;; Contributor(s): 24 | ;;; 25 | ;;; Alternatively, the contents of this file may be used under the terms of 26 | ;;; the GNU General Public License Version 2 or later (the "GPL"), in which 27 | ;;; case the provisions of the GPL are applicable instead of those above. If 28 | ;;; you wish to allow use of your version of this file only under the terms of 29 | ;;; the GPL, and not to allow others to use your version of this file under the 30 | ;;; terms of the MPL, indicate your decision by deleting the provisions above 31 | ;;; and replace them with the notice and other provisions required by the GPL. 32 | ;;; If you do not delete the provisions above, a recipient may use your version 33 | ;;; of this file under the terms of any one of the MPL or the GPL. 34 | ;;; 35 | ;;; See www.jazzscheme.org for details. 36 | 37 | 38 | (module jedi.product jazz 39 | 40 | 41 | (import (jazz.io) 42 | (jazz.product)) 43 | 44 | 45 | ;;; 46 | ;;;; Build 47 | ;;; 48 | 49 | 50 | (definition (build descriptor (unit: unit #f) (force?: force? #f)) 51 | (define (resources-dir) 52 | (let ((bundle (product-descriptor-build-bundle descriptor))) 53 | (if bundle 54 | (new-directory {Directory Build} (format "{a}.app/Contents/Resources" bundle)) 55 | {Directory Build}))) 56 | 57 | (let ((project-dir {Directory Jedi}) 58 | (resources-dir (resources-dir))) 59 | (define (install-filename path) 60 | (let ((src (new-file project-dir path)) 61 | (dst (new-file resources-dir path))) 62 | (install-file src dst 63 | feedback: (lambda (action pathname) 64 | (build-feedback "; {a} {a}..." action (get-name pathname)))))) 65 | 66 | (define (install-dirname path (src #f) (dst #f)) 67 | (let ((src (new-directory project-dir (or src path))) 68 | (dst (new-directory resources-dir (or dst path)))) 69 | (install-directory src dst 70 | feedback: (let ((first? #t)) 71 | (lambda (action pathname) 72 | (when first? 73 | (build-feedback "; {a} {a}..." action (get-name pathname)) 74 | (set! first? #f))))))) 75 | 76 | (define (copy-info) 77 | (install-filename '("README")) 78 | (install-filename '("INSTALL"))) 79 | 80 | (define (copy-templates) 81 | (install-dirname '("lib" "jedi" "templates"))) 82 | 83 | (build-product-descriptor descriptor unit: unit force?: force?) 84 | (initialize-aliases) 85 | (copy-info) 86 | (copy-templates))) 87 | 88 | 89 | ;;; 90 | ;;;; Install 91 | ;;; 92 | 93 | 94 | (cond-expand 95 | (windows 96 | (definition install-dir 97 | {Directory Home "jedi" "install"})) 98 | (else 99 | (definition install-dir 100 | {Directory Home "Devel" "jedi" "install"}))) 101 | 102 | 103 | (definition install-name 104 | (cond-expand 105 | (mac 106 | "jedi.app") 107 | (else 108 | "jedi"))) 109 | 110 | 111 | (definition (install descriptor) 112 | (initialize-aliases) 113 | (install-application descriptor install-dir 114 | name: install-name 115 | jazz?: #t 116 | scriptable?: #t 117 | platform?: #t 118 | opengl?: #t 119 | git?: #t 120 | gstreamer?: #t 121 | files: '("README" 122 | "INSTALL"))) 123 | 124 | 125 | ;;; 126 | ;;;; Deploy 127 | ;;; 128 | 129 | 130 | (definition (deploy descriptor) 131 | (initialize-aliases) 132 | ;; appl 133 | (deploy-application descriptor 134 | (new-directory install-dir install-name) 135 | make: 'jedi 136 | install: 'jedi)) 137 | 138 | 139 | ;;; 140 | ;;;; Register 141 | ;;; 142 | 143 | 144 | (register-product 'jedi 145 | build: build 146 | install: install 147 | deploy: deploy)) 148 | -------------------------------------------------------------------------------- /lib/jedi/src/jedi/run.jazz: -------------------------------------------------------------------------------- 1 | ;;;============== 2 | ;;; JazzScheme 3 | ;;;============== 4 | ;;; 5 | ;;;; Jedi Run 6 | ;;; 7 | ;;; The contents of this file are subject to the Mozilla Public License Version 8 | ;;; 1.1 (the "License"); you may not use this file except in compliance with 9 | ;;; the License. You may obtain a copy of the License at 10 | ;;; http://www.mozilla.org/MPL/ 11 | ;;; 12 | ;;; Software distributed under the License is distributed on an "AS IS" basis, 13 | ;;; WITHOUT WARRANTY OF ANY KIND, either express or implied. See the License 14 | ;;; for the specific language governing rights and limitations under the 15 | ;;; License. 16 | ;;; 17 | ;;; The Original Code is JazzScheme. 18 | ;;; 19 | ;;; The Initial Developer of the Original Code is Guillaume Cartier. 20 | ;;; Portions created by the Initial Developer are Copyright (C) 1996-2015 21 | ;;; the Initial Developer. All Rights Reserved. 22 | ;;; 23 | ;;; Contributor(s): 24 | ;;; 25 | ;;; Alternatively, the contents of this file may be used under the terms of 26 | ;;; the GNU General Public License Version 2 or later (the "GPL"), in which 27 | ;;; case the provisions of the GPL are applicable instead of those above. If 28 | ;;; you wish to allow use of your version of this file only under the terms of 29 | ;;; the GPL, and not to allow others to use your version of this file under the 30 | ;;; terms of the MPL, indicate your decision by deleting the provisions above 31 | ;;; and replace them with the notice and other provisions required by the GPL. 32 | ;;; If you do not delete the provisions above, a recipient may use your version 33 | ;;; of this file under the terms of any one of the MPL or the GPL. 34 | ;;; 35 | ;;; See www.jazzscheme.org for details. 36 | 37 | 38 | (module jedi.run jazz 39 | 40 | 41 | (import (jazz.ide.login) 42 | (jazz.io) 43 | (jazz.presence) 44 | (jazz.presence.transmission) 45 | (jazz.process) 46 | (jazz.snapshot) 47 | (jedi) 48 | (jedi.problem)) 49 | 50 | 51 | (definition (setup-snapshot) 52 | (snapshots-directory {Directory Settings "work" "crashes"})) 53 | 54 | 55 | (definition (setup-presence) 56 | (if (get-remote-listener) 57 | (error "Remote listener already started") 58 | (set-presence-accept-handler 59 | (lambda (proc presence) 60 | (handle-exception-filter 61 | connection-exception? 62 | (lambda (exc) 63 | (problem "Accepting remote: {a}" (exception-reason exc))) 64 | (lambda () 65 | (proc presence))))))) 66 | 67 | 68 | (definition (setup-login) 69 | (show-jazz-profiles? #f)) 70 | 71 | 72 | (definition (run descriptor) 73 | (setup-snapshot) 74 | (setup-presence) 75 | (setup-login) 76 | (boot-environment (new Jedi-Application))) 77 | 78 | 79 | (register-product-run 'jedi run)) 80 | -------------------------------------------------------------------------------- /lib/jedi/src/jedi/search/Jedi-Search.jazz: -------------------------------------------------------------------------------- 1 | ;;;============== 2 | ;;; JazzScheme 3 | ;;;============== 4 | ;;; 5 | ;;;; Jedi Search 6 | ;;; 7 | ;;; The contents of this file are subject to the Mozilla Public License Version 8 | ;;; 1.1 (the "License"); you may not use this file except in compliance with 9 | ;;; the License. You may obtain a copy of the License at 10 | ;;; http://www.mozilla.org/MPL/ 11 | ;;; 12 | ;;; Software distributed under the License is distributed on an "AS IS" basis, 13 | ;;; WITHOUT WARRANTY OF ANY KIND, either express or implied. See the License 14 | ;;; for the specific language governing rights and limitations under the 15 | ;;; License. 16 | ;;; 17 | ;;; The Original Code is JazzScheme. 18 | ;;; 19 | ;;; The Initial Developer of the Original Code is Guillaume Cartier. 20 | ;;; Portions created by the Initial Developer are Copyright (C) 1996-2015 21 | ;;; the Initial Developer. All Rights Reserved. 22 | ;;; 23 | ;;; Contributor(s): 24 | ;;; 25 | ;;; Alternatively, the contents of this file may be used under the terms of 26 | ;;; the GNU General Public License Version 2 or later (the "GPL"), in which 27 | ;;; case the provisions of the GPL are applicable instead of those above. If 28 | ;;; you wish to allow use of your version of this file only under the terms of 29 | ;;; the GPL, and not to allow others to use your version of this file under the 30 | ;;; terms of the MPL, indicate your decision by deleting the provisions above 31 | ;;; and replace them with the notice and other provisions required by the GPL. 32 | ;;; If you do not delete the provisions above, a recipient may use your version 33 | ;;; of this file under the terms of any one of the MPL or the GPL. 34 | ;;; 35 | ;;; See www.jazzscheme.org for details. 36 | 37 | 38 | (module protected jedi.search.Jedi-Search jazz 39 | 40 | 41 | (import (jazz.markup) 42 | (jazz.search) 43 | (jazz.ui)) 44 | 45 | 46 | (class Jedi-Search extends Search-Manager 47 | 48 | 49 | (form 50 | (<install> 51 | (<!> name: tab 52 | (<Tab-Sheet> name: text title: "Text" 53 | (<!> name: content layout-type: fill 54 | (<Text-Search-View> name: text-search))) 55 | (<Tab-Sheet> name: projects title: "Projects" 56 | (<!> name: content layout-type: fill 57 | (<Projects-Search-View> name: projects-search))) 58 | (<Tab-Sheet> name: directories title: "Directories" 59 | (<!> name: content layout-type: fill 60 | (<Directories-Search-View> name: directories-search))) 61 | (<Tab-Sheet> name: user title: "User" 62 | (<!> name: content layout-type: fill 63 | (<User-Search-View> name: user-search)))))))) 64 | -------------------------------------------------------------------------------- /lib/jedi/src/jedi/services.jazz: -------------------------------------------------------------------------------- 1 | ;;;============== 2 | ;;; JazzScheme 3 | ;;;============== 4 | ;;; 5 | ;;;; Jedi Services 6 | ;;; 7 | ;;; The contents of this file are subject to the Mozilla Public License Version 8 | ;;; 1.1 (the "License"); you may not use this file except in compliance with 9 | ;;; the License. You may obtain a copy of the License at 10 | ;;; http://www.mozilla.org/MPL/ 11 | ;;; 12 | ;;; Software distributed under the License is distributed on an "AS IS" basis, 13 | ;;; WITHOUT WARRANTY OF ANY KIND, either express or implied. See the License 14 | ;;; for the specific language governing rights and limitations under the 15 | ;;; License. 16 | ;;; 17 | ;;; The Original Code is JazzScheme. 18 | ;;; 19 | ;;; The Initial Developer of the Original Code is Guillaume Cartier. 20 | ;;; Portions created by the Initial Developer are Copyright (C) 1996-2015 21 | ;;; the Initial Developer. All Rights Reserved. 22 | ;;; 23 | ;;; Contributor(s): 24 | ;;; 25 | ;;; Alternatively, the contents of this file may be used under the terms of 26 | ;;; the GNU General Public License Version 2 or later (the "GPL"), in which 27 | ;;; case the provisions of the GPL are applicable instead of those above. If 28 | ;;; you wish to allow use of your version of this file only under the terms of 29 | ;;; the GPL, and not to allow others to use your version of this file under the 30 | ;;; terms of the MPL, indicate your decision by deleting the provisions above 31 | ;;; and replace them with the notice and other provisions required by the GPL. 32 | ;;; If you do not delete the provisions above, a recipient may use your version 33 | ;;; of this file under the terms of any one of the MPL or the GPL. 34 | ;;; 35 | ;;; See www.jazzscheme.org for details. 36 | 37 | 38 | (module jedi.services jazz 39 | 40 | 41 | (import (jazz.project)) 42 | 43 | 44 | (register-service 'workbench (lambda () (get-workbench)))) 45 | -------------------------------------------------------------------------------- /lib/jedi/src/jedi/validate/Jedi-Tester.jazz: -------------------------------------------------------------------------------- 1 | ;;;============== 2 | ;;; JazzScheme 3 | ;;;============== 4 | ;;; 5 | ;;;; Jedi Tests 6 | ;;; 7 | ;;; The contents of this file are subject to the Mozilla Public License Version 8 | ;;; 1.1 (the "License"); you may not use this file except in compliance with 9 | ;;; the License. You may obtain a copy of the License at 10 | ;;; http://www.mozilla.org/MPL/ 11 | ;;; 12 | ;;; Software distributed under the License is distributed on an "AS IS" basis, 13 | ;;; WITHOUT WARRANTY OF ANY KIND, either express or implied. See the License 14 | ;;; for the specific language governing rights and limitations under the 15 | ;;; License. 16 | ;;; 17 | ;;; The Original Code is JazzScheme. 18 | ;;; 19 | ;;; The Initial Developer of the Original Code is Guillaume Cartier. 20 | ;;; Portions created by the Initial Developer are Copyright (C) 1996-2015 21 | ;;; the Initial Developer. All Rights Reserved. 22 | ;;; 23 | ;;; Contributor(s): 24 | ;;; 25 | ;;; Alternatively, the contents of this file may be used under the terms of 26 | ;;; the GNU General Public License Version 2 or later (the "GPL"), in which 27 | ;;; case the provisions of the GPL are applicable instead of those above. If 28 | ;;; you wish to allow use of your version of this file only under the terms of 29 | ;;; the GPL, and not to allow others to use your version of this file under the 30 | ;;; terms of the MPL, indicate your decision by deleting the provisions above 31 | ;;; and replace them with the notice and other provisions required by the GPL. 32 | ;;; If you do not delete the provisions above, a recipient may use your version 33 | ;;; of this file under the terms of any one of the MPL or the GPL. 34 | ;;; 35 | ;;; See www.jazzscheme.org for details. 36 | 37 | 38 | (module protected jedi.validate.Jedi-Tester jazz 39 | 40 | 41 | (import (jazz.debuggee.view) 42 | (jazz.recorder) 43 | (jazz.validation)) 44 | 45 | 46 | (class Jedi-Tester extends Tester 47 | 48 | 49 | (method override (test self) 50 | (define actions 51 | '(;; Project 52 | (:action :application on-projects-manager) 53 | ;; Tools 54 | (:action :application on-bindings-manager) 55 | (:action :application on-skins-manager) 56 | (:action :application on-compare-directories) 57 | (:action :application on-compare-files) 58 | (:action :application on-git-explorer) 59 | ;; View 60 | (:action :application on-workbench) 61 | (:action :application on-repositories) 62 | (:action :application on-favorites) 63 | (:action :application on-console) 64 | (:action :application on-properties) 65 | (:action :application on-search-results) 66 | (:action :application on-profile-results) 67 | (:action :application on-log-details) 68 | (:action :application on-servers) 69 | (:action :application on-chapters) 70 | (:action :application on-hierarchy) 71 | (:action :application on-processes) 72 | (:action :application on-threads) 73 | (:action :application on-frames) 74 | (:action :application on-restarts) 75 | (:action :application on-exception) 76 | (:action :application on-variables) 77 | ;; Workspace 78 | (:action :application on-select-workspace workspace: home) 79 | (:action :application on-select-workspace workspace: text) 80 | (:action :application on-select-workspace workspace: debugger) 81 | (:action :application on-select-workspace workspace: groupware) 82 | (:action :application on-select-workspace workspace: designer) 83 | (:action :application on-select-workspace workspace: formatted) 84 | (:action :application on-next-workspace) 85 | (:action :application on-previous-workspace) 86 | ;; Help 87 | (:action :application on-readme))) 88 | 89 | (define (catcher exc) 90 | (validation-failed (get-message exc) class: (serialize-class Exception-Log-Node))) 91 | 92 | (play-script-events actions catcher: catcher feedback?: #t slowdown: .1)))) 93 | -------------------------------------------------------------------------------- /lib/jedi/src/jedi/validate/_validate.jazz: -------------------------------------------------------------------------------- 1 | ;;;============== 2 | ;;; JazzScheme 3 | ;;;============== 4 | ;;; 5 | ;;;; Jedi Validation Suite 6 | ;;; 7 | ;;; The contents of this file are subject to the Mozilla Public License Version 8 | ;;; 1.1 (the "License"); you may not use this file except in compliance with 9 | ;;; the License. You may obtain a copy of the License at 10 | ;;; http://www.mozilla.org/MPL/ 11 | ;;; 12 | ;;; Software distributed under the License is distributed on an "AS IS" basis, 13 | ;;; WITHOUT WARRANTY OF ANY KIND, either express or implied. See the License 14 | ;;; for the specific language governing rights and limitations under the 15 | ;;; License. 16 | ;;; 17 | ;;; The Original Code is JazzScheme. 18 | ;;; 19 | ;;; The Initial Developer of the Original Code is Guillaume Cartier. 20 | ;;; Portions created by the Initial Developer are Copyright (C) 1996-2015 21 | ;;; the Initial Developer. All Rights Reserved. 22 | ;;; 23 | ;;; Contributor(s): 24 | ;;; 25 | ;;; Alternatively, the contents of this file may be used under the terms of 26 | ;;; the GNU General Public License Version 2 or later (the "GPL"), in which 27 | ;;; case the provisions of the GPL are applicable instead of those above. If 28 | ;;; you wish to allow use of your version of this file only under the terms of 29 | ;;; the GPL, and not to allow others to use your version of this file under the 30 | ;;; terms of the MPL, indicate your decision by deleting the provisions above 31 | ;;; and replace them with the notice and other provisions required by the GPL. 32 | ;;; If you do not delete the provisions above, a recipient may use your version 33 | ;;; of this file under the terms of any one of the MPL or the GPL. 34 | ;;; 35 | ;;; See www.jazzscheme.org for details. 36 | 37 | 38 | (module jedi.validate jazz 39 | 40 | 41 | (export (jedi.validate.autoload)) 42 | (import (jedi.validate.autoload) 43 | (jazz.io) 44 | (jazz.log) 45 | (jazz.validation)) 46 | 47 | 48 | (definition public Jedi-Suite 49 | (new Validation-Suite 50 | "Jedi" 51 | (list (new Jedi-Tester)))) 52 | 53 | 54 | (definition public (validate-jedi) 55 | (let ((log (new Log name: 'validate file: (timestamped-file {Directory Settings "logs"} "validation" "jlog") keep-nodes?: #t))) 56 | (let ((manager (new Validation-Manager feedback-port: :console log: log))) 57 | (validate manager Jedi-Suite))))) 58 | -------------------------------------------------------------------------------- /lib/jedi/src/jedi/validate/autoload.jazz: -------------------------------------------------------------------------------- 1 | ;;;============== 2 | ;;; JazzScheme 3 | ;;;============== 4 | ;;; 5 | ;;;; Jedi Validation Suite Autoload 6 | ;;; 7 | ;;; The contents of this file are subject to the Mozilla Public License Version 8 | ;;; 1.1 (the "License"); you may not use this file except in compliance with 9 | ;;; the License. You may obtain a copy of the License at 10 | ;;; http://www.mozilla.org/MPL/ 11 | ;;; 12 | ;;; Software distributed under the License is distributed on an "AS IS" basis, 13 | ;;; WITHOUT WARRANTY OF ANY KIND, either express or implied. See the License 14 | ;;; for the specific language governing rights and limitations under the 15 | ;;; License. 16 | ;;; 17 | ;;; The Original Code is JazzScheme. 18 | ;;; 19 | ;;; The Initial Developer of the Original Code is Guillaume Cartier. 20 | ;;; Portions created by the Initial Developer are Copyright (C) 1996-2015 21 | ;;; the Initial Developer. All Rights Reserved. 22 | ;;; 23 | ;;; Contributor(s): 24 | ;;; 25 | ;;; Alternatively, the contents of this file may be used under the terms of 26 | ;;; the GNU General Public License Version 2 or later (the "GPL"), in which 27 | ;;; case the provisions of the GPL are applicable instead of those above. If 28 | ;;; you wish to allow use of your version of this file only under the terms of 29 | ;;; the GPL, and not to allow others to use your version of this file under the 30 | ;;; terms of the MPL, indicate your decision by deleting the provisions above 31 | ;;; and replace them with the notice and other provisions required by the GPL. 32 | ;;; If you do not delete the provisions above, a recipient may use your version 33 | ;;; of this file under the terms of any one of the MPL or the GPL. 34 | ;;; 35 | ;;; See www.jazzscheme.org for details. 36 | 37 | 38 | (module protected jedi.validate.autoload jazz 39 | 40 | 41 | (export 42 | (jedi.validate.Jedi-Tester (autoload Jedi-Tester)))) 43 | -------------------------------------------------------------------------------- /lib/jedi/src/world/debuggee/stub.jazz: -------------------------------------------------------------------------------- 1 | ;;;============== 2 | ;;; JazzScheme 3 | ;;;============== 4 | ;;; 5 | ;;;; World Debuggee Stub 6 | ;;; 7 | ;;; The contents of this file are subject to the Mozilla Public License Version 8 | ;;; 1.1 (the "License"); you may not use this file except in compliance with 9 | ;;; the License. You may obtain a copy of the License at 10 | ;;; http://www.mozilla.org/MPL/ 11 | ;;; 12 | ;;; Software distributed under the License is distributed on an "AS IS" basis, 13 | ;;; WITHOUT WARRANTY OF ANY KIND, either express or implied. See the License 14 | ;;; for the specific language governing rights and limitations under the 15 | ;;; License. 16 | ;;; 17 | ;;; The Original Code is JazzScheme. 18 | ;;; 19 | ;;; The Initial Developer of the Original Code is Guillaume Cartier. 20 | ;;; Portions created by the Initial Developer are Copyright (C) 1996-2015 21 | ;;; the Initial Developer. All Rights Reserved. 22 | ;;; 23 | ;;; Contributor(s): 24 | ;;; 25 | ;;; Alternatively, the contents of this file may be used under the terms of 26 | ;;; the GNU General Public License Version 2 or later (the "GPL"), in which 27 | ;;; case the provisions of the GPL are applicable instead of those above. If 28 | ;;; you wish to allow use of your version of this file only under the terms of 29 | ;;; the GPL, and not to allow others to use your version of this file under the 30 | ;;; terms of the MPL, indicate your decision by deleting the provisions above 31 | ;;; and replace them with the notice and other provisions required by the GPL. 32 | ;;; If you do not delete the provisions above, a recipient may use your version 33 | ;;; of this file under the terms of any one of the MPL or the GPL. 34 | ;;; 35 | ;;; See www.jazzscheme.org for details. 36 | 37 | 38 | (module world.debuggee.stub jazz 39 | 40 | 41 | (hub position-world) 42 | (hub restore-world) 43 | (hub set-property) 44 | 45 | 46 | (import (jazz.presence.syntax (phase syntax)) 47 | (jazz.presence)) 48 | 49 | 50 | (remotable-stub World-Debuggee 51 | 52 | 53 | (method public send (position-world self rect)) 54 | (method public send (restore-world self)) 55 | (method public send (set-property self property value)))) 56 | -------------------------------------------------------------------------------- /lib/jedi/templates/file/c/NewC.c.template: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/jazzscheme/jedi/0ae4357fd4b8ea013a42415736340e37e2271b36/lib/jedi/templates/file/c/NewC.c.template -------------------------------------------------------------------------------- /lib/jedi/templates/file/c/NewCpp.cpp.template: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/jazzscheme/jedi/0ae4357fd4b8ea013a42415736340e37e2271b36/lib/jedi/templates/file/c/NewCpp.cpp.template -------------------------------------------------------------------------------- /lib/jedi/templates/file/c/NewHeader.h.template: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/jazzscheme/jedi/0ae4357fd4b8ea013a42415736340e37e2271b36/lib/jedi/templates/file/c/NewHeader.h.template -------------------------------------------------------------------------------- /lib/jedi/templates/file/java/New.java.template: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/jazzscheme/jedi/0ae4357fd4b8ea013a42415736340e37e2271b36/lib/jedi/templates/file/java/New.java.template -------------------------------------------------------------------------------- /lib/jedi/templates/file/java/NewClass.java.template: -------------------------------------------------------------------------------- 1 | public class %name% 2 | { 3 | } 4 | -------------------------------------------------------------------------------- /lib/jedi/templates/file/jazz/New.jazz.template: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/jazzscheme/jedi/0ae4357fd4b8ea013a42415736340e37e2271b36/lib/jedi/templates/file/jazz/New.jazz.template -------------------------------------------------------------------------------- /lib/jedi/templates/file/jazz/NewClass.jazz.template: -------------------------------------------------------------------------------- 1 | (module %name% jazz 2 | 3 | 4 | (class %name% extends Object)) 5 | -------------------------------------------------------------------------------- /lib/jedi/templates/file/jazz/NewInterface.jazz.template: -------------------------------------------------------------------------------- 1 | (module %name% jazz 2 | 3 | 4 | (interface %name%)) 5 | -------------------------------------------------------------------------------- /lib/jedi/templates/file/jazz/NewModule.jazz.template: -------------------------------------------------------------------------------- 1 | (module %name% jazz) 2 | -------------------------------------------------------------------------------- /lib/jedi/templates/file/jazz/NewScript.jazz.template: -------------------------------------------------------------------------------- 1 | (script jazz) 2 | -------------------------------------------------------------------------------- /lib/jedi/templates/file/jazz/NewUnit.jazz.template: -------------------------------------------------------------------------------- 1 | (unit %unit%) 2 | -------------------------------------------------------------------------------- /lib/jedi/templates/file/lisp/New.lisp.template: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/jazzscheme/jedi/0ae4357fd4b8ea013a42415736340e37e2271b36/lib/jedi/templates/file/lisp/New.lisp.template -------------------------------------------------------------------------------- /lib/jedi/templates/file/scheme/New.scm.template: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/jazzscheme/jedi/0ae4357fd4b8ea013a42415736340e37e2271b36/lib/jedi/templates/file/scheme/New.scm.template -------------------------------------------------------------------------------- /lib/jedi/templates/file/sql/New.sql.template: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/jazzscheme/jedi/0ae4357fd4b8ea013a42415736340e37e2271b36/lib/jedi/templates/file/sql/New.sql.template -------------------------------------------------------------------------------- /lib/jedi/templates/file/text/New.txt.template: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/jazzscheme/jedi/0ae4357fd4b8ea013a42415736340e37e2271b36/lib/jedi/templates/file/text/New.txt.template -------------------------------------------------------------------------------- /lib/jedi/templates/package/%package%/.package: -------------------------------------------------------------------------------- 1 | (package %package% 2 | 3 | (root "src") 4 | (products (%product% (dependencies jazz))) 5 | (project ".project")) 6 | -------------------------------------------------------------------------------- /lib/jedi/templates/package/%package%/.project: -------------------------------------------------------------------------------- 1 | ;;;============== 2 | ;;; JazzScheme 3 | ;;;============== 4 | ;;; 5 | ;;;; Project 6 | ;;; 7 | 8 | 9 | (data jazz.ide.data.project 10 | 11 | 12 | (form 13 | (<Project> name: %package%))) 14 | -------------------------------------------------------------------------------- /lib/jedi/templates/profile/emacs/.jazz/%jazz-settings-version%/.buildini: -------------------------------------------------------------------------------- 1 | ;;;============== 2 | ;;; JazzScheme 3 | ;;;============== 4 | ;;; 5 | ;;;; buildini 6 | ;;; 7 | 8 | 9 | (jazz:build-link 'objects) 10 | (jazz:build-jobs 1) 11 | -------------------------------------------------------------------------------- /lib/jedi/templates/profile/emacs/.jedi/%settings-version%/.settings: -------------------------------------------------------------------------------- 1 | profile #f 2 | -------------------------------------------------------------------------------- /lib/jedi/templates/profile/emacs/.jedi/%settings-version%/profiles/.repository: -------------------------------------------------------------------------------- 1 | (repository Profiles 2 | 3 | (library "lib")) 4 | -------------------------------------------------------------------------------- /lib/jedi/templates/profile/emacs/.jedi/%settings-version%/profiles/lib/%profile-unit%/.package: -------------------------------------------------------------------------------- 1 | (package %profile-unit% 2 | 3 | (products (%profile-unit% (update %profile-unit%.%profile%) 4 | (dependencies jazz))) 5 | (profiles (%profile% (appl jedi) (unit %profile-unit%))) 6 | (project ".project")) 7 | -------------------------------------------------------------------------------- /lib/jedi/templates/profile/emacs/.jedi/%settings-version%/profiles/lib/%profile-unit%/.project: -------------------------------------------------------------------------------- 1 | ;;;============== 2 | ;;; JazzScheme 3 | ;;;============== 4 | ;;; 5 | ;;;; Project 6 | ;;; 7 | 8 | 9 | (data jazz.ide.data.project 10 | 11 | 12 | (import (jazz.editor.jazz)) 13 | 14 | 15 | (form 16 | (<Project> name: %profile-lowercase% 17 | (<Jazz-File> name: %profile% source: {File :context "profile" "%profile-lowercase%" "%profile%.jazz"}) 18 | (<Project-Directory> directory: {Directory :context "profile" "%profile-lowercase%" "settings"} 19 | (<Project-File> source: {File :context "profile" "%profile-lowercase%" "settings" "Bindings.jml"}) 20 | (<Project-File> source: {File :context "profile" "%profile-lowercase%" "settings" "Colors.jml"}) 21 | (<Project-File> source: {File :context "profile" "%profile-lowercase%" "settings" "Connections.jml"}) 22 | (<Project-File> source: {File :context "profile" "%profile-lowercase%" "settings" "Favorites.jml"}) 23 | (<Project-File> source: {File :context "profile" "%profile-lowercase%" "settings" "Fonts.jml"}) 24 | (<Project-File> source: {File :context "profile" "%profile-lowercase%" "settings" "Formats.jml"}) 25 | (<Project-File> source: {File :context "profile" "%profile-lowercase%" "settings" "Preferences.jml"}) 26 | (<Project-File> source: {File :context "profile" "%profile-lowercase%" "settings" "Toolbox.jml"}) 27 | (<Project-File> source: {File :context "profile" "%profile-lowercase%" "settings" "Servers.jml"}) 28 | (<Project-File> source: {File :context "profile" "%profile-lowercase%" "settings" "Workbench.jml"}) 29 | (<Project-File> source: {File :context "profile" "%profile-lowercase%" "settings" "Skins.jml"}) 30 | (<Project-File> source: {File :context "profile" "%profile-lowercase%" "settings" "Workspaces.jml"}) 31 | (<Project-File> source: {File :context "profile" "%profile-lowercase%" "settings" "Styles.jml"}))))) 32 | -------------------------------------------------------------------------------- /lib/jedi/templates/profile/emacs/.jedi/%settings-version%/profiles/lib/%profile-unit%/profile/%profile-lowercase%/%profile%.jazz: -------------------------------------------------------------------------------- 1 | ;;;============== 2 | ;;; JazzScheme 3 | ;;;============== 4 | ;;; 5 | ;;;; %profile% 6 | ;;; 7 | 8 | 9 | (module %profile-unit%.%profile% jazz 10 | 11 | 12 | (import (irregex) 13 | (jazz.clipboard) 14 | (jazz.ide) 15 | (jazz.ide.development) 16 | (jazz.graphic) 17 | (jazz.io) 18 | (jazz.markup) 19 | (jazz.network) 20 | (jazz.platform) 21 | (jazz.profile) 22 | (jazz.project) 23 | (jazz.ui) 24 | (jazz.ui.dialog) 25 | (jazz.view) 26 | (jedi) 27 | (time)) 28 | 29 | 30 | (class %profile% extends Jedi-Profile 31 | 32 | 33 | ;;; 34 | ;;;; Test 35 | ;;; 36 | 37 | 38 | (method override (test self) 39 | ) 40 | 41 | 42 | (method override (test0 self) 43 | ) 44 | 45 | 46 | (method override (test1 self) 47 | ) 48 | 49 | 50 | (method override (test2 self) 51 | ) 52 | 53 | 54 | (method override (test3 self) 55 | ) 56 | 57 | 58 | (method override (test4 self) 59 | ) 60 | 61 | 62 | (method override (test5 self) 63 | ) 64 | 65 | 66 | (method override (test6 self) 67 | ) 68 | 69 | 70 | (method override (test7 self) 71 | ) 72 | 73 | 74 | (method override (test8 self) 75 | ) 76 | 77 | 78 | (method override (test9 self) 79 | )) 80 | 81 | 82 | (register-profile-class %profile%)) 83 | -------------------------------------------------------------------------------- /lib/jedi/templates/profile/emacs/.jedi/%settings-version%/profiles/lib/%profile-unit%/profile/%profile-lowercase%/settings/Bindings.jml: -------------------------------------------------------------------------------- 1 | ;;;============== 2 | ;;; JazzScheme 3 | ;;;============== 4 | ;;; 5 | ;;;; Bindings 6 | ;;; 7 | 8 | 9 | (data jedi.data.bindings 10 | 11 | 12 | (form 13 | (<Jedi-Bindings>))) 14 | -------------------------------------------------------------------------------- /lib/jedi/templates/profile/emacs/.jedi/%settings-version%/profiles/lib/%profile-unit%/profile/%profile-lowercase%/settings/Colors.jml: -------------------------------------------------------------------------------- 1 | ;;;============== 2 | ;;; JazzScheme 3 | ;;;============== 4 | ;;; 5 | ;;;; Colors 6 | ;;; 7 | 8 | 9 | (data jazz.ide.data.colors 10 | 11 | 12 | (form 13 | (<Colors-Preferences>))) 14 | -------------------------------------------------------------------------------- /lib/jedi/templates/profile/emacs/.jedi/%settings-version%/profiles/lib/%profile-unit%/profile/%profile-lowercase%/settings/Connections.jml: -------------------------------------------------------------------------------- 1 | ;;;============== 2 | ;;; JazzScheme 3 | ;;;============== 4 | ;;; 5 | ;;;; Data-Sources 6 | ;;; 7 | 8 | 9 | (data jazz.ide.data.connections 10 | 11 | 12 | (form 13 | (<Data-Sources>))) 14 | -------------------------------------------------------------------------------- /lib/jedi/templates/profile/emacs/.jedi/%settings-version%/profiles/lib/%profile-unit%/profile/%profile-lowercase%/settings/Favorites.jml: -------------------------------------------------------------------------------- 1 | ;;;============== 2 | ;;; JazzScheme 3 | ;;;============== 4 | ;;; 5 | ;;;; Favorites 6 | ;;; 7 | 8 | 9 | (data jazz.ide.data.favorites 10 | 11 | 12 | (form 13 | (<Group> name: "Favorites"))) 14 | -------------------------------------------------------------------------------- /lib/jedi/templates/profile/emacs/.jedi/%settings-version%/profiles/lib/%profile-unit%/profile/%profile-lowercase%/settings/Fonts.jml: -------------------------------------------------------------------------------- 1 | ;;;============== 2 | ;;; JazzScheme 3 | ;;;============== 4 | ;;; 5 | ;;;; Fonts 6 | ;;; 7 | 8 | 9 | (data jazz.ide.data.fonts 10 | 11 | 12 | (form 13 | (<Fonts-Preferences> 14 | (<Font-Preferences> name: Code font-name: vera-mono point-size: 18) 15 | (<Font-Preferences> name: Code-Bold font-name: vera-mono point-size: 18 bold?: #t)))) 16 | -------------------------------------------------------------------------------- /lib/jedi/templates/profile/emacs/.jedi/%settings-version%/profiles/lib/%profile-unit%/profile/%profile-lowercase%/settings/Formats.jml: -------------------------------------------------------------------------------- 1 | ;;;============== 2 | ;;; JazzScheme 3 | ;;;============== 4 | ;;; 5 | ;;;; Formats-Preferences 6 | ;;; 7 | 8 | 9 | (data jazz.ide.data.formats 10 | 11 | 12 | (form 13 | (<Formats-Preferences>))) 14 | -------------------------------------------------------------------------------- /lib/jedi/templates/profile/emacs/.jedi/%settings-version%/profiles/lib/%profile-unit%/profile/%profile-lowercase%/settings/PageSetup.jml: -------------------------------------------------------------------------------- 1 | ;;;============== 2 | ;;; JazzScheme 3 | ;;;============== 4 | ;;; 5 | ;;;; Page-Setup 6 | ;;; 7 | 8 | 9 | (data jazz.ide.data.pagesetup 10 | 11 | 12 | (form 13 | (<Page-Setup>))) 14 | -------------------------------------------------------------------------------- /lib/jedi/templates/profile/emacs/.jedi/%settings-version%/profiles/lib/%profile-unit%/profile/%profile-lowercase%/settings/Preferences.jml: -------------------------------------------------------------------------------- 1 | ;;;============== 2 | ;;; JazzScheme 3 | ;;;============== 4 | ;;; 5 | ;;;; Preferences 6 | ;;; 7 | 8 | 9 | (data jedi.data.preferences 10 | 11 | 12 | (form 13 | (<Jedi-Preferences> active-bindings: emacs current-directory: {Directory Profile} 14 | (<aliases~>) 15 | (<favorites~> 16 | (<Favorite-Configuration> shortcut: #\A) 17 | (<Favorite-Configuration> shortcut: #\B) 18 | (<Favorite-Configuration> shortcut: #\C) 19 | (<Favorite-Configuration> shortcut: #\D) 20 | (<Favorite-Configuration> shortcut: #\E) 21 | (<Favorite-Configuration> shortcut: #\F) 22 | (<Favorite-Configuration> shortcut: #\G) 23 | (<Favorite-Configuration> shortcut: #\H) 24 | (<Favorite-Configuration> shortcut: #\I) 25 | (<Favorite-Configuration> shortcut: #\J target: {File Jazz-Settings ".jazzini"}) 26 | (<Favorite-Configuration> shortcut: #\K target: jazz.dialect.kernel) 27 | (<Favorite-Configuration> shortcut: #\L target: jazz.dialect.language) 28 | (<Favorite-Configuration> shortcut: #\M) 29 | (<Favorite-Configuration> shortcut: #\N) 30 | (<Favorite-Configuration> shortcut: #\O) 31 | (<Favorite-Configuration> shortcut: #\P target: {File Profile "%profile%.jazz"}) 32 | (<Favorite-Configuration> shortcut: #\Q) 33 | (<Favorite-Configuration> shortcut: #\R) 34 | (<Favorite-Configuration> shortcut: #\S target: {File Profile "settings" "Skins.jml"}) 35 | (<Favorite-Configuration> shortcut: #\T target: {File Profile "settings" "Toolbox.jml"}) 36 | (<Favorite-Configuration> shortcut: #\U) 37 | (<Favorite-Configuration> shortcut: #\V) 38 | (<Favorite-Configuration> shortcut: #\W target: {File Profile "settings" "Workbench.jml"}) 39 | (<Favorite-Configuration> shortcut: #\X target: {File Profile "settings" "Preferences.jml"}) 40 | (<Favorite-Configuration> shortcut: #\Y target: {File Profile "settings" "Bindings.jml"}) 41 | (<Favorite-Configuration> shortcut: #\Z target: {File Profile "settings" "Servers.jml"}) 42 | (<Favorite-Configuration> shortcut: #\0) 43 | (<Favorite-Configuration> shortcut: #\1) 44 | (<Favorite-Configuration> shortcut: #\2) 45 | (<Favorite-Configuration> shortcut: #\3) 46 | (<Favorite-Configuration> shortcut: #\4) 47 | (<Favorite-Configuration> shortcut: #\5) 48 | (<Favorite-Configuration> shortcut: #\6) 49 | (<Favorite-Configuration> shortcut: #\7) 50 | (<Favorite-Configuration> shortcut: #\8) 51 | (<Favorite-Configuration> shortcut: #\9))))) 52 | -------------------------------------------------------------------------------- /lib/jedi/templates/profile/emacs/.jedi/%settings-version%/profiles/lib/%profile-unit%/profile/%profile-lowercase%/settings/Servers.jml: -------------------------------------------------------------------------------- 1 | ;;;============== 2 | ;;; JazzScheme 3 | ;;;============== 4 | ;;; 5 | ;;;; Servers 6 | ;;; 7 | 8 | 9 | (data jazz.ide.data.servers 10 | 11 | 12 | (form 13 | (<Server-Configurations> 14 | (<Server-Configuration> 15 | name: Game 16 | unit: jazz.sample.gameserver 17 | class: Game-Server-Process 18 | port: 8080 19 | description: "Game Server" 20 | debug?: #f)))) 21 | -------------------------------------------------------------------------------- /lib/jedi/templates/profile/emacs/.jedi/%settings-version%/profiles/lib/%profile-unit%/profile/%profile-lowercase%/settings/Skins.jml: -------------------------------------------------------------------------------- 1 | ;;;============== 2 | ;;; JazzScheme 3 | ;;;============== 4 | ;;; 5 | ;;;; Skins 6 | ;;; 7 | 8 | 9 | (data jazz.ide.data.skins 10 | 11 | 12 | (form 13 | (<Skins-Preferences>))) 14 | -------------------------------------------------------------------------------- /lib/jedi/templates/profile/emacs/.jedi/%settings-version%/profiles/lib/%profile-unit%/profile/%profile-lowercase%/settings/Styles.jml: -------------------------------------------------------------------------------- 1 | ;;;============== 2 | ;;; JazzScheme 3 | ;;;============== 4 | ;;; 5 | ;;;; Styles-Preferences 6 | ;;; 7 | 8 | 9 | (data jazz.ide.data.styles 10 | 11 | 12 | (form 13 | (<Styles-Preferences>))) 14 | -------------------------------------------------------------------------------- /lib/jedi/templates/profile/emacs/.jedi/%settings-version%/profiles/lib/%profile-unit%/profile/%profile-lowercase%/settings/Toolbox.jml: -------------------------------------------------------------------------------- 1 | ;;;============== 2 | ;;; JazzScheme 3 | ;;;============== 4 | ;;; 5 | ;;;; Toolbox 6 | ;;; 7 | 8 | 9 | (data jazz.ide.data.toolbox 10 | 11 | 12 | (form 13 | (<Toolbox> sort?: #f 14 | (<Toolbox-Group> name: "General" 15 | (<Toolbox-Model> unit: jazz.ui model: Label-View) 16 | (<Toolbox-Model> unit: jazz.ui model: Push-Button) 17 | (<Toolbox-Model> unit: jazz.ui model: Check-Box) 18 | (<Toolbox-Model> unit: jazz.ui model: Radio-Button) 19 | (<Toolbox-Model> unit: jazz.ui model: Push-Tool) 20 | (<Toolbox-Model> unit: jazz.ui model: Toggle-Tool) 21 | (<Toolbox-Model> unit: jazz.ui model: Radio-Tool) 22 | (<Toolbox-Model> unit: jazz.ui model: Progress-Bar) 23 | (<Toolbox-Model> unit: jazz.ui model: Image-View)) 24 | (<Toolbox-Group> name: "Group" 25 | (<Toolbox-Model> unit: jazz.ui model: View) 26 | (<Toolbox-Model> unit: jazz.ui model: Group-Box) 27 | (<Toolbox-Model> unit: jazz.ui model: Border-View) 28 | (<Toolbox-Model> unit: jazz.ui model: Layout-View) 29 | (<Toolbox-Model> unit: jazz.ui model: Splitter-View) 30 | (<Toolbox-Model> unit: jazz.ui model: Tab-View) 31 | (<Toolbox-Model> unit: jazz.ui model: Pad-View) 32 | (<Toolbox-Model> unit: jazz.ui model: Horizontal-Line) 33 | (<Toolbox-Model> unit: jazz.ui model: Vertical-Line)) 34 | (<Toolbox-Group> name: "Entry" 35 | (<Toolbox-Model> unit: jazz.ui model: Entry-Widget) 36 | (<Toolbox-Model> unit: jazz.ui model: Text-Widget) 37 | (<Toolbox-Model> unit: jazz.ui model: Tree-Widget) 38 | (<Toolbox-Model> unit: jazz.ui model: Combo-Box) 39 | (<Toolbox-Model> unit: jazz.ui model: Moniker-Widget) 40 | (<Toolbox-Model> unit: jazz.ui model: Note-Widget) 41 | (<Toolbox-Model> unit: jazz.designer model: Property-View)) 42 | (<Toolbox-Group> name: "Menu" 43 | (<Toolbox-Model> unit: jazz.ui model: Menubar) 44 | (<Toolbox-Model> unit: jazz.ui model: Menu) 45 | (<Toolbox-Model> unit: jazz.ui model: Label-Item) 46 | (<Toolbox-Model> unit: jazz.ui model: Check-Item) 47 | (<Toolbox-Model> unit: jazz.ui model: Radio-Item) 48 | (<Toolbox-Model> unit: jazz.ui model: Separator-Item) 49 | (<Toolbox-Model> unit: jazz.ui model: File-Base-Menu) 50 | (<Toolbox-Model> unit: jazz.ui model: File-Menu) 51 | (<Toolbox-Model> unit: jazz.ui model: Edit-Base-Menu) 52 | (<Toolbox-Model> unit: jazz.ui model: Edit-Menu) 53 | (<Toolbox-Model> unit: jazz.ui model: Window-Menu))))) 54 | -------------------------------------------------------------------------------- /lib/jedi/templates/profile/emacs/.jedi/%settings-version%/profiles/lib/%profile-unit%/profile/%profile-lowercase%/settings/Workbench.jml: -------------------------------------------------------------------------------- 1 | ;;;============== 2 | ;;; JazzScheme 3 | ;;;============== 4 | ;;; 5 | ;;;; Workbench 6 | ;;; 7 | 8 | 9 | (data jazz.ide.data.workbench 10 | 11 | 12 | (form 13 | (<Workbench> 14 | (<*> tag-reference: {File Profiles "lib" "%profile-unit%" ".project"})))) 15 | -------------------------------------------------------------------------------- /lib/jedi/templates/profile/emacs/.jedi/%settings-version%/projects/.repository: -------------------------------------------------------------------------------- 1 | (repository Projects 2 | 3 | (library "lib")) 4 | -------------------------------------------------------------------------------- /lib/jedi/templates/profile/jazz/.jazz/%jazz-settings-version%/.buildini: -------------------------------------------------------------------------------- 1 | ;;;============== 2 | ;;; JazzScheme 3 | ;;;============== 4 | ;;; 5 | ;;;; buildini 6 | ;;; 7 | 8 | 9 | (jazz:build-link 'objects) 10 | (jazz:build-jobs 1) 11 | -------------------------------------------------------------------------------- /lib/jedi/templates/profile/jazz/.jedi/%settings-version%/.settings: -------------------------------------------------------------------------------- 1 | profile #f 2 | -------------------------------------------------------------------------------- /lib/jedi/templates/profile/jazz/.jedi/%settings-version%/profiles/.repository: -------------------------------------------------------------------------------- 1 | (repository Profiles 2 | 3 | (library "lib")) 4 | -------------------------------------------------------------------------------- /lib/jedi/templates/profile/jazz/.jedi/%settings-version%/profiles/lib/%profile-unit%/.package: -------------------------------------------------------------------------------- 1 | (package %profile-unit% 2 | 3 | (products (%profile-unit% (update %profile-unit%.%profile%) 4 | (dependencies jazz))) 5 | (profiles (%profile% (appl jedi) (unit %profile-unit%))) 6 | (project ".project")) 7 | -------------------------------------------------------------------------------- /lib/jedi/templates/profile/jazz/.jedi/%settings-version%/profiles/lib/%profile-unit%/.project: -------------------------------------------------------------------------------- 1 | ;;;============== 2 | ;;; JazzScheme 3 | ;;;============== 4 | ;;; 5 | ;;;; Project 6 | ;;; 7 | 8 | 9 | (data jazz.ide.data.project 10 | 11 | 12 | (import (jazz.editor.jazz)) 13 | 14 | 15 | (form 16 | (<Project> name: %profile-lowercase% 17 | (<Jazz-File> name: %profile% source: {File :context "profile" "%profile-lowercase%" "%profile%.jazz"}) 18 | (<Project-Directory> directory: {Directory :context "profile" "%profile-lowercase%" "settings"} 19 | (<Project-File> source: {File :context "profile" "%profile-lowercase%" "settings" "Bindings.jml"}) 20 | (<Project-File> source: {File :context "profile" "%profile-lowercase%" "settings" "Colors.jml"}) 21 | (<Project-File> source: {File :context "profile" "%profile-lowercase%" "settings" "Connections.jml"}) 22 | (<Project-File> source: {File :context "profile" "%profile-lowercase%" "settings" "Favorites.jml"}) 23 | (<Project-File> source: {File :context "profile" "%profile-lowercase%" "settings" "Fonts.jml"}) 24 | (<Project-File> source: {File :context "profile" "%profile-lowercase%" "settings" "Formats.jml"}) 25 | (<Project-File> source: {File :context "profile" "%profile-lowercase%" "settings" "Preferences.jml"}) 26 | (<Project-File> source: {File :context "profile" "%profile-lowercase%" "settings" "Toolbox.jml"}) 27 | (<Project-File> source: {File :context "profile" "%profile-lowercase%" "settings" "Servers.jml"}) 28 | (<Project-File> source: {File :context "profile" "%profile-lowercase%" "settings" "Workbench.jml"}) 29 | (<Project-File> source: {File :context "profile" "%profile-lowercase%" "settings" "Skins.jml"}) 30 | (<Project-File> source: {File :context "profile" "%profile-lowercase%" "settings" "Workspaces.jml"}) 31 | (<Project-File> source: {File :context "profile" "%profile-lowercase%" "settings" "Styles.jml"}))))) 32 | -------------------------------------------------------------------------------- /lib/jedi/templates/profile/jazz/.jedi/%settings-version%/profiles/lib/%profile-unit%/profile/%profile-lowercase%/%profile%.jazz: -------------------------------------------------------------------------------- 1 | ;;;============== 2 | ;;; JazzScheme 3 | ;;;============== 4 | ;;; 5 | ;;;; %profile% 6 | ;;; 7 | 8 | 9 | (module %profile-unit%.%profile% jazz 10 | 11 | 12 | (import (irregex) 13 | (jazz.clipboard) 14 | (jazz.ide) 15 | (jazz.ide.development) 16 | (jazz.graphic) 17 | (jazz.io) 18 | (jazz.markup) 19 | (jazz.network) 20 | (jazz.platform) 21 | (jazz.profile) 22 | (jazz.project) 23 | (jazz.ui) 24 | (jazz.ui.dialog) 25 | (jazz.view) 26 | (jedi) 27 | (time)) 28 | 29 | 30 | (class %profile% extends Jedi-Profile 31 | 32 | 33 | ;;; 34 | ;;;; Test 35 | ;;; 36 | 37 | 38 | (method override (test self) 39 | ) 40 | 41 | 42 | (method override (test0 self) 43 | ) 44 | 45 | 46 | (method override (test1 self) 47 | ) 48 | 49 | 50 | (method override (test2 self) 51 | ) 52 | 53 | 54 | (method override (test3 self) 55 | ) 56 | 57 | 58 | (method override (test4 self) 59 | ) 60 | 61 | 62 | (method override (test5 self) 63 | ) 64 | 65 | 66 | (method override (test6 self) 67 | ) 68 | 69 | 70 | (method override (test7 self) 71 | ) 72 | 73 | 74 | (method override (test8 self) 75 | ) 76 | 77 | 78 | (method override (test9 self) 79 | )) 80 | 81 | 82 | (register-profile-class %profile%)) 83 | -------------------------------------------------------------------------------- /lib/jedi/templates/profile/jazz/.jedi/%settings-version%/profiles/lib/%profile-unit%/profile/%profile-lowercase%/settings/Bindings.jml: -------------------------------------------------------------------------------- 1 | ;;;============== 2 | ;;; JazzScheme 3 | ;;;============== 4 | ;;; 5 | ;;;; Bindings 6 | ;;; 7 | 8 | 9 | (data jedi.data.bindings 10 | 11 | 12 | (form 13 | (<Jedi-Bindings>))) 14 | -------------------------------------------------------------------------------- /lib/jedi/templates/profile/jazz/.jedi/%settings-version%/profiles/lib/%profile-unit%/profile/%profile-lowercase%/settings/Colors.jml: -------------------------------------------------------------------------------- 1 | ;;;============== 2 | ;;; JazzScheme 3 | ;;;============== 4 | ;;; 5 | ;;;; Colors 6 | ;;; 7 | 8 | 9 | (data jazz.ide.data.colors 10 | 11 | 12 | (form 13 | (<Colors-Preferences>))) 14 | -------------------------------------------------------------------------------- /lib/jedi/templates/profile/jazz/.jedi/%settings-version%/profiles/lib/%profile-unit%/profile/%profile-lowercase%/settings/Connections.jml: -------------------------------------------------------------------------------- 1 | ;;;============== 2 | ;;; JazzScheme 3 | ;;;============== 4 | ;;; 5 | ;;;; Data-Sources 6 | ;;; 7 | 8 | 9 | (data jazz.ide.data.connections 10 | 11 | 12 | (form 13 | (<Data-Sources>))) 14 | -------------------------------------------------------------------------------- /lib/jedi/templates/profile/jazz/.jedi/%settings-version%/profiles/lib/%profile-unit%/profile/%profile-lowercase%/settings/Favorites.jml: -------------------------------------------------------------------------------- 1 | ;;;============== 2 | ;;; JazzScheme 3 | ;;;============== 4 | ;;; 5 | ;;;; Favorites 6 | ;;; 7 | 8 | 9 | (data jazz.ide.data.favorites 10 | 11 | 12 | (form 13 | (<Group> name: "Favorites"))) 14 | -------------------------------------------------------------------------------- /lib/jedi/templates/profile/jazz/.jedi/%settings-version%/profiles/lib/%profile-unit%/profile/%profile-lowercase%/settings/Fonts.jml: -------------------------------------------------------------------------------- 1 | ;;;============== 2 | ;;; JazzScheme 3 | ;;;============== 4 | ;;; 5 | ;;;; Fonts 6 | ;;; 7 | 8 | 9 | (data jazz.ide.data.fonts 10 | 11 | 12 | (form 13 | (<Fonts-Preferences> 14 | (<Font-Preferences> name: Code font-name: vera-mono point-size: 18) 15 | (<Font-Preferences> name: Code-Bold font-name: vera-mono point-size: 18 bold?: #t)))) 16 | -------------------------------------------------------------------------------- /lib/jedi/templates/profile/jazz/.jedi/%settings-version%/profiles/lib/%profile-unit%/profile/%profile-lowercase%/settings/Formats.jml: -------------------------------------------------------------------------------- 1 | ;;;============== 2 | ;;; JazzScheme 3 | ;;;============== 4 | ;;; 5 | ;;;; Formats-Preferences 6 | ;;; 7 | 8 | 9 | (data jazz.ide.data.formats 10 | 11 | 12 | (form 13 | (<Formats-Preferences>))) 14 | -------------------------------------------------------------------------------- /lib/jedi/templates/profile/jazz/.jedi/%settings-version%/profiles/lib/%profile-unit%/profile/%profile-lowercase%/settings/PageSetup.jml: -------------------------------------------------------------------------------- 1 | ;;;============== 2 | ;;; JazzScheme 3 | ;;;============== 4 | ;;; 5 | ;;;; Page-Setup 6 | ;;; 7 | 8 | 9 | (data jazz.ide.data.pagesetup 10 | 11 | 12 | (form 13 | (<Page-Setup>))) 14 | -------------------------------------------------------------------------------- /lib/jedi/templates/profile/jazz/.jedi/%settings-version%/profiles/lib/%profile-unit%/profile/%profile-lowercase%/settings/Preferences.jml: -------------------------------------------------------------------------------- 1 | ;;;============== 2 | ;;; JazzScheme 3 | ;;;============== 4 | ;;; 5 | ;;;; Preferences 6 | ;;; 7 | 8 | 9 | (data jedi.data.preferences 10 | 11 | 12 | (form 13 | (<Jedi-Preferences> active-bindings: jazz current-directory: {Directory Profile} 14 | (<aliases~>) 15 | (<favorites~> 16 | (<Favorite-Configuration> shortcut: #\A) 17 | (<Favorite-Configuration> shortcut: #\B) 18 | (<Favorite-Configuration> shortcut: #\C) 19 | (<Favorite-Configuration> shortcut: #\D) 20 | (<Favorite-Configuration> shortcut: #\E) 21 | (<Favorite-Configuration> shortcut: #\F) 22 | (<Favorite-Configuration> shortcut: #\G) 23 | (<Favorite-Configuration> shortcut: #\H) 24 | (<Favorite-Configuration> shortcut: #\I) 25 | (<Favorite-Configuration> shortcut: #\J target: {File Jazz-Settings ".jazzini"}) 26 | (<Favorite-Configuration> shortcut: #\K target: jazz.dialect.kernel) 27 | (<Favorite-Configuration> shortcut: #\L target: jazz.dialect.language) 28 | (<Favorite-Configuration> shortcut: #\M) 29 | (<Favorite-Configuration> shortcut: #\N) 30 | (<Favorite-Configuration> shortcut: #\O) 31 | (<Favorite-Configuration> shortcut: #\P target: {File Profile "%profile%.jazz"}) 32 | (<Favorite-Configuration> shortcut: #\Q) 33 | (<Favorite-Configuration> shortcut: #\R) 34 | (<Favorite-Configuration> shortcut: #\S target: {File Profile "settings" "Skins.jml"}) 35 | (<Favorite-Configuration> shortcut: #\T target: {File Profile "settings" "Toolbox.jml"}) 36 | (<Favorite-Configuration> shortcut: #\U) 37 | (<Favorite-Configuration> shortcut: #\V) 38 | (<Favorite-Configuration> shortcut: #\W target: {File Profile "settings" "Workbench.jml"}) 39 | (<Favorite-Configuration> shortcut: #\X target: {File Profile "settings" "Preferences.jml"}) 40 | (<Favorite-Configuration> shortcut: #\Y target: {File Profile "settings" "Bindings.jml"}) 41 | (<Favorite-Configuration> shortcut: #\Z target: {File Profile "settings" "Servers.jml"}) 42 | (<Favorite-Configuration> shortcut: #\0) 43 | (<Favorite-Configuration> shortcut: #\1) 44 | (<Favorite-Configuration> shortcut: #\2) 45 | (<Favorite-Configuration> shortcut: #\3) 46 | (<Favorite-Configuration> shortcut: #\4) 47 | (<Favorite-Configuration> shortcut: #\5) 48 | (<Favorite-Configuration> shortcut: #\6) 49 | (<Favorite-Configuration> shortcut: #\7) 50 | (<Favorite-Configuration> shortcut: #\8) 51 | (<Favorite-Configuration> shortcut: #\9))))) 52 | -------------------------------------------------------------------------------- /lib/jedi/templates/profile/jazz/.jedi/%settings-version%/profiles/lib/%profile-unit%/profile/%profile-lowercase%/settings/Servers.jml: -------------------------------------------------------------------------------- 1 | ;;;============== 2 | ;;; JazzScheme 3 | ;;;============== 4 | ;;; 5 | ;;;; Servers 6 | ;;; 7 | 8 | 9 | (data jazz.ide.data.servers 10 | 11 | 12 | (form 13 | (<Server-Configurations> 14 | (<Server-Configuration> 15 | name: Game 16 | unit: jazz.sample.gameserver 17 | class: Game-Server-Process 18 | port: 8080 19 | description: "Game Server" 20 | debug?: #f)))) 21 | -------------------------------------------------------------------------------- /lib/jedi/templates/profile/jazz/.jedi/%settings-version%/profiles/lib/%profile-unit%/profile/%profile-lowercase%/settings/Skins.jml: -------------------------------------------------------------------------------- 1 | ;;;============== 2 | ;;; JazzScheme 3 | ;;;============== 4 | ;;; 5 | ;;;; Skins 6 | ;;; 7 | 8 | 9 | (data jazz.ide.data.skins 10 | 11 | 12 | (form 13 | (<Skins-Preferences>))) 14 | -------------------------------------------------------------------------------- /lib/jedi/templates/profile/jazz/.jedi/%settings-version%/profiles/lib/%profile-unit%/profile/%profile-lowercase%/settings/Styles.jml: -------------------------------------------------------------------------------- 1 | ;;;============== 2 | ;;; JazzScheme 3 | ;;;============== 4 | ;;; 5 | ;;;; Styles-Preferences 6 | ;;; 7 | 8 | 9 | (data jazz.ide.data.styles 10 | 11 | 12 | (form 13 | (<Styles-Preferences>))) 14 | -------------------------------------------------------------------------------- /lib/jedi/templates/profile/jazz/.jedi/%settings-version%/profiles/lib/%profile-unit%/profile/%profile-lowercase%/settings/Toolbox.jml: -------------------------------------------------------------------------------- 1 | ;;;============== 2 | ;;; JazzScheme 3 | ;;;============== 4 | ;;; 5 | ;;;; Toolbox 6 | ;;; 7 | 8 | 9 | (data jazz.ide.data.toolbox 10 | 11 | 12 | (form 13 | (<Toolbox> sort?: #f 14 | (<Toolbox-Group> name: "General" 15 | (<Toolbox-Model> unit: jazz.ui model: Label-View) 16 | (<Toolbox-Model> unit: jazz.ui model: Push-Button) 17 | (<Toolbox-Model> unit: jazz.ui model: Check-Box) 18 | (<Toolbox-Model> unit: jazz.ui model: Radio-Button) 19 | (<Toolbox-Model> unit: jazz.ui model: Push-Tool) 20 | (<Toolbox-Model> unit: jazz.ui model: Toggle-Tool) 21 | (<Toolbox-Model> unit: jazz.ui model: Radio-Tool) 22 | (<Toolbox-Model> unit: jazz.ui model: Progress-Bar) 23 | (<Toolbox-Model> unit: jazz.ui model: Image-View)) 24 | (<Toolbox-Group> name: "Group" 25 | (<Toolbox-Model> unit: jazz.ui model: View) 26 | (<Toolbox-Model> unit: jazz.ui model: Group-Box) 27 | (<Toolbox-Model> unit: jazz.ui model: Border-View) 28 | (<Toolbox-Model> unit: jazz.ui model: Layout-View) 29 | (<Toolbox-Model> unit: jazz.ui model: Splitter-View) 30 | (<Toolbox-Model> unit: jazz.ui model: Tab-View) 31 | (<Toolbox-Model> unit: jazz.ui model: Pad-View) 32 | (<Toolbox-Model> unit: jazz.ui model: Horizontal-Line) 33 | (<Toolbox-Model> unit: jazz.ui model: Vertical-Line)) 34 | (<Toolbox-Group> name: "Entry" 35 | (<Toolbox-Model> unit: jazz.ui model: Entry-Widget) 36 | (<Toolbox-Model> unit: jazz.ui model: Text-Widget) 37 | (<Toolbox-Model> unit: jazz.ui model: Tree-Widget) 38 | (<Toolbox-Model> unit: jazz.ui model: Combo-Box) 39 | (<Toolbox-Model> unit: jazz.ui model: Moniker-Widget) 40 | (<Toolbox-Model> unit: jazz.ui model: Note-Widget) 41 | (<Toolbox-Model> unit: jazz.designer model: Property-View)) 42 | (<Toolbox-Group> name: "Menu" 43 | (<Toolbox-Model> unit: jazz.ui model: Menubar) 44 | (<Toolbox-Model> unit: jazz.ui model: Menu) 45 | (<Toolbox-Model> unit: jazz.ui model: Label-Item) 46 | (<Toolbox-Model> unit: jazz.ui model: Check-Item) 47 | (<Toolbox-Model> unit: jazz.ui model: Radio-Item) 48 | (<Toolbox-Model> unit: jazz.ui model: Separator-Item) 49 | (<Toolbox-Model> unit: jazz.ui model: File-Base-Menu) 50 | (<Toolbox-Model> unit: jazz.ui model: File-Menu) 51 | (<Toolbox-Model> unit: jazz.ui model: Edit-Base-Menu) 52 | (<Toolbox-Model> unit: jazz.ui model: Edit-Menu) 53 | (<Toolbox-Model> unit: jazz.ui model: Window-Menu))))) 54 | -------------------------------------------------------------------------------- /lib/jedi/templates/profile/jazz/.jedi/%settings-version%/profiles/lib/%profile-unit%/profile/%profile-lowercase%/settings/Workbench.jml: -------------------------------------------------------------------------------- 1 | ;;;============== 2 | ;;; JazzScheme 3 | ;;;============== 4 | ;;; 5 | ;;;; Workbench 6 | ;;; 7 | 8 | 9 | (data jazz.ide.data.workbench 10 | 11 | 12 | (form 13 | (<Workbench> 14 | (<*> tag-reference: {File Profiles "lib" "%profile-unit%" ".project"})))) 15 | -------------------------------------------------------------------------------- /lib/jedi/templates/profile/jazz/.jedi/%settings-version%/projects/.repository: -------------------------------------------------------------------------------- 1 | (repository Projects 2 | 3 | (library "lib")) 4 | -------------------------------------------------------------------------------- /lib/jedi/templates/project/empty/%project%.project: -------------------------------------------------------------------------------- 1 | ;;;============== 2 | ;;; JazzScheme 3 | ;;;============== 4 | ;;; 5 | ;;;; Project 6 | ;;; 7 | 8 | 9 | (data jazz.ide.data.project 10 | 11 | 12 | (form 13 | (<Project> title: "%project%"))) 14 | -------------------------------------------------------------------------------- /lib/jedi/templates/project/gambit/%project%/%product%.project: -------------------------------------------------------------------------------- 1 | ;;;============== 2 | ;;; JazzScheme 3 | ;;;============== 4 | ;;; 5 | ;;;; Jazz-Project 6 | ;;; 7 | 8 | 9 | ;; Gambit projects use the Jazz-Project class for debugging services 10 | ;; until Gambit provides its own support 11 | 12 | 13 | (data jazz.debugger.gambit.data.project 14 | 15 | 16 | (form 17 | (<Jazz-Project> name: %project-title% directory: {Directory Projects} product: %product%))) 18 | -------------------------------------------------------------------------------- /lib/jedi/templates/project/gambit/%project%/.package: -------------------------------------------------------------------------------- 1 | (package %package% 2 | 3 | (root "src") 4 | (products (%product% (unit %product-unit%.product) 5 | (update %product-unit%.product) 6 | (run %product-unit%.run) 7 | (dependencies jazz))) 8 | (project ".project")) 9 | -------------------------------------------------------------------------------- /lib/jedi/templates/project/gambit/%project%/.project: -------------------------------------------------------------------------------- 1 | ;;;============== 2 | ;;; JazzScheme 3 | ;;;============== 4 | ;;; 5 | ;;;; Project 6 | ;;; 7 | 8 | 9 | (data jazz.ide.data.project 10 | 11 | 12 | (form 13 | (<Project> name: %product-unit% description-file: {File :context ".package"} 14 | (<*> tag-reference: {File :context "%product%.project"})))) 15 | -------------------------------------------------------------------------------- /lib/jedi/templates/project/gambit/%project%/src/%product-directories%/product.jazz: -------------------------------------------------------------------------------- 1 | ;;;============== 2 | ;;; JazzScheme 3 | ;;;============== 4 | ;;; 5 | ;;;; %product-title% Product 6 | ;;; 7 | 8 | 9 | (unit %product-unit%.product 10 | 11 | 12 | ;;; 13 | ;;;; Register 14 | ;;; 15 | 16 | 17 | (jazz:register-product '%product% 18 | title: "%product-title%")) 19 | -------------------------------------------------------------------------------- /lib/jedi/templates/project/gambit/%project%/src/%product-directories%/run.jazz: -------------------------------------------------------------------------------- 1 | ;;;============== 2 | ;;; JazzScheme 3 | ;;;============== 4 | ;;; 5 | ;;;; %product-title% Run 6 | ;;; 7 | 8 | 9 | (unit %product-unit%.run 10 | 11 | 12 | ;;; 13 | ;;;; Run 14 | ;;; 15 | 16 | 17 | (define (run descriptor) 18 | (start-scheme-repl)) 19 | 20 | 21 | ;;; 22 | ;;;; Register 23 | ;;; 24 | 25 | 26 | (jazz:register-product-run '%product% 27 | run)) 28 | -------------------------------------------------------------------------------- /lib/jedi/templates/project/jazz/application/empty/%project%/%product%.project: -------------------------------------------------------------------------------- 1 | ;;;============== 2 | ;;; JazzScheme 3 | ;;;============== 4 | ;;; 5 | ;;;; Jazz-Project 6 | ;;; 7 | 8 | 9 | (data jazz.debugger.jazz.data.project 10 | 11 | 12 | (form 13 | (<Jazz-Project> name: %project-title% directory: {Directory Projects} product: %product%))) 14 | -------------------------------------------------------------------------------- /lib/jedi/templates/project/jazz/application/empty/%project%/.package: -------------------------------------------------------------------------------- 1 | (package %package% 2 | 3 | (root "src") 4 | (products (%product% (title "%product-title%") 5 | (run %product-unit%.run) 6 | (update %product-unit%.application 7 | %product-unit%.run) 8 | (build (%product%)) 9 | (dependencies jazz 10 | jazz.debuggee 11 | jazz.designer 12 | jazz.editor.jazz 13 | jazz.graphic 14 | jazz.io 15 | jazz.markup 16 | jazz.media 17 | jazz.network 18 | jazz.platform 19 | jazz.presence 20 | jazz.profile 21 | jazz.ui 22 | contrib.irregex 23 | srfi-19 24 | profiler))) 25 | (project ".project")) 26 | -------------------------------------------------------------------------------- /lib/jedi/templates/project/jazz/application/empty/%project%/.project: -------------------------------------------------------------------------------- 1 | ;;;============== 2 | ;;; JazzScheme 3 | ;;;============== 4 | ;;; 5 | ;;;; Project 6 | ;;; 7 | 8 | 9 | (data jazz.ide.data.project 10 | 11 | 12 | (form 13 | (<Project> name: %product-unit% description-file: {File :context ".package"} 14 | (<*> tag-reference: {File :context "%product%.project"})))) 15 | -------------------------------------------------------------------------------- /lib/jedi/templates/project/jazz/application/empty/%project%/src/%product-directories%/application.jazz: -------------------------------------------------------------------------------- 1 | ;;;============== 2 | ;;; JazzScheme 3 | ;;;============== 4 | ;;; 5 | ;;;; %product-title% 6 | ;;; 7 | 8 | 9 | (module %product-unit%.application jazz 10 | 11 | 12 | (import (jazz.application) 13 | (jazz.markup) 14 | (jazz.platform) 15 | (jazz.ui) 16 | (jazz.window)) 17 | 18 | 19 | ;;; 20 | ;;;; Application 21 | ;;; 22 | 23 | 24 | (class %project-name%-Application extends Application 25 | 26 | 27 | (method override (process-name self) 28 | "%project-title%") 29 | 30 | 31 | (method override (new-toplevel self) 32 | (new %project-name%-Toplevel))) 33 | 34 | 35 | ;;; 36 | ;;;; Toplevel 37 | ;;; 38 | 39 | 40 | (class %project-name%-Toplevel extends Toplevel 41 | 42 | 43 | (form 44 | (<install> caption-base: "%project-title%" size: {Dimension 400 400})))) 45 | -------------------------------------------------------------------------------- /lib/jedi/templates/project/jazz/application/empty/%project%/src/%product-directories%/run.jazz: -------------------------------------------------------------------------------- 1 | ;;;============== 2 | ;;; JazzScheme 3 | ;;;============== 4 | ;;; 5 | ;;;; %product-title% Run 6 | ;;; 7 | 8 | 9 | (module %product-unit%.run jazz 10 | 11 | 12 | (import (%product-unit%.application) 13 | (jazz.process)) 14 | 15 | 16 | (register-product-run '%product% 17 | (lambda (descriptor) 18 | (boot-environment (new %project-name%-Application))))) 19 | -------------------------------------------------------------------------------- /lib/jedi/templates/project/jazz/application/standard/%project%/%product%.project: -------------------------------------------------------------------------------- 1 | ;;;============== 2 | ;;; JazzScheme 3 | ;;;============== 4 | ;;; 5 | ;;;; Jazz-Project 6 | ;;; 7 | 8 | 9 | (data jazz.debugger.jazz.data.project 10 | 11 | 12 | (form 13 | (<Jazz-Project> name: %project-title% directory: {Directory Projects} product: %product%))) 14 | -------------------------------------------------------------------------------- /lib/jedi/templates/project/jazz/application/standard/%project%/.package: -------------------------------------------------------------------------------- 1 | (package %package% 2 | 3 | (root "src") 4 | (products (%product% (title "%product-title%") 5 | (run %product-unit%.run) 6 | (update %product-unit%.application 7 | %product-unit%.run) 8 | (build (%product%)) 9 | (dependencies jazz 10 | jazz.debuggee 11 | jazz.designer 12 | jazz.editor.jazz 13 | jazz.graphic 14 | jazz.io 15 | jazz.markup 16 | jazz.media 17 | jazz.network 18 | jazz.platform 19 | jazz.presence 20 | jazz.profile 21 | jazz.ui 22 | contrib.irregex 23 | srfi-19 24 | profiler))) 25 | (project ".project")) 26 | -------------------------------------------------------------------------------- /lib/jedi/templates/project/jazz/application/standard/%project%/.project: -------------------------------------------------------------------------------- 1 | ;;;============== 2 | ;;; JazzScheme 3 | ;;;============== 4 | ;;; 5 | ;;;; Project 6 | ;;; 7 | 8 | 9 | (data jazz.ide.data.project 10 | 11 | 12 | (form 13 | (<Project> name: %product-unit% description-file: {File :context ".package"} 14 | (<*> tag-reference: {File :context "%product%.project"})))) 15 | -------------------------------------------------------------------------------- /lib/jedi/templates/project/jazz/application/standard/%project%/src/%product-directories%/application.jazz: -------------------------------------------------------------------------------- 1 | ;;;============== 2 | ;;; JazzScheme 3 | ;;;============== 4 | ;;; 5 | ;;;; %product-title% 6 | ;;; 7 | 8 | 9 | (module %product-unit%.application jazz 10 | 11 | 12 | (import (jazz.action) 13 | (jazz.application) 14 | (jazz.debuggee) 15 | (jazz.layout) 16 | (jazz.markup) 17 | (jazz.menu) 18 | (jazz.platform) 19 | (jazz.reference) 20 | (jazz.resource) 21 | (jazz.text) 22 | (jazz.ui) 23 | (jazz.window) 24 | (jazz.workspace)) 25 | 26 | 27 | ;;; 28 | ;;;; Application 29 | ;;; 30 | 31 | 32 | (class %project-name%-Application extends Application 33 | 34 | 35 | (method override (process-name self) 36 | "%project-title%") 37 | 38 | 39 | (method override (new-toplevel self) 40 | (new %project-name%-Toplevel)) 41 | 42 | 43 | (method override (default-preferences self) 44 | (new %project-name%-Preferences)) 45 | 46 | 47 | (method override (default-workspaces self) 48 | (new %project-name%-Workspaces)) 49 | 50 | 51 | ;;; 52 | ;;;; Frames 53 | ;;; 54 | 55 | 56 | (method override (default-frame-class self) 57 | Plain-Text-View) 58 | 59 | 60 | (method override (known-extension-frame-class self ext) 61 | (cond ((member? ext '("txt" "text") test: ci=?) Plain-Text-View) 62 | (else (nextmethod self ext))))) 63 | 64 | 65 | ;;; 66 | ;;;; Preferences 67 | ;;; 68 | 69 | 70 | (class %project-name%-Preferences extends Application-Preferences 71 | 72 | 73 | (form 74 | (<install> toolbar-classes: ((:menubar . {Reference %project-name%-Menubar}) (:toolbar . {Reference %project-name%-Toolbar}) (:status . {Reference %project-name%-Status}))))) 75 | 76 | 77 | ;;; 78 | ;;;; Workspaces 79 | ;;; 80 | 81 | 82 | (class %project-name%-Workspaces extends Workspaces-Preferences 83 | 84 | 85 | (form 86 | (<install> active: home 87 | (<%project-name%-Workspace> name: home)))) 88 | 89 | 90 | ;;; 91 | ;;;; Workspace 92 | ;;; 93 | 94 | 95 | (class %project-name%-Workspace extends Workspace-Preferences 96 | 97 | 98 | (form 99 | (<install> title: "Home" icon: {Image-Resource "WorkspaceHome"} 100 | (<Menubar-Preferences> name: menubar location: root 101 | (<Mainbar-Preferences> name: toolbar location: second 102 | (<Status-Preferences> name: status location: second 103 | (<Stage-Preferences> name: top location: first))))))) 104 | 105 | 106 | ;;; 107 | ;;;; Toplevel 108 | ;;; 109 | 110 | 111 | (class %project-name%-Toplevel extends Toplevel 112 | 113 | 114 | (form 115 | (<install> caption-base: "%project-title%" size: {Dimension 750 500}))) 116 | 117 | 118 | ;;; 119 | ;;;; Menubar 120 | ;;; 121 | 122 | 123 | (class %project-name%-Menubar extends Menubar 124 | 125 | 126 | (method override (install self rest) 127 | (nextmethod self rest) 128 | (with-update-locked self 129 | (lambda () 130 | (new Label-Item parent: self name: 'file content: (new File-Base-Menu)) 131 | (new Label-Item parent: self name: 'edit content: (new Edit-Base-Menu)) 132 | (new Label-Item parent: self name: 'window content: (new Window-Menu)) 133 | (new Label-Item parent: self name: 'help content: (new Help-Menu)))))) 134 | 135 | 136 | ;;; 137 | ;;;; Help-Menu 138 | ;;; 139 | 140 | 141 | (class Help-Menu extends Menu 142 | 143 | 144 | (form 145 | (<install> title: "Help" 146 | (<Label-Item> title: "About %project-title%..." icon: {Image-Resource "About"} action-handler: {Action application about})))) 147 | 148 | 149 | ;;; 150 | ;;;; Toolbar 151 | ;;; 152 | 153 | 154 | (class %project-name%-Toolbar extends Toolbar 155 | 156 | 157 | (form 158 | (<install> 159 | (<Action-Icon> name: new tooltip-text: "New" resource: {Image-Resource "New"} action-handler: {Action application new}) 160 | (<Action-Icon> name: open tooltip-text: "Open" resource: {Image-Resource "Open"} action-handler: {Action application open}) 161 | (<Action-Icon> name: save tooltip-text: "Save" resource: {Image-Resource "Save"} action-handler: {Action guest save}) 162 | (<Separator>) 163 | (<Action-Icon> name: cut tooltip-text: "Cut" resource: {Image-Resource "Cut"} action-handler: {Action view cut}) 164 | (<Action-Icon> name: copy tooltip-text: "Copy" resource: {Image-Resource "Copy"} action-handler: {Action view copy}) 165 | (<Action-Icon> name: paste tooltip-text: "Paste" resource: {Image-Resource "Paste"} action-handler: {Action view paste}) 166 | (<Separator>) 167 | (<Action-Icon> name: undo tooltip-text: "Undo" resource: {Image-Resource "Undo"} action-handler: {Action view undo}) 168 | (<Action-Icon> name: redo tooltip-text: "Redo" resource: {Image-Resource "Redo"} action-handler: {Action view redo})))) 169 | 170 | 171 | ;;; 172 | ;;;; Status 173 | ;;; 174 | 175 | 176 | (class %project-name%-Status extends Status-Toolbar 177 | 178 | 179 | (form 180 | (<install> 181 | (<Status-Label> name: message size: {Dimension 782 20} location: center))))) 182 | -------------------------------------------------------------------------------- /lib/jedi/templates/project/jazz/application/standard/%project%/src/%product-directories%/run.jazz: -------------------------------------------------------------------------------- 1 | ;;;============== 2 | ;;; JazzScheme 3 | ;;;============== 4 | ;;; 5 | ;;;; %product-title% Run 6 | ;;; 7 | 8 | 9 | (module %product-unit%.run jazz 10 | 11 | 12 | (import (%product-unit%.application) 13 | (jazz.process)) 14 | 15 | 16 | (register-product-run '%product% 17 | (lambda (descriptor) 18 | (boot-environment (new %project-name%-Application))))) 19 | -------------------------------------------------------------------------------- /lib/jedi/templates/project/jazz/empty/%project%/%product%.project: -------------------------------------------------------------------------------- 1 | ;;;============== 2 | ;;; JazzScheme 3 | ;;;============== 4 | ;;; 5 | ;;;; Jazz-Project 6 | ;;; 7 | 8 | 9 | (data jazz.debugger.jazz.data.project 10 | 11 | 12 | (form 13 | (<Jazz-Project> name: %project-title% directory: {Directory Projects} product: %product%))) 14 | -------------------------------------------------------------------------------- /lib/jedi/templates/project/jazz/empty/%project%/.package: -------------------------------------------------------------------------------- 1 | (package %package% 2 | 3 | (root "src") 4 | (products (%product% (unit %product-unit%.product) 5 | (update %product-unit%.product) 6 | (build (%product%)) 7 | (dependencies jazz))) 8 | (project ".project")) 9 | -------------------------------------------------------------------------------- /lib/jedi/templates/project/jazz/empty/%project%/.project: -------------------------------------------------------------------------------- 1 | ;;;============== 2 | ;;; JazzScheme 3 | ;;;============== 4 | ;;; 5 | ;;;; Project 6 | ;;; 7 | 8 | 9 | (data jazz.ide.data.project 10 | 11 | 12 | (form 13 | (<Project> name: %product-unit% description-file: {File :context ".package"} 14 | (<*> tag-reference: {File :context "%product%.project"})))) 15 | -------------------------------------------------------------------------------- /lib/jedi/templates/project/jazz/empty/%project%/src/%product-directories%/product.jazz: -------------------------------------------------------------------------------- 1 | ;;;============== 2 | ;;; JazzScheme 3 | ;;;============== 4 | ;;; 5 | ;;;; %product-title% Product 6 | ;;; 7 | 8 | 9 | (module %product-unit%.product jazz 10 | 11 | 12 | ;;; 13 | ;;;; Run 14 | ;;; 15 | 16 | 17 | (definition (run descriptor) 18 | (start-jazz-repl)) 19 | 20 | 21 | ;;; 22 | ;;;; Register 23 | ;;; 24 | 25 | 26 | (register-product '%product% 27 | title: "%product-title%" 28 | run: run)) 29 | -------------------------------------------------------------------------------- /lib/jedi/templates/project/jazz/package/%project%/.package: -------------------------------------------------------------------------------- 1 | (package %project% 2 | 3 | (root "src") 4 | (products (%project% (dependencies jazz))) 5 | (project ".project")) 6 | -------------------------------------------------------------------------------- /lib/jedi/templates/project/jazz/package/%project%/.project: -------------------------------------------------------------------------------- 1 | ;;;============== 2 | ;;; JazzScheme 3 | ;;;============== 4 | ;;; 5 | ;;;; Project 6 | ;;; 7 | 8 | 9 | (data jazz.ide.data.project 10 | 11 | 12 | (form 13 | (<Project> name: %project% description-file: {File :context ".package"}))) 14 | -------------------------------------------------------------------------------- /lib/jedi/templates/project/jazz/process/%project%/%product%.project: -------------------------------------------------------------------------------- 1 | ;;;============== 2 | ;;; JazzScheme 3 | ;;;============== 4 | ;;; 5 | ;;;; Jazz-Project 6 | ;;; 7 | 8 | 9 | (data jazz.debugger.jazz.data.project 10 | 11 | 12 | (form 13 | (<Jazz-Project> name: %project-title% directory: {Directory Projects} product: %product%))) 14 | -------------------------------------------------------------------------------- /lib/jedi/templates/project/jazz/process/%project%/.package: -------------------------------------------------------------------------------- 1 | (package %package% 2 | 3 | (root "src") 4 | (products (%product% (title "%product-title%") 5 | (run %product-unit%.run) 6 | (update %product-unit%.process 7 | %product-unit%.run) 8 | (build (%product%)) 9 | (dependencies jazz))) 10 | (project ".project")) 11 | -------------------------------------------------------------------------------- /lib/jedi/templates/project/jazz/process/%project%/.project: -------------------------------------------------------------------------------- 1 | ;;;============== 2 | ;;; JazzScheme 3 | ;;;============== 4 | ;;; 5 | ;;;; Project 6 | ;;; 7 | 8 | 9 | (data jazz.ide.data.project 10 | 11 | 12 | (form 13 | (<Project> name: %product-unit% description-file: {File :context ".package"} 14 | (<*> tag-reference: {File :context "%product%.project"})))) 15 | -------------------------------------------------------------------------------- /lib/jedi/templates/project/jazz/process/%project%/src/%product-directories%/process.jazz: -------------------------------------------------------------------------------- 1 | ;;;============== 2 | ;;; JazzScheme 3 | ;;;============== 4 | ;;; 5 | ;;;; %product-title% 6 | ;;; 7 | 8 | 9 | (module %product-unit%.process jazz 10 | 11 | 12 | (import (jazz.platform) 13 | (jazz.process)) 14 | 15 | 16 | (class %project-name%-Process extends Process 17 | 18 | 19 | (method override (start-process) 20 | (system-message "Hello %product-title%!") 21 | (quit-process)))) 22 | -------------------------------------------------------------------------------- /lib/jedi/templates/project/jazz/process/%project%/src/%product-directories%/run.jazz: -------------------------------------------------------------------------------- 1 | ;;;============== 2 | ;;; JazzScheme 3 | ;;;============== 4 | ;;; 5 | ;;;; %product-title% Run 6 | ;;; 7 | 8 | 9 | (module %product-unit%.run jazz 10 | 11 | 12 | (import (%product-unit%.process)) 13 | 14 | 15 | (register-product-run '%product% 16 | (lambda (descriptor) 17 | (boot-environment~ (new %project-name%-Process))))) 18 | -------------------------------------------------------------------------------- /lib/jedi/templates/project/jazz/repository/%project%/.project: -------------------------------------------------------------------------------- 1 | ;;;============== 2 | ;;; JazzScheme 3 | ;;;============== 4 | ;;; 5 | ;;;; Project 6 | ;;; 7 | 8 | 9 | (data jazz.ide.data.project 10 | 11 | 12 | (form 13 | (<Project> name: %project% description-file: {File :context ".repository"}))) 14 | -------------------------------------------------------------------------------- /lib/jedi/templates/project/jazz/repository/%project%/.repository: -------------------------------------------------------------------------------- 1 | (repository %project% 2 | 3 | (library "lib")) 4 | -------------------------------------------------------------------------------- /lib/jedi/templates/repository/%dirname%/.repository: -------------------------------------------------------------------------------- 1 | (repository %name%) 2 | -------------------------------------------------------------------------------- /lib/jedi/templates/workspace/Debugger.jazz.template: -------------------------------------------------------------------------------- 1 | (<Workspace-Preferences> title: "Debugger" icon: {Image-Resource "WorkspaceDebugger"} shortcut: {Shortcut :alt :shift #\D} 2 | (<Menubar-Preferences> name: menubar location: root 3 | (<Mainbar-Preferences> name: toolbar location: second 4 | (<Status-Preferences> name: status location: second 5 | (<Splitter-Preferences> name: top location: first orientation: vert mode: relative division: 23 insets: {Rect 5 5 5 5} 6 | (<Splitter-Preferences> location: first orientation: horz division: 668 7 | (<Splitter-Preferences> location: first orientation: horz division: 160 8 | (<Docked-Preferences> location: first model-name: Processes-View) 9 | (<Splitter-Preferences> location: second orientation: horz division: 250 10 | (<Docked-Preferences> location: first model-name: Threads-View) 11 | (<Pad-Preferences> location: second 12 | (<Docked-Preferences> location: selection model-name: Exception-View) 13 | (<Docked-Preferences> location: {} model-name: Frames-View)))) 14 | (<Docked-Preferences> location: second model-name: Variables-View)) 15 | (<Splitter-Preferences> location: second orientation: horz mode: relative division: 33 16 | (<Splitter-Preferences> location: first mode: relative division: 50 orientation: horz 17 | (<Pad-Preferences> location: first 18 | (<Docked-Preferences> location: selection model-name: Workbench-Manager) 19 | (<Docked-Preferences> location: {} model-name: Repositories-Manager)) 20 | (<Splitter-Preferences> location: second mode: relative division: 31 orientation: vert 21 | (<Docked-Preferences> location: first model-name: Chapters-Browser) 22 | (<Docked-Preferences> location: second model-name: Hierarchy-Browser))) 23 | (<Splitter-Preferences> location: second orientation: vert mode: relative division: -29 24 | (<Stage-Preferences> location: first) 25 | (<Pad-Preferences> location: second 26 | (<Docked-Preferences> location: selection model-name: Lisp-Console-Manager) 27 | (<Docked-Preferences> location: {} model-name: Properties-Manager) 28 | (<Docked-Preferences> location: {} model-name: Search-Results) 29 | (<Docked-Preferences> location: {} model-name: Profile-Results) 30 | (<Docked-Preferences> location: {} model-name: Web-Servers-Manager))))))))) 31 | -------------------------------------------------------------------------------- /lib/jedi/templates/workspace/Designer.jazz.template: -------------------------------------------------------------------------------- 1 | (<Workspace-Preferences> title: "Designer" icon: {Image-Resource "Designer"} shortcut: {Shortcut :alt :shift #\X} frame-model: View-Editor 2 | (<Menubar-Preferences> name: menubar location: root 3 | (<Mainbar-Preferences> name: toolbar location: second 4 | (<Status-Preferences> name: status location: second 5 | (<Splitter-Preferences> name: top location: first orientation: horz mode: relative division: 18 insets: {Rect 5 5 5 5} 6 | (<Splitter-Preferences> location: first orientation: vert mode: relative division: 52 7 | (<Splitter-Preferences> location: first orientation: vert mode: relative division: 65 8 | (<Docked-Preferences> location: first model-name: Toolbox-Manager) 9 | (<Docked-Preferences> location: second model-name: Branches-Editor)) 10 | (<Docked-Preferences> location: second model-name: View-Descendants-Editor)) 11 | (<Splitter-Preferences> location: second orientation: horz division: -300 12 | (<Splitter-Preferences> location: first orientation: vert division: 58 13 | (<Splitter-Preferences> location: first orientation: horz division: 146 14 | (<Docked-Preferences> location: first model-name: Designer-Manager) 15 | (<Docked-Preferences> location: second model-name: Alignment-Editor)) 16 | (<Stage-Preferences> location: second)) 17 | (<Splitter-Preferences> location: second orientation: vert mode: relative division: -20 18 | (<Docked-Preferences> location: first model-name: Properties-Manager) 19 | (<Docked-Preferences> location: second model-name: Lisp-Console-Manager)))))))) 20 | -------------------------------------------------------------------------------- /lib/jedi/templates/workspace/Formatted.jazz.template: -------------------------------------------------------------------------------- 1 | (<Workspace-Preferences> title: "Formatted" icon: {Image-Resource "ForegroundColor"} shortcut: {Shortcut :alt :shift #\F} frame-model: Plain-Formatted-Text-View 2 | (<Menubar-Preferences> name: menubar location: root 3 | (<Mainbar-Preferences> name: toolbar location: second 4 | (<Status-Preferences> name: status location: second 5 | (<Splitter-Preferences> name: top location: first orientation: horz mode: relative division: 36 insets: {Rect 5 5 5 5} 6 | (<Splitter-Preferences> location: first orientation: vert mode: relative division: -27 7 | (<Pad-Preferences> location: second 8 | (<Docked-Preferences> location: selection model-name: Lisp-Console-Manager) 9 | (<Docked-Preferences> location: {} model-name: Properties-Manager) 10 | (<Docked-Preferences> location: {} model-name: Search-Results)) 11 | (<Splitter-Preferences> mode: relative division: 46 location: first orientation: horz 12 | (<Splitter-Preferences> mode: relative division: 31 location: second orientation: vert location: second 13 | (<Docked-Preferences> location: first model-name: Chapters-Browser) 14 | (<Docked-Preferences> location: second model-name: Hierarchy-Browser)) 15 | (<Pad-Preferences> location: first 16 | (<Docked-Preferences> location: selection model-name: Workbench-Manager)))) 17 | (<Splitter-Preferences> location: second division: 59 orientation: vert 18 | (<Docked-Preferences> location: first model-name: Text-Palette) 19 | (<Stage-Preferences> location: second))))))) 20 | -------------------------------------------------------------------------------- /lib/jedi/templates/workspace/Groupware.jazz.template: -------------------------------------------------------------------------------- 1 | (<Workspace-Preferences> title: "Groupware" icon: {Image-Resource "WorkspaceGroupware"} shortcut: {Shortcut :alt :shift #\G} 2 | (<Menubar-Preferences> name: menubar location: root 3 | (<Mainbar-Preferences> name: toolbar location: second 4 | (<Status-Preferences> name: status location: second 5 | (<Splitter-Preferences> name: top location: first state: zoom target: second orientation: horz mode: relative division: 25 insets: {Rect 5 5 5 5} 6 | (<Splitter-Preferences> location: first orientation: vert mode: relative division: -31 7 | (<Pad-Preferences> location: first 8 | (<Docked-Preferences> location: selection model-name: Workbench-Manager) 9 | (<Docked-Preferences> location: {} model-name: Repositories-Manager)) 10 | (<Pad-Preferences> location: second 11 | (<Docked-Preferences> location: selection model-name: Lisp-Console-Manager) 12 | (<Docked-Preferences> location: {} model-name: Properties-Manager) 13 | (<Docked-Preferences> location: {} model-name: Search-Results))) 14 | (<Stage-Preferences> location: second)))))) 15 | -------------------------------------------------------------------------------- /lib/jedi/templates/workspace/Help.jazz.template: -------------------------------------------------------------------------------- 1 | (<Workspace-Preferences> title: "Help" icon: {Image-Resource "Help"} shortcut: {Shortcut :alt :shift #\H} 2 | (<Menubar-Preferences> name: menubar location: root 3 | (<Mainbar-Preferences> name: toolbar location: second 4 | (<Status-Preferences> name: status location: second 5 | (<Splitter-Preferences> name: top location: first orientation: horz mode: relative division: 18 insets: {Rect 5 5 5 5} 6 | (<Docked-Preferences> location: first model-name: Help-Contents) 7 | (<Stage-Preferences> location: second)))))) 8 | -------------------------------------------------------------------------------- /lib/jedi/templates/workspace/Home.jazz.template: -------------------------------------------------------------------------------- 1 | (<Workspace-Preferences> title: "Home" icon: {Image-Resource "WorkspaceHome"} shortcut: {Shortcut :alt :shift #\A} 2 | (<Menubar-Preferences> name: menubar location: root 3 | (<Mainbar-Preferences> name: toolbar location: second 4 | (<Status-Preferences> name: status location: second 5 | (<Splitter-Preferences> name: top location: first orientation: horz mode: relative division: 20 insets: {Rect 5 5 5 5} 6 | (<Splitter-Preferences> location: second orientation: vert mode: relative division: -27 7 | (<Stage-Preferences> location: first maximized?: #f) 8 | (<Pad-Preferences> location: second 9 | (<Docked-Preferences> location: selection model-name: Lisp-Console-Manager) 10 | (<Docked-Preferences> location: {} model-name: Properties-Manager) 11 | (<Docked-Preferences> location: {} model-name: Search-Results) 12 | (<Docked-Preferences> location: {} model-name: Profile-Results) 13 | (<Docked-Preferences> location: {} model-name: Web-Servers-Manager))) 14 | (<Pad-Preferences> location: first 15 | (<Docked-Preferences> location: selection model-name: Workbench-Manager) 16 | (<Docked-Preferences> location: {} model-name: Repositories-Manager))))))) 17 | -------------------------------------------------------------------------------- /lib/jedi/templates/workspace/SQL.jazz.template: -------------------------------------------------------------------------------- 1 | (<Workspace-Preferences> title: "SQL" icon: {Image-Resource "WorkspaceSQL"} shortcut: {Shortcut :alt :shift #\L} frame-model: SQL-Text-View 2 | (<Menubar-Preferences> name: menubar location: root 3 | (<Mainbar-Preferences> name: toolbar location: second 4 | (<Status-Preferences> name: status location: second 5 | (<Splitter-Preferences> name: top location: first orientation: horz mode: relative division: 36 insets: {Rect 5 5 5 5} 6 | (<Splitter-Preferences> location: first orientation: vert mode: relative division: -27 7 | (<Pad-Preferences> location: second 8 | (<Docked-Preferences> location: selection model-name: SQL-Console-Manager) 9 | (<Docked-Preferences> location: {} model-name: Lisp-Console-Manager) 10 | (<Docked-Preferences> location: {} model-name: Properties-Manager) 11 | (<Docked-Preferences> location: {} model-name: Search-Results)) 12 | (<Splitter-Preferences> mode: relative division: 42 location: first orientation: horz 13 | (<Splitter-Preferences> mode: relative division: -43 location: second orientation: vert 14 | (<Docked-Preferences> location: first model-name: Chapters-Browser) 15 | (<Docked-Preferences> location: second model-name: SQL-Connections-Manager)) 16 | (<Docked-Preferences> location: first model-name: Workbench-Manager))) 17 | (<Splitter-Preferences> location: second orientation: vert mode: relative division: -41 18 | (<Stage-Preferences> location: first) 19 | (<Pad-Preferences> location: second 20 | (<Docked-Preferences> location: selection model-name: SQL-Tree-Output) 21 | (<Docked-Preferences> location: {} model-name: SQL-Text-Output)))))))) 22 | -------------------------------------------------------------------------------- /lib/jedi/templates/workspace/Text.jazz.template: -------------------------------------------------------------------------------- 1 | (<Workspace-Preferences> title: "Text" icon: {Image-Resource "WorkspaceText"} shortcut: {Shortcut :alt :shift #\S} frame-model: Jazz-Text-View 2 | (<Menubar-Preferences> name: menubar location: root 3 | (<Mainbar-Preferences> name: toolbar location: second 4 | (<Status-Preferences> name: status location: second 5 | (<Splitter-Preferences> name: top location: first orientation: horz mode: relative division: 36 insets: {Rect 5 5 5 5} 6 | (<Splitter-Preferences> location: first orientation: vert mode: relative division: -27 7 | (<Pad-Preferences> location: second 8 | (<Docked-Preferences> location: selection model-name: Lisp-Console-Manager) 9 | (<Docked-Preferences> location: {} model-name: Properties-Manager) 10 | (<Docked-Preferences> location: {} model-name: Search-Results) 11 | (<Docked-Preferences> location: {} model-name: Profile-Results)) 12 | (<Splitter-Preferences> mode: relative division: 46 location: first orientation: horz 13 | (<Splitter-Preferences> mode: relative division: 31 location: second orientation: vert location: second 14 | (<Docked-Preferences> location: first model-name: Chapters-Browser) 15 | (<Docked-Preferences> location: second model-name: Hierarchy-Browser)) 16 | (<Pad-Preferences> location: first 17 | (<Docked-Preferences> location: selection model-name: Workbench-Manager) 18 | (<Docked-Preferences> location: {} model-name: Repositories-Manager)))) 19 | (<Stage-Preferences> location: second)))))) 20 | -------------------------------------------------------------------------------- /makefile: -------------------------------------------------------------------------------- 1 | all: 2 | @echo 'Jedi does not use the ./configure and make build process.' 3 | @echo 'See INSTALL for details and start the build system with ./jam.' 4 | --------------------------------------------------------------------------------