|
DataMuseum.dkPresents historical artifacts from the history of: DKUUG/EUUG Conference tapes |
This is an automatic "excavation" of a thematic subset of
See our Wiki for more about DKUUG/EUUG Conference tapes Excavated with: AutoArchaeologist - Free & Open Source Software. |
top - metrics - downloadIndex: T s
Length: 857 (0x359) Types: TextFile Names: »sys.c«
└─⟦52210d11f⟧ Bits:30007239 EUUGD2: TeX 3 1992-12 └─⟦c319c2751⟧ »unix3.0/TeX3.0.tar.Z« └─⟦036c765ac⟧ └─⟦this⟧ »TeX3.0/TeXgraphics/transfig/transfig/sys.c« └─⟦52210d11f⟧ Bits:30007239 EUUGD2: TeX 3 1992-12 └─⟦63303ae94⟧ »unix3.14/TeX3.14.tar.Z« └─⟦c58930e5c⟧ └─⟦this⟧ »TeX3.14/TeXgraphics/transfig/transfig/sys.c«
#include <stdio.h> #include "transfig.h" #define MAXSYS 1000 static char sysbuf[MAXSYS]; char *sysls() { FILE *ls; int i; char c; ls = popen("/bin/ls *.fig", "r"); i = 0; c = fgetc(ls); while (c != EOF & i < MAXSYS-1) { sysbuf[i] = c; i += 1; c = fgetc(ls); } sysbuf[i] = NULL; return sysbuf; } sysmv(f) char *f; { sprintf(sysbuf, "%s~", f); unlink(sysbuf); if (!link(f, sysbuf)) unlink(f); } char *strip(str, suf) char *str, *suf; { char *p1, *p2; for (p1 = &str[strlen(str)-1], p2 = &suf[strlen(suf)-1]; (p1 >= str && p2 >= suf) && (*p1 == *p2); --p1, --p2); if (p2 < suf) { *(p1+1) = NULL; return str; } else return NULL; } char *mksuff(name, suff) char *name, *suff; { char *temp; temp = (char *)malloc(strlen(name)+strlen(suff)+1); strcpy(temp, name); strcat(temp, suff); return temp; }