/* devMbboDirectSoft.c */ /* base/src/dev $Id$ */ /* * Original Author: Bob Dalesio * Current Author: Matthew Needes * Date: 10-08-93 * * Experimental Physics and Industrial Control System (EPICS) * * Copyright 1991, the Regents of the University of California, * and the University of Chicago Board of Governors. * * This software was produced under U.S. Government contracts: * (W-7405-ENG-36) at the Los Alamos National Laboratory, * and (W-31-109-ENG-38) at Argonne National Laboratory. * * Initial development by: * The Controls and Automation Group (AT-8) * Ground Test Accelerator * Accelerator Technology Division * Los Alamos National Laboratory * * Co-developed with * The Controls and Computing Group * Accelerator Systems Division * Advanced Photon Source * Argonne National Laboratory * * Modification Log: * ----------------- * (log for devMbboSoft applies) * 1. 10-08-93 mcn (created) dev support for MbboDirect records */ #include #include #include #include #include #include #include #include #include #include #include /* Create the dset for devMbboSoft */ static long init_record(); static long write_mbbo(); struct { long number; DEVSUPFUN report; DEVSUPFUN init; DEVSUPFUN init_record; DEVSUPFUN get_ioint_info; DEVSUPFUN write_mbbo; }devMbboDirectSoft={ 5, NULL, NULL, init_record, NULL, write_mbbo }; static long init_record(pmbbo) struct mbboDirectRecord *pmbbo; { long status = 0; /* dont convert */ status = 2; return status; } /* end init_record() */ static long write_mbbo(pmbbo) struct mbboDirectRecord *pmbbo; { long status; status = dbPutLink(&pmbbo->out,DBR_USHORT,&pmbbo->val,1); return(0); }