/ast/src/lib/libardir/ |
H A D | ardir.c | 32 Ardir_t* ar; local 38 if (!(ar = newof(0, Ardir_t, 1, strlen(file) + 1))) 40 strcpy(ar->path = (char*)(ar + 1), file); 41 ar->flags = flags; 42 if (((ar->fd = open(file, (flags & ARDIR_CREATE) ? (O_CREAT|O_TRUNC|O_RDWR|O_BINARY|O_cloexec) : (flags & ARDIR_UPDATE) ? (O_RDWR|O_BINARY|O_cloexec) : (O_RDONLY|O_BINARY|O_cloexec))) < 0 || fstat(ar->fd, &ar->st) || !S_ISREG(ar->st.st_mode)) && (!meth || !(flags & ARDIR_FORCE))) 44 ardirclose(ar); 73 ardirnext(Ardir_t* ar) argument 79 ardircopy(Ardir_t* ar, Ardirent_t* ent, int fd) argument 125 ardirchange(Ardir_t* ar, Ardirent_t* ent) argument 136 ardirinsert(Ardir_t* ar, const char* name, int flags) argument 147 ardirspecial(Ardir_t* ar) argument 158 ardirclose(Ardir_t* ar) argument [all...] |
H A D | Makefile | 6 ar-aix.c ar-aixbig.c ar-local.c ar-omf.c \ 7 ar-pdp11.c ar-port.c ar-s5r0.c
|
H A D | ar-port.c | 74 portclose(Ardir_t* ar) argument 80 if (!ar || !(state = (State_t*)ar->data)) 87 if (lseek(ar->fd, state->patch, SEEK_SET) != state->patch) 92 if (write(ar->fd, buf, sizeof(buf) - 1) != (sizeof(buf) - 1)) 110 portopen(Ardir_t* ar, char* buf, size_t n) argument 132 ar->error = ENOSYS; 137 ar->data = (void*)state; 139 ar->truncate = 14; 147 ar 213 ar_uid_gid(Ardir_t* ar, char* b, long* p) argument 244 portnext(Ardir_t* ar) argument 342 portchange(Ardir_t* ar, Ardirent_t* ent) argument [all...] |
H A D | ar-local.c | 43 localclose(Ardir_t* ar) argument 48 if (!ar || !(state = (State_t*)ar->data)) 66 localopen(Ardir_t* ar, char* buf, size_t n) argument 72 if (!(ar->flags & ARDIR_LOCAL)) 76 ar->data = (void*)state; 77 cmd = sfprints("${ARDIR:-ar} ${ARDIRFLAGS:-tv} '%s' 2>/dev/null", ar->path); 80 localclose(ar); 91 localnext(Ardir_t* ar) argument [all...] |
H A D | ar-s5r0.c | 30 #define MAGIC "<ar>" 72 s5r0close(Ardir_t* ar) argument 78 if (!ar || !(state = (State_t*)ar->data)) 85 if (lseek(ar->fd, state->patch, SEEK_SET) != state->patch) 90 if (write(ar->fd, &header.ar_date, sizeof(header.ar_date)) != sizeof(header.ar_date)) 104 s5r0open(Ardir_t* ar, char* buf, size_t n) argument 116 ar->data = (void*)state; 119 ar->truncate = 15; 128 s5r0next(Ardir_t* ar) argument 164 s5r0change(Ardir_t* ar, Ardirent_t* ent) argument [all...] |
H A D | ar-pdp11.c | 57 pdpclose(Ardir_t* ar) argument 61 if (ar && (state = (State_t*)ar->data)) 71 pdpopen(Ardir_t* ar, char* buf, size_t n) argument 86 ar->data = (void*)state; 89 ar->truncate = 14; 98 pdpnext(Ardir_t* ar) argument 100 State_t* state = (State_t*)ar->data; 104 if (lseek(ar->fd, state->offset, SEEK_SET) != state->offset) 106 ar 134 pdpchange(Ardir_t* ar, Ardirent_t* ent) argument [all...] |
H A D | ar-aix.c | 75 aixclose(Ardir_t* ar) argument 79 if (ar && (state = (State_t*)ar->data)) 93 aixopen(Ardir_t* ar, char* buf, size_t n) argument 106 ar->data = (void*)state; 117 aixclose(ar); 126 aixnext(Ardir_t* ar) argument 128 State_t* state = (State_t*)ar->data; 134 if (lseek(ar->fd, state->offset, SEEK_SET) != state->offset) 136 ar 223 aixchange(Ardir_t* ar, Ardirent_t* ent) argument [all...] |
H A D | ar-aixbig.c | 76 aixbigclose(Ardir_t* ar) argument 80 if (ar && (state = (State_t*)ar->data)) 94 aixbigopen(Ardir_t* ar, char* buf, size_t n) argument 107 ar->data = (void*)state; 118 aixbigclose(ar); 127 aixbignext(Ardir_t* ar) argument 129 State_t* state = (State_t*)ar->data; 135 if (lseek(ar->fd, state->offset, SEEK_SET) != state->offset) 137 ar 224 aixbigchange(Ardir_t* ar, Ardirent_t* ent) argument [all...] |
H A D | ar-omf.c | 129 static Arfile_t *ar_getnode(Ardir_t *ar, const char *name) argument 133 Dt_t *dp = ((State_t*)ar->data)->dict; 151 fp->st.mtime = ar->st.st_mtime; 152 fp->st.mode = ar->st.st_mode&(S_IRWXU|S_IRWXG|S_IRWXO); 153 fp->st.uid = ar->st.st_uid; 154 fp->st.gid = ar->st.st_gid; 165 omfclose(Ardir_t* ar) argument 167 State_t *sp = (State_t*)ar->data; 175 if(fp->flags && fp->toffset>0 && lseek(ar->fd,(off_t)fp->toffset,SEEK_SET)>0) 177 write(ar 203 omfload(Ardir_t *ar,unsigned char *base, unsigned char *last, struct Table *tp, int dmars) argument 257 omfopen(Ardir_t* ar, char* buf, size_t size) argument 364 omfnext(Ardir_t* ar) argument 399 omfinsert(Ardir_t *ar, const char *name, int op) argument 456 omfspecial(Ardir_t *ar) argument 466 omfchange(Ardir_t* ar, Ardirent_t* ent) argument [all...] |
/ast/src/cmd/paxlib/calib/ |
H A D | calib.c | 234 #define cagetbits(ar,n) ((n)<=(ar)->left? \ 235 ((((ar)->buf)>>((ar)->left-=(n)))&((1L<<(n))-1)):\ 236 _cagetbits((ar), (n))) 239 _cagetbits(Ar_t* ar, int nbits) argument 243 while (ar->left <= 8 * (sizeof(ar->buf) - 1)) 245 if (ar->count-- > 0) 247 c = *ar 263 Ar_t* ar; local 280 register Ar_t* ar; local 361 register Ar_t* ar = (Ar_t*)ap->data; local 738 register Ar_t* ar = (Ar_t*)ap->data; local [all...] |
/ast/src/cmd/pax/ |
H A D | pax-ar.c | 23 * pax ar library format 39 Ar_t* ar; local 44 if (!(ar = newof(0, Ar_t, 1, 0))) 50 ap->data = ar; 51 ar->dir = dir; 59 register Ar_t* ar = (Ar_t*)ap->data; local 61 if (ar) 63 if (ar->dir) 64 ardirclose(ar->dir); 65 free(ar); 74 register Ar_t* ar = (Ar_t*)ap->data; local 102 register Ar_t* ar = (Ar_t*)ap->data; local [all...] |
/ast/src/cmd/paxlib/zoo/ |
H A D | zoo.c | 55 register Ar_t* ar = (Ar_t*)ap->data; local 57 if (!ar) 59 free(ar); 67 register Ar_t* ar; local 71 if (!(ar = newof(0, Ar_t, 1, 0))) 73 if (ar) 74 free(ar); 77 ar->pax = pax; 78 ar->ap = ap; 79 ar 95 register Ar_t* ar = (Ar_t*)ap->data; local 258 register Ar_t* ar = (Ar_t*)ap->data; local [all...] |
/ast/src/cmd/paxlib/rar/ |
H A D | rar.c | 49 register Ar_t* ar = (Ar_t*)ap->data; local 51 if (!ar) 53 if (ar->sum) 54 sfdisc(ar->sum, SF_POPDISC); 55 free(ar); 63 register Ar_t* ar; local 67 if (!(ar = newof(0, Ar_t, 1, 0))) 69 if (ar) 70 free(ar); 73 ap->data = ar; 90 register Ar_t* ar = (Ar_t*)ap->data; local 209 register Ar_t* ar = (Ar_t*)ap->data; local [all...] |
/ast/src/cmd/paxlib/lha/ |
H A D | lha.c | 56 register Ar_t* ar = (Ar_t*)ap->data; local 58 if (!ar) 60 free(ar); 68 register Ar_t* ar; local 79 if (!(ar = newof(0, Ar_t, 1, 0))) 81 if (ar) 82 free(ar); 85 ar->pax = pax; 86 ar->ap = ap; 87 codexinit(&ar 99 register Ar_t* ar = (Ar_t*)ap->data; local 198 register Ar_t* ar = (Ar_t*)ap->data; local [all...] |
/ast/src/cmd/paxlib/arj/ |
H A D | arj.c | 52 register Ar_t* ar = (Ar_t*)ap->data; local 54 if (!ar) 56 if (ar->sum) 57 sfdisc(ar->sum, SF_POPDISC); 58 free(ar); 66 register Ar_t* ar; local 75 if (!(ar = newof(0, Ar_t, 1, 0))) 77 ar->pax = pax; 78 ar->ap = ap; 79 ap->data = ar; 109 register Ar_t* ar = (Ar_t*)ap->data; local 196 register Ar_t* ar = (Ar_t*)ap->data; local [all...] |
/ast/src/cmd/nmake/ |
H A D | archive.c | 41 Ardir_t* ar; local 47 if (!(ar = ardiropen(name, NiL, ARDIR_LOCAL))) 49 if (streq(ar->meth->name, "local")) 51 else if (!(ar->flags & ARDIR_RANLIB)) 53 ardirclose(ar); 65 walkar(register Ardir_t* ar, Dir_t* d, char* name) argument 73 d->truncate = ar->truncate; 75 while (ent = ardirnext(ar)) 79 if ((Seconds_t)ent->mtime > (Seconds_t)ar->st.st_mtime) 86 ardirchange(ar, en 125 Ardir_t* ar; local 158 Ardir_t* ar; local [all...] |
/ast/src/cmd/paxlib/tp/ |
H A D | tp.c | 66 register Ar_t* ar = (Ar_t*)ap->data; local 68 if (!ar) 71 free(ar); 79 register Ar_t* ar; local 96 if (!(ar = newof(0, Ar_t, 1, n - sizeof(Dir_t)))) 98 if (paxread(pax, ap, NiL, PAX_BLOCK, 0, 0) != PAX_BLOCK || paxread(pax, ap, ar->dir, n, 0, 0) != n) 101 free(ar); 104 ar->dp = ar->dir; 105 ar 115 register Ar_t* ar = (Ar_t*)ap->data; local [all...] |
/ast/src/cmd/paxlib/zip/ |
H A D | zip.c | 111 register Ar_t* ar = (Ar_t*)ap->data; local 113 if (!ar || !ar->vm) 115 vmclose(ar->vm); 123 register Ar_t* ar; local 137 if (!(ar = vmnewof(vm, 0, Ar_t, 1, 0))) 142 ap->data = ar; 143 ar->vm = vm; 144 ar->memdisc.key = offsetof(Mem_t, name); 149 if (!(ar 214 register Ar_t* ar = (Ar_t*)ap->data; local 307 register Ar_t* ar = (Ar_t*)ap->data; local [all...] |
/ast/src/cmd/ksh93/tests/ |
H A D | treemove.sh | 105 typeset -C -a c.ar 106 c.ar[4]=( a4=1 ) 107 typeset -m "c.ar[5]=c.ar[4]" 108 exp=$'(\n\ttypeset -C -a ar=(\n\t\t[5]=(\n\t\t\ta4=1\n\t\t)\n\t)\n)' 109 [[ $(print -v c) == "$exp" ]] || err_exit 'typeset -m "c.ar[5]=c.ar[4]" not working' 132 compound -a ar 133 moveme ar[4] a 2> /dev/null || err_exit 'function moveme fails' 135 [[ $(print -v ar) [all...] |
H A D | comvario.sh | 357 # ("compound v=( integer -A ar=( [aa]=4 [bb]=9 ) ; ) ; print -C v prints trash") 360 # ksh93 -c 'compound v=( integer -A ar=( [aa]=4 [bb]=9 ) ; ) ; print -v v' 362 # typeset -A -l -i ar=( 377 ( cmd='compound v=( integer -A ar=( [aa]=4 [bb]=9 ) ; ) ; print -C v' stdoutpattern=$'~(Alr)(.*\\[bb\\]=9.*)&(.*\\[aa\\]=4.*)' arrefname='ar' ) 378 ( cmd='compound v=( float -A ar=( [aa]=4 [bb]=9 ) ; ) ; print -C v' stdoutpattern=$'~(Alr)(.*\\[bb\\]=9.*)&(.*\\[aa\\]=4.*)' arrefname='ar' ) 379 ( cmd='compound v=( typeset -A ar=( [aa]=4 [bb]=9 ) ; ) ; print -C v' stdoutpattern=$'~(Alr)(.*\\[bb\\]=["\']*9.*)&(.*\\[aa\\]=["\']*4.*)' arrefname='ar' ) 380 ( cmd='compound v=( integer -A ar [all...] |
H A D | arrays2.sh | 142 unset ar x y 143 integer -a ar 146 do (( ar[y][x++]=i )) 149 [[ ${#ar[0][*]} == 10 ]] || err_exit "\${#ar[0][*]} is '${#ar[0][*]}', should be 10" 150 [[ ${#ar[*]} == 10 ]] || err_exit "\${#ar[*]} is '${#ar[*]}', should be 10" 151 [[ ${ar[ [all...] |
H A D | nameref.sh | 441 unset ar z 442 integer -a ar 443 nameref z=ar[0] 445 [[ ${ar[0][2]} == 3 ]] || err_exit "\${ar[0][2]} is '${ar[0][2]}' but should be 3" 446 (( ar[0][2] == 3 )) || err_exit "ar[0][2] is '${ar[0][2]}' but should be 3" 538 printf "( typeset -a ar [all...] |
H A D | types.sh | 428 function ar function 434 x=$(ar false ; ar false ; ar true ; printf ";") 435 y=$(ar false ; ar false ; ar true ; printf ";")
|
/ast/src/lib/libvgraph/ |
H A D | Makefile | 23 ar cr libgraph.a $(OBJS)
|
/ast/src/cmd/ksh93/sh/ |
H A D | trestore.c | 106 t->ar.arline = sfgetu(infile); 107 t->ar.arexpr = r_arg(shp); 108 t->ar.arcomp = 0; 109 if((t->ar.arexpr)->argflag&ARG_RAW) 110 t->ar.arcomp = sh_arithcomp(shp,(t->ar.arexpr)->argval);
|