File extension changed from .DYALOG to .APLC

Author: aplteam

APLSource/EventCodes.aplc

@@ -62,16 +62,13 @@
 
     ∇ r←Version
       :Access Public Shared
-      r←({⍵}⍕⎕THIS)'1.4.0.14' '2019-11-06'
+      r←({⍵}⍕⎕THIS)'2.0.0.15' '2020-03-22'
     ∇
 
     ∇ History
       :Access Public Shared
-      ⍝ * 1.4.0
-      ⍝   * Method `QEM` added. Accepts either a positive integer (same as `⎕EM`) or a character vector
-      ⍝     (error message). In the latter case the error number is returned or, if the error message
-      ⍝     is unknown, and error is thrown.
-      ⍝   * Bug fix: `List` crashed when sorting by number was required.
+      ⍝ * 2.0.0
+      ⍝   * BREAKING CHANGE: File extension changed from .DYALOG to .APLC
       ⍝\\
       ⍝ For information regarding older versions see <https://github.com/aplteam/EventCodes/releases>
     ∇

APLSource/TestCases/GetHighestInstalledAPL.aplf

@@ -0,0 +1,7 @@
+ list←GetInstalledAPLs dummy
+⍝ Examines the Registry in order to find out which versions of Dyalog are installed and return all of them
+ list←''
+ :If 0≠≢list←##.WinReg.GetAllSubKeyNames'Software\Dyalog'
+ :AndIf 0≠≢list←('Dyalog APL/W'{⍺∘≡¨(≢⍺)↑¨⍵}list)/list
+     list←(50<≢¨##.WinReg.GetAllValueNames¨(⊂'Software\Dyalog\'),¨list)/list
+ :EndIf

APLSource/TestCases/GetInstalledAPLs.aplf

@@ -3,8 +3,14 @@
  ⎕TRAP←(999 'C' '. ⍝ Deliberate error')(0 'N')
  R←T._Failed
 
- version←3⊃' '##.APLTreeUtils.Split GetHighestInstalledAPL ⍬
- errors←∆GetErrorsFromHelpPage'http://help.dyalog.com/',version,'/Content/Language/System%20Functions/trap.htm'
+ list←⌽GetInstalledAPLs ⍬
+ :Repeat
+     version←3⊃' '##.APLTreeUtils.Split⊃list
+     :If 0=≢errors←∆GetErrorsFromHelpPage'http://help.dyalog.com/',version,'/Content/Language/System%20Functions/trap.htm'
+         list←1↓list
+     :EndIf
+ :Until (0<≢errors)∨0=≢list
+ 'Could not find any APL?!'⎕SIGNAL 11/⍨0=≢errors
  list←##.EventCodes.List''
  →T.PassesIf∧/list[;2]∊errors[;1]
  →T.PassesIf∧/errors[;1]∊list[;2]

APLSource/TestCases/Test_30.aplf

@@ -10,16 +10,20 @@
      buff←∆HTTPGet url
      html←buff.Data
  :EndIf
- html←{⍵↓⍨3⊃{⍵/⍳≢⍵}'<table'⍷⍵}html
- buff←(≢'<td class="Dyalog">')↓¨{⍵~⎕TC}¨('<td class="Dyalog">'⍷html)⊂html
- bool←(≢buff)⍴1 0
- codes←{⍵↑⍨¯1+⍵⍳'<'}¨bool/buff
- bool←~bool
- comment←{⍵↑⍨¯1+1⍳⍨'</td>'⍷⍵}¨bool/buff
- bool←{⊃⊃⎕VFI ⍵}¨codes
- (codes comment)←bool∘/¨codes comment
- codes←{⊃⊃(//)⎕VFI ⍵}¨codes
- bool←~codes∊0 1000
- (codes comment)←bool∘/¨codes comment
- errors←codes,[1.5]comment
+ :If ∨/'<title>401 Unauthorized</title>'⍷html
+     errors←''
+ :Else
+     html←{⍵↓⍨3⊃{⍵/⍳≢⍵}'<table'⍷⍵}html
+     buff←(≢'<td class="Dyalog">')↓¨{⍵~⎕TC}¨('<td class="Dyalog">'⍷html)⊂html
+     bool←(≢buff)⍴1 0
+     codes←{⍵↑⍨¯1+⍵⍳'<'}¨bool/buff
+     bool←~bool
+     comment←{⍵↑⍨¯1+1⍳⍨'</td>'⍷⍵}¨bool/buff
+     bool←{⊃⊃⎕VFI ⍵}¨codes
+     (codes comment)←bool∘/¨codes comment
+     codes←{⊃⊃(//)⎕VFI ⍵}¨codes
+     bool←~codes∊0 1000
+     (codes comment)←bool∘/¨codes comment
+     errors←codes,[1.5]comment
+ :EndIf
 ⍝Done

APLSource/TestCases/∆GetErrorsFromHelpPage.aplf

@@ -1 +1 @@
-<tool name="EventCodes">  <version>1.4.0</version>  <date>2019-11-06</date>  <container>#.EventCodes</container>  <needs>    <script>APLTreeUtils</script>    <script>FilesAndDirs</script>    <script>OS</script>    <script>WinReg</script>    <script development="true">Tester2</script>  </needs>  <autoload>1</autoload>  <buildid>14</buildid>  <scriptOnly>1</scriptOnly></tool>
+<tool name="EventCodes">  <version>2.0.0</version>  <date>2020-03-22</date>  <container>#.EventCodes</container>  <needs>    <script>APLTreeUtils</script>    <script>FilesAndDirs</script>    <script>OS</script>    <script>WinReg</script>    <script development="true">Tester2</script>  </needs>  <autoload>1</autoload>  <buildid>15</buildid>  <scriptOnly>1</scriptOnly>  <package>1</package></tool>