Ja, das liegt daran, dass die Makrosprache REXX-ähnlich ist, nur viel schneller und dass vieles als E-Makro ausgeführt wurde bzw. dass viele Callbacks vorhanden sind, die die Konfiguration von ansonsten Closed-Source-Aufrufen ermöglichen. Ich würde gerne den C-Quellcode von allem haben, dann ließe sich vieles fixen, das man jetzt entweder so hinnehmen muss oder mit schlechten Workarounds überdecken kann.MKH hat geschrieben: Fr 20. Mär 2020, 21:34 Erstaunlich, was man mit dem alten Editor alles anstellen kann.
Ich freue mich über jede Rückmeldung (oder Frage), besonders wenn sie so positiv ausfällt.
Nein, geht nicht. Auf die Anzeige der Zeilennummer hätte ich auch gerne Zugriff (in C), so dass man auch sinnvolles Folding ermöglichen könnte. Das wird aber wohl nicht kommen, weil die mögliche Umgehung mit E wahrscheinlich viel zu langsam ist. Irgendwann wollte ich es aber noch mal ausprobieren.MKH hat geschrieben: Fr 20. Mär 2020, 21:34 Konnte man bei EPM nicht die Zeilennummern direkt am linken Rand einblenden? Oder täusche ich mich da?
Ich hab mehrfach versucht mit MicroEdge Kontakt aufzunehmen wegen der OS/2 sourcen. Leider haben die nie geantwortet. Obwohl die 4.0 Version auch ein paar Macken hat, zum Programmieren unter OS/2 ist VS meiner Meinung aber noch immer unschlagbar. Nur wenn man auch die Win Version kennt merkt man, dass die OS/2 Version doch schon sehr alt ist.An Visual SlickEdit für OS/2 (jetzt VSlick) lommt der wohl noch nicht ran, aber den konnte ich nicht mehr ergattern.
Code: Alles auswählen
/* Fix for NEPMD 1.21 - Download and replace config.e and apply it. */
/* See http://trac.netlabs.org/nepmd/changeset/3919 for details. */
/* o Save this as replace_config_e.erx or similar. */
/* o Load this into NEPMD. */
/* o Press the Run button in the toolbar for execution. */
/* Don't apply this to other versions than 1.21 - it may require */
/* a re-install! */
/* After that, you can check with the EPM command 'NepmdInfo' if */
/* the loaded epm.ex is newer than the other netlabs files. */
CALL RxFuncAdd 'SysLoadFuncs', 'REXXUTIL', 'SysLoadFuncs'
CALL SysLoadFuncs
Url = 'http://svn.netlabs.org/repos/nepmd/!svn/bc/3919/trunk/src/netlabs/macros/config.e'
TmpFile = VALUE( 'TMP',, 'OS2ENVIRONMENT')'\config.e'
DestFile = '%NEPMD_ROOTDIR%\netlabs\macros\config.e'
CALL SysFileDelete TmpFile
'wget -T 10 -t 3 "'Url'" -O "'TmpFile'"'
/* rc of newer wget versions can't be used. */
fWgetFailed = 0
DO 1
IF STREAM( TmpFile, 'C', 'query exists') = '' THEN
DO
fWgetFailed = 1
LEAVE
END
IF STREAM( TmpFile, 'C', 'query size') = 0 THEN
DO
fWgetFailed = 1
LEAVE
END
END
IF fWgetFailed THEN
DO
'ErrorMsgBox 'TmpFile',Download failed. File can''t be installed. Url = 'Url
EXIT
END
'COPY "'TmpFile'" "'DestFile'"'
'Etpm epm.e %NEPMD_ROOTDIR%\netlabs\ex\epm'
/* Can't check rc. rc of an E command in REXX is always 0. */
'Restart closeother NepmdInfo'
EXIT
Beides ist nicht richtig. Man muss tatsächlich das als EPM-REXX-Datei ausführen. Dort sind E-Befehle bekannt, wozu auch Restart gehört.erdmann hat geschrieben: Di 7. Apr 2020, 09:36
Wenn ich das REXX script ausführe bekomme ich am Ende:
epm: G:\downloads > Restart closeother NepmdInfo
SYS1041: The name Restart is not recognized as an
internal or external command, operable program or batch file.
43 *-* 'Restart closeother NepmdInfo';
+++ RC(1041)
Ich habe es sowohl von einer normalen Kommandozeile als auch von der EPM Shell aus versucht.
Das kommt sicherlich vom fehlenden Shared Memory. Das hab ich selbst nur alle paar Monate mal. Eher crashen die Moster-Apps wie die Mozillen oder OOo oder Java.erdmann hat geschrieben: Di 7. Apr 2020, 11:45 Hallo Andreas ich bekomme diese Fehler in epm.log und zwar vielfach
[2020-04-07 9:43:05] DosAllocSeg failed err=0x8 in mymalloc; size=256; called from 0xb0a80ff2
[2020-04-07 9:43:05] DosAllocSeg failed err=0x8 in mymalloc; size=16368; called from 0xb10a0079
Nein, ich bin nicht schuld, das ist reiner IBM-Code.erdmann hat geschrieben: Di 7. Apr 2020, 11:45 1) hast du die Routine "mymalloc" irgendwo implementiert oder ist die Teil von ETKE603.DLL bzw. EPM.EXE ? Das "DosAllocSeg" benutzt wird, sagt mir, dass offensichtlich einfach der alte 16-bit Code mittels 32-bit Compiler neu übersetzt wurde. Das ist eher schlecht (DosAllocSeg hat viele 16-bit bedingte Einschränkungen die in einem 32-bit System nicht relevant sind. Z.B. kann man mit DosAllocSeg nicht im High Memory Speicher alloziieren).
2) ETKE603.DLL: das Problem war und ist, dass diese DLL leider 234 Code Segmente definiert, offensichtlich wegen seiner 16-bittigen Vergangenheit und weil die Makefiles etc. nicht richtig an 32-bit angepasst wurden. Wie schon bekannt, hinterläßt EPM beim Programmende dann 234 Speicherlücken im Shared Memory Bereich, und das passiert mit jedem Programmstart von EPM immer wieder.
Dass das eine Quick-and-Dirty-Portierung von 16- in 32-Bit-Code ist, hattest Du schonDas ist nur eine gepatchte Version der Originalversion aus \OS2\APPS\DLL, in der die 16 Farben für das Highlighting geändert sind.erdmann hat geschrieben: Di 7. Apr 2020, 11:45 Jetzt hab ich gesehen das NEPMD mit seiner eigenen Datei ETKE63.DLL kommt. Hast du die irgendwo erzeugt oder wo kommt die her ?
Nein, hört sich interessant an, aber ohne Quelldateien...erdmann hat geschrieben: Di 7. Apr 2020, 11:45 Mein Plan wäre es, die einzelnen Objektdateien zu extrahieren und dann alle Segmente in einem Codesegment zu kombinieren. Ich weiss nicht ob ich das nur mit der DLL hinbekomme weil ich nicht weiß ob es ein Tool gibt (IDA ?) welches eine DLL in seine Objektdateien zerlegen kann, aber wenn du die Objektdateien einzeln hast wäre das einfach.
Darauf war schon Christian 2002 gekommen. Die Fenster "drumherum" nerven zwar auch etwas mit ihren Fehlern und Unzulänglichkeiten, aber das Hauptproblem sind die extrem fehlerhaften Funktionen im E-MLE. Die sind in ETKE603.DLL drin, aber Closed Source.erdmann hat geschrieben: Di 7. Apr 2020, 11:45 3) Der EPM Programmierdokumentation kann man entnehmen, dass in ETKE603.DLL sowohl die E-MLE Fensterklasse (also quasi das Editorfenster) als auch die EPM Frame Fensterklasse (also quasi der ganze Editor, inklusive Toolbar, Statuszeile etc.) exportiert ist. Die Doku beschreibt auch, wie man damit seinen eigenen Editor bauen kann. Ich frage mich langsam, ob das nicht die einfachere Lösung wäre.
LPEX hat mir damals nicht gefallen, aber ich weiss nicht nicht mehr warum.MKH hat geschrieben: Mi 8. Apr 2020, 07:13 Wie sieht es denn eigentlich mit dem Editor LPEX aus? Wären denn EPM-Makros kompatibel damit?
Vielleicht würde man ja eine Genehmigung bekommen, den Editor verteilen zu dürfen. Aber wahrscheinlich würde es ja bei IBM ohnehin niemanden mehr jucken...
Bei mir wird nach Schließen des letzten EPM Fenster nicht der gesamte Speicher freigeben. Was freigegeben wird sind Speicherbereiche die aus ETKE603.DLL heraus dynamisch alloziiert wurden. Aber die 234 Codesegmente die ETKE603.DLL anlegt leben als 234 "Speicherlöcher" weiter, weil ich den Code mittels HIMEM in den oberen Shared Memory Bereich lade, liegen die eben im Shared Memory.aschn hat geschrieben: Di 7. Apr 2020, 19:11 Hallo Lars,
Das kommt sicherlich vom fehlenden Shared Memory. Das hab ich selbst nur alle paar Monate mal. Eher crashen die Moster-Apps wie die Mozillen oder OOo oder Java.erdmann hat geschrieben: Di 7. Apr 2020, 11:45 Hallo Andreas ich bekomme diese Fehler in epm.log und zwar vielfach
[2020-04-07 9:43:05] DosAllocSeg failed err=0x8 in mymalloc; size=256; called from 0xb0a80ff2
[2020-04-07 9:43:05] DosAllocSeg failed err=0x8 in mymalloc; size=16368; called from 0xb10a0079
Ich hab das mal mit Theseus kontrolliert und war darauf gekommen, dass der Verbrauch an Shared Memory durch EPM um Größenordnungen kleiner ist als der der Monster-Apps. Außerdem wird nach Schließen aller EPM-Fenster auch der gesamte Speicher wieder freigegeben, vorher aber eben nicht, was natürlich ein heftiger Fehler ist. Selbst das Hochladen von ETLE603.DLL ist möglich, bringt aber wegen der Größe und des noch ungefixten Problems des aktuellen Kernels mit DLLs im hohen Speicherbereich auch Nachteile.
Ich hab grad den LPEX vom VAC4 Paket ausprobiert (P:\IBMCPP40\bin\cppxlx40.exe) auf meinem 3820x1200 Arbeitsplatz. Ich sehe da kein Verzerrungsproblem. Eine 3,5 MB Datei mit knapp 35.000 Zeilen hat er hier problemlos geöffnet. Font SystemVIO 5. hab ich wahrscheinlich mal vor ewigen Zeiten so eingestellt. Ich benutze den praktisch nie.LPEX hat ein massives Problem welches ich als KO Kriterium werte: er kann mit grossen/16:9 (?) Bildschirmauflösungen nicht umgehen und verzerrt dann komplett die Editorfensterausgabe, ist also nicht zu gebrauchen.
Genau so. Das Verhalten mit hochgeladener ETKE603.DLL konnte ich auch damals grob nachvollziehen.erdmann hat geschrieben: Mi 8. Apr 2020, 11:12 Oder sagst du, dass wenn man den ETKE603.DLL Code in den Low Memory Bereich lädt, dass dann alles korrekt freigegeben wird ?
Wie gesagt hängt es mit der Bildschirmauflösung zusammen,ich benutze 1920x1080 also 16:9. Ich habe aber nur den LPEX von VAC 3.x probiert. Ich probier mal den von VAC 4.x.Andi B. hat geschrieben: Mi 8. Apr 2020, 12:53Ich hab grad den LPEX vom VAC4 Paket ausprobiert (P:\IBMCPP40\bin\cppxlx40.exe) auf meinem 3820x1200 Arbeitsplatz. Ich sehe da kein Verzerrungsproblem. Eine 3,5 MB Datei mit knapp 35.000 Zeilen hat er hier problemlos geöffnet. Font SystemVIO 5. hab ich wahrscheinlich mal vor ewigen Zeiten so eingestellt. Ich benutze den praktisch nie.LPEX hat ein massives Problem welches ich als KO Kriterium werte: er kann mit grossen/16:9 (?) Bildschirmauflösungen nicht umgehen und verzerrt dann komplett die Editorfensterausgabe, ist also nicht zu gebrauchen.
/* this is an EPM REXX script */
'extract /getmarktype'
if getmarktype.1 == '' then
return 1
'extract /tabs'
arg = word(tabs.1,1)
tmp = arg(1)
if tmp <> '' then do
arg = tmp
end
'extract /getmark'
if getmark.1 <> getmark.2 then do
'extract /col'
if col.1 == 1 then
getmark.2 = getmark.2-1
end /* do */
do i=getmark.1 to getmark.2
call etksetfilefield 'line',i
'extract /getline'
call etkreplacetext right(getline.1,length(getline.1)+arg),i
end /* do */
call etksetfilefield 'line',getmark.1
sowie hier das ERX für "Shift-Left":
/* this is an EPM REXX script */
'extract /getmarktype'
if getmarktype.1 == '' then
return 1
'extract /tabs'
arg = word(tabs.1,1)
tmp = arg(1)
if tmp <> '' then do
arg = tmp
end
arg = arg+1
'extract /getmark'
if getmark.1 <> getmark.2 then do
'extract /col'
if col.1 == 1 then
getmark.2 = getmark.2-1
end /* do */
idx = 999999
do i=getmark.1 to getmark.2
call etksetfilefield 'line',i
'extract /getline'
line = strip(getline.1)
if line == '' then
iterate
tmp = wordindex(line,1)
if tmp < idx then
idx = tmp
end /* do */
/* if arg <= idx then do */
do i=getmark.1 to getmark.2
call etksetfilefield 'line',i
'extract /getline'
call etkreplacetext substr(getline.1,arg),i
end /* do */
/*end */ /* do */
call etksetfilefield 'line',getmark.1
Das ist jetzt in REXX und nicht in E, aber ich glaube der Sinn was erreicht werden soll, sollte ersichtlich sein. Was ebenso fehlt ist die Sperre beim "Shift-Left", so dass kein Text gelöscht wird wenn man an den Anschlag kommt. Ließe sich aber leicht ergänzen.
/* this is an EPM REXX script */
'extract /getmarktype'
if getmarktype.1 == '' then
return 1
'extract /tabs'
arg = word(tabs.1,1)
tmp = arg(1)
if tmp <> '' then do
arg = tmp
end
arg = arg+1
'extract /getmark'
if getmark.1 <> getmark.2 then do
'extract /col'
if col.1 == 1 then
getmark.2 = getmark.2-1
end /* do */
idx = 999999
do i=getmark.1 to getmark.2
call etksetfilefield 'line',i
'extract /getline'
line = strip(getline.1)
if line == '' then
iterate
tmp = wordindex(getline.1,1)
if tmp < idx then
idx = tmp
end /* do */
if arg <= idx then do
do i=getmark.1 to getmark.2
call etksetfilefield 'line',i
'extract /getline'
call etkreplacetext substr(getline.1,arg),i
end /* do */
end /* do */
call etksetfilefield 'line',getmark.1
um das zu erreichen gibt es mehrere Möglichkeiten. Ich beschreib mal alle, deshalb wird es etwas länger.erdmann hat geschrieben: Sa 2. Mai 2020, 10:21 1) Wenn man "Tabs" über Edit->Preferences->Special keys->Default tabs setzt, bleiben die nicht über einen Restart enthalten. Ich habe keine Ahnung wie ich das dauerhaft ändern kann.
Dafür gibt es Indent und UnIndent. Das macht das genau so. Das geht mit Alt+I und Alt+Sh+I. ShiftLeft und ShiftRight (Ctrl+F7 und Ctrl+F8) hab ich gelassen, weil es manchmal ganz praktisch ist einen Block nur um 1 Spalte zu verschieben. Alle vier findet man auch im Menü unter Format -> Indent.erdmann hat geschrieben: Sa 2. Mai 2020, 10:21 2) für die "Shift" Einträge im Kontextmenü für selektierten Text wäre es besser wenn diese den Tab Settings folgen würden und es damit auch nur EIN Shift-Left und EIN Shift-Right Einträg gäbe. Im Allgemeinen sollten die nämlich in Deckung zu dem sein, was automatisch im Programmiereditormodus als Einrückungen gewählt wird.
Danke, seh ich mir an, auch Deinen Fix. Aus dem Gedächtnis: Bei ShiftLeft müsste das Überschreiben der Zeichen am linken Rand noch aktiv sein, aber bei UnIndent müsste ich das eigentlich gefixt haben. Bei ShiftLeft hab ich es bis jetzt wieder vergessen gehabt. Das hatte mich früher auch schon heftig genervt. Werd ich einbauen. So in 1 Woche wird übrigens 1.22 herauskommen.erdmann hat geschrieben: Sa 2. Mai 2020, 10:21 [...]
Das ist jetzt in REXX und nicht in E, aber ich glaube der Sinn was erreicht werden soll, sollte ersichtlich sein. Was ebenso fehlt ist die Sperre beim "Shift-Left", so dass kein Text gelöscht wird wenn man an den Anschlag kommt.
- kommt aber noch.Code: Alles auswählen
-- Get minimum indent of current block
MinIndent = 1599
do l = firstline to lastline
getline LineStr, l
CurIndent = max( 1, verify( LineStr, ' '\t)) - 1
-- Don't count indent of empty lines
if substr( LineStr, CurIndent + 1) = '' then
iterate
endif
if CurIndent < MinIndent then
MinIndent = CurIndent
endif
enddo
-- Don't delete chars at the left
if MinIndent < 1 then
return
endif