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