Cross Reference: /osnet-11/usr/src/cmd/perl/5.8.4/distrib/doio.c

Lines Matching defs:type
94     char *type  = NULL;
199         type = Nullch;
200 	fp = PerlIO_openn(aTHX_ type, mode, -1, rawmode, rawperm, NULL, num_svs, svp);
210 	type = savepvn(name, len);
211 	tend = type+len;
212 	SAVEFREEPV(type);
216         for (; isSPACE(*type); type++) ;
217         while (tend > type && isSPACE(tend[-1]))
221 	    /* New style explicit name, type is just mode and layer info */
238 	    name = type;
239 	    len  = tend-type;
241 	IoTYPE(io) = *type;
242 	if ((*type == IoTYPE_RDWR) && /* scary */
243            (*(type+1) == IoTYPE_RDONLY || *(type+1) == IoTYPE_WRONLY) &&
244 	    ((!num_svs || (tend > type+1 && tend[-1] != IoTYPE_PIPE)))) {
246 	    mode[1] = *type++;
250 	if (*type == IoTYPE_PIPE) {
252 		if (type[1] != IoTYPE_STD) {
256 		type++;
259 	    for (type++; isSPACE(*type); type++) ;
261 		name = type;
262 		len = tend-type;
292 		if (*type) {
293 		    if (PerlIO_apply_layers(aTHX_ fp, mode, type) != 0) {
299 	else if (*type == IoTYPE_WRONLY) {
301 	    type++;
302 	    if (*type == IoTYPE_WRONLY) {
305 		type++;
317 	    if (*type == '&') {
320 		type++;
321 		if (*type == '=') {
323 		    type++;
325 		if (!num_svs && !*type && supplied_fp) {
334 		    for (; isSPACE(*type); type++) ;
339 		    else if (isDIGIT(*type)) {
340 			fd = atoi(type);
349 			    thatgv = gv_fetchpv(type,FALSE,SVt_PVIO);
393 			type = Nullch;
402 			if (!(fp = PerlIO_openn(aTHX_ type,mode,fd,0,0,NULL,num_svs,svp))) {
411 		for (; isSPACE(*type); type++) ;
412 		if (*type == IoTYPE_STD && (!type[1] || isSPACE(type[1]) || type[1] == ':')) {
414 		    type++;
423 			namesv = sv_2mortal(newSVpvn(type,strlen(type)));
426 		        type = Nullch;
428 		    fp = PerlIO_openn(aTHX_ type,mode,-1,0,0,NULL,num_svs,svp);
431 	    if (!fp && type && *type && *type != ':' && !isIDFIRST(*type))
434 	else if (*type == IoTYPE_RDONLY) {
436 	    for (type++; isSPACE(*type); type++) ;
443 	    if (*type == '&') {
446 	    if (*type == IoTYPE_STD && (!type[1] || isSPACE(type[1]) || type[1] == ':')) {
448 		type++;
457 		    namesv = sv_2mortal(newSVpvn(type,strlen(type)));
460 		    type = Nullch;
462 		fp = PerlIO_openn(aTHX_ type,mode,-1,0,0,NULL,num_svs,svp);
464 	    if (!fp && type && *type && *type != ':' && !isIDFIRST(*type))
468 		  type[0] == IoTYPE_STD && type[1] == IoTYPE_PIPE) ||
469 	         (!num_svs && tend > type+1 && tend[-1] == IoTYPE_PIPE)) {
471 		type += 2;   /* skip over '-|' */
475 		while (tend > type && isSPACE(tend[-1]))
478 		for (; isSPACE(*type); type++) ;
479 		name = type;
480 	        len  = tend-type;
505 		for (; isSPACE(*type); type++) ;
506 		if (*type) {
507 		    if (PerlIO_apply_layers(aTHX_ fp, mode, type) != 0) {
516 	    name = type;
531 		    namesv = sv_2mortal(newSVpvn(type,strlen(type)));
534 		    type = Nullch;
536 		fp = PerlIO_openn(aTHX_ type,mode,-1,0,0,NULL,num_svs,svp);
564      * type probe for socket-ness.
583 	    && IoTYPE(io) != IoTYPE_RDONLY  /* type so they aren't marked as sockets */
691 	    if (!(IoOFP(io) = PerlIO_openn(aTHX_ type,s,fd,0,0,NULL,0,svp))) {
1611 Perl_apply(pTHX_ I32 type, register SV **mark, register SV **sp)
1636     switch (type) {