From d69a71ace10179efd973f502ce8642488223e984 Mon Sep 17 00:00:00 2001 From: dieter-wilhelm Date: Tue, 31 Mar 2020 22:19:07 +0200 Subject: [PATCH] Enable to start the Ansys Classics GUI --- apdl-mode.el | 8 +++---- apdl-mode.info | 64 ++++++++++++++++++++++++++----------------------- apdl-process.el | 36 ++++++++++++++++++++-------- info/TODO.md | 28 ++++++++++++---------- info/TODO.org | 3 +++ 5 files changed, 83 insertions(+), 56 deletions(-) diff --git a/apdl-mode.el b/apdl-mode.el index 435039d..899c619 100644 --- a/apdl-mode.el +++ b/apdl-mode.el @@ -1,5 +1,5 @@ ;;; apdl-mode.el --- Major mode for the scripting language APDL -*- lexical-binding: t -*- -;; Time-stamp: <2020-03-29> +;; Time-stamp: <2020-03-31> ;; Copyright (C) 2006 - 2020 H. Dieter Wilhelm GPL V3 @@ -1183,13 +1183,13 @@ number vXXX (apdl-ansys-install-directory)"] (apdl-license)"] ["Change Job Name of Run" apdl-job :label (concat "Change Job Name [" apdl-job "]") - :visible apdl-is-unix-system-flag + ;; :visible apdl-is-unix-system-flag :help "Specify the job name for an solver/interpreter run (apdl-job)"] ["Change the No of Processors" apdl-no-of-processors :label (format "Change the Number of Processors [%d]" apdl-no-of-processors) - :visible apdl-is-unix-system-flag + ;; :visible apdl-is-unix-system-flag :help "Specify the number of processors to use for the Ansys run definition (apdl-no-of-processors)"] "--" @@ -1212,7 +1212,7 @@ used (apdl-user-license-status)" (apdl-start-launcher)"] ["Ansys MAPDL Classics GUI" apdl-start-classics :active (and apdl-ansys-program (file-executable-p apdl-ansys-program)) - :visible apdl-is-unix-system-flag ; -TODO- can't get it to run! + ;; :visible apdl-is-unix-system-flag :help "Start the Ansys Classics MAPDL GUI (apdl-start-classics)"] ["Start Interactive Solver/Interpreter" apdl-start-ansys diff --git a/apdl-mode.info b/apdl-mode.info index 7edea20..1525516 100644 --- a/apdl-mode.info +++ b/apdl-mode.info @@ -3057,6 +3057,10 @@ File: apdl-mode.info, Node: Todos bugs, Next: minor bugs, Up: Version 2040 1 12.2.1 Todos, bugs ------------------ + • apdl-start-ansys (make-comint) - doesn’t start the launcher under + windows + • apdl-start-classics (start-process) - + * Menu: * State of documentation:: @@ -4433,36 +4437,36 @@ Node: Todos125979 Node: Version 2050 ?126317 Node: Version 2040 1126444 Node: Todos bugs126730 -Node: State of documentation126889 -Node: minor bugs129584 -Node: check129951 -Node: wishes130146 -Node: templates130295 -Node: misc130630 -Node: Done131062 -Node: Release proceedures131188 -Node: Version 2030 1131859 -Node: Version 2020 1132079 -Node: Version 2011 1132259 -Node: Version 162-2132731 -Node: Bugs133009 -Node: Freeze133978 -Node: Wish-list134335 -Node: Deficiencies140451 -Node: Procedures142112 -Node: Freeze proceedures142634 -Node: Release144161 -Node: Ideas for further versions144764 -Node: Parameter help and documentation145195 -Node: Ansys process and interpreter buffer147497 -Node: Skeletons outline and abbrevs150360 -Node: Miscellaneous 1152092 -Node: Ansys syntax restrictions not (yet) accounted for157082 -Node: Unknown Ansys stuff157985 -Node: Acknowledgements158268 -Node: GNU Free Documentation License158838 -Node: Variable Index183864 -Node: Concept Index184013 +Node: State of documentation127023 +Node: minor bugs129718 +Node: check130085 +Node: wishes130280 +Node: templates130429 +Node: misc130764 +Node: Done131196 +Node: Release proceedures131322 +Node: Version 2030 1131993 +Node: Version 2020 1132213 +Node: Version 2011 1132393 +Node: Version 162-2132865 +Node: Bugs133143 +Node: Freeze134112 +Node: Wish-list134469 +Node: Deficiencies140585 +Node: Procedures142246 +Node: Freeze proceedures142768 +Node: Release144295 +Node: Ideas for further versions144898 +Node: Parameter help and documentation145329 +Node: Ansys process and interpreter buffer147631 +Node: Skeletons outline and abbrevs150494 +Node: Miscellaneous 1152226 +Node: Ansys syntax restrictions not (yet) accounted for157216 +Node: Unknown Ansys stuff158119 +Node: Acknowledgements158402 +Node: GNU Free Documentation License158972 +Node: Variable Index183998 +Node: Concept Index184147  End Tag Table diff --git a/apdl-process.el b/apdl-process.el index 65e6762..8d56f69 100644 --- a/apdl-process.el +++ b/apdl-process.el @@ -240,7 +240,8 @@ Return nil if we can't find an MAPDL GUI." (defun apdl-start-classics () "Start the Ansys MAPDL Classics graphical user interface. The output of the solver is captured in an Emacs buffer called -*Classics*." +*Classics* under GNU-Linux. Under Windows it is not possible to +capture the output." (interactive) (let ((bname (concat "*"apdl-classics-process"*"))) (when (file-readable-p (concat default-directory apdl-job ".lock")) @@ -258,7 +259,7 @@ The output of the solver is captured in an Emacs buffer called (if (> apdl-no-of-processors 4) (concat ", No of procs: " (number-to-string apdl-no-of-processors)) "") - ", job: " (if (boundp 'apdl-job) apdl-job) + ", job: " apdl-job " in " default-directory ", lic server: " apdl-license-file " ")) (message "Starting MAPDL in GUI mode (Ansys Classics) ...") (error "Calling MAPDL solver (Ansys Classics) cancelled")) @@ -274,12 +275,16 @@ The output of the solver is captured in an Emacs buffer called bname nil) apdl-ansys-program - (concat " -g" - (concat " -p " apdl-license) - (concat " -np " (number-to-string apdl-no-of-processors)) - (concat " -j \"" apdl-job "\"") - " -d 3D" ; 3d device, win32 - )) + "-g" + "-p" apdl-license + "-lch" + "-np" (number-to-string apdl-no-of-processors) + "-j" apdl-job + "-s read" + "-l en-us" + "-t" + "-d 3D" ; 3d device, win32 + ) (display-buffer bname 'other-window))) (defun apdl-start-launcher () @@ -602,12 +607,23 @@ initial input." apdl-process-name)) (concat s "\n")) (display-buffer (concat "*" apdl-process-name "*") 'other-window))))) +;; from procuct launcher: +;; "C:\CAx\App\ANSYS Inc\v201\ansys\bin\winx64\MAPDL.exe" -g -p ansys -lch -dir "H:\" -j "file" -s read -l en-us -t -d 3D + + (defun apdl-start-mapdl () "Start the MAPDL interpreter (Ansys Classics) under Windows." (interactive) + ;(setq default-directory "c:/CAx/") (start-process ; asynchronous process - "MAPDL" "*MAPDL*" apdl-ansys-program - "-g -p " apdl-license " -j \"" apdl-job "\"")) + "MAPDL" "*MAPDL*" ; "c:/CAx/App/ANSYS Inc/v201/ansys/bin/winx64/MAPDL.exe" + apdl-ansys-program + "-g" "-p" apdl-license "-lch" (concat "-j " apdl-job) "-s read" "-l en-us" "-t" "-d 3D" +;; (concat "-g -p " apdl-license " -j " apdl-job "-d 3D") +;; (concat " -g -p " apdl-license ) + ;; (concat "-dir " default-directory) + )) + ;;;###autoload (defun apdl-start-ansys () diff --git a/info/TODO.md b/info/TODO.md index cad7f43..2ae35fe 100644 --- a/info/TODO.md +++ b/info/TODO.md @@ -1,21 +1,21 @@ # Table of Contents -1. [Version 20.5.0 ?](#org4c764d0) -2. [Version 20.4.0](#orgb9c7b85) -3. [Version 20.3.0](#org0dc2aab) -4. [Version 20.2.0](#orgcf7051a) -5. [Version 20.1.1](#org361ffca) -6. [Version 162-2:](#org1e55ca1) +1. [Version 20.5.0 ?](#orgd49629d) +2. [Version 20.4.0](#org715d40b) +3. [Version 20.3.0](#org641137f) +4. [Version 20.2.0](#orgdab2f13) +5. [Version 20.1.1](#org4a5c4c1) +6. [Version 162-2:](#orgd7e5a24) - + # Version 20.5.0 ? - + # TODO Version 20.4.0 @@ -24,6 +24,10 @@ updated to 2020R1 ## Todos, bugs +- apdl-start-ansys (make-comint) - doesn't start the launcher under + windows +- apdl-start-classics (start-process) - + ### State of documentation @@ -176,7 +180,7 @@ APDLPATCH := 0 (tags-search "((emacs \\"25.1\\"))") - + # DONE Version 20.3.0 @@ -185,14 +189,14 @@ Melpa feature freeze [2020-03-20 Fri] - + # DONE Version 20.2.0 [2020-03-10 Tue] - + # DONE Version 20.1.1 @@ -205,7 +209,7 @@ feature freeze [2020-03- - bug-report about package.el "NAME-readme.txt", done - + # Version 162-2: diff --git a/info/TODO.org b/info/TODO.org index 0aba692..3e4ffdb 100644 --- a/info/TODO.org +++ b/info/TODO.org @@ -112,6 +112,9 @@ the respective page section on Chrome and Edge!? - 1/en, en is variable but fraction not fontified? ** check + - apdl-start-ansys (make-comint) - doesn't start the launcher under + windows, but is redundant with -start-classics + - apdl-start-classics (start-process) - changed file size without warning to 30 MB what is Emacs-26 using? ** wishes