== Application作成; Socket I/O ==
KEITHLEY 2701を例に; EPICS R3.14.9での作業ログ（R3.14.12以降では不要の部分もあり）


作業ディレクトリ作成
{{{
pfrproc2:~ % mkdir /users/obina/epics/app/Keith2701
pfrproc2:~ % cd /users/obina/epics/app/Keith2701
}}}

テンプレートとしてiocを使用。
{{{
pfrproc2:Keith2701 % makeBaseApp.pl -t ioc keith2701

pfrproc2:Keith2701 % makeBaseApp.pl -i -t ioc keith2701
The following target architectures are available in base:
    linux-x86
    linux-x86_64
What architecture do you want to use? linux-x86_64
The following applications are available:
    keith2701
What application should the IOC(s) boot?
The default uses the IOC's name, even if not listed above.
Application name?
}}}

{{{
pfrproc2:Keith2701 % vi configure/RELEASE

SNCSEQ=$(EPICS_BASE)/../modules/soft/seq/2.0.11
ASYN=$(EPICS_BASE)/../modules/soft/asyn/4-11
STREAM=$(EPICS_BASE)/../modules/soft/stream/2-5
}}}

この段階でエラーが出ないかどうか確認
{{{
pfrproc2:Keith2701 % make
}}}
問題無ければ、いちど全て削除する
{{{
pfrproc2:Keith2701 % make distclean
}}}

srcディレクトリで作業
{{{
pfrproc2:Keith2701 % cd keith2701App/src/
}}}


dbdファイル作成(Socket I/Oのみならば、Serial...とvxi11...の２行は不要だが、ついでに書いてしまう)
{{{
pfrproc2:src % vi K2701.dbd
registrar(drvAsynIPPortRegisterCommands)
registrar(drvAsynSerialPortRegisterCommands)
registrar(vxi11RegisterCommands)
}}}

Makefile編集; 順序に注意。stream.dbdより前にaai,aaoを追加すること。(R3.14.12では不要になる)
{{{
pfrproc2:src % vi Makefile

keith2701_DBD += base.dbd
keith2701_DBD += aaiRecord.dbd
keith2701_DBD += aaoRecord.dbd
keith2701_DBD += asyn.dbd
keith2701_DBD += stream.dbd
keith2701_DBD += K2701.dbd

keith2701_LIBS += asyn
keith2701_LIBS += stream

}}}

プロトコルファイル作成
{{{
pfrproc2:src % cd ../Db/
pfrproc2:Db % vi K2701.proto

Terminator = CR LF;
#
getIDN {
    out "*IDN?";   in "%39c";
}
}}}

Dbファイル作成
{{{
pfrproc2:Db % vi test.db

record(stringin, "obina:idn")
{
    field(DESC, "get IDN")
    field(DTYP, "stream")
    field(INP,  "@K2701.proto getidn PS1")
}

同じディレクトリのMakefileに
DB += test.db
を追加
}}}

application top で makeをかける
{{{
pfrproc2:Db % cd ../..
pfrproc2:Keith2701 % make
}}}


startup script編集
{{{
pfrproc2:Keith2701 % cd iocBoot/iockeith2701
pfrproc2:iockeith2701 % vi st.cmd

dbLoadRecords("db/test.db")
epicsEnvSet("STREAM_PROTOCOL_PATH", ".:../../keith2701App/Db")
drvAsynIPPortConfigure ("PS1", "172.28.8.244:1394")

pfrproc2:iockeith2701 % chmod +x st.cmd
pfrproc2:iockeith2701 % ./st.cmd


epics> dbpf obina:idn.PROC 1
DBR_UCHAR:          1         0x1
epics> 2012/05/09 00:58:24.682 PS1 obina:idn: 16 bytes surplus input "0912,A09  /A02  "
2012/05/09 00:58:24.682 PS1 obina:idn: after 40 bytes "... INC.,MODEL 2701,111"

stringinは40文字までだが、Keithleyが返してくる文字列が長いのでエラーが出るが気にしない。

eepics> dbpr obina:idn
ASG:                DESC: get IDN       DISA: 0             DISP: 0
DISV: 1             NAME: obina:idn     SEVR: INVALID       STAT: CALC
SVAL:               TPRO: 0
VAL: KEITHLEY INSTRUMENTS INC.,MODEL 2701,11

}}}