SASPAC/SAS_PACKAGES
1
0
Fork 0
mirror of https://github.com/yabwon/SAS_PACKAGES.git synced 2026-01-10 08:20:06 +00:00
Code Issues Packages Projects Releases Wiki Activity

version 20200810

Browse Source 
Version 20200810.
Parsing of the `description.sas` file improved.
Documentation corrected.
This commit is contained in:
yabwon
2020-08-10 14:52:47 +02:00
parent 7fd4dd9774
commit 4ae8f23716
2 changed files with 29 additions and 29 deletions
Download Patch File Download Diff File Expand all files Collapse all files

BIN
SPF/Documentation/SAS(r) packages - the way to share (a how to)- Paper 4725-2020 - extended.pdf
View File

Binary file not shown.

58
SPF/SPFinit.sas
View File

@@ -42,7 +42,7 @@
- to unload, or
- to generate SAS packages.
Version 20200807.
Version 20200810.
See examples below.
A SAS package is a zip file containing a group of files
@@ -81,7 +81,7 @@
*/
)/secure
/*** HELP END ***/
des = 'Macro to load SAS package, version 20200807. Run %loadPackage() for help info.'
des = 'Macro to load SAS package, version 20200810. Run %loadPackage() for help info.'
;
%if %superq(packageName) = %then
%do;
@@ -90,7 +90,7 @@ des = 'Macro to load SAS package, version 20200807. Run %loadPackage() for help
%put # This is short help information for the loadPackage macro #;
%put ###############################################################################;
%put # #;
%put # Macro to load SAS packages, version 20200807 #;
%put # Macro to load SAS packages, version 20200810 #;
%put # #;
%put # A SAS package is a zip file containing a group #;
%put # of SAS codes (macros, functions, data steps generating #;
@@ -235,7 +235,7 @@ des = 'Macro to load SAS package, version 20200807. Run %loadPackage() for help
*/
)/secure
/*** HELP END ***/
des = 'Macro to unload SAS package, version 20200807. Run %unloadPackage() for help info.'
des = 'Macro to unload SAS package, version 20200810. Run %unloadPackage() for help info.'
;
%if %superq(packageName) = %then
%do;
@@ -244,7 +244,7 @@ des = 'Macro to unload SAS package, version 20200807. Run %unloadPackage() for h
%put # This is short help information for the unloadPackage macro #;
%put ###############################################################################;
%put # #;
%put # Macro to unload SAS packages, version 20200807 #;
%put # Macro to unload SAS packages, version 20200810 #;
%put # #;
%put # A SAS package is a zip file containing a group #;
%put # of SAS codes (macros, functions, data steps generating #;
@@ -362,7 +362,7 @@ des = 'Macro to unload SAS package, version 20200807. Run %unloadPackage() for h
*/
)/secure
/*** HELP END ***/
des = 'Macro to get help about SAS package, version 20200807. Run %helpPackage() for help info.'
des = 'Macro to get help about SAS package, version 20200810. Run %helpPackage() for help info.'
;
%if %superq(packageName) = %then
%do;
@@ -371,7 +371,7 @@ des = 'Macro to get help about SAS package, version 20200807. Run %helpPackage()
%put # This is short help information for the helpPackage macro #;
%put ###############################################################################;
%put # #;
%put # Macro to get help about SAS packages, version 20200807 #;
%put # Macro to get help about SAS packages, version 20200810 #;
%put # #;
%put # A SAS package is a zip file containing a group #;
%put # of SAS codes (macros, functions, data steps generating #;
@@ -475,7 +475,7 @@ TODO:
- add MD5(&packageName.) value hash instead "package" word in filenames [DONE]
*/
/* Macros to install SAS packages, version 20200807 */
/* Macros to install SAS packages, version 20200810 */
/* A SAS package is a zip file containing a group of files
with SAS code (macros, functions, data steps generating
data, etc.) wrapped up together and %INCLUDEed by
@@ -490,7 +490,7 @@ TODO:
)
/secure
/*** HELP END ***/
des = 'Macro to install SAS package, version 20200807. Run %%installPackage() for help info.'
des = 'Macro to install SAS package, version 20200810. Run %%installPackage() for help info.'
;
%if %superq(packageName) = %then
%do;
@@ -499,7 +499,7 @@ des = 'Macro to install SAS package, version 20200807. Run %%installPackage() fo
%put # This is short help information for the installPackage macro #;
%put ########################################################################################;
%put # #;
%put # Macro to install SAS packages, version 20200807 #;
%put # Macro to install SAS packages, version 20200810 #;
%put # #;
%put # A SAS package is a zip file containing a group #;
%put # of SAS codes (macros, functions, data steps generating #;
@@ -762,7 +762,7 @@ des = 'Macro to install SAS package, version 20200807. Run %%installPackage() fo
/* Macro to list SAS packages in packages folder.
Version 20200807
Version 20200810
A SAS package is a zip file containing a group
of SAS codes (macros, functions, data steps generating
@@ -782,7 +782,7 @@ des = 'Macro to install SAS package, version 20200807. Run %%installPackage() fo
%macro listPackages()/PARMBUFF
des = 'Macro to list SAS packages from `packages` fileref, type %listPackages(HELP) for help, version 20200807.'
des = 'Macro to list SAS packages from `packages` fileref, type %listPackages(HELP) for help, version 20200810.'
;
%if %QUPCASE(&SYSPBUFF.) = %str(%(HELP%)) %then
%do;
@@ -791,7 +791,7 @@ des = 'Macro to list SAS packages from `packages` fileref, type %listPackages(HE
%put # This is short help information for the listPackages macro #;
%put ########################################################################################;
%put # #;
%put # Macro to list available SAS packages, version 20200807 #;
%put # Macro to list available SAS packages, version 20200810 #;
%put # #;
%put # A SAS package is a zip file containing a group #;
%put # of SAS codes (macros, functions, data steps generating #;
@@ -884,7 +884,7 @@ data _null_;
_INFILE_ = scan(_INFILE_,1,":") !! ":" !! scan(_INFILE_,2,":");
putlog " * " _INFILE_;
end;
if strip(_INFILE_) = "DESCRIPTION START:" then leave;
if upcase(strip(_INFILE_)) =: "DESCRIPTION START:" then leave;
end;
end;
@@ -907,7 +907,7 @@ options ls = &ls_tmp. ps = &ps_tmp. &notes_tmp. &source_tmp.;
/* Macro to generate SAS packages.
Version 20200807
Version 20200810
A SAS package is a zip file containing a group
of SAS codes (macros, functions, data steps generating
@@ -930,7 +930,7 @@ options ls = &ls_tmp. ps = &ps_tmp. &notes_tmp. &source_tmp.;
dependencies in loading */
)/secure
/*** HELP END ***/
des = 'Macro to generate SAS packages, version 20200807. Run %generatePackage() for help info.'
des = 'Macro to generate SAS packages, version 20200810. Run %generatePackage() for help info.'
;
%if %superq(filesLocation) = %then
%do;
@@ -939,7 +939,7 @@ des = 'Macro to generate SAS packages, version 20200807. Run %generatePackage()
%put # This is short help information for the generatePackage macro #;
%put ###############################################################################;
%put # #;
%put # Macro to generate SAS packages, version 20200807 #;
%put # Macro to generate SAS packages, version 20200810 #;
%put # #;
%put # A SAS package is a zip file containing a group #;
%put # of SAS codes (macros, functions, data steps generating #;
@@ -1014,7 +1014,7 @@ filename &_LIC_. "&filesLocation./license.sas" lrecl = 256;
when(upcase(scan(_INFILE_, 1, ":")) = "REQPACKAGES") call symputX("packageReqPackages", scan(_INFILE_, 2, ":"),"L");
/* stop at the beginning of description */
when(upcase(scan(_INFILE_, 1, ":")) = "DESCRIPTION START") stop;
when ( upcase(scan(_INFILE_, 1, ":")) = "DESCRIPTION START" ) stop;
otherwise;
end;
run;
@@ -2030,16 +2030,16 @@ data _null_;
put 'options ls = MAX ps = MAX nonotes nosource; ';
put '%include' " &_PackageFileref_.(packagemetadata.sas) / nosource2; " /;
put 'data _null_; ';
put ' if strip(symget("helpKeyword")) = " " then ';
put ' do until (EOF); ';
put " infile &_PackageFileref_.(description.sas) end = EOF; ";
put ' input; ';
put ' if upcase(strip(_infile_)) = "DESCRIPTION END:" then printer = 0; ';
put ' if printer then put "*> " _infile_; ';
put ' if upcase(strip(_infile_)) = "DESCRIPTION START:" then printer = 1; ';
put ' end; ';
put ' else stop; ';
put 'data _null_; ';
put ' if strip(symget("helpKeyword")) = " " then ';
put ' do until (EOF); ';
put " infile &_PackageFileref_.(description.sas) end = EOF; ";
put ' input; ';
put ' if upcase(strip(_infile_)) =: "DESCRIPTION END:" then printer = 0; ';
put ' if printer then put "*> " _infile_; ';
put ' if upcase(strip(_infile_)) =: "DESCRIPTION START:" then printer = 1; ';
put ' end; ';
put ' else stop; ';
put ' put ; put " Package contains: "; ';
@@ -2074,7 +2074,7 @@ data _null_;
put ' end ; ';
%end;
put 'put "***"; put "* SAS package generated by generatePackage, version 20200807 *"; put "***";';
put 'put "***"; put "* SAS package generated by generatePackage, version 20200810 *"; put "***";';
put 'run; ' /;