Changeset 5011

Timestamp:

May 5, 2022, 1:42:55 AM (3 years ago)

Author:

Andreas Schnellbacher

Message:

• TimeStamp gives now ISO date and time.
• Extended ShowMark.

File:

• trunk/src/netlabs/macros/stdcmds.e (modified) (3 diffs)

trunk/src/netlabs/macros/stdcmds.e ¶

@@ -932 +932 @@
 ; ---------------------------------------------------------------------------
 defc TimeStamp
-   universal countryinfo
+   --universal countryinfo
 
    parse value GetDateTime() with Hour24 Minutes Seconds . Day MonthNum Year0 Year1 .
    call NextCmdAltersText()
-   parse value countryinfo with 22 datesep 23 24 timesep 25
+   --parse value countryinfo with 22 datesep 23 24 timesep 25
+   datesep = '-'  -- ISO
+   timesep = ':'  -- ISO
    keyin rightstr( Year0 + 256 * Year1, 4, 0)''datesep''rightstr( monthnum, 2, 0)''datesep''rightstr( Day, 2, 0)' ' ||
          rightstr( hour24, 2)''timesep''rightstr( Minutes, 2, '0')''timesep''rightstr( Seconds, 2, '0')'  '
@@ -951 +953 @@
 ; ---------------------------------------------------------------------------
 defc Ver
-   sayerror EDITOR_VER__MSG ver( 0)
+   'SayError 'EDITOR_VER__MSG ver( 0)
 
 ; ---------------------------------------------------------------------------
@@ -959 +961 @@
 defc ShowMark
    getfileid curfid
+   -- marktype() returns only CHAR, BLOCK or LINE, not CHARG and not BLOCKG.
+   mt = marktype()
+
    getmark firstline, lastline, firstcol, lastcol, markfid
-   mt = marktype()
-
-   Next = 'firstline lastline firstcol lastcol = 'firstline lastline firstcol lastcol ||
-          ', markfid curfid = 'markfid curfid', marktype = 'mt
+   Next = 'getmark : firstline lastline firstcol lastcol = 'firstline lastline firstcol lastcol ||
+                 ', markfid curfid = 'markfid curfid', marktype = 'mt
    'SayHint' Next
    dprintf( Next)
 
+   -- lastcol is 1 more here. The 'g' variants don't include the attributes
+   -- at negative offset for the following col.
+   getmarkg firstline, lastline, firstcol, lastcol, markfid
+   Next = 'getmarkg: firstline lastline firstcol lastcol = 'firstline lastline firstcol lastcol ||
+                  ', markfid curfid = 'markfid curfid', marktype = 'mt
+   'SayHint' Next
+   dprintf( Next)
+