view release on metacpan or  search on metacpan

CtCmd.xs  view on Meta::CPAN

        blok_reset (outP);
        out_rtn = cmdout;
    }
/* is standard err wanted? */
    if (errP == STANDARD)
        err_rtn = NULL;
    else if (errP == DEVNULL)
        err_rtn = silent;
    else {
        blok_reset (errP);
        err_rtn = cmdout;
    }
    imsg_set_app_name("ClearCase::CtCmd");
    imsg_redirect_output (out_rtn, outP, err_rtn, errP);
    return 
	(
	    cmdsyn_execv_dispatch (
		argc,
		argv, 
		area,
		a_cmdsyn_cmdflags,
		a_cmdsyn_proc_table
	    ) == 
	    T_OK
	);
}

int status;

MODULE = ClearCase::CtCmd	PACKAGE = ClearCase::CtCmd	PREFIX=cmd_	
PROTOTYPES: ENABLE

int
unsetview(...)
  CODE:
	int n_ok = 0;
	if (items > 0) { 
		if(sv_isobject(ST(0)) && items == 1) {
 			/* OK */
		}
		else {
 			fprintf(stderr,"WARNING: View was not unset. Usage: unsetview()\n");
			 n_ok = 1;
		}
		
	};
	if (n_ok) {
		RETVAL = 1;
	} else {
#ifndef ATRIA_WIN32_COMMON
             RETVAL = view_set_current_view(NULL);
#else
             fprintf(stderr,"ERROR: unsetview() not available in Win32\n");
             RETVAL = 1;
#endif 
	}
  OUTPUT:
	RETVAL

int
cmdstat()
  CODE:
	RETVAL = status;
  OUTPUT:
	RETVAL

int
version()
  CODE:
	/*
	 * This method has the side effect of explicitly referencing
	 * all of the libraries that are needed at runtime. Since CtCmd.so
	 * is dynamically loaded into perl it is highly likely that the
	 * CC core libraries haven't been loaded. So a mechanism is needed
	 * to cause the linker to build in the full list of libraries
	 * that need to be loaded when CtCmd.so is loaded.
	 */
#if 0 /* Can't use since we can't use the CppPerlSharedLibRulePlusLibsVer linker macro on windows */
	TBS_VER_PRINT_VERID (CtCmd);
#endif
	TBS_VER_PRINT_VERID (libatriaadm);
	TBS_VER_PRINT_VERID (libatriaccfs);
	TBS_VER_PRINT_VERID (libatriacm);
	TBS_VER_PRINT_VERID (libatriacmd);
	TBS_VER_PRINT_VERID (libatriacmdsyn);
	TBS_VER_PRINT_VERID (libatriacredmap);
	TBS_VER_PRINT_VERID (libatriadbrpc);
	TBS_VER_PRINT_VERID (libatriaks);
	TBS_VER_PRINT_VERID (libatriamsadm);
	TBS_VER_PRINT_VERID (libatriamsinfobase);
	TBS_VER_PRINT_VERID (libatriamvfs);
	TBS_VER_PRINT_VERID (libatriasquidad);
	TBS_VER_PRINT_VERID (libatriasquidcore);
	TBS_VER_PRINT_VERID (libatriasum);
	TBS_VER_PRINT_VERID (libatriasumcmd);
#if defined(ATRIA_HAS_CMI)
	TBS_VER_PRINT_VERID (libatriacmi);
	TBS_VER_PRINT_VERID (libatriajson);
#endif
	TBS_VER_PRINT_VERID (libatriatbs);	
	TBS_VER_PRINT_VERID (libatriaview);
	TBS_VER_PRINT_VERID (libatriavob);
	TBS_VER_PRINT_VERID (libatriaxdr);
#ifndef ATRIA_WIN32_COMMON
	TBS_VER_PRINT_VERID (libatriamntrpc);
	TBS_VER_PRINT_VERID (libatriasplit);
#endif
	RETVAL = 1;
  OUTPUT:
	RETVAL

int
exec(...)
  PPCODE:
	int gimme = GIMME_V;
	int debug = 0;
	int is_object;
	HV* myhash;
	SV** out_p;
	SV** err_p;
	BLOK out;