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

version 20200807

Browse Source 
Framework:
Code searching help tags simplified.

Documentation:
Clarification about "description.sas" added.
This commit is contained in:
yabwon
2020-08-07 12:58:50 +02:00
parent 88ace7321b
commit 790816e229
2 changed files with 21 additions and 21 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.

42
SPF/SPFinit.sas
View File

@@ -42,7 +42,7 @@
- to unload, or - to unload, or
- to generate SAS packages. - to generate SAS packages.
Version 20200803. Version 20200807.
See examples below. See examples below.
A SAS package is a zip file containing a group of files A SAS package is a zip file containing a group of files
@@ -81,7 +81,7 @@
*/ */
)/secure )/secure
/*** HELP END ***/ /*** HELP END ***/
des = 'Macro to load SAS package, version 20200803. Run %loadPackage() for help info.' des = 'Macro to load SAS package, version 20200807. Run %loadPackage() for help info.'
; ;
%if %superq(packageName) = %then %if %superq(packageName) = %then
%do; %do;
@@ -90,7 +90,7 @@ des = 'Macro to load SAS package, version 20200803. Run %loadPackage() for help
%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 20200803 #; %put # Macro to load SAS packages, version 20200807 #;
%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 #;
@@ -235,7 +235,7 @@ des = 'Macro to load SAS package, version 20200803. Run %loadPackage() for help
*/ */
)/secure )/secure
/*** HELP END ***/ /*** HELP END ***/
des = 'Macro to unload SAS package, version 20200803. Run %unloadPackage() for help info.' des = 'Macro to unload SAS package, version 20200807. Run %unloadPackage() for help info.'
; ;
%if %superq(packageName) = %then %if %superq(packageName) = %then
%do; %do;
@@ -244,7 +244,7 @@ des = 'Macro to unload SAS package, version 20200803. 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 20200803 #; %put # Macro to unload SAS packages, version 20200807 #;
%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 #;
@@ -362,7 +362,7 @@ des = 'Macro to unload SAS package, version 20200803. Run %unloadPackage() for h
*/ */
)/secure )/secure
/*** HELP END ***/ /*** HELP END ***/
des = 'Macro to get help about SAS package, version 20200803. Run %helpPackage() for help info.' des = 'Macro to get help about SAS package, version 20200807. Run %helpPackage() for help info.'
; ;
%if %superq(packageName) = %then %if %superq(packageName) = %then
%do; %do;
@@ -371,7 +371,7 @@ des = 'Macro to get help about SAS package, version 20200803. 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 20200803 #; %put # Macro to get help about SAS packages, version 20200807 #;
%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 #;
@@ -475,7 +475,7 @@ TODO:
- add MD5(&packageName.) value hash instead "package" word in filenames [DONE] - add MD5(&packageName.) value hash instead "package" word in filenames [DONE]
*/ */
/* Macros to install SAS packages, version 20200803 */ /* Macros to install SAS packages, version 20200807 */
/* 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
@@ -490,7 +490,7 @@ TODO:
) )
/secure /secure
/*** HELP END ***/ /*** HELP END ***/
des = 'Macro to install SAS package, version 20200803. Run %%installPackage() for help info.' des = 'Macro to install SAS package, version 20200807. Run %%installPackage() for help info.'
; ;
%if %superq(packageName) = %then %if %superq(packageName) = %then
%do; %do;
@@ -499,7 +499,7 @@ des = 'Macro to install SAS package, version 20200803. 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 20200803 #; %put # Macro to install SAS packages, version 20200807 #;
%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 #;
@@ -762,7 +762,7 @@ des = 'Macro to install SAS package, version 20200803. Run %%installPackage() fo
/* Macro to list SAS packages in packages folder. /* Macro to list SAS packages in packages folder.
Version 20200803 Version 20200807
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
@@ -782,7 +782,7 @@ des = 'Macro to install SAS package, version 20200803. Run %%installPackage() fo
%macro listPackages()/PARMBUFF %macro listPackages()/PARMBUFF
des = 'Macro to list SAS packages from `packages` fileref, type %listPackages(HELP) for help, version 20200803.' des = 'Macro to list SAS packages from `packages` fileref, type %listPackages(HELP) for help, version 20200807.'
; ;
%if %QUPCASE(&SYSPBUFF.) = %str(%(HELP%)) %then %if %QUPCASE(&SYSPBUFF.) = %str(%(HELP%)) %then
%do; %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 # This is short help information for the listPackages macro #;
%put ########################################################################################; %put ########################################################################################;
%put # #; %put # #;
%put # Macro to list available SAS packages, version 20200803 #; %put # Macro to list available SAS packages, version 20200807 #;
%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 #;
@@ -907,7 +907,7 @@ options ls = &ls_tmp. ps = &ps_tmp. &notes_tmp. &source_tmp.;
/* Macro to generate SAS packages. /* Macro to generate SAS packages.
Version 20200803 Version 20200807
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
@@ -930,7 +930,7 @@ options ls = &ls_tmp. ps = &ps_tmp. &notes_tmp. &source_tmp.;
dependencies in loading */ dependencies in loading */
)/secure )/secure
/*** HELP END ***/ /*** HELP END ***/
des = 'Macro to generate SAS packages, version 20200803. Run %generatePackage() for help info.' des = 'Macro to generate SAS packages, version 20200807. Run %generatePackage() for help info.'
; ;
%if %superq(filesLocation) = %then %if %superq(filesLocation) = %then
%do; %do;
@@ -939,7 +939,7 @@ des = 'Macro to generate SAS packages, version 20200803. 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 20200803 #; %put # Macro to generate SAS packages, version 20200807 #;
%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 #;
@@ -2074,7 +2074,7 @@ data _null_;
put ' end ; '; put ' end ; ';
%end; %end;
put 'put "***"; put "* SAS package generated by generatePackage, version 20200803 *"; put "***";'; put 'put "***"; put "* SAS package generated by generatePackage, version 20200807 *"; put "***";';
put 'run; ' /; put 'run; ' /;
@@ -2144,10 +2144,10 @@ data _null_;
put ' call execute(" do until(EOF); ");'; put ' call execute(" do until(EOF); ");';
put ' call execute(" input; ");'; put ' call execute(" input; ");';
put ' call execute(" if upcase(strip(_infile_)) '; put ' call execute(" if upcase(strip(_infile_)) ';
put ' = cat(""/"",""*** "",""HELP END"","" ***"",""/"") then printer = 0; ");'; /* it looks like that because of comments */ put ' = ''/*** HELP END ***/'' then printer = 0; ");';
put ' call execute(" if printer then put ""*> "" _infile_; ");'; put ' call execute(" if printer then put ""*> "" _infile_; ");';
put ' call execute(" if upcase(strip(_infile_)) '; put ' call execute(" if upcase(strip(_infile_)) ';
put ' = cat(""/"",""*** "",""HELP START"","" ***"",""/"") then printer = 1; ");'; /* it looks like that because of comments */ put ' = ''/*** HELP START ***/'' then printer = 1; ");';
put ' call execute(" end; ");'; put ' call execute(" end; ");';
put ' call execute(" put ""*> "" / ""*> ""; ");'; put ' call execute(" put ""*> "" / ""*> ""; ");';
put ' call execute(" stop; ");'; put ' call execute(" stop; ");';
@@ -2193,8 +2193,8 @@ data _null_;
call execute(' retain test .;'); call execute(' retain test .;');
call execute(' infile _SPFIN_ lrecl=32767 dlm="0a0d"x end=EOF;'); call execute(' infile _SPFIN_ lrecl=32767 dlm="0a0d"x end=EOF;');
call execute(' input;'); call execute(' input;');
call execute(' if upcase(strip(_infile_)) = cat("/","*** ","HELP START"," ***","/") then test + (+1); '); call execute(' if upcase(strip(_infile_)) = "/*** HELP START ***/" then test + (+1); ');
call execute(' if upcase(strip(_infile_)) = cat("/","*** ","HELP END", " ***","/") then test + (-1); '); call execute(' if upcase(strip(_infile_)) = "/*** HELP END ***/" then test + (-1); ');
call execute(' if (test not in (.,0,1)) or (EOF and test) then '); call execute(' if (test not in (.,0,1)) or (EOF and test) then ');
call execute(' do; '); call execute(' do; ');
call execute(' put "ERR" "OR: unmatching or nested HELP tags!" _N_=; '); call execute(' put "ERR" "OR: unmatching or nested HELP tags!" _N_=; ');