Type : CREATION_INTERNE
Die Daten werden direkt durch Aufrufe der SAS Git-Systemfunktionen aus dem angegebenen Verzeichnispfad generiert.
| 1 | DATA &outds; |
| 2 | LENGTH gitdir path $ 1024 STATUS $ 64 STAGED $ 32; |
| 3 | call missing (of _all_); |
| 4 | gitdir=symget('gitdir'); |
| 5 | cnt=git_status(trim(gitdir)); |
| 6 | IF cnt=-1 THEN DO; |
| 7 | put "The libgit2 library is unavailable..."; |
| 8 | END; |
| 9 | ELSE IF cnt=-2 THEN DO; |
| 10 | put "The libgit2 library is available, but..."; |
| 11 | END; |
| 12 | ELSE DO n=1 to cnt; |
| 13 | rc=GIT_STATUS_GET(n,gitdir,'PATH',path); |
| 14 | rc=GIT_STATUS_GET(n,gitdir,'STAGED',staged); |
| 15 | rc=GIT_STATUS_GET(n,gitdir,'STATUS',STATUS); |
| 16 | OUTPUT; |
| 17 | /* Debug log si activé */ |
| 18 | END; |
| 19 | rc=git_status_free(trim(gitdir)); |
| 20 | drop rc cnt; |
| 21 | RUN; |