JHF-Linac $B$G$N(B Epics application $B3+H/$N(B Second step

k.f, jul.19.1999. k.f, jul.21.1999.

$B?7$7$$(B Device support code $B$r:n@.$7$F$_$k!#(B
Epics Device Record $B$r:n@.$7$F$_$k!#(B
Epics Device Support $B$r;n83$7$F$_$k!#(B $B!J0J2<$G$O!"(Bcsh $B$^$?$O(B tcsh $B$N;HMQ$r2>Dj$7$F$$$k!#B>$N(B shell $B$r;HMQ$9(B $B$k>l9g$OE,59(B command $B$rCV$-49$($k$3$H!#(B top $B$O(B 1 $B$G:n@.$7$?;n83MQ$N(B directory $B$G!"(Busername $B$O(B user $BL>$G$"$k!#!K(B
[ Epics Device support $B$r:n@.$7;HMQ$9$k(B ]

1-1 $B$GMQ0U$7$?(B Application $B:[email protected]$N(B Directory $B$K(B Record Reference Manual $B$r;29M$K$7$J$,$i!"(B $B?7$7$$(B Device support $B$r:n$C$F$_$k!#(B
$B?7$7$$l9g$K$O!"(B $B$3$N(B Device support $B$NDI2C$,I,MW$K$J$k!#(B $BI8=`$G;HMQ2DG=$J(B EPICS $B$N(B Device support $B$O8B$i$l$F$$$k(B $B!JJF9q@=$N$b$N$,B?$$!K$N$G!"(BMailing-list $BEy$GC5$7$F$_$F8+$D$+$i$J$+$C$?$i!"(B Device support $B$rDI2C$9$kI,MW$,$"$k!#(B
$B$A$J$_$K!"(BRecord support $B$K$D$$$F$O!"(B $B@)8fBP>]$,Bg5,LO!"$^$?$OJ#;($G$J$$>l9g$O!"(B $BI8=`$N(B Record support $B$KDI2C$r$7$J$/$F$b!"(B $B@)8f7O$r9=C[$9$k$3$H$,$G$-$k$H;W$o$l$k!#(B $B$b$A$m$s!"?7$7$$5!G=$r5a$a$?$j!"8zN($r9M$($k>l9g$K$O$3$N8B$j$G$O$J$$!#(B

[ 1. Epics Device support code $B$r:n@.$9$k(B ]
$B$^$:!"(BDevice support $B$N$?$a$N(B source code $B$r:n@.$9$k!#(B
```
% cd $top/exampleApp/src
```
Device support $B$NNc$r8+$J$,$i(B source code $B!"Nc$($P!"(B
```
devXxNewDev.c
```
$B$r:n@.$9$k!#(BHeader file $B$r:n@.$9$k>l9g$K$O!"(B $B$3$N(B directory $B$G$O$J$/$F!"(B $top/include $B$K!"Nc$($P!"(B
```
devXxNewDev.h
```
$B$r:n@.$9$k!#(B
Device support $B$NNc$O!"F1$8(B directory $B$K(B devXxxSoft.c $B$H$$$&Nc$,$"$j!"(B $B$^$?!"B>$N(B Device support $B$N(B source code $B$,(B $EPICS/base/src/dev $B0J2<$KB??t$"$k!#(B
$B$5$i$K!"(BMakefile.Vx $B$K(B
```
LIBOBJS += devXxNewDev.o
```
$B$rDI2C$7!"(B exampleInclude.dbd $B$K!"Nc$($P(B
```
device(xx,INST_IO,devXxNewDev,"New Device")
```
$B$rDI2C$9$k!#(B
Device support code $B$,$G$-$?$i!"(Bmake $B$r9T$J$C$F$_$k!#(B
```
% cd $top
% make
```
make $B$N4V$K(B Error Message $B$,=PNO$5$l$?>l9g$K$O!"(B $B$=$N(B Message $B$K=>$C$FLdBj$r=$@5$7!"(Bmake $B$r7+$jJV$9!#(B
make $B$K$h$C$F!"(BDevice support code $B$O(B Compile $B$5$l$F!"(B $BB>$N(B IOC $B$N(B code $B$H$H$b$K(B iocCore $B$H$$$&(B File $B$K$J$j!"(B $top/bin/pcore750 $B$KCV$+$l$k!#(B
[ 2. Epics Device Record $B$r:n@.$9$k(B ]
Device support code $B$,$G$-$?$i!"$=$l$r;n83$9$k$?$a$N(B Record $B$r:n@.$9$k!#(B
```
% cd $top/exampleApp/Db
```
dbExample1.db $B$^$?$O(B dbExample2.template $B$K?7$7$$(B Record $B$rDI2C$7!"(B $B;n83MQ$N(B Database $B$r:n@.$9$k!#(B
$B$3$l$i$N(B Database $B$N(B source file $B$O!"(B $BDL>o$N(B Text editor $B$GJT=8$9$k$3$H$b$G$-$k$,!"(B $BNc$($P!"(Bdct2 (dct313) $B$J$I$r;HMQ$9$k$H!"(B $BB?>/4V0c$$$r8:$i$9$3$H$,$G$-$k>l9g$b$"$k!#(B dct2 $B$ONc$($P!"(B
```
dct313 $top/dbd/exampleApp.dbd dbExample1.db
```
$B$H$7$F5/F0$7!"(B"Save ... only non-default values" $B$G7k2L$rJ]B8$9$k!#(B
Database $B$OJL$N(B File $B$H$7$F:n@.$9$k$3$H$b$G$-$k$,!"$=$N>l9g$O!"(B $B$3$N(B directory $B$N(B Makefile.Host, $B$H(B $B$"$H$G=P$F$/$k(B $top/iocBoot/iocexample/st.cmd $B$rDI2C=$@5$9$k!#(B Device support code $B$H(B database $B$,$G$-$?$i!"(BIOC $B$K(B load $B$G$-$k$h$&$K!"(B make $B$r9T$J$&!#(B
```
% cd $top
% make
```
make $B$K$h$C$F!"(B Database $B$OE83+$5$l$F!"(B$top/db $B$KCV$+$l$k!#(B
[ 3. Epics Device Support $B$r;n83$9$k(B ]
$B$3$l$i$N(B Device support code $B$H(B Record database $B$r!"(BIOC $B$K(B load $B$9$k!#(B $BNc$($P!"(BIOC $B$N(B shell $B$N(B prompt $B$KBP$7$F(B $B!J0J2<$N(B $top $B$O(B top $B$N;X$9FbMF$H!"(B$user $B$O(B user $BL>$HCV$-49$($k!K(B
```
cd "$top/iocBoot/iocexample"
< st.cmd
```
$B$^$?$O!"(B
```
cd "$top/iocBoot/iocexample"
< cdCommands
cd appbin
ld < iocCore
ld < seq
ld < exampleLib
cd startup
dbLoadDatabase("../../dbd/exampleApp.dbd")
dbLoadRecords("../../db/dbExample1.db","user=$user")
dbLoadRecords("../../db/dbExample2.db")
iocInit
seq &snctest
```
$B$3$l$i$NA`:n$N4V$K(B Error Message $B$,=PNO$5$l$?>l9g$K$O!"(B $B$=$N(B Message $B$K=>$C$FLdBj$r=$@5$7!"(Breboot $B$H(B load $B$r7+$jJV$9!#(B
load [email protected]$7$?$i!"(Bcaget/caput $B$J$I$r;H$C$F!"(BRecord $B$N;n83$r$7$F$_$k!#(B $B;W$$DL$j$KF0:n$7$J$1$l$P!"LdBj$r=$@5$7!"(Breboot $B$H(B load $B$r7+$jJV$9!#(B
```
...
```
[ $B;29M;qNA(B ]
<[email protected]> , Jul.19.1999. - Jul.21.1999.

JHF-Linac $B$G$N(B Epics application $B3+H/$N(B Second step

[ Epics Device support $B$r:n@.$7;HMQ$9$k(B ]

[ 1. Epics Device support code $B$r:n@.$9$k(B ]

[ 2. Epics Device Record $B$r:n@.$9$k(B ]

[ 3. Epics Device Support $B$r;n83$9$k(B ]

[ $B;29M;qNA(B ]

JHF-Linac $B$G$N(B Epics application $B3+H/$N(B Second step

[ Epics Device support $B$r:n@.$7;HMQ$9$k(B ]

[ 1. Epics Device support code $B$r:n@.$9$k(B ]

[ 2. Epics Device Record $B$r:n@.$9$k(B ]

[ 3. Epics Device Support $B$r;n83$9$k(B ]

[ $B;29M;qNA(B ]