Trailing-Edge
-
PDP-10 Archives
-
decuslib20-03
-
decus/20-0078/util/filed.sim
There is 1 other file named filed.sim in the archive. Click here to see a list.
00040 COMMENT INPUTTING AND OUTPUTTING DEC 10 TEXT FILES: (May 1977)
00080 --------------------------------------------------
00120
00160 By Jacob Palme, Swedish National Defense Research Institute,
00200 S-104 50 Stockholm 80, Sweden.
00240
00280 This program contains a class FILED (which can be separately
00320 compiled) to input and output DEC 10 ASCII-7-formatted text
00360 files in SIMULA. The program can handle both unnumbered and
00400 line numbered text files. For numbered files, the program will
00440 ensure that the output file has the format on line numbers
00480 required by other DEC 10 text handling programs like for
00520 example SOS. Lines lacking line numbers will be given such
00560 numbers.
00600
00640 The good facilities for text handling in SIMULA makes it a
00680 useful language for text handling programs like editors,
00720 programming language translators, compilers, pre-compilers etc.
00760
00800 However, the reading and writing of text files on the DEC 10,
00840 especially line numbered files, is rather tricky in SIMULA. By
00880 using this program, you avoid those problems.
00920
00930 The program also contains facilities to protect you
00933 from inputting and outputting the same file and for over-
00936 writing the output file. If the output file already
00939 exists, the existing file is renamed to a backup name
00942 with an extension beginning with the letter Q.
00957
00960 end of comment;
01000 OPTIONS(/c);
01040 BEGIN
01080 EXTERNAL TEXT PROCEDURE from, tagord, storbokstav, scanto, conc;
01120 EXTERNAL TEXT PROCEDURE compress, front;
01160 EXTERNAL REF (infile) PROCEDURE findinfile;
01200 EXTERNAL REF (outfile) PROCEDURE findoutfile;
01240 EXTERNAL BOOLEAN PROCEDURE numbered, rescan;
01280 EXTERNAL CHARACTER PROCEDURE fetchar;
01320 EXTERNAL INTEGER PROCEDURE rename;
01360
01400 CLASS filed;
01440 BEGIN
01480 CHARACTER carriagereturn, formfeed, tab;
01520 BOOLEAN top_of_page; ! TRUE IF next output line starts new page;
01560 BOOLEAN got_formfeed; ! TRUE IF last input line ended a page;
01600 BOOLEAN first_line_read; ! TRUE only after first input line;
01640 BOOLEAN line_numbered; ! The input file is line numbered;
01680 TEXT sixdigits; ! Used in procedure make_five_digits;
01720 TEXT editout_image; ! Image for output file;
01760 TEXT editin_image_strip; ! Stripped input line from file;
01800 TEXT five_sp; ! Text with just five blank characters;
01840 TEXT five_sp_tab; ! Text with five blanks and a tab;
01880 INTEGER last_line_number; ! Number on previous input line;
01920 INTEGER this_line_number; ! Number on current input line;
01960 REF (infile) editin; ! The input text file;
02000 REF (outfile) editout; ! The output text file;
02040 TEXT PROCEDURE make_five_digits(line_number);
02080 COMMENT: This procedure produces a five-character long string
02120 containing the parameter number in ASCII format with leading
02160 zeroes (for use as line number on the output file);
02200 INTEGER line_number;
02240 BEGIN
02280 sixdigits.putint(line_number+100000);
02320 make_five_digits:- sixdigits.sub(2,5);
02360 END;
02400 BOOLEAN PROCEDURE five_digits(t); TEXT t;
02440 COMMENT: This procedure checks if the first five characters of
02480 the parameter string t are all digits, which is required for a
02520 correct line number;
02560 BEGIN
02600 IF t.length > 4 THEN
02640 BEGIN
02680 t.setpos(1);
02720 IF digit(t.getchar) THEN
02760 BEGIN IF digit(t.getchar) THEN
02800 BEGIN IF digit(t.getchar) THEN
02840 BEGIN IF digit(t.getchar) THEN
02880 five_digits:= digit(t.getchar);
02920 END;
02960 END;
03000 END;
03040 END;
03080 END;
03120 PROCEDURE editinimage;
03160 COMMENT: This procedure inputs a line from the input text file.
03200 The input line is stripped into the text "editin_image_strip".
03240 If the input line is the first line on a new page, then the
03280 BOOLEAN "top_of_page" becomes TRUE. Page delimiter mark is
03320 removed from the input line;
03360 INSPECT editin DO
03400 BEGIN
03440 IF first_line_read THEN first_line_read:= FALSE ELSE
03480 BEGIN
03520 getline:
03560 top_of_page:= top_of_page OR got_formfeed;
03600 inimage;
03640 END;
03680 editin_image_strip:- image.strip;
03720 got_formfeed:= IF editin_image_strip == NOTEXT
03760 THEN FALSE ELSE fetchar(editin_image_strip,
03800 editin_image_strip.length) = formfeed;
03840 IF got_formfeed THEN
03880 BEGIN
03920 COMMENT remove form feed from input line;
03960 editin_image_strip:- editin_image_strip.sub
04000 (1,editin_image_strip.length-1);
04040 COMMENT bypass input lines containing nothing put a proper
04080 page delimiter mark;
04120 IF editin_image_strip == NOTEXT THEN GOTO getline;
04160 IF editin_image_strip = five_sp THEN GOTO getline;
04200 IF editin_image_strip = five_sp_tab THEN GOTO getline;
04240 END;
04280 END;
04320 PROCEDURE editoutimage(t); TEXT t;
04360
04400 COMMENT: This procedure outputs the parameter text "t" as a line
04440 for the output file. If the BOOLEAN "line_numbered" is TRUE, but
04480 "t" does not contain a correct line number, then a number is
04520 added or an incorrect number is replaced.
04560
04600 IF the BOOLEAN "top_of_page" is TRUE, then a proper page mark is
04640 inserted into the output file in front of the output line, and
04680 "top_of_page" is made FALSE at the same time;
04720
04760 BEGIN
04800 t:- t.strip;
04840 IF line_numbered THEN
04880 BEGIN
04920 IF top_of_page THEN
04960 BEGIN COMMENT output proper page mark;
05000 editout.image:- editout_image;
05040 editout.image.setpos(6);
05080 editout.outchar(carriagereturn);
05120 editout.outchar(formfeed);
05160 editout.breakoutimage; top_of_page:= FALSE;
05200 END;
05240 IF five_digits(t) THEN
05280 BEGIN
05320 this_line_number:= t.sub(1,5).getint;
05360 IF t.length = 5 THEN GOTO goodnumbered;
05400 IF fetchar(t,6) = tab THEN GOTO goodnumbered;
05440 END;
05480 COMMENT The line had no line number, concatate line number
05520 in front of the line;
05560 last_line_number:= last_line_number+1;
05600 editout.image:- editout_image;
05640 editout.outtext(make_five_digits( last_line_number));
05680 editout.outchar(tab); editout.outtext(t);
05720 IF FALSE THEN goodnumbered:
05760 BEGIN
05800 COMMENT The line began with a line number;
05840 IF this_line_number <= last_line_number THEN
05880 BEGIN
05920 COMMENT: The line number was lower than on the previous line,
05960 a higher line number is substituted;
06000 last_line_number:= last_line_number+1;
06040 t.sub(1,5):= make_five_digits(last_line_number);
06080 END ELSE last_line_number:= this_line_number;
06120 editout.image:- t;
06160 END;
06200 editout.outimage;
06240 END ELSE
06280 BEGIN COMMENT the output file should NOT be line numbered;
06320 IF top_of_page THEN
06360 BEGIN COMMENT Output proper page mark;
06400 editout.image:- editout_image;
06440 editout.outchar(formfeed);
06480 editout.breakoutimage; top_of_page:= FALSE;
06520 END;
06560 editout.image:- t; editout.outimage;
06600 END;
06640 END;
06680 COMMENT initialize constants and dummy variables used by the
06720 program;
06760
06800 carriagereturn:= char(13); formfeed:= char(12);
06840 tab:= char(9);
06880
06920 sixdigits:- blanks(6); five_sp:- blanks(5);
06960 five_sp_tab:- blanks(6); five_sp_tab.setpos(5);
07000 five_sp_tab.putchar(tab);
07040 END of class edit;
07080 filed BEGIN
07120 COMMENT: This section is usually replaced by your own code,
07160 which may for example contain more advanced interpretation of
07200 input from the user terminal using the DECOM, SCAN, SCAN2 och
07240 SAFEIO utility packages;
07280
07320 TEXT inf, outf, backf, command, after_number;
07440 sysout.image:- blanks(140);
07480 outtext("FILED - Inputting and outputting a DEC10-formatted"
07520 " file - version 78-07:");
07560 outimage;
07600
07640 COMMENT Read initial command string;
07680 IF rescan THEN
07720 BEGIN
07760 inimage; IF sysin.endfile THEN GOTO finalexit;
07800 command:- sysin.image; scanto(command,'-');
07840 command:- from(command,command.pos).strip;
07880 IF command == NOTEXT THEN GOTO prompter;
07920 END ELSE prompter:
07960 BEGIN
08000 outchar('>'); breakoutimage;
08040 IF sysin.endfile THEN GOTO finalexit;
08055 COMMENT-------------------------------------------;
08068 COMMENT here insert any zeroing of data necessary
08081 after a faulty command string;
08107 COMMENT-------------------------------------------;
08120 backf:-
08160 inf:- outf:- NOTEXT;
08200 inimage; IF sysin.endfile THEN GOTO finalexit;
08240 command:- compress(storbokstav(sysin.image.strip),' ');
08280 END;
08320 IF command == NOTEXT THEN
08360 BEGIN outtext("Type ? for help."); outimage;
08400 GOTO prompter;
08440 END;
08480 IF command.getchar = '?' THEN
08520 BEGIN
08560 outtext(
08600 "help message is to be output here");
08640 outimage;
08680 outimage;
08720 GOTO prompter;
08760 END;
08800 command:- compress(storbokstav(command),' '); command.setpos(1);
08840 outf:- copy(scanto(command,'=').strip);
08880 inf:- copy(scanto(command,'/').strip);
08920 IF inf == NOTEXT THEN
08960 BEGIN inf:- outf;
09000 outtext("Assumming input file = "); outtext(inf); outimage;
09040 outtext("Give output file name: "); outimage;
09080 outchar('>'); breakoutimage;
09120 inimage; command:- compress(storbokstav(sysin.image),' ');
09160 outf:- copy(scanto(command,'/').strip);
09200 END;
09240 outf.setpos(1); inf.setpos(1);
09280 IF scanto(outf,'/') = scanto(inf,'/') THEN
09320 BEGIN
09360 outtext("?FILED - infile = outfile."); outimage;
09400 GOTO prompter;
09440 END;
09480
09520 BEGIN
09560 COMMENT Insert code here to interpret switches in the input
09600 command string, e.g. using SCAN or SSCAN from LIBSIM;
09640 END;
09680
09720 COMMENT Opening of the input text file. You may prefer longer
09760 than 80 characters in the images, will occur if input text
09800 lines are longer than the image size;
09840 editin:- findinfile(inf);
09880 IF editin == NONE THEN
09920 BEGIN outtext("?FILED - cannot find input file: "); outtext(inf);
09960 outimage; GOTO prompter;
10000 END;
10040 editin.open(blanks(140));
10080 COMMENT First line must be read here to check if the input file is
10120 line numbered;
10160 editin.inimage; first_line_read:= TRUE;
10200 line_numbered:= numbered;
10240
10280 INSPECT findinfile(outf) DO
10320 BEGIN
10360 backf:- copy(outf);
10400 IF scanto(backf,'.') == backf THEN backf:- conc(backf,".Q")
10440 ELSE IF backf.more THEN backf.putchar('Q') ELSE
10480 backf:- conc(backf,"Q");
10520 outtext("%FILED renaming previous output file:");
10560 outimage; outchar('"');
10600 outtext(outf); outtext(""" to backup file name """);
10640 outtext(backf); outtext("""."); outimage;
10680 IF rename(backf,NOTEXT,TRUE) > 0 THEN
10720 BEGIN outtext("%FILED - cannot delete file: "); outtext(backf);
10760 outimage; GOTO prompter;
10800 END;
10840 IF rename(THIS infile,backf,FALSE) > 0 THEN
10880 BEGIN outtext("%FILED - cannot rename file """);
10920 outtext(outf); outtext(""" to backup name """);
10960 outtext(backf); outtext("""."); outimage;
11000 GOTO prompter;
11040 END;
11080 END;
11120
11160 COMMENT Opening of the output text file;
11200 COMMENT The output file is made line numbered if the input file was
11240 line numbered. You may prefer to add other options;
11280 IF line_numbered THEN outf:- conc(outf,"/NUMBERED");
11320 editout:- findoutfile(outf);
11360 IF editout == NONE THEN
11400 BEGIN outtext("?FILED - cannot open output file: "); outtext(outf);
11440 outimage; GOTO prompter;
11480 END;
11520 editout_image:- blanks(140); editout.open(editout_image);
11560
11600 after_number:- editin.image;
11640 IF line_numbered THEN after_number:- after_number.sub(7,133);
11680 WHILE TRUE DO
11720 BEGIN COMMENT Loop of reading successive lines in the file;
11760 editinimage;
11800 IF editin.endfile THEN GOTO close;
11840 after_number.setpos(1);
11880 COMMENT --------------------------------------------------
11920 ! Here insert code to do something with the input line !
11960 ! "after_number" contains the input line without number !
12000 ! editin.image the whole line, editing_image_strip the !
12040 ! stripped line. !
12080 ----------------------------------------------------------;
12120 editoutimage(editin_image_strip);
12160 after_print:
12200 END;
12240 close:
12280 editin.close;
12320 editout.close;
12360 finalexit:
12400 END;
12440 END of the whole FILED program;