File: DOS_USER.SJS

package info (click to toggle)
src2tex 2.12h-11
  • links: PTS, VCS
  • area: main
  • in suites: forky, sid
  • size: 2,136 kB
  • sloc: ansic: 5,679; sh: 405; makefile: 95; lisp: 46; sed: 39
file content (243 lines) | stat: -rw-r--r-- 7,758 bytes parent folder | download | duplicates (5)
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
@@Bss΁AύXĂBȂAvO
@@`ChEvZXŎsꍇAVer.5 ȍ~̂cnrł͊‹
@@̈悪ȂȂ邱Ƃ܂B̂Ƃ́AMOREENV Ȃǂ̃c
@@[Ŋ‹ϐ̈傫ƂĂB@܂AJBA-Net ɂ
@@ENV Ƃc[g΁A‹ϐ̈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