mirror of
https://github.com/yabwon/SAS_PACKAGES.git
synced 2026-01-05 06:10:05 +00:00
Compare commits
5 Commits
| Author | SHA1 | Date | |
|---|---|---|---|
|
|
030a0932a8 | ||
|
|
cc25b76144 | ||
|
|
628641a6cf | ||
|
|
191d07c2c8 | ||
|
|
2e47ab5e37 |
2
LICENSE
2
LICENSE
@@ -1,6 +1,6 @@
|
|||||||
MIT License
|
MIT License
|
||||||
|
|
||||||
Copyright (c) 2019 - 2024 Bartosz Jablonski
|
Copyright (c) 2019 - 2025 Bartosz Jablonski
|
||||||
|
|
||||||
Permission is hereby granted, free of charge, to any person obtaining a copy
|
Permission is hereby granted, free of charge, to any person obtaining a copy
|
||||||
of this software and associated documentation files (the "Software"), to deal
|
of this software and associated documentation files (the "Software"), to deal
|
||||||
|
|||||||
57
README.md
57
README.md
@@ -2,21 +2,25 @@
|
|||||||
|
|
||||||
---
|
---
|
||||||
|
|
||||||
## Intro:
|
|
||||||
|
|
||||||
A **SAS package** is an automatically generated, single, stand alone *zip* file containing organised and ordered code structures, created by the developer and extended with additional automatically generated "driving" files (i.e. description, metadata, load, unload, and help files).
|
A **SAS package** is an automatically generated, single, stand alone *zip* file containing organised and ordered code structures, created by the developer and extended with additional automatically generated "driving" files (i.e. description, metadata, load, unload, and help files).
|
||||||
|
|
||||||
The *purpose of a package* is to be a simple, and easy to access, code sharing medium, which will allow: on the one hand, to separate the code complex dependencies created by the developer from the user experience with the final product and, on the other hand, reduce developer's and user's unnecessary frustration related to a remote deployment process.
|
The *purpose of a package* is to be a simple, and easy to access, code sharing medium, which will allow: on the one hand, to separate the code complex dependencies created by the developer from the user experience with the final product and, on the other hand, reduce developer's and user's unnecessary frustration related to a remote deployment process.
|
||||||
|
|
||||||
In this repository we are presenting the **SAS Packages Framework** which allows to develop and use SAS packages.
|
In this repository we are presenting the **SAS Packages Framework** which allows to develop and use SAS packages.
|
||||||
|
|
||||||
Don't forget to **STAR** (:star:) the repository! :-)
|
Don't forget to give the repository a **STAR** and become [stargazer](https://github.com/yabwon/SAS_PACKAGES/stargazers)! :-)
|
||||||
|
|
||||||
|
---
|
||||||
|
|
||||||
---
|
---
|
||||||
|
|
||||||
### Current version:
|
### Current version:
|
||||||
|
|
||||||
**The latest version** of SPF is **`20241129`**.
|
**The latest version** of the **SAS Packages Framework** is **`20250728`**.
|
||||||
|
|
||||||
|
---
|
||||||
|
|
||||||
|
## Intro:
|
||||||
|
|
||||||
To get started with SAS Packages try this [**`Getting Started with SAS Packages`**](https://github.com/yabwon/SAS_PACKAGES/blob/main/SPF/Documentation/Getting_Started_with_SAS_Packages.pdf "Getting Started with SAS Packages") presentation (see the `./SPF/Documentation` directory).
|
To get started with SAS Packages try this [**`Getting Started with SAS Packages`**](https://github.com/yabwon/SAS_PACKAGES/blob/main/SPF/Documentation/Getting_Started_with_SAS_Packages.pdf "Getting Started with SAS Packages") presentation (see the `./SPF/Documentation` directory).
|
||||||
|
|
||||||
@@ -51,24 +55,30 @@ Letter "D" indicates tutorial dedicated for developers and "U" materials for use
|
|||||||
|
|
||||||
3) (D) Article and all required materials for ["My first SAS Package"](https://github.com/yabwon/SAS_PACKAGES/tree/main/SPF/Documentation/Paper_1079-2021) tutorial.
|
3) (D) Article and all required materials for ["My first SAS Package"](https://github.com/yabwon/SAS_PACKAGES/tree/main/SPF/Documentation/Paper_1079-2021) tutorial.
|
||||||
|
|
||||||
4) (DU) Materials from Hands-on-Workshop (4+ hours) tutorial: [Share your code with SAS Packages](https://github.com/yabwon/HoW-SASPackages).
|
4) (DU) Materials from Hands-on-Workshop (4+ hours) tutorial: [Share your code with SAS Packages](https://github.com/yabwon/HoW-SASPackages).
|
||||||
|
It is a "zero to hero" tutorial that explains all the "bells and whistles" of using, and all the "nuts and bolts" of developing SAS packages.
|
||||||
|
|
||||||
|
---
|
||||||
|
|
||||||
---
|
---
|
||||||
|
|
||||||
### Initiative to add SAS Packages Framework to SAS Base/Viya:
|
### Initiative to add SAS Packages Framework to SAS Base/Viya:
|
||||||
|
|
||||||
A **SASware Ballot Idea** for adding *SAS Packages Framework* macros into Base SAS and Viya was submitted Friday, May 27th 2022. If you would like to support the idea visit this [communities.sas.com post](https://communities.sas.com/t5/SASware-Ballot-Ideas/Add-SAS-Packages-Framework-to-the-SAS-Base-Viya/idi-p/815508) and up vote the idea!
|
A **SASware Ballot Idea** for adding *SAS Packages Framework* macros into Base SAS and Viya was submitted Friday, May 27th 2022. If you would like to support the idea visit this [**communities.sas.com post**](https://communities.sas.com/t5/SASware-Ballot-Ideas/Add-SAS-Packages-Framework-to-the-SAS-Base-Viya/idi-p/815508) and up vote the idea! We have 46 likes from 44 supporters up to today (as of April 22, 2025)!
|
||||||
|
|
||||||
---
|
---
|
||||||
|
|
||||||
### The User:
|
### A Brief User Manual:
|
||||||
|
|
||||||
|
This is a brief intro. See below to find a link to detailed workshop materials.
|
||||||
|
|
||||||
|
#### Create directory
|
||||||
|
|
||||||
The first step to use a package with the SAS Packages Framework:
|
The first step to use a package with the SAS Packages Framework:
|
||||||
|
|
||||||
- Create a folder for your packages, under Windows OS family e.g., `C:/SAS_PACKAGES` or under Linux/UNIX OS family e.g., `/home/<username>/SAS_PACKAGES`.
|
- Create a folder for your packages, under Windows OS family e.g., `C:/SAS_PACKAGES` or under Linux/UNIX OS family e.g., `/home/<username>/SAS_PACKAGES`. The path selected is totally up to you.
|
||||||
|
|
||||||
Then either:
|
#### Manual installation
|
||||||
|
|
||||||
- Manually download the `SPFinit.sas` file (the SAS Packages Framework) into the local packages folder.
|
- Manually download the `SPFinit.sas` file (the SAS Packages Framework) into the local packages folder.
|
||||||
- \[Optional\] Manually download the `<packageName>.zip` file into the local packages folder.
|
- \[Optional\] Manually download the `<packageName>.zip` file into the local packages folder.
|
||||||
@@ -84,7 +94,11 @@ filename packages "<directory/containing/packages/>"; /* setup directory
|
|||||||
%loadPackage(packageName) /* load the package content into the SAS session */
|
%loadPackage(packageName) /* load the package content into the SAS session */
|
||||||
```
|
```
|
||||||
|
|
||||||
or if you need it just for "one time" only:
|
---
|
||||||
|
|
||||||
|
#### Automatic (one-time-only) installation
|
||||||
|
|
||||||
|
If you need it just for "one time" only, e.g., for test if you like it:
|
||||||
|
|
||||||
- Execute:
|
- Execute:
|
||||||
|
|
||||||
@@ -98,9 +112,13 @@ filename SPFinit url "https://raw.githubusercontent.com/yabwon/SAS_PACKAGES/main
|
|||||||
%loadPackage(packageName) /* load the package content into the SAS session */
|
%loadPackage(packageName) /* load the package content into the SAS session */
|
||||||
```
|
```
|
||||||
|
|
||||||
or do it pragmatically:
|
---
|
||||||
|
|
||||||
- Enable the framework [first time only]:
|
#### Automatic (permanent) installation
|
||||||
|
|
||||||
|
To install SPF pragmatically:
|
||||||
|
|
||||||
|
- Enable the framework [do this first and one time only!]:
|
||||||
|
|
||||||
```sas
|
```sas
|
||||||
filename SPFinit url "https://raw.githubusercontent.com/yabwon/SAS_PACKAGES/main/SPF/SPFinit.sas";
|
filename SPFinit url "https://raw.githubusercontent.com/yabwon/SAS_PACKAGES/main/SPF/SPFinit.sas";
|
||||||
@@ -121,7 +139,7 @@ filename packages "<directory/containing/packages/>";
|
|||||||
%installPackage(SPFinit) /* install the framework */
|
%installPackage(SPFinit) /* install the framework */
|
||||||
```
|
```
|
||||||
|
|
||||||
- From now on run it like this:
|
- From now on, just like you would assign libraries, run the SPF and use packages like this:
|
||||||
|
|
||||||
```sas
|
```sas
|
||||||
filename packages "<directory/containing/packages/>";
|
filename packages "<directory/containing/packages/>";
|
||||||
@@ -134,16 +152,20 @@ filename packages "<directory/containing/packages/>";
|
|||||||
|
|
||||||
---
|
---
|
||||||
|
|
||||||
The "Workshop video for the User" got outdated (in general). Newer version is coming soon, in the mean time see some of the videos from the "Recordings and Presentations" section above.
|
[**Detailed workshop materials**](https://github.com/yabwon/HoW-SASPackages) (i.e. "from 0 to hero" instruction).
|
||||||
|
|
||||||
|
The youtube "Workshop video for the User" got outdated (in general). Newer version is coming soon, in the mean time see some of the videos from the "Recordings and Presentations" section above.
|
||||||
(You can watch the workshop if you wish, link is working and some parts are still valid source of information e.g., "`ICE` loading" or "`disk` loading")
|
(You can watch the workshop if you wish, link is working and some parts are still valid source of information e.g., "`ICE` loading" or "`disk` loading")
|
||||||
|
|
||||||
<s>[**Workshop video for the User**](https://youtu.be/qX_-HJ76g8Y) \[May 6th, 2020\] [~86 minutes, outdated (installPackage macro was not there yet) but gives the idea how it works especially load, help, unload, ICEload, and other details]</s>
|
<s>[**Workshop video for the User**](https://youtu.be/qX_-HJ76g8Y) \[May 6th, 2020\] [~86 minutes, outdated (installPackage macro was not there yet) but gives the idea how it works especially load, help, unload, ICEload, and other details]</s>
|
||||||
|
|
||||||
---
|
---
|
||||||
|
|
||||||
### The Developer:
|
---
|
||||||
|
|
||||||
To create your own package:
|
### For The Developer:
|
||||||
|
|
||||||
|
In brief, to create your own package:
|
||||||
|
|
||||||
- Download (and use) the `SPFinit.sas` file (the SAS Packages Framework), the part of the framework required for *testing* is there too.
|
- Download (and use) the `SPFinit.sas` file (the SAS Packages Framework), the part of the framework required for *testing* is there too.
|
||||||
|
|
||||||
@@ -155,6 +177,8 @@ To create your own package:
|
|||||||
|
|
||||||
The SAS Packages Framework [(short) documentation](https://github.com/yabwon/SAS_PACKAGES/blob/main/SPF/SPFinit.md) to quickly see macros options and parameters.
|
The SAS Packages Framework [(short) documentation](https://github.com/yabwon/SAS_PACKAGES/blob/main/SPF/SPFinit.md) to quickly see macros options and parameters.
|
||||||
|
|
||||||
|
[**Detailed workshop materials**](https://github.com/yabwon/HoW-SASPackages) (i.e. "from 0 to hero" detailed instruction with a bunch of examples).
|
||||||
|
|
||||||
---
|
---
|
||||||
|
|
||||||
### If you have any questions, suggestions, or ideas do not hesitate to contact me!
|
### If you have any questions, suggestions, or ideas do not hesitate to contact me!
|
||||||
@@ -196,6 +220,7 @@ The SAS Packages Framework [(short) documentation](https://github.com/yabwon/SAS
|
|||||||
## Where the SAS Packages Framework is used:
|
## Where the SAS Packages Framework is used:
|
||||||
This is a list of locations where the SAS Packages Framework is used:
|
This is a list of locations where the SAS Packages Framework is used:
|
||||||
- Warsaw (Poland)
|
- Warsaw (Poland)
|
||||||
|
- Osaka (Japan)
|
||||||
|
|
||||||
If you want to share that you are using the SPF let me know and I'll update the list.
|
If you want to share that you are using the SPF let me know and I'll update the list.
|
||||||
|
|
||||||
|
|||||||
Binary file not shown.
@@ -6,7 +6,7 @@
|
|||||||
when empty the "packages" value is used */
|
when empty the "packages" value is used */
|
||||||
)/secure
|
)/secure
|
||||||
/*** HELP END ***/
|
/*** HELP END ***/
|
||||||
des = 'Macro to list directories pointed by "packages" fileref, version 20241129. Run %extendPackagesFileref(HELP) for help info.'
|
des = 'Macro to list directories pointed by "packages" fileref, version 20250728. Run %extendPackagesFileref(HELP) for help info.'
|
||||||
;
|
;
|
||||||
|
|
||||||
%if %QUPCASE(&packages.) = HELP %then
|
%if %QUPCASE(&packages.) = HELP %then
|
||||||
@@ -22,7 +22,7 @@ des = 'Macro to list directories pointed by "packages" fileref, version 20241129
|
|||||||
%put ### This is short help information for the `extendPackagesFileref` macro #;
|
%put ### This is short help information for the `extendPackagesFileref` macro #;
|
||||||
%put #-----------------------------------------------------------------------------------------#;;
|
%put #-----------------------------------------------------------------------------------------#;;
|
||||||
%put # #;
|
%put # #;
|
||||||
%put # Macro to list directories pointed by 'packages' fileref, version `20241129` #;
|
%put # Macro to list directories pointed by 'packages' fileref, version `20250728` #;
|
||||||
%put # #;
|
%put # #;
|
||||||
%put # A SAS package is a zip file containing a group #;
|
%put # A SAS package is a zip file containing a group #;
|
||||||
%put # of SAS codes (macros, functions, data steps generating #;
|
%put # of SAS codes (macros, functions, data steps generating #;
|
||||||
@@ -43,6 +43,7 @@ des = 'Macro to list directories pointed by "packages" fileref, version 20241129
|
|||||||
%put # #;
|
%put # #;
|
||||||
%put # Visit: `https://github.com/yabwon/SAS_PACKAGES/tree/main/SPF/Documentation` #;
|
%put # Visit: `https://github.com/yabwon/SAS_PACKAGES/tree/main/SPF/Documentation` #;
|
||||||
%put # to learn more. #;
|
%put # to learn more. #;
|
||||||
|
%put # Tutorials available at: `https://github.com/yabwon/HoW-SASPackages` #;
|
||||||
%put # #;
|
%put # #;
|
||||||
%put #### Example ##############################################################################;
|
%put #### Example ##############################################################################;
|
||||||
%put # #;
|
%put # #;
|
||||||
@@ -56,7 +57,7 @@ des = 'Macro to list directories pointed by "packages" fileref, version 20241129
|
|||||||
%put # Run the following code in your SAS session: #;
|
%put # Run the following code in your SAS session: #;
|
||||||
%put ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~sas;
|
%put ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~sas;
|
||||||
%put %nrstr( filename packages ("C:/SAS_PK1" "C:/SAS_PK2"); %%* setup a directory for packages; );
|
%put %nrstr( filename packages ("C:/SAS_PK1" "C:/SAS_PK2"); %%* setup a directory for packages; );
|
||||||
%put %nrstr( %%include packages(SPFinit.sas); %%* enable the framework; );
|
%put %nrstr( %%include packages(SPFinit.sas); %%* enable the framework; );
|
||||||
%put ;
|
%put ;
|
||||||
%put %nrstr( filename packages ("D:/NEW_DIR" %%extendPackagesFileref()); %%* add new directory; );
|
%put %nrstr( filename packages ("D:/NEW_DIR" %%extendPackagesFileref()); %%* add new directory; );
|
||||||
%put ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~;
|
%put ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~;
|
||||||
|
|||||||
@@ -3,7 +3,7 @@
|
|||||||
|
|
||||||
Macro to generate SAS packages.
|
Macro to generate SAS packages.
|
||||||
|
|
||||||
Version 20241129
|
Version 20250728
|
||||||
|
|
||||||
A SAS package is a zip file containing a group
|
A SAS package is a zip file containing a group
|
||||||
of SAS codes (macros, functions, data steps generating
|
of SAS codes (macros, functions, data steps generating
|
||||||
@@ -18,7 +18,7 @@
|
|||||||
|
|
||||||
%macro generatePackage(
|
%macro generatePackage(
|
||||||
filesLocation /* location of package files
|
filesLocation /* location of package files
|
||||||
e.g. %sysfunc(pathname(work))/%lowcase(&packageName.) */
|
e.g. /path/to/package/files/locatiion or C:\my\package\files */
|
||||||
/* testing options: */
|
/* testing options: */
|
||||||
,testPackage=Y /* indicator if tests should be executed,
|
,testPackage=Y /* indicator if tests should be executed,
|
||||||
default value Y means "execute tests" */
|
default value Y means "execute tests" */
|
||||||
@@ -43,7 +43,7 @@
|
|||||||
file name be created */
|
file name be created */
|
||||||
)/ secure minoperator
|
)/ secure minoperator
|
||||||
/*** HELP END ***/
|
/*** HELP END ***/
|
||||||
des = 'Macro to generate SAS packages, version 20241129. Run %generatePackage() for help info.'
|
des = 'Macro to generate SAS packages, version 20250728. Run %generatePackage() for help info.'
|
||||||
;
|
;
|
||||||
%if (%superq(filesLocation) = ) OR (%qupcase(&filesLocation.) = HELP) %then
|
%if (%superq(filesLocation) = ) OR (%qupcase(&filesLocation.) = HELP) %then
|
||||||
%do;
|
%do;
|
||||||
@@ -58,7 +58,7 @@ des = 'Macro to generate SAS packages, version 20241129. Run %generatePackage()
|
|||||||
%put ### This is short help information for the `generatePackage` macro #;
|
%put ### This is short help information for the `generatePackage` macro #;
|
||||||
%put #-------------------------------------------------------------------------------#;
|
%put #-------------------------------------------------------------------------------#;
|
||||||
%put # #;
|
%put # #;
|
||||||
%put # Macro to generate SAS packages, version `20241129` #;
|
%put # Macro to generate SAS packages, version `20250728` #;
|
||||||
%put # #;
|
%put # #;
|
||||||
%put # A SAS package is a zip file containing a group #;
|
%put # A SAS package is a zip file containing a group #;
|
||||||
%put # of SAS codes (macros, functions, data steps generating #;
|
%put # of SAS codes (macros, functions, data steps generating #;
|
||||||
@@ -73,6 +73,7 @@ des = 'Macro to generate SAS packages, version 20241129. Run %generatePackage()
|
|||||||
%put # #;
|
%put # #;
|
||||||
%put # Visit: `https://github.com/yabwon/SAS_PACKAGES/tree/main/SPF/Documentation` #;
|
%put # Visit: `https://github.com/yabwon/SAS_PACKAGES/tree/main/SPF/Documentation` #;
|
||||||
%put # to read about the details of package generation process. #;
|
%put # to read about the details of package generation process. #;
|
||||||
|
%put # Tutorials available at: `https://github.com/yabwon/HoW-SASPackages` #;
|
||||||
%put # #;
|
%put # #;
|
||||||
%put #### Parameters: #;
|
%put #### Parameters: #;
|
||||||
%put # #;
|
%put # #;
|
||||||
@@ -375,8 +376,9 @@ options NOquotelenmax NOstimer NOfullstimer;
|
|||||||
different file reference for each package
|
different file reference for each package
|
||||||
while loading package with %loadPackage() macro
|
while loading package with %loadPackage() macro
|
||||||
*/
|
*/
|
||||||
/* %let _PackageFileref_ = P%sysfunc(MD5(%lowcase(&packageName.)),hex7.); */
|
data _null_;
|
||||||
data _null_; call symputX("_PackageFileref_", "P" !! put(MD5("%lowcase(&packageName.)"), hex7. -L), "L"); run;
|
call symputX("_PackageFileref_", "P" !! put(MD5(lowcase("&packageName.")), hex7. -L), "L");
|
||||||
|
run;
|
||||||
|
|
||||||
/* test if version is a number */
|
/* test if version is a number */
|
||||||
data _null_;
|
data _null_;
|
||||||
@@ -397,17 +399,17 @@ data _null_;
|
|||||||
run;
|
run;
|
||||||
|
|
||||||
/* create or replace the ZIP file for package */
|
/* create or replace the ZIP file for package */
|
||||||
filename &zipReferrence. ZIP "&filesLocation./%lowcase(&packageName.).zip";
|
filename &zipReferrence. ZIP "&filesLocation./%sysfunc(lowcase(&packageName.)).zip";
|
||||||
|
|
||||||
%if %sysfunc(fexist(&zipReferrence.)) %then
|
%if %sysfunc(fexist(&zipReferrence.)) %then
|
||||||
%do;
|
%do;
|
||||||
%put NOTE: Deleting file "&filesLocation./%lowcase(&packageName.).zip";
|
%put NOTE: Deleting file "&filesLocation./%sysfunc(lowcase(&packageName.)).zip";
|
||||||
%let _RC_ = %sysfunc(fdelete(&zipReferrence.));
|
%let _RC_ = %sysfunc(fdelete(&zipReferrence.));
|
||||||
%put NOTE: &=_RC_;
|
%put NOTE: &=_RC_;
|
||||||
%end;
|
%end;
|
||||||
%if %sysfunc(fexist(&zipReferrence.)) %then
|
%if %sysfunc(fexist(&zipReferrence.)) %then
|
||||||
%do;
|
%do;
|
||||||
%put ERROR: File "&filesLocation./%lowcase(&packageName.).zip" cannot be deleted.;
|
%put ERROR: File "&filesLocation./%sysfunc(lowcase(&packageName.)).zip" cannot be deleted.;
|
||||||
%put ERROR- Check if the file is not blocked by another process.;
|
%put ERROR- Check if the file is not blocked by another process.;
|
||||||
%put ERROR- Aborting.;
|
%put ERROR- Aborting.;
|
||||||
%abort;
|
%abort;
|
||||||
@@ -434,7 +436,7 @@ Maintainer: Firstname Lastname (xxxxxx@yyyyy.com)
|
|||||||
License: MIT
|
License: MIT
|
||||||
Encoding: UTF8
|
Encoding: UTF8
|
||||||
|
|
||||||
Required: "Base SAS Software" :%*optional, COMMA separated, QUOTED list, names of required SAS products, values must be like from proc setinit;run; output *;
|
Required: "Base SAS Software" :%*optional, COMMA separated, QUOTED list, names of required SAS products, values must be like from "proc setinit" output *;
|
||||||
ReqPackages: "macroArray (0.1)", "DFA (0.1)" :%*optional, COMMA separated, QUOTED list, names of required packages *;
|
ReqPackages: "macroArray (0.1)", "DFA (0.1)" :%*optional, COMMA separated, QUOTED list, names of required packages *;
|
||||||
|
|
||||||
>> **DESCRIPTION** <<
|
>> **DESCRIPTION** <<
|
||||||
@@ -510,7 +512,7 @@ DESCRIPTION END:
|
|||||||
| it will be created only if user request it by using:
|
| it will be created only if user request it by using:
|
||||||
| %loadPackage(packagename, lazyData=klm)
|
| %loadPackage(packagename, lazyData=klm)
|
||||||
| multiple elements separated by space are allowed
|
| multiple elements separated by space are allowed
|
||||||
| an asterisk(*) means "load all data"]
|
| an asterisk("*") means "load all data"]
|
||||||
|
|
|
|
||||||
+-010_imlmodule [one file one IML module,
|
+-010_imlmodule [one file one IML module,
|
||||||
| | only plain code of the module, without "Proc IML" header]
|
| | only plain code of the module, without "Proc IML" header]
|
||||||
@@ -871,7 +873,7 @@ title6 "MD5 hashed fileref of package lowcase name: &_PackageFileref_.";
|
|||||||
title8 "Required SAS packages: %qsysfunc(compress(%superq(packageReqPackages),%str(%'%")))" ; /* " */
|
title8 "Required SAS packages: %qsysfunc(compress(%superq(packageReqPackages),%str(%'%")))" ; /* " */
|
||||||
%end;
|
%end;
|
||||||
|
|
||||||
footnote1 "SAS Packages Framework, version 20241129";
|
footnote1 "SAS Packages Framework, version 20250728";
|
||||||
|
|
||||||
proc print
|
proc print
|
||||||
data = &filesWithCodes.(drop=base folderRef fileRef rc folderid _abort_ fileId additionalContent)
|
data = &filesWithCodes.(drop=base folderRef fileRef rc folderid _abort_ fileId additionalContent)
|
||||||
@@ -940,26 +942,26 @@ run;
|
|||||||
length packageAuthor $ 1024;
|
length packageAuthor $ 1024;
|
||||||
packageAuthor = symget('packageAuthor');
|
packageAuthor = symget('packageAuthor');
|
||||||
put " ";
|
put " ";
|
||||||
put " Copyright (c) since %sysfunc(today(),year4.) " packageAuthor ;
|
put "Copyright (c) since %sysfunc(today(),year4.) " packageAuthor ;
|
||||||
put " ";
|
put " ";
|
||||||
put " Permission is hereby granted, free of charge, to any person obtaining a copy ";
|
put "Permission is hereby granted, free of charge, to any person obtaining a copy ";
|
||||||
put ' of this software and associated documentation files (the "Software"), to deal ';
|
put 'of this software and associated documentation files (the "Software"), to deal ';
|
||||||
put " in the Software without restriction, including without limitation the rights ";
|
put "in the Software without restriction, including without limitation the rights ";
|
||||||
put " to use, copy, modify, merge, publish, distribute, sublicense, and/or sell ";
|
put "to use, copy, modify, merge, publish, distribute, sublicense, and/or sell ";
|
||||||
put " copies of the Software, and to permit persons to whom the Software is ";
|
put "copies of the Software, and to permit persons to whom the Software is ";
|
||||||
put " furnished to do so, subject to the following conditions: ";
|
put "furnished to do so, subject to the following conditions: ";
|
||||||
put " ";
|
put " ";
|
||||||
put " The above copyright notice and this permission notice shall be included ";
|
put "The above copyright notice and this permission notice shall be included ";
|
||||||
put " in all copies or substantial portions of the Software. ";
|
put "in all copies or substantial portions of the Software. ";
|
||||||
put " ";
|
put " ";
|
||||||
put ' THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR ';
|
put 'THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR ';
|
||||||
put " IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, ";
|
put "IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, ";
|
||||||
put " FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE ";
|
put "FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE ";
|
||||||
put " AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER ";
|
put "AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER ";
|
||||||
put " LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, ";
|
put "LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, ";
|
||||||
put " OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE ";
|
put "OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE ";
|
||||||
put " SOFTWARE. ";
|
put "SOFTWARE. ";
|
||||||
put " ";
|
put " ";
|
||||||
run;
|
run;
|
||||||
%end;
|
%end;
|
||||||
|
|
||||||
@@ -1036,13 +1038,12 @@ data _null_;
|
|||||||
put ' )/secure; ';
|
put ' )/secure; ';
|
||||||
put ' %PUT ** NOTE: Package ' "&packageName." ' loaded in ICE mode **; ';
|
put ' %PUT ** NOTE: Package ' "&packageName." ' loaded in ICE mode **; ';
|
||||||
put ' %local _PackageFileref_; ';
|
put ' %local _PackageFileref_; ';
|
||||||
put ' /* %let _PackageFileref_ = P%sysfunc(MD5(%lowcase(&packageName.)),hex7.); */ ';
|
put ' data _null_; ';
|
||||||
put ' data _null_; ';
|
put ' call symputX("_PackageFileref_", "P" !! put(MD5(lowcase("&packageName.")), hex7. -L), "L"); ';
|
||||||
put ' call symputX("_PackageFileref_", "P" !! put(MD5("%lowcase(&packageName.)"), hex7. -L), "L"); ';
|
put ' run; ';
|
||||||
put ' run; ';
|
|
||||||
|
|
||||||
put ' filename &_PackageFileref_. &ZIP. ';
|
put ' filename &_PackageFileref_. &ZIP. ';
|
||||||
put ' "&path./%lowcase(&packageName.).&zip." %unquote(&options.) ';
|
put ' "&path./%sysfunc(lowcase(&packageName.)).&zip." %unquote(&options.) ';
|
||||||
put ' ; ';
|
put ' ; ';
|
||||||
put ' %include &_PackageFileref_.(packagemetadata.sas) / &source2.; ';
|
put ' %include &_PackageFileref_.(packagemetadata.sas) / &source2.; ';
|
||||||
put ' filename &_PackageFileref_. clear; ';
|
put ' filename &_PackageFileref_. clear; ';
|
||||||
@@ -1079,7 +1080,7 @@ data _null_;
|
|||||||
put ' %end; ';
|
put ' %end; ';
|
||||||
|
|
||||||
put ' filename &_PackageFileref_. &ZIP. ';
|
put ' filename &_PackageFileref_. &ZIP. ';
|
||||||
put ' "&path./%lowcase(&packageName.).&zip." %unquote(&options.) ';
|
put ' "&path./%sysfunc(lowcase(&packageName.)).&zip." %unquote(&options.) ';
|
||||||
put ' ENCODING = ';
|
put ' ENCODING = ';
|
||||||
put ' %if %bquote(&packageEncoding.) NE %then &packageEncoding. ; ';
|
put ' %if %bquote(&packageEncoding.) NE %then &packageEncoding. ; ';
|
||||||
put ' %else utf8 ; ';
|
put ' %else utf8 ; ';
|
||||||
@@ -1403,21 +1404,21 @@ data _null_;
|
|||||||
if 1 = isFunction and upcase(type)=:'FUNCTION' then
|
if 1 = isFunction and upcase(type)=:'FUNCTION' then
|
||||||
do;
|
do;
|
||||||
/* macro variable for test if cherry picking used FCMP */
|
/* macro variable for test if cherry picking used FCMP */
|
||||||
put 'data _null_; ';
|
put 'data _null_; ';
|
||||||
put " call symputX('cherryPick_FCMP', exist('work.%lowcase(&packageName.fcmp)'), 'L'); ";
|
put " call symputX('cherryPick_FCMP', exist('work.&packageName.fcmp'), 'L'); ";
|
||||||
put 'run; ';
|
put 'run; ';
|
||||||
end;
|
end;
|
||||||
if 1 = FIRST.type and upcase(type)='FUNCTIONS' then
|
if 1 = FIRST.type and upcase(type)='FUNCTIONS' then
|
||||||
do;
|
do;
|
||||||
/* header for multiple functions in one FCMP run */
|
/* header for multiple functions in one FCMP run */
|
||||||
put "proc fcmp outlib = work.%lowcase(&packageName.fcmp).package ; ";
|
put "proc fcmp outlib = work.&packageName.fcmp.package ; ";
|
||||||
end;
|
end;
|
||||||
if 1 = isProto and upcase(type)='PROTO' then
|
if 1 = isProto and upcase(type)='PROTO' then
|
||||||
do;
|
do;
|
||||||
/* macro variable for test if cherry picking used PROTO */
|
/* macro variable for test if cherry picking used PROTO */
|
||||||
put 'data _null_; ';
|
put 'data _null_; ';
|
||||||
put " call symputX('cherryPick_PROTO', exist('work.%lowcase(&packageName.proto)'), 'L'); ";
|
put " call symputX('cherryPick_PROTO', exist('work.&packageName.proto'), 'L'); ";
|
||||||
put 'run; ';
|
put 'run; ';
|
||||||
end;
|
end;
|
||||||
if 1 = FIRST.type and upcase(type)='PROTO' then
|
if 1 = FIRST.type and upcase(type)='PROTO' then
|
||||||
do;
|
do;
|
||||||
@@ -1426,20 +1427,20 @@ data _null_;
|
|||||||
value of "package=" overwrites previously created content
|
value of "package=" overwrites previously created content
|
||||||
*/
|
*/
|
||||||
/* header for multiple functions in one PROTO run */
|
/* header for multiple functions in one PROTO run */
|
||||||
put "proc proto package = work.%lowcase(&packageName.proto).package" ProtoGrpNum /
|
put "proc proto package = work.&packageName.proto.package" ProtoGrpNum /
|
||||||
" LABEL='Proc Proto C functions for &packageName. package, part" ProtoGrpNum "' ; ";
|
" LABEL='Proc Proto C functions for &packageName. package, part" ProtoGrpNum "' ; ";
|
||||||
end;
|
end;
|
||||||
if 1 = isFormat and upcase(type)=:'FORMAT' then
|
if 1 = isFormat and upcase(type)=:'FORMAT' then
|
||||||
do;
|
do;
|
||||||
/* macro variable for test if cherry picking used FORMAT */
|
/* macro variable for test if cherry picking used FORMAT */
|
||||||
put 'data _null_; ';
|
put 'data _null_; ';
|
||||||
put " call symputX('cherryPick_FORMAT', cexist('work.%lowcase(&packageName.format)'), 'L'); ";
|
put " call symputX('cherryPick_FORMAT', cexist('work.&packageName.format'), 'L'); ";
|
||||||
put 'run; ';
|
put 'run; ';
|
||||||
end;
|
end;
|
||||||
if 1 = FIRST.type and upcase(type)='FORMATS' then
|
if 1 = FIRST.type and upcase(type)='FORMATS' then
|
||||||
do;
|
do;
|
||||||
/* header, for FORMATS */
|
/* header, for FORMATS */
|
||||||
put "proc format lib = work.%lowcase(&packageName.format) ; ";
|
put "proc format lib = work.&packageName.format ; ";
|
||||||
end;
|
end;
|
||||||
if 1 = isIMLmodule and upcase(type)='IMLMODULE' then
|
if 1 = isIMLmodule and upcase(type)='IMLMODULE' then
|
||||||
do;
|
do;
|
||||||
@@ -1613,42 +1614,42 @@ data _null_;
|
|||||||
/* add the link to the functions dataset, only for the first occurrence */
|
/* add the link to the functions dataset, only for the first occurrence */
|
||||||
/*if 1 = isFunction and (upcase(type)=:'FUNCTION') then
|
/*if 1 = isFunction and (upcase(type)=:'FUNCTION') then
|
||||||
do;
|
do;
|
||||||
put "options APPEND=(cmplib = work.%lowcase(&packageName.fcmp));"/;
|
put "options APPEND=(cmplib = work.%sysfunc(lowcase(&packageName.fcmp)));"/;
|
||||||
end;*/
|
end;*/
|
||||||
if 1 = FIRST.type and (upcase(type)=:'FUNCTION') then
|
if 1 = FIRST.type and (upcase(type)=:'FUNCTION') then
|
||||||
do;
|
do;
|
||||||
put '%sysfunc(ifc(0<' /
|
put '%sysfunc(ifc(0<' /
|
||||||
' %sysfunc(findw((%sysfunc(getoption(cmplib)))' /
|
' %sysfunc(findw((%sysfunc(getoption(cmplib)))' /
|
||||||
" ,work.%lowcase(&packageName.fcmp),""'( )'"",RIO))" /
|
" ,work.%sysfunc(lowcase(&packageName.fcmp)),""'( )'"",RIO))" /
|
||||||
',,%str(options' " APPEND=(cmplib = work.%lowcase(&packageName.fcmp));)" /
|
',,%str(options' " APPEND=(cmplib = work.%sysfunc(lowcase(&packageName.fcmp)));)" /
|
||||||
'))' ;
|
'))' ;
|
||||||
end;
|
end;
|
||||||
|
|
||||||
/* add the link to the proto functions dataset, only for the first occurrence */
|
/* add the link to the proto functions dataset, only for the first occurrence */
|
||||||
/*if 1 = isProto and (upcase(type)=:'PROTO') then
|
/*if 1 = isProto and (upcase(type)=:'PROTO') then
|
||||||
do;
|
do;
|
||||||
put "options APPEND=(cmplib = work.%lowcase(&packageName.proto));"/;
|
put "options APPEND=(cmplib = work.%sysfunc(lowcase(&packageName.proto)));"/;
|
||||||
end;*/
|
end;*/
|
||||||
if 1 = FIRST.type and (upcase(type)=:'PROTO') then
|
if 1 = FIRST.type and (upcase(type)=:'PROTO') then
|
||||||
do;
|
do;
|
||||||
put '%sysfunc(ifc(0<' /
|
put '%sysfunc(ifc(0<' /
|
||||||
' %sysfunc(findw((%sysfunc(getoption(cmplib)))' /
|
' %sysfunc(findw((%sysfunc(getoption(cmplib)))' /
|
||||||
" ,work.%lowcase(&packageName.proto),""'( )'"",RIO))" /
|
" ,work.%sysfunc(lowcase(&packageName.proto)),""'( )'"",RIO))" /
|
||||||
',,%str(options' " APPEND=(cmplib = work.%lowcase(&packageName.proto));)" /
|
',,%str(options' " APPEND=(cmplib = work.%sysfunc(lowcase(&packageName.proto)));)" /
|
||||||
'))' ;
|
'))' ;
|
||||||
end;
|
end;
|
||||||
|
|
||||||
/* add the link to the formats catalog, only for the first occurrence */
|
/* add the link to the formats catalog, only for the first occurrence */
|
||||||
/*if 1 = isFormat and (upcase(type)=:'FORMAT') then
|
/*if 1 = isFormat and (upcase(type)=:'FORMAT') then
|
||||||
do;
|
do;
|
||||||
put "options INSERT=(fmtsearch = work.%lowcase(&packageName.format));"/;
|
put "options INSERT=(fmtsearch = work.%sysfunc(lowcase(&packageName.format)));"/;
|
||||||
end;*/
|
end;*/
|
||||||
if 1 = FIRST.type and (upcase(type)=:'FORMAT') then
|
if 1 = FIRST.type and (upcase(type)=:'FORMAT') then
|
||||||
do;
|
do;
|
||||||
put '%sysfunc(ifc(0<' /
|
put '%sysfunc(ifc(0<' /
|
||||||
' %sysfunc(findw((%sysfunc(getoption(fmtsearch)))' /
|
' %sysfunc(findw((%sysfunc(getoption(fmtsearch)))' /
|
||||||
" ,work.%lowcase(&packageName.format),""'( )'"",RIO))" /
|
" ,work.%sysfunc(lowcase(&packageName.format)),""'( )'"",RIO))" /
|
||||||
',,%str(options' " INSERT=(fmtsearch = work.%lowcase(&packageName.format));)" /
|
',,%str(options' " INSERT=(fmtsearch = work.%sysfunc(lowcase(&packageName.format)));)" /
|
||||||
'))' ;
|
'))' ;
|
||||||
end;
|
end;
|
||||||
|
|
||||||
@@ -1696,7 +1697,7 @@ data _null_;
|
|||||||
%end;
|
%end;
|
||||||
put +(-1) '`.;''' /
|
put +(-1) '`.;''' /
|
||||||
' !! '' %put The macro generated: '' !! put(dtCASLudf, E8601DT19.-L) !! ";"' /
|
' !! '' %put The macro generated: '' !! put(dtCASLudf, E8601DT19.-L) !! ";"' /
|
||||||
' !! '' %put with the SAS Packages Framework version 20241129.;''' /
|
' !! '' %put with the SAS Packages Framework version 20250728.;''' /
|
||||||
' !! '' %put ****************************************************************************;''' /
|
' !! '' %put ****************************************************************************;''' /
|
||||||
' !! '' %GOTO theEndOfTheMacro;''' /
|
' !! '' %GOTO theEndOfTheMacro;''' /
|
||||||
' !! '' %end;''' ;
|
' !! '' %end;''' ;
|
||||||
@@ -1716,7 +1717,7 @@ data _null_;
|
|||||||
put ' !! '' %local tmp_NOTES;'' ';
|
put ' !! '' %local tmp_NOTES;'' ';
|
||||||
put ' !! '' %let tmp_NOTES = %sysfunc(getoption(NOTES));'' ';
|
put ' !! '' %let tmp_NOTES = %sysfunc(getoption(NOTES));'' ';
|
||||||
/* the PATH macrovariable will be resolved when the load.sas file is executed */
|
/* the PATH macrovariable will be resolved when the load.sas file is executed */
|
||||||
put ' !! " filename ' "&_PackageFileref_." ' &ZIP. ''&path./' "%lowcase(&packageName.)" '.&zip.'';"';
|
put ' !! " filename ' "&_PackageFileref_." ' &ZIP. ''&path./' "%sysfunc(lowcase(&packageName.))" '.&zip.'';"';
|
||||||
|
|
||||||
/* this loop lists includes for CASLUDFs in the macro definition */
|
/* this loop lists includes for CASLUDFs in the macro definition */
|
||||||
do until(eof1); /* loopOverTypes1 - start */
|
do until(eof1); /* loopOverTypes1 - start */
|
||||||
@@ -1778,8 +1779,8 @@ data _null_;
|
|||||||
do;
|
do;
|
||||||
put '%if 0 = &cherryPick_FCMP. %then %do;';
|
put '%if 0 = &cherryPick_FCMP. %then %do;';
|
||||||
put 'options cmplib = (%unquote(%sysfunc(tranwrd(' /
|
put 'options cmplib = (%unquote(%sysfunc(tranwrd(' /
|
||||||
'%lowcase(%sysfunc(getoption(cmplib)))' /
|
'%sysfunc(lowcase(%sysfunc(getoption(cmplib))))' /
|
||||||
',%str(' "work.%lowcase(&packageName.fcmp)" '), %str() ))));';
|
',%str(' "work.%sysfunc(lowcase(&packageName.fcmp))" '), %str() ))));';
|
||||||
put 'options cmplib = (%unquote(%sysfunc(compress(' /
|
put 'options cmplib = (%unquote(%sysfunc(compress(' /
|
||||||
'%sysfunc(getoption(cmplib))' /
|
'%sysfunc(getoption(cmplib))' /
|
||||||
',%str(()) ))));';
|
',%str(()) ))));';
|
||||||
@@ -1790,13 +1791,13 @@ data _null_;
|
|||||||
do;
|
do;
|
||||||
put '%if 0 = &cherryPick_PROTO. %then %do;';
|
put '%if 0 = &cherryPick_PROTO. %then %do;';
|
||||||
put 'options cmplib = (%unquote(%sysfunc(tranwrd(' /
|
put 'options cmplib = (%unquote(%sysfunc(tranwrd(' /
|
||||||
'%lowcase(%sysfunc(getoption(cmplib)))' /
|
'%sysfunc(lowcase(%sysfunc(getoption(cmplib))))' /
|
||||||
',%str(' "work.%lowcase(&packageName.proto)" '), %str() ))));';
|
',%str(' "work.%sysfunc(lowcase(&packageName.proto))" '), %str() ))));';
|
||||||
put 'options cmplib = (%unquote(%sysfunc(compress(' /
|
put 'options cmplib = (%unquote(%sysfunc(compress(' /
|
||||||
'%sysfunc(getoption(cmplib))' /
|
'%sysfunc(getoption(cmplib))' /
|
||||||
',%str(()) ))));';
|
',%str(()) ))));';
|
||||||
/* proc delete is adde because "empty" PROTO creates dataset too */
|
/* proc delete is adde because "empty" PROTO creates dataset too */
|
||||||
put "proc delete data=work.%lowcase(&packageName.proto); run;";
|
put "proc delete data=work.&packageName.proto; run;";
|
||||||
put '%end;';
|
put '%end;';
|
||||||
end;
|
end;
|
||||||
|
|
||||||
@@ -1806,8 +1807,8 @@ data _null_;
|
|||||||
do;
|
do;
|
||||||
put '%if 0 = &cherryPick_FORMAT. %then %do;';
|
put '%if 0 = &cherryPick_FORMAT. %then %do;';
|
||||||
put 'options fmtsearch = (%unquote(%sysfunc(tranwrd(' /
|
put 'options fmtsearch = (%unquote(%sysfunc(tranwrd(' /
|
||||||
'%lowcase(%sysfunc(getoption(fmtsearch)))' /
|
'%sysfunc(lowcase(%sysfunc(getoption(fmtsearch))))' /
|
||||||
',%str(' "work.%lowcase(&packageName.)format" '), %str() ))));';
|
',%str(' "work.%sysfunc(lowcase(&packageName.))format" '), %str() ))));';
|
||||||
put 'options fmtsearch = (%unquote(%sysfunc(compress(' /
|
put 'options fmtsearch = (%unquote(%sysfunc(compress(' /
|
||||||
'%sysfunc(getoption(fmtsearch))' /
|
'%sysfunc(getoption(fmtsearch))' /
|
||||||
', %str(()) ))));';
|
', %str(()) ))));';
|
||||||
@@ -1861,14 +1862,14 @@ data _null_;
|
|||||||
%end;
|
%end;
|
||||||
put +(-1) '`.; '' !!' /
|
put +(-1) '`.; '' !!' /
|
||||||
''' %put The macro generated: ''' " !! put(dtIML, E8601DT19.-L) !! " '''; '' !!' /
|
''' %put The macro generated: ''' " !! put(dtIML, E8601DT19.-L) !! " '''; '' !!' /
|
||||||
''' %put with the SAS Packages Framework version 20241129.; '' !! ' /
|
''' %put with the SAS Packages Framework version 20250728.; '' !! ' /
|
||||||
''' %put ****************************************************************************; '' !! ' /
|
''' %put ****************************************************************************; '' !! ' /
|
||||||
''' %GOTO theEndOfTheMacro; '' !! ' /
|
''' %GOTO theEndOfTheMacro; '' !! ' /
|
||||||
''' %end; '' !! ' /
|
''' %end; '' !! ' /
|
||||||
|
|
||||||
''' %local localSYSmacroName localPackageName i depListNm; '' !! ' /
|
''' %local localSYSmacroName localPackageName i depListNm; '' !! ' /
|
||||||
''' %let localSYSmacroName = &sysmacroname.; '' !! ' /
|
''' %let localSYSmacroName = &sysmacroname.; '' !! ' /
|
||||||
''' %let localSYSmacroName = %LOWCASE(&localSYSmacroName.); '' !! ' /
|
''' %let localSYSmacroName = %sysfunc(lowcase(&localSYSmacroName.)); '' !! ' /
|
||||||
''' %let localPackageName = %substr(&localSYSmacroName.,1,%eval(%length(&localSYSmacroName.)-3));'' !!' /
|
''' %let localPackageName = %substr(&localSYSmacroName.,1,%eval(%length(&localSYSmacroName.)-3));'' !!' /
|
||||||
|
|
||||||
''' %if %superq(depList) ne %then '' !!' /
|
''' %if %superq(depList) ne %then '' !!' /
|
||||||
@@ -1945,12 +1946,12 @@ data _null_;
|
|||||||
isKMF + 1;
|
isKMF + 1;
|
||||||
if 1=isKMF then
|
if 1=isKMF then
|
||||||
do;
|
do;
|
||||||
put 'data _null_; '
|
put 'data _null_; '
|
||||||
/ ' call symputX("cherryPick_KMF", 0, "L"); '
|
/ ' call symputX("cherryPick_KMF", 0, "L"); '
|
||||||
/ 'run; '
|
/ 'run; '
|
||||||
/ "data work.%lowcase(&packageName.kmf); "
|
/ "data work.&packageName.kmf; "
|
||||||
/ "length member $ 128; call missing(member); "
|
/ "length member $ 128; call missing(member); "
|
||||||
/ "if 0 then output; ";
|
/ "if 0 then output; ";
|
||||||
end;
|
end;
|
||||||
|
|
||||||
put ' '
|
put ' '
|
||||||
@@ -1971,7 +1972,7 @@ data _null_;
|
|||||||
put '%if &cherryPick_KMF. %then %do;';
|
put '%if &cherryPick_KMF. %then %do;';
|
||||||
put 'filename __KMFgen temp;'
|
put 'filename __KMFgen temp;'
|
||||||
/ 'data _null_;'
|
/ 'data _null_;'
|
||||||
/ " set work.%lowcase(&packageName.kmf) nobs=nobs;"
|
/ " set work.&packageName.kmf nobs=nobs;"
|
||||||
|
|
||||||
/ ' call symputX("numberKMF",nobs,"L");'
|
/ ' call symputX("numberKMF",nobs,"L");'
|
||||||
/ ' file __KMFgen;'
|
/ ' file __KMFgen;'
|
||||||
@@ -2003,10 +2004,10 @@ data _null_;
|
|||||||
;
|
;
|
||||||
|
|
||||||
put 'data _nulL_;'
|
put 'data _nulL_;'
|
||||||
/ ' file "%sysfunc(pathname(WORK))/%lowcase(&packageName..kmf)" termstr=NL lrecl=32767;'
|
/ ' file "%sysfunc(pathname(WORK))/%sysfunc(lowcase(&packageName..kmf))" termstr=NL lrecl=32767;'
|
||||||
/ ' putlog "INFO: The &packageName. package provides KMF-abbreviations."; '
|
/ ' putlog "INFO: The &packageName. package provides KMF-abbreviations."; '
|
||||||
/ ' putlog @7 "By default the file with abbreviations is located in:";'
|
/ ' putlog @7 "By default the file with abbreviations is located in:";'
|
||||||
/ ' putlog / @9 "%sysfunc(pathname(WORK))/%lowcase(&packageName..kmf)";'
|
/ ' putlog / @9 "%sysfunc(pathname(WORK))/%sysfunc(lowcase(&packageName..kmf))";'
|
||||||
/ ' putlog / @7 "To import code abbreviations to your SAS session:";'
|
/ ' putlog / @7 "To import code abbreviations to your SAS session:";'
|
||||||
/ ' putlog @7 "- in SAS DMS go to: Tools -> Keyboard Macros -> Macros... -> Import... ";'
|
/ ' putlog @7 "- in SAS DMS go to: Tools -> Keyboard Macros -> Macros... -> Import... ";'
|
||||||
/ ' putlog @7 "- in SAS EG go to: Program -> Manage Macros and Snippets -> Import... ";'
|
/ ' putlog @7 "- in SAS EG go to: Program -> Manage Macros and Snippets -> Import... ";'
|
||||||
@@ -2014,8 +2015,8 @@ data _null_;
|
|||||||
|
|
||||||
/ ' putlog / @7 "Should you have any problem with finding the file consider moving";'
|
/ ' putlog / @7 "Should you have any problem with finding the file consider moving";'
|
||||||
/ ' putlog @7 "it to a location of your choice with the help of the following snippet:";'
|
/ ' putlog @7 "it to a location of your choice with the help of the following snippet:";'
|
||||||
/ ' putlog / @7 " filename KMFin " "''%sysfunc(pathname(WORK))/%lowcase(&packageName..kmf)''" " lrecl=1 recfm=n;";'
|
/ ' putlog / @7 " filename KMFin " "''%sysfunc(pathname(WORK))/%sysfunc(lowcase(&packageName..kmf))''" " lrecl=1 recfm=n;";'
|
||||||
/ ' putlog / @7 " filename KMFout " "''</directory/of/your/choice>/%lowcase(&packageName..kmf)''" " lrecl=1 recfm=n;";'
|
/ ' putlog / @7 " filename KMFout " "''</directory/of/your/choice>/%sysfunc(lowcase(&packageName..kmf))''" " lrecl=1 recfm=n;";'
|
||||||
/ ' putlog @7 '' %put *%sysfunc(fcopy(KMFin, KMFout))*(0=success)*;'';'
|
/ ' putlog @7 '' %put *%sysfunc(fcopy(KMFin, KMFout))*(0=success)*;'';'
|
||||||
/ ' putlog / "0a"x / " ";'
|
/ ' putlog / "0a"x / " ";'
|
||||||
|
|
||||||
@@ -2070,7 +2071,7 @@ data _null_;
|
|||||||
/ 'filename __KMFgen clear;'
|
/ 'filename __KMFgen clear;'
|
||||||
;
|
;
|
||||||
put '%end;';
|
put '%end;';
|
||||||
put "proc delete data=work.%lowcase(&packageName.kmf); run;";
|
put "proc delete data=work.&packageName.kmf; run;";
|
||||||
put 'options &temp_noNotes_etc.;';
|
put 'options &temp_noNotes_etc.;';
|
||||||
end;
|
end;
|
||||||
put 'data _null_;';
|
put 'data _null_;';
|
||||||
@@ -2102,7 +2103,7 @@ data _null_;
|
|||||||
put ' end; ';
|
put ' end; ';
|
||||||
put ' SYSloadedPackages = cats("#", translate(strip(SYSloadedPackages), "#", " "), "#"); ';
|
put ' SYSloadedPackages = cats("#", translate(strip(SYSloadedPackages), "#", " "), "#"); ';
|
||||||
|
|
||||||
put " indexPCKG = INDEX(lowcase(SYSloadedPackages), '#%lowcase(&packageName.)('); ";
|
put " indexPCKG = INDEX(lowcase(SYSloadedPackages), '#%sysfunc(lowcase(&packageName.))('); ";
|
||||||
put " if indexPCKG = 0 then ";
|
put " if indexPCKG = 0 then ";
|
||||||
put ' do; ';
|
put ' do; ';
|
||||||
put " SYSloadedPackages = catx('#', SYSloadedPackages, '&packageName.(&packageVersion.)'); ";
|
put " SYSloadedPackages = catx('#', SYSloadedPackages, '&packageName.(&packageVersion.)'); ";
|
||||||
@@ -2298,11 +2299,11 @@ data _null_;
|
|||||||
/* delete the link to the formats catalog */
|
/* delete the link to the formats catalog */
|
||||||
if isFormat then
|
if isFormat then
|
||||||
do;
|
do;
|
||||||
put "proc delete data = work.%lowcase(&packageName.format)(mtype = catalog);";
|
put "proc delete data = work.&packageName.format(mtype = catalog);";
|
||||||
put 'run;';
|
put 'run;';
|
||||||
put 'options fmtsearch = (%unquote(%sysfunc(tranwrd(' /
|
put 'options fmtsearch = (%unquote(%sysfunc(tranwrd(' /
|
||||||
'%lowcase(%sysfunc(getoption(fmtsearch)))' /
|
'%sysfunc(lowcase(%sysfunc(getoption(fmtsearch))))' /
|
||||||
',%str(' "work.%lowcase(&packageName.)format" '), %str() ))));';
|
',%str(' "work.%sysfunc(lowcase(&packageName.))format" '), %str() ))));';
|
||||||
put 'options fmtsearch = (%unquote(%sysfunc(compress(' /
|
put 'options fmtsearch = (%unquote(%sysfunc(compress(' /
|
||||||
'%sysfunc(getoption(fmtsearch))' /
|
'%sysfunc(getoption(fmtsearch))' /
|
||||||
', %str(()) ))));';
|
', %str(()) ))));';
|
||||||
@@ -2322,11 +2323,11 @@ data _null_;
|
|||||||
/* delete the link to the proto functions dataset */
|
/* delete the link to the proto functions dataset */
|
||||||
if isProto then
|
if isProto then
|
||||||
do;
|
do;
|
||||||
put "proc delete data = work.%lowcase(&packageName.proto);";
|
put "proc delete data = work.&packageName.proto;";
|
||||||
put "run;" /;
|
put "run;" /;
|
||||||
put 'options cmplib = (%unquote(%sysfunc(tranwrd(' /
|
put 'options cmplib = (%unquote(%sysfunc(tranwrd(' /
|
||||||
'%lowcase(%sysfunc(getoption(cmplib)))' /
|
'%sysfunc(lowcase(%sysfunc(getoption(cmplib))))' /
|
||||||
',%str(' "work.%lowcase(&packageName.proto)" '), %str() ))));';
|
',%str(' "work.%sysfunc(lowcase(&packageName.proto))" '), %str() ))));';
|
||||||
put 'options cmplib = (%unquote(%sysfunc(compress(' /
|
put 'options cmplib = (%unquote(%sysfunc(compress(' /
|
||||||
'%sysfunc(getoption(cmplib))' /
|
'%sysfunc(getoption(cmplib))' /
|
||||||
',%str(()) ))));';
|
',%str(()) ))));';
|
||||||
@@ -2335,7 +2336,7 @@ data _null_;
|
|||||||
|
|
||||||
|
|
||||||
/* delete functions */
|
/* delete functions */
|
||||||
put "proc fcmp outlib = work.%lowcase(&packageName.fcmp).package;";
|
put "proc fcmp outlib = work.&packageName.fcmp.package;";
|
||||||
isFunction = 0;
|
isFunction = 0;
|
||||||
EOF = 0;
|
EOF = 0;
|
||||||
do until(EOF);
|
do until(EOF);
|
||||||
@@ -2352,8 +2353,8 @@ data _null_;
|
|||||||
if isFunction then
|
if isFunction then
|
||||||
do;
|
do;
|
||||||
put 'options cmplib = (%unquote(%sysfunc(tranwrd(' /
|
put 'options cmplib = (%unquote(%sysfunc(tranwrd(' /
|
||||||
'%lowcase(%sysfunc(getoption(cmplib)))' /
|
'%sysfunc(lowcase(%sysfunc(getoption(cmplib))))' /
|
||||||
',%str(' "work.%lowcase(&packageName.fcmp)" '), %str() ))));';
|
',%str(' "work.%sysfunc(lowcase(&packageName.fcmp))" '), %str() ))));';
|
||||||
put 'options cmplib = (%unquote(%sysfunc(compress(' /
|
put 'options cmplib = (%unquote(%sysfunc(compress(' /
|
||||||
'%sysfunc(getoption(cmplib))' /
|
'%sysfunc(getoption(cmplib))' /
|
||||||
',%str(()) ))));';
|
',%str(()) ))));';
|
||||||
@@ -2445,7 +2446,7 @@ data _null_;
|
|||||||
put ' end; ';
|
put ' end; ';
|
||||||
put ' SYSloadedPackages = cats("#", translate(strip(SYSloadedPackages), "#", " "), "#"); ';
|
put ' SYSloadedPackages = cats("#", translate(strip(SYSloadedPackages), "#", " "), "#"); ';
|
||||||
|
|
||||||
put " if INDEX(lowcase(SYSloadedPackages), '#%lowcase(&packageName.(&packageVersion.))#') > 0 then ";
|
put " if INDEX(lowcase(SYSloadedPackages),'#%sysfunc(lowcase(&packageName.(&packageVersion.)))#')>0 then ";
|
||||||
put ' do; ';
|
put ' do; ';
|
||||||
put " SYSloadedPackages = tranwrd(SYSloadedPackages, '#&packageName.(&packageVersion.)#', '##'); ";
|
put " SYSloadedPackages = tranwrd(SYSloadedPackages, '#&packageName.(&packageVersion.)#', '##'); ";
|
||||||
put ' SYSloadedPackages = compbl(translate(SYSloadedPackages, " ", "#")); ';
|
put ' SYSloadedPackages = compbl(translate(SYSloadedPackages, " ", "#")); ';
|
||||||
@@ -2663,12 +2664,12 @@ data _null_;
|
|||||||
%if %superq(additionalContent) NE %then
|
%if %superq(additionalContent) NE %then
|
||||||
%do;
|
%do;
|
||||||
put 'put ;' / 'put @3 ''Package contains additional content, run: %loadPackageAddCnt(' "&packageName." ') to load it'';';
|
put 'put ;' / 'put @3 ''Package contains additional content, run: %loadPackageAddCnt(' "&packageName." ') to load it'';';
|
||||||
put "put @3 'or look for the %lowcase(&packageName.)_AdditionalContent directory in the Packages fileref';";
|
put "put @3 'or look for the %sysfunc(lowcase(&packageName.))_AdditionalContent directory in the Packages fileref';";
|
||||||
put "put @3 'localization (only if additional content was deployed during the installation process).';" / "put ;";
|
put "put @3 'localization (only if additional content was deployed during the installation process).';" / "put ;";
|
||||||
%end;
|
%end;
|
||||||
|
|
||||||
put 'put " " / @3 "--------------------------------------------------------------------" / " ";'
|
put 'put " " / @3 "--------------------------------------------------------------------" / " ";'
|
||||||
/ 'put @3 "*SAS package generated by SAS Package Framework, version `20241129`*";'
|
/ 'put @3 "*SAS package generated by SAS Package Framework, version `20250728`*";'
|
||||||
/ 'put " " / @3 "--------------------------------------------------------------------";';
|
/ 'put " " / @3 "--------------------------------------------------------------------";';
|
||||||
|
|
||||||
put 'run; ' /;
|
put 'run; ' /;
|
||||||
@@ -2820,7 +2821,7 @@ data _null_;
|
|||||||
if (upcase(type) not in: ('TEST' 'ADDCNT')); /* test files and additional content are not to be copied */
|
if (upcase(type) not in: ('TEST' 'ADDCNT')); /* test files and additional content are not to be copied */
|
||||||
|
|
||||||
call execute(cat ('filename _SPFIN_ "', catx('/', base, folder, file), '";'));
|
call execute(cat ('filename _SPFIN_ "', catx('/', base, folder, file), '";'));
|
||||||
call execute(cats("filename _SPFOUT_ ZIP '", base, "/%lowcase(&packageName.).zip' member='_", folder, ".", file, "';") );
|
call execute(cats("filename _SPFOUT_ ZIP '", base, "/%sysfunc(lowcase(&packageName.)).zip' member='_", folder, ".", file, "';") );
|
||||||
|
|
||||||
/* copy code file into the zip */
|
/* copy code file into the zip */
|
||||||
call execute('data _null_;');
|
call execute('data _null_;');
|
||||||
@@ -2875,7 +2876,7 @@ data _null_;
|
|||||||
"help "
|
"help "
|
||||||
;
|
;
|
||||||
/* test if "driving" files exist */
|
/* test if "driving" files exist */
|
||||||
call execute(cats("filename _SPFOUT_ ZIP '", base, "/%lowcase(&packageName.).zip' member='", drivFile, ".sas';") );
|
call execute(cats("filename _SPFOUT_ ZIP '", base, "/%sysfunc(lowcase(&packageName.)).zip' member='", drivFile, ".sas';") );
|
||||||
call execute('data _null_;');
|
call execute('data _null_;');
|
||||||
call execute(' pathname = pathname("_SPFIN_");');
|
call execute(' pathname = pathname("_SPFIN_");');
|
||||||
call execute(' ex = fexist("_SPFOUT_");');
|
call execute(' ex = fexist("_SPFOUT_");');
|
||||||
@@ -3012,7 +3013,7 @@ filename &zipReferrence. clear;
|
|||||||
%put NOTE- ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^;
|
%put NOTE- ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^;
|
||||||
%put NOTE-;
|
%put NOTE-;
|
||||||
|
|
||||||
filename &zipReferrence. "&filesLocation./%lowcase(&packageName.).zip";
|
filename &zipReferrence. "&filesLocation./%sysfunc(lowcase(&packageName.)).zip";
|
||||||
filename &zipReferrence. list;
|
filename &zipReferrence. list;
|
||||||
%local notesSourceOptions;
|
%local notesSourceOptions;
|
||||||
%let notesSourceOptions = %sysfunc(getoption(notes)) %sysfunc(getoption(source));
|
%let notesSourceOptions = %sysfunc(getoption(notes)) %sysfunc(getoption(source));
|
||||||
@@ -3222,7 +3223,7 @@ run;
|
|||||||
options DLCREATEDIR; /* turns-on creation of subdirectories by libname */
|
options DLCREATEDIR; /* turns-on creation of subdirectories by libname */
|
||||||
/* temporary location for tests results is WORK unless developer provide &testResults. */
|
/* temporary location for tests results is WORK unless developer provide &testResults. */
|
||||||
%local testPackageTimesamp;
|
%local testPackageTimesamp;
|
||||||
%let testPackageTimesamp = %lowcase(&packageName._%sysfunc(datetime(),b8601dt15.));
|
%let testPackageTimesamp = %sysfunc(lowcase(&packageName._%sysfunc(datetime(),b8601dt15.)));
|
||||||
%if %qsysfunc(fileexist(%bquote(&testResults.))) %then
|
%if %qsysfunc(fileexist(%bquote(&testResults.))) %then
|
||||||
%do;
|
%do;
|
||||||
libname TEST "&testResults./test_&testPackageTimesamp.";
|
libname TEST "&testResults./test_&testPackageTimesamp.";
|
||||||
@@ -3624,8 +3625,8 @@ options "elenmax_tmp.;
|
|||||||
%sysfunc(getoption(notes)) %sysfunc(getoption(source)) msglevel=%sysfunc(getoption(msglevel));
|
%sysfunc(getoption(notes)) %sysfunc(getoption(source)) msglevel=%sysfunc(getoption(msglevel));
|
||||||
options NOnotes NOsource msglevel=N;
|
options NOnotes NOsource msglevel=N;
|
||||||
|
|
||||||
filename &zipReferrence. "&filesLocation./%lowcase(&packageName.).md";
|
filename &zipReferrence. "&filesLocation./%sysfunc(lowcase(&packageName.)).md";
|
||||||
filename &_PackageFileref_. ZIP "&filesLocation./%lowcase(&packageName.).zip";
|
filename &_PackageFileref_. ZIP "&filesLocation./%sysfunc(lowcase(&packageName.)).zip";
|
||||||
|
|
||||||
data &filesWithCodes.markdown;
|
data &filesWithCodes.markdown;
|
||||||
/* break if no data */
|
/* break if no data */
|
||||||
@@ -3701,12 +3702,12 @@ data &filesWithCodes.markdown;
|
|||||||
%do;
|
%do;
|
||||||
put " " / "---" / " ";
|
put " " / "---" / " ";
|
||||||
put 'Package contains additional content, run: `%loadPackageAddCnt(' "&packageName." ')` to load it'
|
put 'Package contains additional content, run: `%loadPackageAddCnt(' "&packageName." ')` to load it'
|
||||||
/ "or look for the `%lowcase(&packageName.)_AdditionalContent` directory in the `packages` fileref"
|
/ "or look for the `%sysfunc(lowcase(&packageName.))_AdditionalContent` directory in the `packages` fileref"
|
||||||
/ "localization (only if additional content was deployed during the installation process).";
|
/ "localization (only if additional content was deployed during the installation process).";
|
||||||
%end;
|
%end;
|
||||||
|
|
||||||
put " " / "--------------------------------------------------------------------" / " "
|
put " " / "--------------------------------------------------------------------" / " "
|
||||||
/ "*SAS package generated by SAS Package Framework, version `20241129`*"
|
/ "*SAS package generated by SAS Package Framework, version `20250728`*"
|
||||||
/ " " / "--------------------------------------------------------------------" / " ";
|
/ " " / "--------------------------------------------------------------------" / " ";
|
||||||
|
|
||||||
put "# The `&packageName.` package content";
|
put "# The `&packageName.` package content";
|
||||||
@@ -3839,9 +3840,9 @@ options &MarkDownOptionsTmp.;
|
|||||||
options NOnotes NOsource;
|
options NOnotes NOsource;
|
||||||
|
|
||||||
/* zip */
|
/* zip */
|
||||||
filename &zipReferrence. "&filesLocation./%lowcase(&packageName.).zip" lrecl=1 recfm=n;
|
filename &zipReferrence. "&filesLocation./%sysfunc(lowcase(&packageName.)).zip" lrecl=1 recfm=n;
|
||||||
filename &zipReferrence. list;
|
filename &zipReferrence. list;
|
||||||
filename &zipReferrenceV. "&filesLocation./%lowcase(&packageName.)_&packageVersion._.zip" lrecl=1 recfm=n;
|
filename &zipReferrenceV. "&filesLocation./%sysfunc(lowcase(&packageName.))_&packageVersion._.zip" lrecl=1 recfm=n;
|
||||||
filename &zipReferrenceV. list;
|
filename &zipReferrenceV. list;
|
||||||
data _null_;
|
data _null_;
|
||||||
rc = fcopy("&zipReferrence.", "&zipReferrenceV.");
|
rc = fcopy("&zipReferrence.", "&zipReferrenceV.");
|
||||||
@@ -3849,18 +3850,18 @@ options &MarkDownOptionsTmp.;
|
|||||||
rctxt = sysmsg();
|
rctxt = sysmsg();
|
||||||
if rc then
|
if rc then
|
||||||
do;
|
do;
|
||||||
put "ERROR: An error " rc "occurred during creation of %lowcase(&packageName.)_&packageVersion._.zip file.";
|
put "ERROR: An error " rc "occurred during creation of %sysfunc(lowcase(&packageName.))_&packageVersion._.zip file.";
|
||||||
put rctxt;
|
put rctxt;
|
||||||
end;
|
end;
|
||||||
else put "Creating %lowcase(&packageName.)_&packageVersion._.zip file.";
|
else put "Creating %sysfunc(lowcase(&packageName.))_&packageVersion._.zip file.";
|
||||||
run;
|
run;
|
||||||
filename &zipReferrence. clear;
|
filename &zipReferrence. clear;
|
||||||
filename &zipReferrenceV. clear;
|
filename &zipReferrenceV. clear;
|
||||||
|
|
||||||
/* md */
|
/* md */
|
||||||
filename &zipReferrence. "&filesLocation./%lowcase(&packageName.).md" lrecl=1 recfm=n;
|
filename &zipReferrence. "&filesLocation./%sysfunc(lowcase(&packageName.)).md" lrecl=1 recfm=n;
|
||||||
filename &zipReferrence. list;
|
filename &zipReferrence. list;
|
||||||
filename &zipReferrenceV. "&filesLocation./%lowcase(&packageName.)_&packageVersion._.md" lrecl=1 recfm=n;
|
filename &zipReferrenceV. "&filesLocation./%sysfunc(lowcase(&packageName.))_&packageVersion._.md" lrecl=1 recfm=n;
|
||||||
filename &zipReferrenceV. list;
|
filename &zipReferrenceV. list;
|
||||||
data _null_;
|
data _null_;
|
||||||
rc = fcopy("&zipReferrence.", "&zipReferrenceV.");
|
rc = fcopy("&zipReferrence.", "&zipReferrenceV.");
|
||||||
@@ -3868,10 +3869,10 @@ options &MarkDownOptionsTmp.;
|
|||||||
rctxt = sysmsg();
|
rctxt = sysmsg();
|
||||||
if rc then
|
if rc then
|
||||||
do;
|
do;
|
||||||
put "ERROR: An error " rc "occurred during creation of %lowcase(&packageName.)_&packageVersion._.md file.";
|
put "ERROR: An error " rc "occurred during creation of %sysfunc(lowcase(&packageName.))_&packageVersion._.md file.";
|
||||||
put rctxt;
|
put rctxt;
|
||||||
end;
|
end;
|
||||||
else put "Creating %lowcase(&packageName.)_&packageVersion._.md file.";
|
else put "Creating %sysfunc(lowcase(&packageName.))_&packageVersion._.md file.";
|
||||||
run;
|
run;
|
||||||
filename &zipReferrence. clear;
|
filename &zipReferrence. clear;
|
||||||
filename &zipReferrenceV. clear;
|
filename &zipReferrenceV. clear;
|
||||||
@@ -3941,7 +3942,7 @@ TODO: (in Polish)
|
|||||||
|
|
||||||
- weryfikacja srodowiska [ ]
|
- weryfikacja srodowiska [ ]
|
||||||
|
|
||||||
- dodac typ "ds2" [ ]
|
- dodac typ "ds2" [v]
|
||||||
|
|
||||||
- dodac mozliwosc szyfrowania pliku z pakietem (haslo do zip, sprawdzic istnienie funkcjonalnosci) [ ]
|
- dodac mozliwosc szyfrowania pliku z pakietem (haslo do zip, sprawdzic istnienie funkcjonalnosci) [ ]
|
||||||
|
|
||||||
|
|||||||
@@ -28,7 +28,7 @@
|
|||||||
*/
|
*/
|
||||||
)/secure
|
)/secure
|
||||||
/*** HELP END ***/
|
/*** HELP END ***/
|
||||||
des = 'Macro to get help about SAS package, version 20241129. Run %helpPackage() for help info.'
|
des = 'Macro to get help about SAS package, version 20250728. Run %helpPackage() for help info.'
|
||||||
;
|
;
|
||||||
%if (%superq(packageName) = ) OR (%qupcase(&packageName.) = HELP) %then
|
%if (%superq(packageName) = ) OR (%qupcase(&packageName.) = HELP) %then
|
||||||
%do;
|
%do;
|
||||||
@@ -43,7 +43,7 @@ des = 'Macro to get help about SAS package, version 20241129. Run %helpPackage()
|
|||||||
%put ### This is short help information for the `helpPackage` macro #;
|
%put ### This is short help information for the `helpPackage` macro #;
|
||||||
%put #-------------------------------------------------------------------------------#;
|
%put #-------------------------------------------------------------------------------#;
|
||||||
%put # #;
|
%put # #;
|
||||||
%put # Macro to get help about SAS packages, version `20241129` #;
|
%put # Macro to get help about SAS packages, version `20250728` #;
|
||||||
%put # #;
|
%put # #;
|
||||||
%put # A SAS package is a zip file containing a group #;
|
%put # A SAS package is a zip file containing a group #;
|
||||||
%put # of SAS codes (macros, functions, data steps generating #;
|
%put # of SAS codes (macros, functions, data steps generating #;
|
||||||
@@ -93,6 +93,7 @@ des = 'Macro to get help about SAS package, version 20241129. Run %helpPackage()
|
|||||||
%put # #;
|
%put # #;
|
||||||
%put # Visit: `https://github.com/yabwon/SAS_PACKAGES/tree/main/SPF/Documentation` #;
|
%put # Visit: `https://github.com/yabwon/SAS_PACKAGES/tree/main/SPF/Documentation` #;
|
||||||
%put # to learn more. #;
|
%put # to learn more. #;
|
||||||
|
%put # Tutorials available at: `https://github.com/yabwon/HoW-SASPackages` #;
|
||||||
%put # #;
|
%put # #;
|
||||||
%put #### Example ####################################################################;
|
%put #### Example ####################################################################;
|
||||||
%put # #;
|
%put # #;
|
||||||
@@ -131,8 +132,9 @@ des = 'Macro to get help about SAS package, version 20241129. Run %helpPackage()
|
|||||||
options NOnotes NOsource ls=MAX ps=MAX msglevel=N NOmautocomploc;
|
options NOnotes NOsource ls=MAX ps=MAX msglevel=N NOmautocomploc;
|
||||||
|
|
||||||
%local _PackageFileref_;
|
%local _PackageFileref_;
|
||||||
/* %let _PackageFileref_ = P%sysfunc(MD5(%lowcase(&packageName.)),hex7.); */
|
data _null_;
|
||||||
data _null_; call symputX("_PackageFileref_", "P" !! put(MD5("%lowcase(&packageName.)"), hex7. -L), "L"); run;
|
call symputX("_PackageFileref_", "P" !! put(MD5(lowcase("&packageName.")), hex7. -L), "L");
|
||||||
|
run;
|
||||||
|
|
||||||
/* when the packages reference is multi-directory search for the first one containing the package */
|
/* when the packages reference is multi-directory search for the first one containing the package */
|
||||||
data _null_;
|
data _null_;
|
||||||
@@ -142,7 +144,7 @@ des = 'Macro to get help about SAS package, version 20241129. Run %helpPackage()
|
|||||||
if char(packages,1) ^= "(" then packages = quote(strip(packages)); /* for paths with spaces */
|
if char(packages,1) ^= "(" then packages = quote(strip(packages)); /* for paths with spaces */
|
||||||
do i = 1 to kcountw(packages, "()", "QS");
|
do i = 1 to kcountw(packages, "()", "QS");
|
||||||
p = dequote(kscanx(packages, i, "()", "QS"));
|
p = dequote(kscanx(packages, i, "()", "QS"));
|
||||||
exists + fileexist(catx("/", p, "%lowcase(&packageName.).&zip."));
|
exists + fileexist(catx("/", p, lowcase("&packageName.") !! ".&zip."));
|
||||||
if exists then leave;
|
if exists then leave;
|
||||||
end;
|
end;
|
||||||
if exists then call symputx("path", p, "L");
|
if exists then call symputx("path", p, "L");
|
||||||
@@ -150,7 +152,7 @@ des = 'Macro to get help about SAS package, version 20241129. Run %helpPackage()
|
|||||||
|
|
||||||
filename &_PackageFileref_. &ZIP.
|
filename &_PackageFileref_. &ZIP.
|
||||||
/* put location of package myPackageFile.zip here */
|
/* put location of package myPackageFile.zip here */
|
||||||
"&path./%lowcase(&packageName.).&zip." %unquote(&options.)
|
"&path./%sysfunc(lowcase(&packageName.)).&zip." %unquote(&options.)
|
||||||
;
|
;
|
||||||
%if %sysfunc(fexist(&_PackageFileref_.)) %then
|
%if %sysfunc(fexist(&_PackageFileref_.)) %then
|
||||||
%do;
|
%do;
|
||||||
@@ -158,7 +160,7 @@ des = 'Macro to get help about SAS package, version 20241129. Run %helpPackage()
|
|||||||
filename &_PackageFileref_. clear;
|
filename &_PackageFileref_. clear;
|
||||||
options ls = &ls_tmp. ps = &ps_tmp. ¬es_tmp. &source_tmp.;
|
options ls = &ls_tmp. ps = &ps_tmp. ¬es_tmp. &source_tmp.;
|
||||||
filename &_PackageFileref_. &ZIP.
|
filename &_PackageFileref_. &ZIP.
|
||||||
"&path./%lowcase(&packageName.).&zip." %unquote(&options.)
|
"&path./%sysfunc(lowcase(&packageName.)).&zip." %unquote(&options.)
|
||||||
ENCODING =
|
ENCODING =
|
||||||
%if %bquote(&packageEncoding.) NE %then &packageEncoding. ;
|
%if %bquote(&packageEncoding.) NE %then &packageEncoding. ;
|
||||||
%else utf8 ;
|
%else utf8 ;
|
||||||
|
|||||||
@@ -1,5 +1,5 @@
|
|||||||
/*+installPackage+*/
|
/*+installPackage+*/
|
||||||
/* Macros to install SAS packages, version 20241129 */
|
/* Macros to install SAS packages, version 20250728 */
|
||||||
/* A SAS package is a zip file containing a group of files
|
/* A SAS package is a zip file containing a group of files
|
||||||
with SAS code (macros, functions, data steps generating
|
with SAS code (macros, functions, data steps generating
|
||||||
data, etc.) wrapped up together and %INCLUDEed by
|
data, etc.) wrapped up together and %INCLUDEed by
|
||||||
@@ -18,12 +18,14 @@
|
|||||||
, URLoptions = /* options for the `sourcePath` URLs */
|
, URLoptions = /* options for the `sourcePath` URLs */
|
||||||
, loadAddCnt=0 /* should the additional content be loaded?
|
, loadAddCnt=0 /* should the additional content be loaded?
|
||||||
default is 0 - means No, 1 means Yes */
|
default is 0 - means No, 1 means Yes */
|
||||||
|
, instDoc=0 /* should the markdown file with documentation be installed?
|
||||||
|
default is 0 - means No, 1 means Yes */
|
||||||
, SFRCVN = /* name of a macro variable to store success-failure return code value */
|
, SFRCVN = /* name of a macro variable to store success-failure return code value */
|
||||||
)
|
)
|
||||||
/secure
|
/secure
|
||||||
minoperator
|
minoperator
|
||||||
/*** HELP END ***/
|
/*** HELP END ***/
|
||||||
des = 'Macro to install SAS package, version 20241129. Run %%installPackage() for help info.'
|
des = 'Macro to install SAS package, version 20250728. Run %%installPackage() for help info.'
|
||||||
;
|
;
|
||||||
%if (%superq(packagesNames) = ) OR (%qupcase(&packagesNames.) = HELP) %then
|
%if (%superq(packagesNames) = ) OR (%qupcase(&packagesNames.) = HELP) %then
|
||||||
%do;
|
%do;
|
||||||
@@ -38,7 +40,7 @@ des = 'Macro to install SAS package, version 20241129. Run %%installPackage() fo
|
|||||||
%put ### This is short help information for the `installPackage` macro #;
|
%put ### This is short help information for the `installPackage` macro #;
|
||||||
%put #--------------------------------------------------------------------------------------------#;;
|
%put #--------------------------------------------------------------------------------------------#;;
|
||||||
%put # #;
|
%put # #;
|
||||||
%put # Macro to install SAS packages, version `20241129` #;
|
%put # Macro to install SAS packages, version `20250728` #;
|
||||||
%put # #;
|
%put # #;
|
||||||
%put # A SAS package is a zip file containing a group #;
|
%put # A SAS package is a zip file containing a group #;
|
||||||
%put # of SAS codes (macros, functions, data steps generating #;
|
%put # of SAS codes (macros, functions, data steps generating #;
|
||||||
@@ -71,16 +73,18 @@ des = 'Macro to install SAS package, version 20241129. Run %%installPackage() fo
|
|||||||
%put # `https://raw.githubusercontent.com/yabwon/SAS_PACKAGES/main/SPF/` #;
|
%put # `https://raw.githubusercontent.com/yabwon/SAS_PACKAGES/main/SPF/` #;
|
||||||
%put # #;
|
%put # #;
|
||||||
%put # - `mirror=` Indicates which web location for packages installation is used. #;
|
%put # - `mirror=` Indicates which web location for packages installation is used. #;
|
||||||
%put # Value `0` indicates: #;
|
%put # Value `0` or `SASPAC` indicates: #;
|
||||||
%put # `https://github.com/SASPAC/` #;
|
%put # `https://github.com/SASPAC/` #;
|
||||||
%put # Value `1` indicates: #;
|
%put # Value `1` indicates: #;
|
||||||
%put # `https://raw.githubusercontent.com/yabwon/SAS_PACKAGES/main` #;
|
%put # `https://raw.githubusercontent.com/yabwon/SAS_PACKAGES/main` #;
|
||||||
%put # Value `2` indicates: #;
|
%put # Value `2` indicates: #;
|
||||||
%put # `https://pages.mini.pw.edu.pl/~jablonskib/SASpublic/SAS_PACKAGES` #;
|
%put # `https://pages.mini.pw.edu.pl/~jablonskib/SASpublic/SAS_PACKAGES` #;
|
||||||
|
%put # Value `3` or `PharmaForest` indicates: #;
|
||||||
|
%put # `https://github.com/PharmaForest/` #;
|
||||||
%put # Default value is `0`. #;
|
%put # Default value is `0`. #;
|
||||||
%put # #;
|
%put # #;
|
||||||
%put # - `version=` Indicates which historical version of a package to install. #;
|
%put # - `version=` Indicates which historical version of a package to install. #;
|
||||||
%put # Historical version are available only if `mirror=0` is set. #;
|
%put # Historical version are currently available only if `mirror=0` is set. #;
|
||||||
%put # Default value is null which means "install the latest". #;
|
%put # Default value is null which means "install the latest". #;
|
||||||
%put # When there are multiple packages to install version variable #;
|
%put # When there are multiple packages to install version variable #;
|
||||||
%put # is scan sequentially. #;
|
%put # is scan sequentially. #;
|
||||||
@@ -102,6 +106,11 @@ des = 'Macro to install SAS package, version 20241129. Run %%installPackage() fo
|
|||||||
%put # directory in `<packageName>_AdditionalContent` folder. #;
|
%put # directory in `<packageName>_AdditionalContent` folder. #;
|
||||||
%put # For other locations use `%nrstr(%%loadPackageAddCnt())` macro. #;
|
%put # For other locations use `%nrstr(%%loadPackageAddCnt())` macro. #;
|
||||||
%put # #;
|
%put # #;
|
||||||
|
%put # - `instDoc=` *Optional.* A package may be provided with a markdown file #;
|
||||||
|
%put # containing combined documentation of the package. The option #;
|
||||||
|
%put # indicates if the `.md` file should be also downloaded. #;
|
||||||
|
%put # Default value of zero (`0`) means "No", one (`1`) means "Yes". #;
|
||||||
|
%put # #;
|
||||||
%put # - `SFRCVN=` *Optional.* Provides a NAME for a macro variable to store value of the #;
|
%put # - `SFRCVN=` *Optional.* Provides a NAME for a macro variable to store value of the #;
|
||||||
%put # *success-failure return code* of the installation process. Return value #;
|
%put # *success-failure return code* of the installation process. Return value #;
|
||||||
%put # has the following form: `<number of successes>.<number of failures>` #;
|
%put # has the following form: `<number of successes>.<number of failures>` #;
|
||||||
@@ -111,6 +120,7 @@ des = 'Macro to install SAS package, version 20241129. Run %%installPackage() fo
|
|||||||
%put # #;
|
%put # #;
|
||||||
%put # Visit: `https://github.com/yabwon/SAS_PACKAGES/tree/main/SPF/Documentation` #;
|
%put # Visit: `https://github.com/yabwon/SAS_PACKAGES/tree/main/SPF/Documentation` #;
|
||||||
%put # to learn more. #;
|
%put # to learn more. #;
|
||||||
|
%put # Tutorials available at: `https://github.com/yabwon/HoW-SASPackages` #;
|
||||||
%put # #;
|
%put # #;
|
||||||
%put #### Example #################################################################################;
|
%put #### Example #################################################################################;
|
||||||
%put # #;
|
%put # #;
|
||||||
@@ -135,7 +145,7 @@ des = 'Macro to install SAS package, version 20241129. Run %%installPackage() fo
|
|||||||
%put # #;
|
%put # #;
|
||||||
%put # Enabling the SAS Package Framework #;
|
%put # Enabling the SAS Package Framework #;
|
||||||
%put # from the local directory and installing & loading #;
|
%put # from the local directory and installing & loading #;
|
||||||
%put # the multiple packages from the Internet. #;
|
%put # multiple packages with versions from the Internet. #;
|
||||||
%put # #;
|
%put # #;
|
||||||
%put # Assume that the `SPFinit.sas` file #;
|
%put # Assume that the `SPFinit.sas` file #;
|
||||||
%put # is located in the "C:/SAS_PACKAGES/" folder. #;
|
%put # is located in the "C:/SAS_PACKAGES/" folder. #;
|
||||||
@@ -182,40 +192,71 @@ des = 'Macro to install SAS package, version 20241129. Run %%installPackage() fo
|
|||||||
call symputX("firstPackagesPath", pathname("packages"), "L");
|
call symputX("firstPackagesPath", pathname("packages"), "L");
|
||||||
run;
|
run;
|
||||||
|
|
||||||
|
%let loadAddCnt = %sysevalf(NOT(0=%superq(loadAddCnt)));
|
||||||
|
%let instDoc = %sysevalf(NOT(0=%superq(instDoc)));
|
||||||
|
|
||||||
|
%let replace = %sysevalf(1=%superq(replace));
|
||||||
|
|
||||||
%if %superq(sourcePath)= %then
|
%if %superq(sourcePath)= %then
|
||||||
%do;
|
%do;
|
||||||
%local SPFinitMirror;
|
%local SPFinitMirror SPFinitMirrorMD;
|
||||||
/* the defaults are: */
|
/* the defaults are: */
|
||||||
%let SPFinitMirror = https://raw.githubusercontent.com/yabwon/SAS_PACKAGES/main/SPF/SPFinit.sas;
|
%let SPFinitMirror = https://raw.githubusercontent.com/yabwon/SAS_PACKAGES/main/SPF/SPFinit.sas;
|
||||||
|
%let SPFinitMirrorMD = https://raw.githubusercontent.com/yabwon/SAS_PACKAGES/main/SPF/SPFinit.md;
|
||||||
%let sourcePath = https://raw.githubusercontent.com/yabwon/SAS_PACKAGES/main/packages/;
|
%let sourcePath = https://raw.githubusercontent.com/yabwon/SAS_PACKAGES/main/packages/;
|
||||||
|
|
||||||
|
%if %qupcase(%superq(mirror))=SASPAC %then %let mirror = 0;
|
||||||
|
%if %qupcase(%superq(mirror))=PHARMAFOREST %then %let mirror = 3;
|
||||||
|
|
||||||
|
%if NOT (%superq(mirror) IN (0 1 2 3)) %then
|
||||||
|
%do;
|
||||||
|
%put WARNING: Unknown mirror: %superq(mirror)!;
|
||||||
|
%put WARNING- Default will be used.;
|
||||||
|
%let mirror = 0;
|
||||||
|
%end;
|
||||||
|
|
||||||
%if 0 = %superq(mirror) %then
|
%if 0 = %superq(mirror) %then
|
||||||
%do;
|
%do;
|
||||||
%let SPFinitMirror = https://raw.githubusercontent.com/yabwon/SAS_PACKAGES/main/SPF/SPFinit.sas;
|
%let SPFinitMirror = https://raw.githubusercontent.com/yabwon/SAS_PACKAGES/main/SPF/SPFinit.sas;
|
||||||
%let sourcePath = https://github.com/SASPAC/; /*usercontent*/
|
%let SPFinitMirrorMD = https://raw.githubusercontent.com/yabwon/SAS_PACKAGES/main/SPF/SPFinit.md;
|
||||||
|
%let sourcePath = https://github.com/SASPAC/; /*users content*/
|
||||||
%goto mirrorEnd;
|
%goto mirrorEnd;
|
||||||
%end;
|
%end;
|
||||||
|
|
||||||
%if 1 = %superq(mirror) %then
|
%if 1 = %superq(mirror) %then
|
||||||
%do;
|
%do;
|
||||||
%let SPFinitMirror = https://raw.githubusercontent.com/yabwon/SAS_PACKAGES/main/SPF/SPFinit.sas;
|
%let SPFinitMirror = https://raw.githubusercontent.com/yabwon/SAS_PACKAGES/main/SPF/SPFinit.sas;
|
||||||
|
%let SPFinitMirrorMD = https://raw.githubusercontent.com/yabwon/SAS_PACKAGES/main/SPF/SPFinit.md;
|
||||||
%let sourcePath = https://raw.githubusercontent.com/yabwon/SAS_PACKAGES/main/packages/;
|
%let sourcePath = https://raw.githubusercontent.com/yabwon/SAS_PACKAGES/main/packages/;
|
||||||
%goto mirrorEnd;
|
%goto mirrorEnd;
|
||||||
%end;
|
%end;
|
||||||
|
|
||||||
%if 2 = %superq(mirror) %then
|
%if 2 = %superq(mirror) %then
|
||||||
%do;
|
%do;
|
||||||
%let SPFinitMirror = https://pages.mini.pw.edu.pl/~jablonskib/SASpublic/SAS_PACKAGES/SPF/SPFinit.sas;
|
%let SPFinitMirror = https://pages.mini.pw.edu.pl/~jablonskib/SASpublic/SAS_PACKAGES/SPF/SPFinit.sas;
|
||||||
|
%let SPFinitMirrorMD = https://pages.mini.pw.edu.pl/~jablonskib/SASpublic/SAS_PACKAGES/SPF/SPFinit.md;
|
||||||
%let sourcePath = https://pages.mini.pw.edu.pl/~jablonskib/SASpublic/SAS_PACKAGES/packages/;
|
%let sourcePath = https://pages.mini.pw.edu.pl/~jablonskib/SASpublic/SAS_PACKAGES/packages/;
|
||||||
%goto mirrorEnd;
|
%goto mirrorEnd;
|
||||||
%end;
|
%end;
|
||||||
|
|
||||||
|
%if 3 = %superq(mirror) %then
|
||||||
|
%do;
|
||||||
|
%let SPFinitMirror = https://raw.githubusercontent.com/yabwon/SAS_PACKAGES/main/SPF/SPFinit.sas;
|
||||||
|
%let SPFinitMirrorMD = https://raw.githubusercontent.com/yabwon/SAS_PACKAGES/main/SPF/SPFinit.md;
|
||||||
|
/* ingnore version support for pharmaForest for now */
|
||||||
|
%let sourcePath = https://github.com/PharmaForest/; /*users content*/
|
||||||
|
%goto mirrorEnd;
|
||||||
|
%end;
|
||||||
|
|
||||||
%mirrorEnd:
|
%mirrorEnd:
|
||||||
%put INFO: Source path is &sourcePath.;
|
%put INFO: Source path is &sourcePath.;
|
||||||
%end;
|
%end;
|
||||||
%else
|
%else
|
||||||
%do;
|
%do;
|
||||||
|
%let sourcePath = %sysfunc(dequote(%superq(sourcePath)))/;
|
||||||
%let mirror=-1;
|
%let mirror=-1;
|
||||||
%let SPFinitMirror = &sourcePath.SPFinit.sas;
|
%let SPFinitMirror = &sourcePath.SPFinit.sas;
|
||||||
|
%let SPFinitMirrorMD = &sourcePath.SPFinit.md;
|
||||||
%end;
|
%end;
|
||||||
|
|
||||||
%local i str;
|
%local i str;
|
||||||
@@ -232,7 +273,7 @@ des = 'Macro to install SAS package, version 20241129. Run %%installPackage() fo
|
|||||||
|
|
||||||
%if %length("%sysfunc(compress(%superq(str),[,k))") NE %length("%sysfunc(compress(%superq(str),],k))") %then
|
%if %length("%sysfunc(compress(%superq(str),[,k))") NE %length("%sysfunc(compress(%superq(str),],k))") %then
|
||||||
%do;
|
%do;
|
||||||
%put ERROR: Syntax error in list of packages!;
|
%put ERROR: Syntax error in the provided list of packages!;
|
||||||
%put ERROR- %superq(packagesNames);
|
%put ERROR- %superq(packagesNames);
|
||||||
%goto packagesListError;
|
%goto packagesListError;
|
||||||
%end;
|
%end;
|
||||||
@@ -255,17 +296,20 @@ des = 'Macro to install SAS package, version 20241129. Run %%installPackage() fo
|
|||||||
%let vers=;
|
%let vers=;
|
||||||
%if %superq(versB) ne %then %let vers = &versB.;
|
%if %superq(versB) ne %then %let vers = &versB.;
|
||||||
%if %superq(versA) ne %then %let vers = &versA.;
|
%if %superq(versA) ne %then %let vers = &versA.;
|
||||||
%if -1 = &mirror %then /* ignore version when direct path is provided */
|
%if %eval(-1 = &mirror) OR %eval(3 = &mirror) %then /* ignore version when direct path or PharmaForest is provided */
|
||||||
%do;
|
%do;
|
||||||
%let vers=;
|
%let vers=;
|
||||||
%end;
|
%end;
|
||||||
%put ### &packageName.(&vers.) ###;
|
%put ### &packageName.(&vers.) ###;
|
||||||
|
|
||||||
%put *** %lowcase(&packageName.) start *****************************************;
|
%put *** %sysfunc(lowcase(&packageName.)) start *****************************************;
|
||||||
%local in out _IOFileref_;
|
%local in out inMD outMD _IOFileref_;
|
||||||
data _null_; call symputX("_IOFileref_", put(MD5("%lowcase(&packageName.)"), hex7. -L), "L"); run;
|
data _null_; call symputX("_IOFileref_", put(MD5(lowcase("&packageName.")), hex7. -L), "L"); run;
|
||||||
%let in = i&_IOFileref_.;
|
%let in = i&_IOFileref_.;
|
||||||
%let out = o&_IOFileref_.;
|
%let out = o&_IOFileref_.;
|
||||||
|
%let inMD = j&_IOFileref_.;
|
||||||
|
%let outMD = u&_IOFileref_.;
|
||||||
|
|
||||||
/* %let in = i%sysfunc(md5(&packageName.),hex7.); */
|
/* %let in = i%sysfunc(md5(&packageName.),hex7.); */
|
||||||
/* %let out = o%sysfunc(md5(&packageName.),hex7.); */
|
/* %let out = o%sysfunc(md5(&packageName.),hex7.); */
|
||||||
|
|
||||||
@@ -275,37 +319,48 @@ des = 'Macro to install SAS package, version 20241129. Run %%installPackage() fo
|
|||||||
/* allows to install/download the framework file like any other package */
|
/* allows to install/download the framework file like any other package */
|
||||||
%if %superq(mirror) in (0 1) AND (%superq(vers) ne) %then
|
%if %superq(mirror) in (0 1) AND (%superq(vers) ne) %then
|
||||||
%do;
|
%do;
|
||||||
%let SPFinitMirror = https://raw.githubusercontent.com/yabwon/SAS_PACKAGES/&vers./SPF/SPFinit.sas;
|
%let SPFinitMirror = https://raw.githubusercontent.com/yabwon/SAS_PACKAGES/&vers./SPF/SPFinit.sas;
|
||||||
|
%let SPFinitMirrorMD = https://raw.githubusercontent.com/yabwon/SAS_PACKAGES/&vers./SPF/SPFinit.md;
|
||||||
%end;
|
%end;
|
||||||
%if %superq(mirror) > 1 %then
|
%if %superq(mirror) > 1 %then
|
||||||
%put %str( )Mirror %superq(mirror) does not support versioning.;
|
%put %str( )Mirror %superq(mirror) does not support versioning.;
|
||||||
|
|
||||||
filename &in URL
|
/* source code file */
|
||||||
|
filename &in. URL
|
||||||
"&SPFinitMirror."
|
"&SPFinitMirror."
|
||||||
recfm=N lrecl=1;
|
recfm=N lrecl=1;
|
||||||
filename &out
|
filename &out.
|
||||||
"&firstPackagesPath./SPFinit.sas"
|
"&firstPackagesPath./SPFinit.sas"
|
||||||
recfm=N lrecl=1;
|
recfm=N lrecl=1;
|
||||||
|
|
||||||
|
/* documentation MD file */
|
||||||
|
filename &inMD. URL
|
||||||
|
"&SPFinitMirrorMD."
|
||||||
|
recfm=N lrecl=1;
|
||||||
|
filename &outMD.
|
||||||
|
"&firstPackagesPath./SPFinit.md"
|
||||||
|
recfm=N lrecl=1;
|
||||||
%end;
|
%end;
|
||||||
%else
|
%else
|
||||||
%do;
|
%do;
|
||||||
%if 0 = %superq(mirror) %then
|
%if %superq(mirror) IN (0 3) %then /* SASPAC or PharmaForest */
|
||||||
%do;
|
%do;
|
||||||
%let packageSubDir = %lowcase(&packageName.)/raw/main/;
|
%let packageSubDir = %sysfunc(lowcase(&packageName.))/raw/main/;
|
||||||
|
|
||||||
%if %superq(vers) ne %then
|
%if %superq(vers) ne %then
|
||||||
%do;
|
%do;
|
||||||
/*%let packageSubDir = %lowcase(&packageName.)/main/hist/&version./;*/
|
/*%let packageSubDir = %sysfunc(lowcase(&packageName.))/main/hist/&version./;*/
|
||||||
%let packageSubDir = %lowcase(&packageName.)/raw/&vers./;
|
%let packageSubDir = %sysfunc(lowcase(&packageName.))/raw/&vers./;
|
||||||
%end;
|
%end;
|
||||||
%end;
|
%end;
|
||||||
%else
|
%else
|
||||||
%do;
|
%do;
|
||||||
%if %superq(mirror) > 0 %then
|
%if %superq(mirror) NE 0 %then
|
||||||
%put %str( )Mirror %superq(mirror) does not support versioning.;
|
%put %str( )Mirror %superq(mirror) does not support versioning.;
|
||||||
%end;
|
%end;
|
||||||
|
|
||||||
filename &in URL "&sourcePath.&packageSubDir.%lowcase(&packageName.).zip"
|
/* zip */
|
||||||
|
filename &in. URL "&sourcePath.&packageSubDir.%sysfunc(lowcase(&packageName.)).zip"
|
||||||
%if (%superq(URLuser) ne ) %then
|
%if (%superq(URLuser) ne ) %then
|
||||||
%do;
|
%do;
|
||||||
user = "&URLuser."
|
user = "&URLuser."
|
||||||
@@ -313,7 +368,17 @@ des = 'Macro to install SAS package, version 20241129. Run %%installPackage() fo
|
|||||||
%end;
|
%end;
|
||||||
&URLoptions.
|
&URLoptions.
|
||||||
recfm=N lrecl=1;
|
recfm=N lrecl=1;
|
||||||
filename &out "&firstPackagesPath./%lowcase(&packageName.).zip" recfm=N lrecl=1;
|
filename &out. "&firstPackagesPath./%sysfunc(lowcase(&packageName.)).zip" recfm=N lrecl=1;
|
||||||
|
/* markdown */
|
||||||
|
filename &inMD. URL "&sourcePath.&packageSubDir.%sysfunc(lowcase(&packageName.)).md"
|
||||||
|
%if (%superq(URLuser) ne ) %then
|
||||||
|
%do;
|
||||||
|
user = "&URLuser."
|
||||||
|
pass = "&URLuser."
|
||||||
|
%end;
|
||||||
|
&URLoptions.
|
||||||
|
recfm=N lrecl=1;
|
||||||
|
filename &outMD. "&firstPackagesPath./%sysfunc(lowcase(&packageName.)).md" recfm=N lrecl=1;
|
||||||
%end;
|
%end;
|
||||||
/*
|
/*
|
||||||
filename in list;
|
filename in list;
|
||||||
@@ -323,12 +388,21 @@ des = 'Macro to install SAS package, version 20241129. Run %%installPackage() fo
|
|||||||
%local installationRC;
|
%local installationRC;
|
||||||
%let installationRC=1;
|
%let installationRC=1;
|
||||||
data _null_;
|
data _null_;
|
||||||
length filein 8 out_path in_path $ 4096;
|
length filein fileinMD 8
|
||||||
|
out_path in_path out_pathMD in_pathMD rcTXT $ 4096
|
||||||
|
out_ref in_ref out_refMD in_refMD $ 8
|
||||||
|
;
|
||||||
out_path = pathname ("&out");
|
out_path = pathname ("&out");
|
||||||
in_path = pathname ("&in" );
|
in_path = pathname ("&in" );
|
||||||
|
out_pathMD = pathname ("&outMD");
|
||||||
|
in_pathMD = pathname ("&inMD" );
|
||||||
|
out_ref = symget ("out");
|
||||||
|
in_ref = symget ("in" );
|
||||||
|
out_refMD = symget ("outMD");
|
||||||
|
in_refMD = symget ("inMD" );
|
||||||
|
rcTXT=' ';
|
||||||
|
|
||||||
|
filein = fopen(in_ref, 'S', 1, 'B');
|
||||||
filein = fopen( "&in", 'S', 1, 'B');
|
|
||||||
if filein = 0 then
|
if filein = 0 then
|
||||||
put "ERROR: Source file:" /
|
put "ERROR: Source file:" /
|
||||||
"ERROR- " in_path /
|
"ERROR- " in_path /
|
||||||
@@ -348,21 +422,23 @@ des = 'Macro to install SAS package, version 20241129. Run %%installPackage() fo
|
|||||||
rc = FCLOSE(filein);
|
rc = FCLOSE(filein);
|
||||||
put;
|
put;
|
||||||
|
|
||||||
if FEXIST("&out") = 0 then
|
if FEXIST(out_ref) = 0 then
|
||||||
do;
|
do;
|
||||||
put @2 "Installing the &packageName. package"
|
put @2 "Installing the &packageName. package"
|
||||||
/ @2 "in the &firstPackagesPath. directory.";
|
/ @2 "in the &firstPackagesPath. directory.";
|
||||||
rc = FCOPY("&in", "&out");
|
rc = FCOPY(in_ref, out_ref);
|
||||||
|
rcTXT=sysmsg();
|
||||||
end;
|
end;
|
||||||
else if FEXIST("&out") = 1 then
|
else if FEXIST(out_ref) = 1 then
|
||||||
do;
|
do;
|
||||||
if symgetn("replace")=1 then
|
if symgetn("replace")=1 then
|
||||||
do;
|
do;
|
||||||
put @2 "The following file will be replaced during "
|
put @2 "The following file will be replaced during "
|
||||||
/ @2 "installation of the &packageName. package: "
|
/ @2 "installation of the &packageName. package: "
|
||||||
/ @5 out_path;
|
/ @5 out_path;
|
||||||
rc = FDELETE("&out");
|
rc = FDELETE(out_ref);
|
||||||
rc = FCOPY("&in", "&out");
|
rc = FCOPY(in_ref, out_ref);
|
||||||
|
rcTXT=sysmsg();
|
||||||
end;
|
end;
|
||||||
else
|
else
|
||||||
do;
|
do;
|
||||||
@@ -371,13 +447,41 @@ des = 'Macro to install SAS package, version 20241129. Run %%installPackage() fo
|
|||||||
rc = 1;
|
rc = 1;
|
||||||
end;
|
end;
|
||||||
end;
|
end;
|
||||||
|
put @2 "Done with return code " rc= "(zero = success)" / rcTXT;
|
||||||
put @2 "Done with return code " rc= "(zero = success)";
|
|
||||||
call symputX("installationRC", rc, "L");
|
call symputX("installationRC", rc, "L");
|
||||||
|
|
||||||
|
/* try to install documentation file */
|
||||||
|
if 1=symgetn("instDoc") then
|
||||||
|
do;
|
||||||
|
fileinMD = fopen(in_refMD, 'S', 1, 'B');
|
||||||
|
rcMD = FCLOSE(fileinMD);
|
||||||
|
|
||||||
|
if fileinMD then
|
||||||
|
do;
|
||||||
|
if 0=FEXIST(out_refMD) then
|
||||||
|
do;
|
||||||
|
rcMD = FCOPY(in_refMD, out_refMD);
|
||||||
|
if rcMD=0 then
|
||||||
|
put @2 "Package documentation installed on request." ; /* / out_pathMD / in_pathMD; */
|
||||||
|
end;
|
||||||
|
else if 1=FEXIST(out_refMD) and 1=symgetn("replace") then
|
||||||
|
do;
|
||||||
|
rcMD = FDELETE(out_refMD);
|
||||||
|
if rcMD=0 then
|
||||||
|
rcMD2 = FCOPY(in_refMD, out_refMD);
|
||||||
|
if rcMD=0 AND rcMD2=0 then
|
||||||
|
put @2 "Package documentation installed on demand." ; /* / out_pathMD / in_pathMD; */
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
else
|
||||||
|
put @2 "Package documentation in markdown format not available." ; /* / out_pathMD / in_pathMD;*/
|
||||||
|
end;
|
||||||
run;
|
run;
|
||||||
|
|
||||||
filename &in clear;
|
filename &in. clear;
|
||||||
filename &out clear;
|
filename &out. clear;
|
||||||
|
filename &inMD. clear;
|
||||||
|
filename &outMD. clear;
|
||||||
|
|
||||||
%if 0 = &installationRC. %then
|
%if 0 = &installationRC. %then
|
||||||
%do;
|
%do;
|
||||||
@@ -406,7 +510,7 @@ des = 'Macro to install SAS package, version 20241129. Run %%installPackage() fo
|
|||||||
)
|
)
|
||||||
%put - Additional content loading - End -;
|
%put - Additional content loading - End -;
|
||||||
%end;
|
%end;
|
||||||
%put *** %lowcase(&packageName.) end *******************************************;
|
%put *** %sysfunc(lowcase(&packageName.)) end *******************************************;
|
||||||
/*-++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++-*/
|
/*-++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++-*/
|
||||||
%end;
|
%end;
|
||||||
|
|
||||||
|
|||||||
@@ -3,7 +3,7 @@
|
|||||||
|
|
||||||
Macro to list SAS packages in packages folder.
|
Macro to list SAS packages in packages folder.
|
||||||
|
|
||||||
Version 20241129
|
Version 20250728
|
||||||
|
|
||||||
A SAS package is a zip file containing a group
|
A SAS package is a zip file containing a group
|
||||||
of SAS codes (macros, functions, data steps generating
|
of SAS codes (macros, functions, data steps generating
|
||||||
@@ -23,7 +23,7 @@
|
|||||||
|
|
||||||
%macro listPackages()
|
%macro listPackages()
|
||||||
/secure PARMBUFF
|
/secure PARMBUFF
|
||||||
des = 'Macro to list SAS packages from `packages` fileref, type %listPackages(HELP) for help, version 20241129.'
|
des = 'Macro to list SAS packages from `packages` fileref, type %listPackages(HELP) for help, version 20250728.'
|
||||||
;
|
;
|
||||||
%if %QUPCASE(&SYSPBUFF.) = %str(%(HELP%)) %then
|
%if %QUPCASE(&SYSPBUFF.) = %str(%(HELP%)) %then
|
||||||
%do;
|
%do;
|
||||||
@@ -38,7 +38,7 @@ des = 'Macro to list SAS packages from `packages` fileref, type %listPackages(HE
|
|||||||
%put ### This is short help information for the `listPackages` macro #;
|
%put ### This is short help information for the `listPackages` macro #;
|
||||||
%put #-----------------------------------------------------------------------------------------#;;
|
%put #-----------------------------------------------------------------------------------------#;;
|
||||||
%put # #;
|
%put # #;
|
||||||
%put # Macro to list available SAS packages, version `20241129` #;
|
%put # Macro to list available SAS packages, version `20250728` #;
|
||||||
%put # #;
|
%put # #;
|
||||||
%put # A SAS package is a zip file containing a group #;
|
%put # A SAS package is a zip file containing a group #;
|
||||||
%put # of SAS codes (macros, functions, data steps generating #;
|
%put # of SAS codes (macros, functions, data steps generating #;
|
||||||
@@ -57,6 +57,7 @@ des = 'Macro to list SAS packages from `packages` fileref, type %listPackages(HE
|
|||||||
%put # #;
|
%put # #;
|
||||||
%put # Visit: `https://github.com/yabwon/SAS_PACKAGES/tree/main/SPF/Documentation` #;
|
%put # Visit: `https://github.com/yabwon/SAS_PACKAGES/tree/main/SPF/Documentation` #;
|
||||||
%put # to learn more. #;
|
%put # to learn more. #;
|
||||||
|
%put # Tutorials available at: `https://github.com/yabwon/HoW-SASPackages` #;
|
||||||
%put # #;
|
%put # #;
|
||||||
%put #### Example ##############################################################################;
|
%put #### Example ##############################################################################;
|
||||||
%put # #;
|
%put # #;
|
||||||
|
|||||||
@@ -36,7 +36,7 @@
|
|||||||
*/
|
*/
|
||||||
)/secure
|
)/secure
|
||||||
/*** HELP END ***/
|
/*** HELP END ***/
|
||||||
des = 'Macro to load SAS package, version 20241129. Run %loadPackage() for help info.'
|
des = 'Macro to load SAS package, version 20250728. Run %loadPackage() for help info.'
|
||||||
minoperator
|
minoperator
|
||||||
;
|
;
|
||||||
%if (%superq(packageName) = ) OR (%qupcase(&packageName.) = HELP) %then
|
%if (%superq(packageName) = ) OR (%qupcase(&packageName.) = HELP) %then
|
||||||
@@ -52,7 +52,7 @@ minoperator
|
|||||||
%put ### This is short help information for the `loadPackage` macro #;
|
%put ### This is short help information for the `loadPackage` macro #;
|
||||||
%put #-------------------------------------------------------------------------------#;
|
%put #-------------------------------------------------------------------------------#;
|
||||||
%put # #;
|
%put # #;
|
||||||
%put # Macro to *load* SAS packages, version `20241129` #;
|
%put # Macro to *load* SAS packages, version `20250728` #;
|
||||||
%put # #;
|
%put # #;
|
||||||
%put # A SAS package is a zip file containing a group #;
|
%put # A SAS package is a zip file containing a group #;
|
||||||
%put # of SAS codes (macros, functions, data steps generating #;
|
%put # of SAS codes (macros, functions, data steps generating #;
|
||||||
@@ -120,6 +120,7 @@ minoperator
|
|||||||
%put # #;
|
%put # #;
|
||||||
%put # Visit: `https://github.com/yabwon/SAS_PACKAGES/tree/main/SPF/Documentation` #;
|
%put # Visit: `https://github.com/yabwon/SAS_PACKAGES/tree/main/SPF/Documentation` #;
|
||||||
%put # to learn more. #;
|
%put # to learn more. #;
|
||||||
|
%put # Tutorials available at: `https://github.com/yabwon/HoW-SASPackages` #;
|
||||||
%put # #;
|
%put # #;
|
||||||
%put ### Example 1 ###################################################################;
|
%put ### Example 1 ###################################################################;
|
||||||
%put # #;
|
%put # #;
|
||||||
@@ -178,8 +179,9 @@ minoperator
|
|||||||
options NOnotes NOsource ls=MAX ps=MAX NOfullstimer NOstimer msglevel=N NOmautocomploc;
|
options NOnotes NOsource ls=MAX ps=MAX NOfullstimer NOstimer msglevel=N NOmautocomploc;
|
||||||
|
|
||||||
%local _PackageFileref_;
|
%local _PackageFileref_;
|
||||||
/* %let _PackageFileref_ = P%sysfunc(MD5(%lowcase(&packageName.)),hex7.); */
|
data _null_;
|
||||||
data _null_; call symputX("_PackageFileref_", "P" !! put(MD5("%lowcase(&packageName.)"), hex7. -L), "L"); run;
|
call symputX("_PackageFileref_", "P" !! put(MD5(lowcase("&packageName.")), hex7. -L), "L");
|
||||||
|
run;
|
||||||
|
|
||||||
/* when the packages reference is multi-directory search for the first one containing the package */
|
/* when the packages reference is multi-directory search for the first one containing the package */
|
||||||
data _null_;
|
data _null_;
|
||||||
@@ -189,7 +191,7 @@ minoperator
|
|||||||
if char(packages,1) ^= "(" then packages = quote(strip(packages)); /* for paths with spaces */
|
if char(packages,1) ^= "(" then packages = quote(strip(packages)); /* for paths with spaces */
|
||||||
do i = 1 to kcountw(packages, "()", "QS");
|
do i = 1 to kcountw(packages, "()", "QS");
|
||||||
p = dequote(kscanx(packages, i, "()", "QS"));
|
p = dequote(kscanx(packages, i, "()", "QS"));
|
||||||
exists + fileexist(catx("/", p, "%lowcase(&packageName.).&zip."));
|
exists + fileexist(catx("/", p, lowcase("&packageName.") !! ".&zip."));
|
||||||
if exists then leave;
|
if exists then leave;
|
||||||
end;
|
end;
|
||||||
if exists then call symputx("path", p, "L");
|
if exists then call symputx("path", p, "L");
|
||||||
@@ -225,7 +227,7 @@ minoperator
|
|||||||
|
|
||||||
filename &_PackageFileref_. &ZIP.
|
filename &_PackageFileref_. &ZIP.
|
||||||
/* put location of package myPackageFile.zip here */
|
/* put location of package myPackageFile.zip here */
|
||||||
"&path./%lowcase(&packageName.).&zip." %unquote(&options.)
|
"&path./%sysfunc(lowcase(&packageName.)).&zip." %unquote(&options.)
|
||||||
;
|
;
|
||||||
%if %sysfunc(fexist(&_PackageFileref_.)) %then
|
%if %sysfunc(fexist(&_PackageFileref_.)) %then
|
||||||
%do;
|
%do;
|
||||||
@@ -265,7 +267,7 @@ minoperator
|
|||||||
|
|
||||||
options ls = &ls_tmp. ps = &ps_tmp. ¬es_tmp. &source_tmp.;
|
options ls = &ls_tmp. ps = &ps_tmp. ¬es_tmp. &source_tmp.;
|
||||||
filename &_PackageFileref_. &ZIP.
|
filename &_PackageFileref_. &ZIP.
|
||||||
"&path./%lowcase(&packageName.).&zip." %unquote(&options.)
|
"&path./%sysfunc(lowcase(&packageName.)).&zip." %unquote(&options.)
|
||||||
ENCODING =
|
ENCODING =
|
||||||
%if %bquote(&packageEncoding.) NE %then &packageEncoding. ;
|
%if %bquote(&packageEncoding.) NE %then &packageEncoding. ;
|
||||||
%else utf8 ;
|
%else utf8 ;
|
||||||
|
|||||||
@@ -19,7 +19,7 @@
|
|||||||
is provided in required version */
|
is provided in required version */
|
||||||
)/secure
|
)/secure
|
||||||
/*** HELP END ***/
|
/*** HELP END ***/
|
||||||
des = 'Macro to load additional content for a SAS package, version 20241129. Run %loadPackageAddCnt() for help info.'
|
des = 'Macro to load additional content for a SAS package, version 20250728. Run %loadPackageAddCnt() for help info.'
|
||||||
minoperator
|
minoperator
|
||||||
;
|
;
|
||||||
%if (%superq(packageName) = ) OR (%qupcase(&packageName.) = HELP) %then
|
%if (%superq(packageName) = ) OR (%qupcase(&packageName.) = HELP) %then
|
||||||
@@ -35,7 +35,7 @@ minoperator
|
|||||||
%put ### This is short help information for the `loadPackageAddCnt` macro #;
|
%put ### This is short help information for the `loadPackageAddCnt` macro #;
|
||||||
%put #-------------------------------------------------------------------------------#;
|
%put #-------------------------------------------------------------------------------#;
|
||||||
%put # #;
|
%put # #;
|
||||||
%put # Macro to *load* additional content for a SAS package, version `20241129` #;
|
%put # Macro to *load* additional content for a SAS package, version `20250728` #;
|
||||||
%put # #;
|
%put # #;
|
||||||
%put # A SAS package is a zip file containing a group #;
|
%put # A SAS package is a zip file containing a group #;
|
||||||
%put # of SAS codes (macros, functions, data steps generating #;
|
%put # of SAS codes (macros, functions, data steps generating #;
|
||||||
@@ -75,6 +75,7 @@ minoperator
|
|||||||
%put # #;
|
%put # #;
|
||||||
%put # Visit: `https://github.com/yabwon/SAS_PACKAGES/tree/main/SPF/Documentation` #;
|
%put # Visit: `https://github.com/yabwon/SAS_PACKAGES/tree/main/SPF/Documentation` #;
|
||||||
%put # to learn more. #;
|
%put # to learn more. #;
|
||||||
|
%put # Tutorials available at: `https://github.com/yabwon/HoW-SASPackages` #;
|
||||||
%put # #;
|
%put # #;
|
||||||
%put ### Example 1 ###################################################################;
|
%put ### Example 1 ###################################################################;
|
||||||
%put # #;
|
%put # #;
|
||||||
@@ -115,10 +116,9 @@ minoperator
|
|||||||
options NOnotes NOsource ls=MAX ps=MAX NOfullstimer NOstimer msglevel=N NOmautocomploc;
|
options NOnotes NOsource ls=MAX ps=MAX NOfullstimer NOstimer msglevel=N NOmautocomploc;
|
||||||
|
|
||||||
%local _PackageFileref_;
|
%local _PackageFileref_;
|
||||||
/* %let _PackageFileref_ = P%sysfunc(MD5(%lowcase(&packageName.)),hex7.); */
|
|
||||||
data _null_;
|
data _null_;
|
||||||
call symputX("_PackageFileref_", "A" !! put(MD5("%lowcase(&packageName.)"), hex7. -L), "L");
|
call symputX("_PackageFileref_", "A" !! put(MD5(lowcase("&packageName.")), hex7. -L), "L");
|
||||||
call symputX("_TargetFileref_", "T" !! put(MD5("%lowcase(&packageName.)"), hex7. -L), "L");
|
call symputX("_TargetFileref_", "T" !! put(MD5(lowcase("&packageName.")), hex7. -L), "L");
|
||||||
run;
|
run;
|
||||||
|
|
||||||
/* when the packages reference is multi-directory search for the first one containing the package */
|
/* when the packages reference is multi-directory search for the first one containing the package */
|
||||||
@@ -129,7 +129,7 @@ minoperator
|
|||||||
if char(packages,1) ^= "(" then packages = quote(strip(packages)); /* for paths with spaces */
|
if char(packages,1) ^= "(" then packages = quote(strip(packages)); /* for paths with spaces */
|
||||||
do i = 1 to kcountw(packages, "()", "QS");
|
do i = 1 to kcountw(packages, "()", "QS");
|
||||||
p = dequote(kscanx(packages, i, "()", "QS"));
|
p = dequote(kscanx(packages, i, "()", "QS"));
|
||||||
exists + fileexist(catx("/", p, "%lowcase(&packageName.).&zip."));
|
exists + fileexist(catx("/", p, lowcase("&packageName.") !! ".&zip."));
|
||||||
if exists then leave;
|
if exists then leave;
|
||||||
end;
|
end;
|
||||||
if exists then call symputx("path", p, "L");
|
if exists then call symputx("path", p, "L");
|
||||||
@@ -137,14 +137,14 @@ minoperator
|
|||||||
|
|
||||||
filename &_PackageFileref_. &ZIP.
|
filename &_PackageFileref_. &ZIP.
|
||||||
/* put location of package myPackageFile.zip here */
|
/* put location of package myPackageFile.zip here */
|
||||||
"&path./%lowcase(&packageName.).&zip."
|
"&path./%sysfunc(lowcase(&packageName.)).&zip."
|
||||||
;
|
;
|
||||||
%if %sysfunc(fexist(&_PackageFileref_.)) %then
|
%if %sysfunc(fexist(&_PackageFileref_.)) %then
|
||||||
%do;
|
%do;
|
||||||
|
|
||||||
filename &_PackageFileref_. &ZIP.
|
filename &_PackageFileref_. &ZIP.
|
||||||
/* check existence of addcnt.zip inside package */
|
/* check existence of addcnt.zip inside package */
|
||||||
"&path./%lowcase(&packageName.).&zip."
|
"&path./%sysfunc(lowcase(&packageName.)).&zip."
|
||||||
member='addcnt.zip'
|
member='addcnt.zip'
|
||||||
;
|
;
|
||||||
%if %sysfunc(fexist(&_PackageFileref_.)) %then
|
%if %sysfunc(fexist(&_PackageFileref_.)) %then
|
||||||
@@ -152,7 +152,7 @@ minoperator
|
|||||||
|
|
||||||
/* get metadata */
|
/* get metadata */
|
||||||
filename &_PackageFileref_. &ZIP.
|
filename &_PackageFileref_. &ZIP.
|
||||||
"&path./%lowcase(&packageName.).&zip."
|
"&path./%sysfunc(lowcase(&packageName.)).&zip."
|
||||||
;
|
;
|
||||||
%include &_PackageFileref_.(packagemetadata.sas) / &source2.;
|
%include &_PackageFileref_.(packagemetadata.sas) / &source2.;
|
||||||
filename &_PackageFileref_. clear;
|
filename &_PackageFileref_. clear;
|
||||||
@@ -191,7 +191,7 @@ minoperator
|
|||||||
|
|
||||||
/*options ls = &ls_tmp. ps = &ps_tmp. ¬es_tmp. &source_tmp.;*/
|
/*options ls = &ls_tmp. ps = &ps_tmp. ¬es_tmp. &source_tmp.;*/
|
||||||
filename &_PackageFileref_. &ZIP.
|
filename &_PackageFileref_. &ZIP.
|
||||||
"&path./%lowcase(&packageName.).&zip."
|
"&path./%sysfunc(lowcase(&packageName.)).&zip."
|
||||||
member='addcnt.zip'
|
member='addcnt.zip'
|
||||||
;
|
;
|
||||||
/*********************/
|
/*********************/
|
||||||
@@ -199,10 +199,10 @@ minoperator
|
|||||||
%if %sysfunc(fexist(&_TargetFileref_.)) %then
|
%if %sysfunc(fexist(&_TargetFileref_.)) %then
|
||||||
%do;
|
%do;
|
||||||
|
|
||||||
%if %sysfunc(fileexist(%sysfunc(pathname(&_TargetFileref_.))/%lowcase(&packageName.)_AdditionalContent)) %then
|
%if %sysfunc(fileexist(%sysfunc(pathname(&_TargetFileref_.))/%sysfunc(lowcase(&packageName.))_AdditionalContent)) %then
|
||||||
%do; /* dir for AC already exists */
|
%do; /* dir for AC already exists */
|
||||||
%put WARNING: Target location:;
|
%put WARNING: Target location:;
|
||||||
%put WARNING- %sysfunc(pathname(&_TargetFileref_.))/%lowcase(&packageName.)_AdditionalContent;
|
%put WARNING- %sysfunc(pathname(&_TargetFileref_.))/%sysfunc(lowcase(&packageName.))_AdditionalContent;
|
||||||
%put WARNING- already exist. Please remove it manually to upload additional contents.;
|
%put WARNING- already exist. Please remove it manually to upload additional contents.;
|
||||||
%put WARNING- Additional Content will not be loaded.;
|
%put WARNING- Additional Content will not be loaded.;
|
||||||
%put WARNING- ;
|
%put WARNING- ;
|
||||||
@@ -213,12 +213,12 @@ minoperator
|
|||||||
/* create target location */
|
/* create target location */
|
||||||
%put INFO:;
|
%put INFO:;
|
||||||
%put Additional content will be located in:;
|
%put Additional content will be located in:;
|
||||||
%put %sysfunc(dcreate(%lowcase(&packageName.)_AdditionalContent,%sysfunc(pathname(&_TargetFileref_.))));
|
%put %sysfunc(dcreate(%sysfunc(lowcase(&packageName.))_AdditionalContent,%sysfunc(pathname(&_TargetFileref_.))));
|
||||||
|
|
||||||
%if NOT (%sysfunc(fileexist(%sysfunc(pathname(&_TargetFileref_.))/%lowcase(&packageName.)_AdditionalContent))) %then
|
%if NOT (%sysfunc(fileexist(%sysfunc(pathname(&_TargetFileref_.))/%sysfunc(lowcase(&packageName.))_AdditionalContent))) %then
|
||||||
%do; /* dir for AC cannot be generated */
|
%do; /* dir for AC cannot be generated */
|
||||||
%put ERROR: Cannot create target location:;
|
%put ERROR: Cannot create target location:;
|
||||||
%put ERROR- %sysfunc(pathname(&_TargetFileref_.))/%lowcase(&packageName.)_AdditionalContent;
|
%put ERROR- %sysfunc(pathname(&_TargetFileref_.))/%sysfunc(lowcase(&packageName.))_AdditionalContent;
|
||||||
%put ERROR- Additional Content will not be loaded.;
|
%put ERROR- Additional Content will not be loaded.;
|
||||||
%put ERROR- ;
|
%put ERROR- ;
|
||||||
%end;
|
%end;
|
||||||
@@ -237,7 +237,7 @@ minoperator
|
|||||||
|
|
||||||
if fexist("in") then
|
if fexist("in") then
|
||||||
do;
|
do;
|
||||||
rc2=filename("out", pathname("WORK")!!"/%lowcase(&packageName.)addcnt.zip", "disk", "lrecl=1 recfm=n");
|
rc2=filename("out", pathname("WORK")!!"/%sysfunc(lowcase(&packageName.))addcnt.zip", "disk", "lrecl=1 recfm=n");
|
||||||
length rc2txt $ 8192;
|
length rc2txt $ 8192;
|
||||||
rc2txt=sysmsg();
|
rc2txt=sysmsg();
|
||||||
|
|
||||||
@@ -266,9 +266,9 @@ minoperator
|
|||||||
%if &AdditionalContent. %then
|
%if &AdditionalContent. %then
|
||||||
%do;
|
%do;
|
||||||
filename f DUMMY;
|
filename f DUMMY;
|
||||||
filename f ZIP "%sysfunc(pathname(WORK))/%lowcase(&packageName.)addcnt.zip";
|
filename f ZIP "%sysfunc(pathname(WORK))/%sysfunc(lowcase(&packageName.))addcnt.zip";
|
||||||
options dlCreateDir;
|
options dlCreateDir;
|
||||||
libname outData "%sysfunc(pathname(&_TargetFileref_.))/%lowcase(&packageName.)_AdditionalContent";
|
libname outData "%sysfunc(pathname(&_TargetFileref_.))/%sysfunc(lowcase(&packageName.))_AdditionalContent";
|
||||||
|
|
||||||
data WORK.__&_TargetFileref_._zip___;
|
data WORK.__&_TargetFileref_._zip___;
|
||||||
did = dopen("f");
|
did = dopen("f");
|
||||||
|
|||||||
@@ -11,7 +11,7 @@
|
|||||||
*/
|
*/
|
||||||
)/secure
|
)/secure
|
||||||
/*** HELP END ***/
|
/*** HELP END ***/
|
||||||
des = 'Macro to load multiple SAS packages at one run, version 20241129. Run %loadPackages() for help info.'
|
des = 'Macro to load multiple SAS packages at one run, version 20250728. Run %loadPackages() for help info.'
|
||||||
parmbuff
|
parmbuff
|
||||||
;
|
;
|
||||||
%if (%superq(packagesNames) = ) OR (%qupcase(&packagesNames.) = HELP) %then
|
%if (%superq(packagesNames) = ) OR (%qupcase(&packagesNames.) = HELP) %then
|
||||||
@@ -27,7 +27,7 @@ parmbuff
|
|||||||
%put ### This is short help information for the `loadPackageS` macro #;
|
%put ### This is short help information for the `loadPackageS` macro #;
|
||||||
%put #-------------------------------------------------------------------------------#;
|
%put #-------------------------------------------------------------------------------#;
|
||||||
%put # #;
|
%put # #;
|
||||||
%put # Macro wrapper for the loadPackage macro, version `20241129` #;
|
%put # Macro wrapper for the loadPackage macro, version `20250728` #;
|
||||||
%put # #;
|
%put # #;
|
||||||
%put # A SAS package is a zip file containing a group #;
|
%put # A SAS package is a zip file containing a group #;
|
||||||
%put # of SAS codes (macros, functions, data steps generating #;
|
%put # of SAS codes (macros, functions, data steps generating #;
|
||||||
@@ -52,6 +52,7 @@ parmbuff
|
|||||||
%put # #;
|
%put # #;
|
||||||
%put # Visit: `https://github.com/yabwon/SAS_PACKAGES/tree/main/SPF/Documentation` #;
|
%put # Visit: `https://github.com/yabwon/SAS_PACKAGES/tree/main/SPF/Documentation` #;
|
||||||
%put # to learn more. #;
|
%put # to learn more. #;
|
||||||
|
%put # Tutorials available at: `https://github.com/yabwon/HoW-SASPackages` #;
|
||||||
%put # #;
|
%put # #;
|
||||||
%put #### Example ####################################################################;
|
%put #### Example ####################################################################;
|
||||||
%put # #;
|
%put # #;
|
||||||
|
|||||||
@@ -23,7 +23,7 @@
|
|||||||
*/
|
*/
|
||||||
)/secure
|
)/secure
|
||||||
/*** HELP END ***/
|
/*** HELP END ***/
|
||||||
des = 'Macro to preview content of a SAS package, version 20241129. Run %previewPackage() for help info.'
|
des = 'Macro to preview content of a SAS package, version 20250728. Run %previewPackage() for help info.'
|
||||||
;
|
;
|
||||||
%if (%superq(packageName) = ) OR (%qupcase(&packageName.) = HELP) %then
|
%if (%superq(packageName) = ) OR (%qupcase(&packageName.) = HELP) %then
|
||||||
%do;
|
%do;
|
||||||
@@ -38,7 +38,7 @@ des = 'Macro to preview content of a SAS package, version 20241129. Run %preview
|
|||||||
%put ### This is short help information for the `previewPackage` macro #;
|
%put ### This is short help information for the `previewPackage` macro #;
|
||||||
%put #-------------------------------------------------------------------------------#;
|
%put #-------------------------------------------------------------------------------#;
|
||||||
%put # #;
|
%put # #;
|
||||||
%put # Macro to get preview of a SAS packages, version `20241129` #;
|
%put # Macro to get preview of a SAS packages, version `20250728` #;
|
||||||
%put # #;
|
%put # #;
|
||||||
%put # A SAS package is a zip file containing a group #;
|
%put # A SAS package is a zip file containing a group #;
|
||||||
%put # of SAS codes (macros, functions, data steps generating #;
|
%put # of SAS codes (macros, functions, data steps generating #;
|
||||||
@@ -82,6 +82,7 @@ des = 'Macro to preview content of a SAS package, version 20241129. Run %preview
|
|||||||
%put # #;
|
%put # #;
|
||||||
%put # Visit: `https://github.com/yabwon/SAS_PACKAGES/tree/main/SPF/Documentation` #;
|
%put # Visit: `https://github.com/yabwon/SAS_PACKAGES/tree/main/SPF/Documentation` #;
|
||||||
%put # to learn more. #;
|
%put # to learn more. #;
|
||||||
|
%put # Tutorials available at: `https://github.com/yabwon/HoW-SASPackages` #;
|
||||||
%put # #;
|
%put # #;
|
||||||
%put #### Example ####################################################################;
|
%put #### Example ####################################################################;
|
||||||
%put # #;
|
%put # #;
|
||||||
@@ -117,8 +118,9 @@ des = 'Macro to preview content of a SAS package, version 20241129. Run %preview
|
|||||||
options NOnotes NOsource ls=MAX ps=MAX msglevel=N NOmautocomploc;
|
options NOnotes NOsource ls=MAX ps=MAX msglevel=N NOmautocomploc;
|
||||||
|
|
||||||
%local _PackageFileref_;
|
%local _PackageFileref_;
|
||||||
/* %let _PackageFileref_ = P%sysfunc(MD5(%lowcase(&packageName.)),hex7.); */
|
data _null_;
|
||||||
data _null_; call symputX("_PackageFileref_", "P" !! put(MD5("%lowcase(&packageName.)"), hex7. -L), "L"); run;
|
call symputX("_PackageFileref_", "P" !! put(MD5(lowcase("&packageName.")), hex7. -L), "L");
|
||||||
|
run;
|
||||||
|
|
||||||
/* when the packages reference is multi-directory search for the first one containing the package */
|
/* when the packages reference is multi-directory search for the first one containing the package */
|
||||||
data _null_;
|
data _null_;
|
||||||
@@ -128,7 +130,7 @@ des = 'Macro to preview content of a SAS package, version 20241129. Run %preview
|
|||||||
if char(packages,1) ^= "(" then packages = quote(strip(packages)); /* for paths with spaces */
|
if char(packages,1) ^= "(" then packages = quote(strip(packages)); /* for paths with spaces */
|
||||||
do i = 1 to kcountw(packages, "()", "QS");
|
do i = 1 to kcountw(packages, "()", "QS");
|
||||||
p = dequote(kscanx(packages, i, "()", "QS"));
|
p = dequote(kscanx(packages, i, "()", "QS"));
|
||||||
exists + fileexist(catx("/", p, "%lowcase(&packageName.).&zip."));
|
exists + fileexist(catx("/", p, lowcase("&packageName.") !! ".&zip."));
|
||||||
if exists then leave;
|
if exists then leave;
|
||||||
end;
|
end;
|
||||||
if exists then call symputx("path", p, "L");
|
if exists then call symputx("path", p, "L");
|
||||||
@@ -136,7 +138,7 @@ des = 'Macro to preview content of a SAS package, version 20241129. Run %preview
|
|||||||
|
|
||||||
filename &_PackageFileref_. &ZIP.
|
filename &_PackageFileref_. &ZIP.
|
||||||
/* put location of package myPackageFile.zip here */
|
/* put location of package myPackageFile.zip here */
|
||||||
"&path./%lowcase(&packageName.).&zip." %unquote(&options.)
|
"&path./%sysfunc(lowcase(&packageName.)).&zip." %unquote(&options.)
|
||||||
;
|
;
|
||||||
%if %sysfunc(fexist(&_PackageFileref_.)) %then
|
%if %sysfunc(fexist(&_PackageFileref_.)) %then
|
||||||
%do;
|
%do;
|
||||||
@@ -144,7 +146,7 @@ des = 'Macro to preview content of a SAS package, version 20241129. Run %preview
|
|||||||
filename &_PackageFileref_. clear;
|
filename &_PackageFileref_. clear;
|
||||||
options ls = &ls_tmp. ps = &ps_tmp. ¬es_tmp. &source_tmp.;
|
options ls = &ls_tmp. ps = &ps_tmp. ¬es_tmp. &source_tmp.;
|
||||||
filename &_PackageFileref_. &ZIP.
|
filename &_PackageFileref_. &ZIP.
|
||||||
"&path./%lowcase(&packageName.).&zip." %unquote(&options.)
|
"&path./%sysfunc(lowcase(&packageName.)).&zip." %unquote(&options.)
|
||||||
ENCODING =
|
ENCODING =
|
||||||
%if %bquote(&packageEncoding.) NE %then &packageEncoding. ;
|
%if %bquote(&packageEncoding.) NE %then &packageEncoding. ;
|
||||||
%else utf8 ;
|
%else utf8 ;
|
||||||
|
|||||||
@@ -8,7 +8,7 @@
|
|||||||
,nobs=0 /* technical parameter */
|
,nobs=0 /* technical parameter */
|
||||||
)
|
)
|
||||||
/*** HELP START ***/
|
/*** HELP START ***/
|
||||||
/ des = 'Utility macro to split "one big" code into multiple files for a SAS package, version 20241129. Run %splitCodeForPackage() for help info.'
|
/ des = 'Utility macro to split "one big" code into multiple files for a SAS package, version 20250728. Run %splitCodeForPackage() for help info.'
|
||||||
;
|
;
|
||||||
/*%macro _();%mend _;*/
|
/*%macro _();%mend _;*/
|
||||||
%if (%superq(codeFile) = ) OR (%qupcase(&codeFile.) = HELP) %then
|
%if (%superq(codeFile) = ) OR (%qupcase(&codeFile.) = HELP) %then
|
||||||
@@ -25,7 +25,7 @@
|
|||||||
%put #-------------------------------------------------------------------------------#;
|
%put #-------------------------------------------------------------------------------#;
|
||||||
%put # #;
|
%put # #;
|
||||||
%put # Utility macro to *split* single file with SAS package code into multiple #;
|
%put # Utility macro to *split* single file with SAS package code into multiple #;
|
||||||
%put # files with separate snippets, version `20241129` #;
|
%put # files with separate snippets, version `20250728` #;
|
||||||
%put # #;
|
%put # #;
|
||||||
%put # A SAS package is a zip file containing a group #;
|
%put # A SAS package is a zip file containing a group #;
|
||||||
%put # of SAS codes (macros, functions, data steps generating #;
|
%put # of SAS codes (macros, functions, data steps generating #;
|
||||||
@@ -60,6 +60,7 @@
|
|||||||
%put # #;
|
%put # #;
|
||||||
%put # Visit: `https://github.com/yabwon/SAS_PACKAGES/tree/main/SPF/Documentation` #;
|
%put # Visit: `https://github.com/yabwon/SAS_PACKAGES/tree/main/SPF/Documentation` #;
|
||||||
%put # to learn more. #;
|
%put # to learn more. #;
|
||||||
|
%put # Tutorials available at: `https://github.com/yabwon/HoW-SASPackages` #;
|
||||||
%put # #;
|
%put # #;
|
||||||
%put ### Example 1 ###################################################################;
|
%put ### Example 1 ###################################################################;
|
||||||
%put # #;
|
%put # #;
|
||||||
@@ -402,7 +403,7 @@ options nomprint nosymbolgen nomlogic notes source ls=MAX ps=MAX msglevel=N ;
|
|||||||
*/
|
*/
|
||||||
if firstLine[j] then
|
if firstLine[j] then
|
||||||
do;
|
do;
|
||||||
put '/* File generated with help of SAS Packages Framework, version 20241129. */';
|
put '/* File generated with help of SAS Packages Framework, version 20250728. */';
|
||||||
firstLine[j]=0;
|
firstLine[j]=0;
|
||||||
end;
|
end;
|
||||||
put _infile_;
|
put _infile_;
|
||||||
|
|||||||
@@ -20,7 +20,7 @@
|
|||||||
*/
|
*/
|
||||||
)/secure
|
)/secure
|
||||||
/*** HELP END ***/
|
/*** HELP END ***/
|
||||||
des = 'Macro to unload SAS package, version 20241129. Run %unloadPackage() for help info.'
|
des = 'Macro to unload SAS package, version 20250728. Run %unloadPackage() for help info.'
|
||||||
;
|
;
|
||||||
%if (%superq(packageName) = ) OR (%qupcase(&packageName.) = HELP) %then
|
%if (%superq(packageName) = ) OR (%qupcase(&packageName.) = HELP) %then
|
||||||
%do;
|
%do;
|
||||||
@@ -35,7 +35,7 @@ des = 'Macro to unload SAS package, version 20241129. Run %unloadPackage() for h
|
|||||||
%put ### This is short help information for the `unloadPackage` macro #;
|
%put ### This is short help information for the `unloadPackage` macro #;
|
||||||
%put #-------------------------------------------------------------------------------#;
|
%put #-------------------------------------------------------------------------------#;
|
||||||
%put # #;
|
%put # #;
|
||||||
%put # Macro to unload SAS packages, version `20241129` #;
|
%put # Macro to unload SAS packages, version `20250728` #;
|
||||||
%put # #;
|
%put # #;
|
||||||
%put # A SAS package is a zip file containing a group #;
|
%put # A SAS package is a zip file containing a group #;
|
||||||
%put # of SAS codes (macros, functions, data steps generating #;
|
%put # of SAS codes (macros, functions, data steps generating #;
|
||||||
@@ -75,6 +75,7 @@ des = 'Macro to unload SAS package, version 20241129. Run %unloadPackage() for h
|
|||||||
%put # #;
|
%put # #;
|
||||||
%put # Visit: `https://github.com/yabwon/SAS_PACKAGES/tree/main/SPF/Documentation` #;
|
%put # Visit: `https://github.com/yabwon/SAS_PACKAGES/tree/main/SPF/Documentation` #;
|
||||||
%put # to learn more. #;
|
%put # to learn more. #;
|
||||||
|
%put # Tutorials available at: `https://github.com/yabwon/HoW-SASPackages` #;
|
||||||
%put # #;
|
%put # #;
|
||||||
%put ### Example #####################################################################;
|
%put ### Example #####################################################################;
|
||||||
%put # #;
|
%put # #;
|
||||||
@@ -113,8 +114,9 @@ des = 'Macro to unload SAS package, version 20241129. Run %unloadPackage() for h
|
|||||||
options NOnotes NOsource ls=MAX ps=MAX msglevel=N NOmautocomploc;
|
options NOnotes NOsource ls=MAX ps=MAX msglevel=N NOmautocomploc;
|
||||||
|
|
||||||
%local _PackageFileref_;
|
%local _PackageFileref_;
|
||||||
/* %let _PackageFileref_ = P%sysfunc(MD5(%lowcase(&packageName.)),hex7.); */
|
data _null_;
|
||||||
data _null_; call symputX("_PackageFileref_", "P" !! put(MD5("%lowcase(&packageName.)"), hex7. -L), "L"); run;
|
call symputX("_PackageFileref_", "P" !! put(MD5(lowcase("&packageName.")), hex7. -L), "L");
|
||||||
|
run;
|
||||||
|
|
||||||
/* when the packages reference is multi-directory search for the first one containing the package */
|
/* when the packages reference is multi-directory search for the first one containing the package */
|
||||||
data _null_;
|
data _null_;
|
||||||
@@ -124,7 +126,7 @@ des = 'Macro to unload SAS package, version 20241129. Run %unloadPackage() for h
|
|||||||
if char(packages,1) ^= "(" then packages = quote(strip(packages)); /* for paths with spaces */
|
if char(packages,1) ^= "(" then packages = quote(strip(packages)); /* for paths with spaces */
|
||||||
do i = 1 to kcountw(packages, "()", "QS");
|
do i = 1 to kcountw(packages, "()", "QS");
|
||||||
p = dequote(kscanx(packages, i, "()", "QS"));
|
p = dequote(kscanx(packages, i, "()", "QS"));
|
||||||
exists + fileexist(catx("/", p, "%lowcase(&packageName.).&zip."));
|
exists + fileexist(catx("/", p, lowcase("&packageName.") !! ".&zip."));
|
||||||
if exists then leave;
|
if exists then leave;
|
||||||
end;
|
end;
|
||||||
if exists then call symputx("path", p, "L");
|
if exists then call symputx("path", p, "L");
|
||||||
@@ -132,7 +134,7 @@ des = 'Macro to unload SAS package, version 20241129. Run %unloadPackage() for h
|
|||||||
|
|
||||||
filename &_PackageFileref_. &ZIP.
|
filename &_PackageFileref_. &ZIP.
|
||||||
/* put location of package myPackageFile.zip here */
|
/* put location of package myPackageFile.zip here */
|
||||||
"&path./%lowcase(&packageName.).&zip." %unquote(&options.)
|
"&path./%sysfunc(lowcase(&packageName.)).&zip." %unquote(&options.)
|
||||||
;
|
;
|
||||||
%if %sysfunc(fexist(&_PackageFileref_.)) %then
|
%if %sysfunc(fexist(&_PackageFileref_.)) %then
|
||||||
%do;
|
%do;
|
||||||
@@ -140,7 +142,7 @@ des = 'Macro to unload SAS package, version 20241129. Run %unloadPackage() for h
|
|||||||
filename &_PackageFileref_. clear;
|
filename &_PackageFileref_. clear;
|
||||||
options ls = &ls_tmp. ps = &ps_tmp. ¬es_tmp. &source_tmp.;
|
options ls = &ls_tmp. ps = &ps_tmp. ¬es_tmp. &source_tmp.;
|
||||||
filename &_PackageFileref_. &ZIP.
|
filename &_PackageFileref_. &ZIP.
|
||||||
"&path./%lowcase(&packageName.).&zip." %unquote(&options.)
|
"&path./%sysfunc(lowcase(&packageName.)).&zip." %unquote(&options.)
|
||||||
ENCODING =
|
ENCODING =
|
||||||
%if %bquote(&packageEncoding.) NE %then &packageEncoding. ;
|
%if %bquote(&packageEncoding.) NE %then &packageEncoding. ;
|
||||||
%else utf8 ;
|
%else utf8 ;
|
||||||
|
|||||||
@@ -13,7 +13,7 @@
|
|||||||
hashing_file() function, SAS 9.4M6 */
|
hashing_file() function, SAS 9.4M6 */
|
||||||
)/secure
|
)/secure
|
||||||
/*** HELP END ***/
|
/*** HELP END ***/
|
||||||
des = 'Macro to verify SAS package with the hash digest, version 20241129. Run %verifyPackage() for help info.'
|
des = 'Macro to verify SAS package with the hash digest, version 20250728. Run %verifyPackage() for help info.'
|
||||||
;
|
;
|
||||||
%if (%superq(packageName) = ) OR (%qupcase(&packageName.) = HELP) %then
|
%if (%superq(packageName) = ) OR (%qupcase(&packageName.) = HELP) %then
|
||||||
%do;
|
%do;
|
||||||
@@ -28,7 +28,7 @@ des = 'Macro to verify SAS package with the hash digest, version 20241129. Run %
|
|||||||
%put ### This is short help information for the `verifyPackage` macro #;
|
%put ### This is short help information for the `verifyPackage` macro #;
|
||||||
%put #-------------------------------------------------------------------------------#;
|
%put #-------------------------------------------------------------------------------#;
|
||||||
%put # #;
|
%put # #;
|
||||||
%put # Macro to verify SAS package with it hash digest, version `20241129` #;
|
%put # Macro to verify SAS package with it hash digest, version `20250728` #;
|
||||||
%put # #;
|
%put # #;
|
||||||
%put # A SAS package is a zip file containing a group #;
|
%put # A SAS package is a zip file containing a group #;
|
||||||
%put # of SAS codes (macros, functions, data steps generating #;
|
%put # of SAS codes (macros, functions, data steps generating #;
|
||||||
@@ -58,6 +58,7 @@ des = 'Macro to verify SAS package with the hash digest, version 20241129. Run %
|
|||||||
%put # #;
|
%put # #;
|
||||||
%put # Visit: `https://github.com/yabwon/SAS_PACKAGES/tree/main/SPF/Documentation` #;
|
%put # Visit: `https://github.com/yabwon/SAS_PACKAGES/tree/main/SPF/Documentation` #;
|
||||||
%put # to learn more. #;
|
%put # to learn more. #;
|
||||||
|
%put # Tutorials available at: `https://github.com/yabwon/HoW-SASPackages` #;
|
||||||
%put # #;
|
%put # #;
|
||||||
%put #### Example ####################################################################;
|
%put #### Example ####################################################################;
|
||||||
%put # #;
|
%put # #;
|
||||||
@@ -96,8 +97,9 @@ des = 'Macro to verify SAS package with the hash digest, version 20241129. Run %
|
|||||||
options NOnotes NOsource ls=MAX ps=MAX NOfullstimer NOstimer msglevel=N NOmautocomploc;
|
options NOnotes NOsource ls=MAX ps=MAX NOfullstimer NOstimer msglevel=N NOmautocomploc;
|
||||||
|
|
||||||
%local _PackageFileref_;
|
%local _PackageFileref_;
|
||||||
/* %let _PackageFileref_ = P%sysfunc(MD5(%lowcase(&packageName.)),hex7.); */
|
data _null_;
|
||||||
data _null_; call symputX("_PackageFileref_", "P" !! put(MD5("%lowcase(&packageName.)"), hex7. -L), "L"); run;
|
call symputX("_PackageFileref_", "P" !! put(MD5(lowcase("&packageName.")), hex7. -L), "L");
|
||||||
|
run;
|
||||||
|
|
||||||
/* when the packages reference is multi-directory search for the first one containing the package */
|
/* when the packages reference is multi-directory search for the first one containing the package */
|
||||||
data _null_;
|
data _null_;
|
||||||
@@ -107,7 +109,7 @@ des = 'Macro to verify SAS package with the hash digest, version 20241129. Run %
|
|||||||
if char(packages,1) ^= "(" then packages = quote(strip(packages)); /* for paths with spaces */
|
if char(packages,1) ^= "(" then packages = quote(strip(packages)); /* for paths with spaces */
|
||||||
do i = 1 to kcountw(packages, "()", "QS");
|
do i = 1 to kcountw(packages, "()", "QS");
|
||||||
p = dequote(kscanx(packages, i, "()", "QS"));
|
p = dequote(kscanx(packages, i, "()", "QS"));
|
||||||
exists + fileexist(catx("/", p, "%lowcase(&packageName.).zip"));
|
exists + fileexist(catx("/", p, lowcase("&packageName.") !! "zip")); /* check on zip files only! */
|
||||||
if exists then leave;
|
if exists then leave;
|
||||||
end;
|
end;
|
||||||
if exists then call symputx("path", p, "L");
|
if exists then call symputx("path", p, "L");
|
||||||
@@ -115,7 +117,7 @@ des = 'Macro to verify SAS package with the hash digest, version 20241129. Run %
|
|||||||
|
|
||||||
filename &_PackageFileref_.
|
filename &_PackageFileref_.
|
||||||
/* put location of package myPackageFile.zip here */
|
/* put location of package myPackageFile.zip here */
|
||||||
"&path./%lowcase(&packageName.).zip"
|
"&path./%sysfunc(lowcase(&packageName.)).zip"
|
||||||
;
|
;
|
||||||
%if %sysfunc(fexist(&_PackageFileref_.)) %then
|
%if %sysfunc(fexist(&_PackageFileref_.)) %then
|
||||||
%do;
|
%do;
|
||||||
|
|||||||
1340
SPF/SPFinit.md
1340
SPF/SPFinit.md
File diff suppressed because it is too large
Load Diff
555
SPF/SPFinit.sas
555
SPF/SPFinit.sas
File diff suppressed because it is too large
Load Diff
@@ -1,4 +1,4 @@
|
|||||||
Copyright (c) 2019 - 2024 Bartosz Jablonski
|
Copyright (c) 2019 - 2025 Bartosz Jablonski
|
||||||
|
|
||||||
Permission is hereby granted, free of charge, to any person obtaining a copy
|
Permission is hereby granted, free of charge, to any person obtaining a copy
|
||||||
of this software and associated documentation files (the "Software"), to deal
|
of this software and associated documentation files (the "Software"), to deal
|
||||||
|
|||||||
Reference in New Issue
Block a user