perlbs2000 - 클라우드의 온라인

프로그램:

이름

perlbs2000 - BS2000용 Perl을 빌드하고 설치합니다.

이 문서는 업데이트가 필요하지만 어떤 내용을 말해야 할지 모르겠습니다. 이메일을 보내주세요
에 대한 의견 [이메일 보호] <mailto :[이메일 보호]>.

개요

이 문서는 POSIX의 BS2000에 Perl을 구성, 구축, 테스트 및 설치하는 데 도움이 됩니다.
서브 시스템.

기술

이는 BS2000 버전 OSD V3.1A 이상의 POSIX 하위 시스템용으로 이식된 Perl입니다. 그것
다른 버전에서도 작동할 수 있지만 우리는 3.1A로 포팅하고 테스트하기 시작했으며
현재 버전 V4.0A를 사용하고 있습니다.

perl을 설치하려면 다음 GNU 프로그램이 필요할 수 있습니다.

gzip을 on BS2000
우리는 버전 1.2.4를 사용했습니다.
'확인해 보세요'.

바이슨 on BS2000
BS2000 POSIX와 함께 제공되는 yacc는 우리에게 작동하지 않았습니다. 그래서 우리는 들소를 사용해야 했습니다. 우린 그래야했다
bison의 순수(재진입) 파서를 사용하려면 perl을 약간 변경하십시오. 우리는 사용했었다
버전 1.25이지만 EBCDIC으로 인해 몇 가지 변경 사항을 추가해야 했습니다. 자세한 내용은 아래 참조
yacc에 관하여.

포장 풀기 펄 콘텐츠 배급 on BS2000
BS2000 POSIX에서 ASCII tar 아카이브를 추출하려면 ASCII 파일 시스템이 필요합니다(우리는
mountpoint /usr/local/ascii). 이제 ASCII로 아카이브를 추출합니다.
I/O 변환이 없는 파일 시스템:

cd /usr/local/ascii export IO_CONVERSION=NO gunzip < /usr/local/src/perl.tar.gz | 인원 -r

아카이브의 첫 번째 요소에 대한 오류 메시지는 무시해도 됩니다.
tar 아카이브처럼 / 다음 파일로 건너뛰기...)
어쨌든 자동으로 생성됩니다.

아카이브를 추출한 후 전체 디렉토리 트리를 EBCDIC 파일 시스템에 복사합니다.
이 시간 의견을 듣고 싶습니다. 사용 I/O 변환:

cd /usr/로컬/src IO_CONVERSION=YES cp -r /usr/local/ascii/perl5.005_02 ./

컴파일 펄 on BS2000
Hints.posix-bc라는 BS2000용 "힌트" 파일이 있습니다(posix-bc가 OS 이름이기 때문입니다).
대부분의 경우 올바른 값을 지정하는 'uname')에 의해 제공됩니다. 가장 큰 문제는
(물론) EBCDIC 문자 집합입니다. 우리는 독일어 EBCDIC 버전을 가지고 있습니다.

네이티브 yacc의 문제 때문에 우리는 GNU bison을 사용하여 순수 yacc를 생성했습니다.
(=재진입) perly.y에 대한 파서. 따라서 우리 yacc는 실제로 다음 스크립트입니다.

-----8<-----/usr/local/bin/yacc-----8<----- #! /usr/빈/쉬

# 재진입 yacc로서의 Bison:

# 매개변수 저장: params="" while [[ $# -gt 1 ]]; 하다
매개변수="$매개변수 $1"
교대 완료

# 플래그 %pure_parser 추가:

tmpfile=/tmp/bison.$$.y echo %pure_parser > $tmpfile cat $1 >> $tmpfile

# 들소 부르기:

echo "/usr/local/bin/bison --yacc $params $1\t\t\t(순수 파서)" /usr/local/bin/bison
--yacc $params $tmpfile

# 정리:

rm -f $tmpfile -----8<----------8<-----

우리는 여전히 a2p.y에 대해 일반 yacc를 사용합니다!!! byacc라는 소프트링크를 만들어
두 버전을 구별하십시오.

ln -s /usr/bin/yacc /usr/local/bin/byacc

우리는 GNU make를 사용하여 펄을 빌드합니다. 우리는 네이티브 make를 한 번 시도해 보았고 역시 작동했습니다.

지원 펄 on BS2000
"make test" 중에 여전히 몇 가지 오류가 발생했습니다. 그들 중 일부는 들소를 사용한 결과입니다.
들소 지문 파서 오류 대신 구문 오류, 그래서 우리는 그들을 무시할 수 있습니다. 다음과 같은
목록에 오류가 표시되어 결과가 다를 수 있습니다.

op/numconvert.......실패한 테스트 1409-1440 op/regexp........실패한 테스트 483, 496
op/regexp_noamp.....실패 테스트 483, 496 pragma/overload.....실패 테스트 152-153,
170-171 pragma/경고.....테스트 실패 14, 82, 129, 155, 192, 205, 207
lib/bigfloat........실패한 테스트 351-352, 355 lib/bigfltpm........실패한 테스트 354-355,
358 lib/complex...........FAILED 테스트 267, 487 lib/dumper..........FAILED 테스트 43, 45
실패한 11/231 테스트 스크립트, 95.24% 정상. 57/10595 하위 테스트 실패, 99.46% 정상.

설치 펄 on BS2000
BS2000 POSIX(아직)에는 nroff가 없으므로 설치하는 동안 오류를 무시했습니다.
선적 서류 비치.

사용 펄 in 전에, Posix-쉘 of BS2000
BS2000 POSIX는 shebang 표기법("#!/usr/local/bin/perl")을 지원하지 않습니다.
대신 다음 줄을 사용하십시오.

: # 펄을 사용
평가 'exec /usr/local/bin/perl -S $0 ${1+"$@"}'
$running_under_some_shell인 경우;

사용 펄 in "토종의" BS2000
아직 경험이 많지 않지만 다음을 시도하십시오.

bs2000cp를 사용하여 Perl 실행 파일을 BS2 LLM에 복사합니다.

"bs2cp /usr/local/bin/perl 'bs2:perl(perl,l)'"

이제 다음 (SDF) 명령을 사용하여 시작할 수 있습니다.

"/START-PROG FROM-FILE=*MODULE(PERL,PERL),PROG-MODE=*ANY,RUN-MODE=*ADV"

먼저 BS2000 명령줄 프롬프트('*')가 나타납니다. 여기에 매개변수를 입력할 수 있습니다.
예: "-e 'print "Hello World!\\n";'"(이중 백슬래시에 주의하세요!) 또는 "-w" 및 이름
귀하의 Perl 스크립트. "/"로 시작하는 파일 이름은 Posix 파일 시스템에서 검색됩니다.
다른 것들은 BS2000 파일 시스템에서 검색됩니다. "%"를 넣으면 와일드카드를 사용할 수도 있습니다.
파일 이름 앞에 (예: "-w checkfiles.pl %*.c"). 다음에 대한 C/C++ 설명서를 읽으십시오.
명령줄 프롬프트의 추가 가능성(PARAMETER-PROMPTING 검색)

부유 포인트 이상 on BS2000
BS2000 POSIX 시스템의 부동 소수점 구현에 버그가 있는 것 같습니다.
그런 전화 정수() 숫자와 작은 크기의 숫자의 곱은
전화하는 것과 동일 정수() 그 숫자와 큰 크기 숫자의 몫에. 을 위한
예를 들어 다음 Perl 코드에서는

내 $x = 100000.0;
나의 $y = int($x * 1e-5) * 1e5; # '0'
내 $z = int($x / 1e+5) * 1e5; # '100000'
print "\$y는 $y이고 \$z는 $z\n"; # $y는 0이고 $z는 100000입니다.

$y와 $z의 양이 동일하고 100000과 같을 것으로 예상하더라도
다르며 대신 각각 0과 100000이 됩니다.

사용 펄IO and 다른 인코딩 on ASCII and EBCDIC 점수
버전 5.8부터 Perl은 BS2000에서 새로운 PerlIO를 사용합니다. 이를 통해 다양한 사용이 가능해집니다.
IO 채널당 인코딩. 예를 들어 다음을 사용할 수 있습니다.

인코딩을 사용하십시오.
open($f, ">:인코딩(ascii)", "test.ascii");
print $f "Hello World!\n";
open($f, ">:encoding(posix-bc)", "test.ebcdic");
print $f "Hello World!\n";
open($f, ">:encoding(latin1)", "test.latin1");
print $f "Hello World!\n";
open($f, ">:인코딩(utf8)", "test.utf8");
print $f "Hello World!\n";

ASCII, EBCDIC, ISO Latin-1(이 경우
예는 ASCII와 동일함) 해당 UTF-EBCDIC(이 예에서는 일반과 동일함)
EBCDIC). 자세한 내용은 Encode::PerlIO 설명서를 참조하십시오.

PerlIO 레이어는 내부적으로 원시 IO를 사용하므로 이 모든 것은 PerlIO의 유형을 완전히 무시합니다.
파일 시스템(ASCII 또는 EBCDIC) 및 IO_CONVERSION 환경 변수. 당신이 원한다면
BS2000 IO 기능이 다음에 따라 변환을 결정하는 이전 동작을 얻습니다.
파일 시스템 PerlIO는 여전히 당신의 친구입니다. 평소처럼 IO_CONVERSION을 사용하고 Perl에게 다음과 같이 알립니다.
기본 IO 레이어를 사용해야 합니다.

IO_CONVERSION=YES 내보내기
PERLIO=stdio 내보내기

이제 IO는 ASCII 파티션의 ASCII이고 EBCDIC 파티션의 EBCDIC입니다. 참조
추가 가능성에 대한 PerlIO 문서("Encode::"! 제외)

작가

토마스 도너

onworks.net 서비스를 사용하여 온라인에서 perlbs2000 사용