Skip to content

Commit

Permalink
VALUE ERROR fixed in AddAlias
Browse files Browse the repository at this point in the history
  • Loading branch information
aplteam committed Sep 25, 2023
1 parent d4e1548 commit 8571a14
Show file tree
Hide file tree
Showing 4 changed files with 7 additions and 9 deletions.
7 changes: 3 additions & 4 deletions APLSource/Cider/AddAlias.aplf
Original file line number Diff line number Diff line change
Expand Up @@ -13,9 +13,8 @@
:AndIf 0<ciderAliasFilename
:If F.Exists ciderAliasFilename
dataF.NGET ciderAliasFilename 1
:If ~F.Exists folder
(1 parms.batch)p'Could not find "',folder,'"'
:ElseIf 0=+/(alias,'='){()}¨data
('Could not find "',folder,'"')Assert F.Exists folder
:If 0=+/(alias,'='){()}¨data
ind({'='}¨data)folder
:If inddata
DropAlias{¯1+'='}inddata
Expand All @@ -41,7 +40,7 @@
data¨{,'=',}/¨data
(data)F.NPUT ciderAliasFilename 1
:Else
(1 parms.batch)p'Alias "',alias,'" is already in use with a different path - alias not assigned'
1 PrintToSession 'Alias "',alias,'" is associated with another folder - alias not assigned'
:EndIf
:EndIf
:EndIf
Expand Down
5 changes: 2 additions & 3 deletions APLSource/Cider/PrintToSession.aplf
Original file line number Diff line number Diff line change
@@ -1,12 +1,11 @@
{r}flags PrintToSession msg;quiet;sessionFlag
If `msg` is not empty:
* Prints `msg` to rte session in case `flag` is 1
* Prints `msg` to the session in case `flag` is 1
* Adds `msg` to `∆LOG` if that variable already exists
`msg` might be a simple character vector or a vector of character vectors.\\
`flags` must be a scalar Boolean or a vector of two Booleans, defaulting to 0 0:
* `flags[1]` must be 1 in order to print `msg` to the session
* `flags[2]` must be 1 in order add
only added to `∆LOG`.
* `flags[2]` must be 1 in order to suppress output and only add `msg` to `∆LOG`
r0 0
Assert/flags0 1
(sessionFlag quiet)2flags,0
Expand Down
2 changes: 1 addition & 1 deletion APLSource/Cider/Version.aplf
Original file line number Diff line number Diff line change
@@ -1,3 +1,3 @@
rVersion
See als History
r'0.36.0+578'
r'0.36.0+579'
2 changes: 1 addition & 1 deletion apl-package.json
Original file line number Diff line number Diff line change
Expand Up @@ -19,5 +19,5 @@
source: "APLSource/Cider/",
tags: "project-management",
userCommandScript: "APLSource/Cider_UC.dyalog",
version: "0.36.0+578",
version: "0.36.0+579",
}

0 comments on commit 8571a14

Please sign in to comment.