1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 101 102 103 104 105 106 107 108 109 110 111 112 113 114 115 116 117 118 119 120 121 122 123 124 125 126 127 128 129 130 131 132 133 134 135 136 137 138 139 140 141 142 143 144 145 146 147 148 149 150 151 152 153 154 155 156 157 158 159 160 161 162 163 164 165 166 167 168 169 170 171 172 173 174 175 176 177 178 179 180 181 182 183 184 185 186 187 188 189 190 191 192 193 194 195 196 197 198 199 200 201 202 203 204 205 206 207 208 209 210 211 212 213 214 215 216 217 218 219 220 221 222 223 224 225 226 227 228 229 230 231 232 233 234 235 236 237 238 239 240 241 242 243
|
============= DOS_USER.SJS =========================================
cnr src2tex gpցF
^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
V삳 src2tex ̃\[X̂ŁA DynaBookEZ486
ɃCXg[悤Ǝv܂igpnrFœpcnr V5jBt
@C𓀂ADJGCC ɂƉ̖Ȃ make dos ɐ܂
BE PC9801 Turbo C ł܂Ał͂tmhw`
̃t@Ccnr`ɕϊĂsȂƃG[ɂȂ܂B
Makefile ܂BWarning ЂƂł܂A
肠st@Cł悤łB
src2tex ͓{R[hƂ EUC OƂĂ邽߁Alr|cnr
Ŏg߂ɂ́A炩߃R[hϊĂKv܂B
Ⴆ nkf ȂǂpӂĂ
nkf -e sample.c | src2tex | nkf -s > sample.tex
tex sample
ƂΊȒPɎsł܂A̕@ł src2tex Ƀt@Cn
܂By[W̉EɃt@C\Ƃ͉ src2dvi.
bat Ƃob`t@Cgƕ֗łBƂA
@@@@src2dvi sample.c
ȂǂƂAsample.tex JgEfBNgɍA TeX
N sample.dvi ܂B
Aӂ_܂B
^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
PDgpst@Cɂ킹ăob`t@CĂ
@@B src2tex.exe, tex.exe gp悤ɂȂĂ܂BK
@@vɉ
@@@@@src2tex -> src2ltex, go32 src2tex, .....
@@@@@tex -> jtex, latex, jlatex, ......
@@̂悤ɂ܂B
QDΏۃt@ĈfBNgJgfBNgɂĎs
@@܂BƂAc:\ ɂāAsrc2dvi d:\sample.c ȂǂƂȂł
@@B
RDsɂ BU.COM (Batch Utility) NKF.EXE ( Network Kanji
@@Filter) ܂͗ގ̃\tgEFAKvłBBU10?.LZH ͑傫Ȃa
@@arł݂Ǝv܂BJBA-Net ɂ͂܂BAXL[́uG
@@t[\tgEFAPOOIvɂ͂Ă܂Bnkf internet
@@ news łƂǂV݂̂܂BuUNIX USERv
@@PXXSNNo.10̕t^bc|qnl fj.binaries.msdos ̂Ƃ
@@ NKF94701.LZH ͂Ă܂B
SDpJ^JiĂꍇ́A܂ASpɒĂs
@@傤BɓYt kana.sed gpƕ֗łB
@@@@sed -f kana.sed input_file > output_file
@@ŁAϊł܂B̑ApɂɍsKvƂ́ÃX
@@ebvob`t@Cɑgݍ݂܂傤B
TDgq .tex ̃t@Cꍇ́i{ꏈ̌jUe
@@|ȃfBNgɊgq苎OŃRs[A
@@src2tex ɂĂ܂BEvr[̍ۍʼñt@C
@@gqȂ̂ɂȂ܂A src2dvi.bat ̎dlłB
@@B܂̂ƂAꂽ .tex t@C͌̃t@C
@@c߂ɁATeX ̎s܂B炩̗Rłc
@@ꍇ́A tex2tex.bat ̕gĂBTufBN
@@g __SRC2 ̒ɎcĂ͂łB܂Agq .log ̃t
@@@C src2dvi.bat ŏꍇATeX ̍ log t@C
@@ď㏑̂h߁A TeX ̍ log t@C͏
@@܂B
UDsrc2tex sĂł .tex t@CƓ̃t@Cłɑ
@@݂ꍇA㏑Ă悢˂悤ɂ邱Ƃł܂Bo
@@b`t@C̎wĂ镔̍s REM 폜ĂB
VDdvi t@Cvr[悤ɃR}hljƕ֗łB
WDob`t@Cł SRC ƂϐgpĂ܂Bss
@@AύXĂB ܂AJgEfBNg̉
@@__src2 Ƃe|ȃTufBNgčƂs
@@BssAύXĂBȂAvO
@@`ChEvZXŎsꍇAVer.5 ȍ~̂cnrł͊
@@̈悪ȂȂ邱Ƃ܂B̂Ƃ́AMOREENV Ȃǂ̃c
@@[Ŋϐ̈傫ƂĂB@܂AJBA-Net ɂ
@@ENV Ƃc[gAϐ̈TCYgpʂȒPɂ킩
@@܂BǐɊւĂ DynaBook Net ̊FɐFX܂
@@BɊϐ̈TCY`FbN镔́@@
@@ob`t@CA܂˂Ă܂Bj
XDVer.3 cnrŎgꍇ́Aob`t@C擪 @ Ƃ
@@Bi̊mF͂Ă܂j
gŃvOƂ͖őɂȂ̂łA낢ȃt@C
idq[ȂǁjꂢɈ̂ɂƂĂdĂ܂B
g̗prɍ킹ob`t@Cł̂ŁAsKvȕ
܂BRɏC邢͍ŏ珑낵ĂB
R@V@UNPOQX
(H7.2.18 ꕔC)
internet : myamasa@tansei.cc.u-tokyo.ac.jp
yamasaki@crescent.josai.ac.jp
DynaBook NeT: DY312847
JBA-Net : JBA42253
src2dvi.bat:
--------------------- cut here ---------------------
@ECHO OFF
IF EXIST %1 GOTO checkenv
ECHO ..... cannot find "%1"!!
GOTO end
:checkenv
SET SRC=12345678
IF "%SRC%"=="12345678" GOTO getname
ECHO Not enough ENVIRONMENT SIZE!
GOTO end
:getname
BU -nSRC -c STRTOKFILE %1
md __src2
ECHO ...... now converting to EUC ......
nkf -e %1 > __src2\%1
cd __src2
IF EXIST %SRC%.tex GOTO exterror
IF EXIST %SRC%.log GOTO exterror
src2tex %1
cd ..
REM Uncomment the following 5 lines, if you like.
REM IF NOT EXIST %SRC%.tex GOTO shori
REM ECHO A file named "%SRC%.tex" already exists!
REM BU KEYYESNO Overwrite %SRC%.tex? (Y/N)
REM IF ERRORLEVEL 1 GOTO end
REM :shori
ECHO ...... now converting to Shift-JIS ......
nkf -s __src2\%SRC%.tex > %SRC%.tex
del __src2\%SRC%.tex
del __src2\%1
rd __src2
TeX %SRC%
GOTO preview
:exterror
ren %1 %SRC%
src2tex %SRC%
del %SRC%
ren %SRC%.tex %SRC%
ECHO ...... now converting to Shift-JIS ......
nkf -s %SRC% > %SRC%.tex
tex %SRC%
cd ..
copy __src2\%SRC%.dvi %SRC%.dvi
del __src2\%SRC%
del __src2\%SRC%.tex
del __src2\%SRC%.log
del __src2\%SRC%.dvi
rd __src2
:preview
REM DVIOUT %SRC%
:end
set SRC=
--------------------- cut here ---------------------
tex2tex.bat:
--------------------- cut here ---------------------
@ECHO OFF
SET SRC=12345678
IF "%SRC%"=="12345678" GOTO getname
ECHO Not enough ENVIRONMENT SIZE!
GOTO end
:getname
BU -nSRC -c STRTOKEXT %1
BU STRICMP %SRC% TeX
IF ERRORLEVEL 1 GOTO wrongext
IF EXIST %1 GOTO shori
ECHO "%1" does not exist!
GOTO end
:wrongext
BU -nSRC -c STRTOKFILE %1
IF EXIST %SRC%.tex GOTO suggest
ECHO NO SUCH FILE!
GOTO end
:suggest
ECHO The extension of "%1" is not "TEX"!
BU KEYYESNO Do you mean "%SRC%.tex"? (Y/N)
IF ERRORLEVEL 1 GOTO end
ECHO.
:shori
BU -nSRC -c STRTOKFILE %1
md __src2
ECHO ...... now converting to EUC ......
nkf -e %SRC%.tex > __src2\%SRC%
cd __src2
src2tex %SRC%
del %SRC%
ren %SRC%.tex %SRC%
ECHO ...... now converting to Shift-JIS ......
nkf -s %SRC% > %SRC%.tex
del %SRC%
tex %SRC%
:preview
REM dviout %SRC%
REM cd ..
:end
set SRC=
--------------------- cut here ---------------------
end of tex2tex.bat
kana.sed:
--------------------- cut here ---------------------
# kana.sed
# pJ^JiSpɕϊ
# sed -f kana.sed input > output
s//K/g
s//M/g
s//O/g
s//Q/g
s//S/g
s//U/g
s//W/g
s//Y/g
s//[/g
s//]/g
s//_/g
s//a/g
s//d/g
s//f/g
s//h/g
s//p/g
s//s/g
s//v/g
s//y/g
s//|/g
s//o/g
s//r/g
s//u/g
s//x/g
s//{/g
y//BuvAE@BDFHb[ACEGI/
y//JLNPRTVXZ\^`cegijklm/
y//nqtwz}~JK/
# end of kana.sed
----------------------- cut here -------------------------
end of kana.sed
|