설명
슬롯 사이트 추천 모델 라이브러리 파일을 생성합니다.
소형 슬롯 사이트 추천 유형 :슬롯 사이트 추천
카테고리 : 슬롯 사이트 추천 모델 라이브러리
메인 파일 : gamshtm.gms 포함: gamsmod.inc gamsref.inc
$title은 HTM 모델 라이브러리 파일을 생성합니다(GAMSHTM,SEQ=215)
$onText
HTM 모델 라이브러리 파일을 생성합니다.
슬롯 사이트 추천 Development Corporation, 모델링 도구 상자.
모델 세트에 대한 모든 .htm 관련 파일을 생성합니다.
gamsmod.inc에서 찾을 수 있습니다. 미공개 및
지원되지 않는 PUT_Utilities 기능.
gamsmod.inc 파일은 다른 모든 파일의 마스터 파일입니다.
파생된 파일.
생성된 파일:
seqindx.htm
subindx.htm
modlist.tex
alfindx.htm
*.htm(모든 모델 및 포함 파일)
$include되고, 읽고 쓰여진 모든 파일은 동일해야 합니다.
디렉토리. 이 프로그램은 다른 위치에서 실행될 수 있습니다
슬롯 사이트 추천 매개변수 U1을 사용하여 예를 들면 다음과 같습니다.
>슬롯 사이트 추천 gamshtm.215 U1=c:\oldd\alex\슬롯 사이트 추천\gamslib\ver008\test\
키워드: 슬롯 사이트 추천 언어 기능, 슬롯 사이트 추천 모델 라이브러리, htm 파일 생성
$offText
$setGlobal gamslib '%슬롯 사이트 추천u1%'
파일
htm 'HTML 파일 핸들' / htm.htm /
seqindx 'HTML 시퀀스 인덱스' / '%gamslib%seqindx.htm' /
subindx 'HTML 주제 색인' / '%gamslib%subindx.htm' /
alfindx 'HTML 알파 인덱스' / '%gamslib%alfindx.htm' /
modlist 'TeX 주제 색인' / '%gamslib%modlist.tex' /;
스칼라 우선;
$off목록
$include "%gamslib%gamsmod.inc"
$onListing
*
* 모델 HTML 파일
*
htm을 넣어;
htm.pw = 4096;
htm.lcase = 1;
루프(sm(s,m),
put_utilities 'ren'/ '%gamslib%' m.tl:0 '.htm';
put '<html> <head> <title>' m.tl:0 '.gms</title>'
/ '<!--#include virtual="/header.html" -->'
/ '<h2>'m.tl:0 '.gms : 'm.te(m) '</h2>';
넣다 / '<시간>';
put_utilities 'htm'/ '%gamslib%' m.tl:0 '.' s.tl:0;
넣다 / '<시간>';
if(big(s), '대형'을 입력; 그렇지 않으면 '소형'을 입력;);
'유형 모델'을 입력합니다.
put$(sum(ts(t,s),1)>1) 's';
넣어 ':';
htm.lcase = 2;
loop(tss(t,s), put ' ' t.tl;);
htm.lcase = 1;
loop(ts(t,s)$(tss(t,s) 아님), ' ' t.tl;);
첫 번째 = 1;
루프(incmap(inc,s),
만약(먼저,
put ' 다음을 포함합니다:'; 첫 번째 = 0;);
put$(bininc(inc) 아님) ' <a href="' inc.tl:0 '.htm">' inc.tl:0 '</a>';
put$bininc(inc) ' <a href="' inc.tl:0 '">' inc.tl:0 '</a>';
);
'<시간>'을 넣어
/ '<일반 텍스트>'
/ '<!--#include virtual="%gamslib%' m.tl:0 '.' s.tl:0 '" -->';
* < > 교체를 수행하거나 일반 텍스트를 사용합니다.
* / '</pre>'
* / '<!--#include virtual="/footer.html" -->'
* / '</html>'
);
*
* htm 파일 포함
*
루프(inc$(bininc(inc)가 아님)),
put_utilities 'ren'/ '%gamslib%' inc.tl:0 '.htm';
put '<html> <head> <title>' inc.tl:0 '</title>'
/ '<!--#include virtual="/header.html" -->'
/ '<h2>'inc.tl:0 ' : ' inc.te(inc) '</h2>'
/ '<hr> <p> 사용처:';
루프((incmap(inc,s),sm(s,m)),
' 를 넣어 <a href="' m.tl:0 '.htm">' m.tl:0 '.gms</a>';);
넣다 / '</p> <hr>'
/ '<사전>'
/ '<!--#include virtual="%gamslib%' inc.tl:0 '" -->'
/ '</pre>'
/ '<!--#include virtual="/footer.html" -->'
/ '</html>';
);
*
* seqindx
*
seqindx.lcase = 1;
seqindx 넣어
'<HTML> <HEAD> <TITLE> 슬롯 사이트 추천 모델 라이브러리 연대순 색인</TITLE></HEAD>'
/ '<!--#include virtual="/header.html" -->'
/'<H1>모델 라이브러리 연대순 색인</H1>'
/'모델 라이브러리의 순서대로 나열됩니다.'
/'제출일. 최신 것이 맨 위에 있습니다.'
/'<P>'
/'<A HREF="athindx.htm">저자 색인</A>도 있습니다.'
/'a <A HREF="subindx.htm">주제 색인</A>,'
/'및 <A HREF="alfindx.htm">알파벳순 색인</A>.'
/'<피>'
/ '<테이블>'
/ '<TR>'
/ ' <TH ALIGN="LEFT">아니요</TH>'
/ ' <TH ALIGN="LEFT">모델</TH>'
/ ' <TH ALIGN="LEFT">설명</TH>'
/ ' <TH ALIGN="LEFT">입력</TH>'
/ '</TR>';
loop((srev(ss,s),sm(s,m))$(지원되지 않음),
넣다 / '<TR>'
/ ' <TD>',s.tl:0,'</TD>'
/ ' <TD><A HREF="', m.tl:0,'.htm">', m.tl:0, '</A></TD>'
/ ' <TD>',m.te(m):0,'</TD>'
/ '<TD>';
seqindx.lcase = 2;
loop(tss(t,s), put t.tl:0;);
'</TD>'를 넣어라
/ '</TR>';
seqindx.lcase = 1;
);
넣어 / '</TABLE>'
/ '<!--#include virtual="/footer.html" -->'
/ '</html>';
*
* 하위 인덱스x
*
subindx.lcase = 1;
하위 인덱스x 넣어
'<HTML> <HEAD><TITLE> 슬롯 사이트 추천 모델 라이브러리 주제 색인</TITLE></HEAD>'
/ '<!--#include virtual="/header.html" -->'
/'<H1>모델 라이브러리 주제 색인</H1>'
/'다음 주제 영역을 다룹니다:'
/'<UL>';
loop(a, put /'<LI> <A HREF="#', a.tl:0, '">', a.te(a):0, '</A>';);
/'</UL>' 넣어
/'</UL>'
/'<P>'
/'<A HREF="alfindx.htm">알파벳순 색인</A>도 있습니다.'
/'<A HREF="athindx.htm">저자 색인</A>,'
/'그리고 <A HREF="seqindx.htm">연대순 색인</A>.';
루프(a,
/'<H2> <A NAME="', a.tl:0,'">', a.te(a):0, '</A> </H2>' 넣기
/'<TABLE WIDTH="100%">'
/'<TR>'
/' <TH ALIGN="LEFT" WIDTH="20%">모델</TD>'
/' <TH ALIGN="LEFT" WIDTH="60%">설명</TD>'
/' <TH ALIGN="LEFT" WIDTH="20%">유형</TD>'
/'</TR>';
loop((m,as(a,s),sm(s,m))$(지원되지 않음),
넣다 / '<TR>'
/ ' <TD><A HREF="', m.tl:0, '.htm">', m.tl:0, '</A></TD>'
/ ' <TD>',m.te(m):0,'</TD>'
/ '<TD>';
subindx.lcase = 2;
loop(tss(t,s), put t.tl:0;);
'</TD>'를 넣어라
/ '</TR>';
subindx.lcase = 1;
);
넣다 / '</TABLE>';
);
/ '<!--#include virtual="/footer.html" -->' 넣기
/ '</html>';
*
* 모드리스트
*
modlist.lcase = 1;
모드리스트 넣어
'응용 분야별로 나열된 모델 라이브러리 %' /
루프(a,
넣어 /
/'\subsubsection*' a.te(a):0 '' /
/'\begin모델 목록'
/'\M이름\normalfont\textbf이름'
'\Mdesc\textbf설명'
'\M유형\textbf유형'
'\M번호\textbf번호'
loop((m,as(a,s),sm(s,m))$(지원되지 않음),
put / '\Mname\textbf' m.tl:0 ''
'\Mdesc' m.te(m):0 '';
modlist.lcase = 2;
loop(tss(t,s), put '\Mtype' t.tl:0 '';);
put '\Mnumber' s.tl:0 '' /;
modlist.lcase = 1;
);
put / '\end모델 목록';
);
*
* 알핀드엑스
*
afindx.lcase = 1;
알핀드X 넣어
'<HTML> <HEAD><TITLE> 슬롯 사이트 추천 모델 라이브러리 알파벳순 색인</TITLE></HEAD>'
/ '<!--#include virtual="/header.html" -->'
/'<H1>모델 라이브러리 알파벳순 색인</H1>'
/'이것은 사용 가능한 모델의 알파벳순 목록입니다.'
/'온라인 모델 라이브러리에서.'
/'<A HREF="athindx.htm">저자 색인</A>도 있습니다.'
/'<A HREF="subindx.htm">주제 색인</A> 및'
/'<A HREF="seqindx.htm">연대순 색인</A>.'
/'<P><b>단축키:</b> ';
alfindx.lcase = 2;
loop(letters, put alfindx '<A HREF="#' letter.tl:0 '"> ' letter.tl:0 '</A>' /;);
afindx.lcase = 1;
알핀드X 넣어
/'<P><테이블>'
/'<TR>'
/' <TD></TD>'
/' <TH ALIGN="LEFT">모델</TH>'
/' <TH ALIGN="LEFT">설명</TH>'
/' <TH ALIGN="LEFT">입력</TH>'
/ '</TR>';
루프(m,
if(문자(m),
alfindx.lcase = 2;
/'<TR>' 넣어
/' <TD></TD>'
/'<TH COLSPAN=3 ALIGN="LEFT"><A NAME="'m.tl:0'">', m.tl:0, '</TH>'
/'</TR>';
afindx.lcase = 1;
그렇지 않으면
if(not sum(sm(deprecated(s),m),1),
넣다 / '<TR>'
* <TD><IMG SRC="/pics/new.gif"></TD>
/ ' <TD></TD>'
/ ' <TD><A HREF="', m.tl:0,'.htm">', m.tl:0, '</A></TD>'
/ ' <TD>', m.te(m):0, '</TD>'
/ '<TD>';
alfindx.lcase = 2;
루프(sm(s,m),
loop(tss(t,s), put t.tl:0;);
'</TD>'를 넣어라
/ '</TR>';
afindx.lcase = 1;
);
);
);
);
넣어 / '</TABLE>'
/ '<!--#include virtual="/footer.html" -->'
/ '</html>';
$exit