diff --git a/README.md b/README.md index e42ce57..e62df20 100644 --- a/README.md +++ b/README.md @@ -6,7 +6,7 @@ A **SAS package** is an automatically generated, single, stand alone *zip* file 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. The latest version of SPF is `20200811`. +In this repository we are presenting the **SAS Packages Framework** which allows to develop and use SAS packages. The latest version of SPF is `20200815`. To get started with SAS Packages try this [**`Getting Started with SAS Packages`**](https://github.com/yabwon/SAS_PACKAGES/blob/master/SPF/Documentation/Getting_Started_with_SAS_Packages.pdf "Getting Started with SAS Packages") presentation (see the `./SPF/Documentation` directory). diff --git a/SPF/Documentation/SAS(r) packages - the way to share (a how to)- Paper 4725-2020 - extended.pdf b/SPF/Documentation/SAS(r) packages - the way to share (a how to)- Paper 4725-2020 - extended.pdf index 45f58d9..8f98edf 100644 Binary files a/SPF/Documentation/SAS(r) packages - the way to share (a how to)- Paper 4725-2020 - extended.pdf and b/SPF/Documentation/SAS(r) packages - the way to share (a how to)- Paper 4725-2020 - extended.pdf differ diff --git a/SPF/SPFinit.sas b/SPF/SPFinit.sas index 23eed5d..62396c3 100644 --- a/SPF/SPFinit.sas +++ b/SPF/SPFinit.sas @@ -884,14 +884,14 @@ data _null_; stop; end; - length folder file $ 256 folderRef fileRef $ 8; + length folder $ 64 file $ 1024 folderRef fileRef $ 8; folderRef = "_%sysfunc(datetime(), hex6.)0"; rc=filename(folderRef, base); folderid=dopen(folderRef); - put; + putlog " "; put "/*" 100*"+" ; do i=1 to dnum(folderId); drop i; folder = dread(folderId, i); @@ -903,31 +903,36 @@ data _null_; EOF = 0; if fileId = 0 and lowcase(scan(folder, -1, ".")) = 'zip' then do; - file = catx('/',base, folder); - length nn $ 96; - nn = repeat("*", (96-lengthn(file))); - - putlog " "; - put " * " file @; put nn /; - - infile package ZIP FILEVAR=file member="description.sas" end=EOF; - - do until(EOF); - input; - if lowcase(scan(_INFILE_,1,":")) in ("package" "title" "version" "author" "maintainer" "license") then - do; - _INFILE_ = scan(_INFILE_,1,":") !! ":" !! scan(_INFILE_,2,":"); - putlog " * " _INFILE_; - end; - if upcase(strip(_INFILE_)) =: "DESCRIPTION START:" then leave; - end; + putlog " * "; + file = catx('/',base, folder); + + length nn $ 96; + if (96-lengthn(file)) < 1 then + put " * " file; + else + do; + nn = repeat("*", (96-lengthn(file))); + put " * " file nn; + end; + + infile package ZIP FILEVAR=file member="description.sas" end=EOF; + + do until(EOF); + input; + if lowcase(scan(_INFILE_,1,":")) in ("package" "title" "version" "author" "maintainer" "license") then + do; + _INFILE_ = scan(_INFILE_,1,":") !! ":" !! scan(_INFILE_,2,":"); + putlog " * " _INFILE_; + end; + if upcase(strip(_INFILE_)) =: "DESCRIPTION START:" then leave; + end; end; rc = dclose(fileId); rc = filename(fileRef); end; - putlog " "; + putlog " * "; put 100*"+" "*/"; rc = dclose(folderid); rc = filename(folderRef); @@ -1695,7 +1700,7 @@ data _null_; */ /* test for supported types */ if not (upcase(type) in: - ('LIBNAME' 'MACRO' 'DATA' 'FUNCTION' /*'FUNCTIONS'*/ 'FORMAT' 'IMLMODULE' 'EXEC' 'CLEAN' 'LAZYDATA' 'TEST')) + ('LIBNAME' 'MACRO' 'DATA' 'FUNCTION' /*'FUNCTIONS'*/ 'FORMAT' 'IMLMODULE' 'PROTO' 'EXEC' 'CLEAN' 'LAZYDATA' 'TEST')) then do; putlog 'WARNING: Type ' type 'is not yet supported.'; @@ -1718,11 +1723,15 @@ data _null_; put '%put NOTE- ;'; end; - /* HEADERS for IML and FCMP */ + /* HEADERS for IML, FCMP, and PROTO */ if 1 = FIRST.type and upcase(type)='FUNCTIONS' then /* header, for multiple functions in one FCMP run */ do; put "proc fcmp outlib = work.%lowcase(&packageName.fcmp).package; "; end; + if 1 = FIRST.type and upcase(type)='PROTO' then /* header, for multiple functions in one FCMP run */ + do; + put "proc proto package = work.%lowcase(&packageName.proto).package; "; + end; if 1 = FIRST.type and upcase(type)='IMLMODULE' then /* header, for IML modules */ do; put "proc iml; "; @@ -1731,7 +1740,7 @@ data _null_; /* include the file with the code of the element */ put '%include' " &_PackageFileref_.(_" folder +(-1) "." file +(-1) ') / nosource2;' /; - /* FOOTERS for IML and FCMP */ + /* FOOTERS for IML, FCMP, and PROTO */ if 1 = LAST.type and upcase(type)='FUNCTIONS' then /* footer, for multiple functions in one FCMP run */ do; put "run; "; @@ -1742,11 +1751,17 @@ data _null_; put "store module = _ALL_; "; /* and store all created modules */ put "quit; "; end; + if 1 = LAST.type and upcase(type)='PROTO' then /* footer, for multiple functions in one PROTO run */ + do; + put "run; "; + end; + isFunction + (upcase(type)=:'FUNCTION'); isFormat + (upcase(type)=:'FORMAT'); + isProto + (upcase(type)=:'PROTO'); - /* 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 do; put "options APPEND=(cmplib = work.%lowcase(&packageName.fcmp));"; @@ -1754,7 +1769,15 @@ data _null_; put '%put NOTE:[CMPLIB] %sysfunc(getoption(cmplib));' /; end; - /* add the link to the formats' catalog, 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 + do; + put "options APPEND=(cmplib = work.%lowcase(&packageName.proto));"; + put '%put NOTE- ;'; + put '%put NOTE:[CMPLIB] %sysfunc(getoption(cmplib));' /; + end; + + /* add the link to the formats catalog, only for the first occurrence */ if 1 = isFormat and (upcase(type)=:'FORMAT') then do; put "options INSERT=( fmtsearch = work.%lowcase(&packageName.format) );"; @@ -1955,6 +1978,31 @@ data _null_; put '%put NOTE:[FMTSEARCH] %sysfunc(getoption(fmtsearch));' /; end; + /* delete proto functions */ + isProto = 0; + EOF = 0; + do until(EOF); + set &filesWithCodes. end = EOF; + if not (upcase(type)=:'PROTO') then continue; + put '%put NOTE- Element of type ' type 'generated from the file "' file +(-1) '" will be deleted;'; + put '%put NOTE- ;' /; + isProto + 1; + end; + /* delete the link to the proto functions dataset */ + if isProto then + do; + put "proc delete data = work.%lowcase(&packageName.proto);"; + put "run;" /; + put 'options cmplib = (%unquote(%sysfunc(tranwrd(' / + '%lowcase(%sysfunc(getoption(cmplib)))' / + ',%str(' "work.%lowcase(&packageName.proto)" '), %str() ))));'; + put 'options cmplib = (%unquote(%sysfunc(compress(' / + '%sysfunc(getoption(cmplib))' / + ',%str(()) ))));'; + put '%put; %put NOTE:[CMPLIB] %sysfunc(getoption(cmplib));' /; + end; + + /* delete functions */ put "proc fcmp outlib = work.%lowcase(&packageName.fcmp).package;"; isFunction = 0; @@ -2180,6 +2228,7 @@ data _null_; when (upcase(type) = "MACRO") fileshort2 = cats('''%',fileshort,'()'''); when (upcase(type) =:"FUNCTION") fileshort2 = cats("'",fileshort,"()'"); when (upcase(type) =:"IMLMODULE") fileshort2 = cats("'",fileshort,"()'"); + when (upcase(type) =:"PROTO") fileshort2 = cats("'",fileshort,"()'"); when (upcase(type) = "FORMAT") fileshort2 = cats("'$",fileshort,".'"); otherwise fileshort2 = fileshort; end;