PDP-10 Archive: emactzlptlib.emacs from mit_emacs_170

Ŕ--htdig_noindex--> PDP-10 Archive: emactzlptlib.emacs from mit_emacs_170_tecoq(� g)�0 Ă_head> Ŕ-- SiteSearch Google -->

Ă_tr> Ă_table>

Trailing-Edge - PDP-10 ArchivesĂ_A> - mit_emacs_170_tecoq( g)0 - emactzlptlib.emacsĂ_strong>
There are no other files named lptlib.emacs in the archive.
Ŕ--/htdig_noindex-->
!* -*-TECO-*Cg* <GERGELY>LPTLIB.EMACS.26, 29-May-82 2 (ĺe)Ú0ó0ą05:01, Edit b9GERGEL1D 6g* <GERGELY.EMACS>LPTLIB..45,(N)9-Apr-AS 19:10:59, Edi4by GERGELY! g~FILENAME~:!SMMacros for use on the line-printer! LPTLIB
g&; (člŠ)Setu0LPTLIB Library:!SMS Module for preliminary setup! :I*FO..Q Print_Old_Library[B SM* QB gets the old prin4librarx :I*FO..Q Print_Library[A !* QA gets the current one! F~ALPTLIB"N QA'"# QB' M.V Print_Old_Library SM* If already the! !* same one then use the old one! :I*LPTLIB M.VPrint_Library !* Create the variable to be surVI M.CPrint_Library*_Filename_of_the_Library_containing_the_PRINT_macros. ]A ]B 80FO..Q Print_Width( )M.CPrint_Width*_Default_width_for_@_List_output. 58FO..Q Print_Length( )M.CPrint_Length*_Default_length_for_@_List_output. 0FO..Q Print_Format( )M.CPrint_Format*_Non-zero_for_paper_conservation. Ă_PRE>
!@ List:! !Print File:! !C Make LPT listing of a given file or of the buffer replacing control-character b9tilda-character. The second string argument is the alternate output device. The command can be in one of the following forms: <page size>,<page width>; (člŠ)MM @ LIST$<filename>$<outpu4device> via TECO in Minibuffer. or <page width>; (člŠ)MM @ LIST$<filename>. , Otherwise with following defaults: <page width>; (člŠ)-- Explici40 = minimum( maximum line width, 1(>y)) No argument = 80 characters wide <page size> -- 58 lines Ę0Î0-heading, 55-text) <filename> -- the currentl9accessed buffer <outpu4device> -- LPT: Two variables are referred to. These are: Q$Defaul4Listing Widt9 -- The defaul4output listing. = AS. Q$Default Listing Lengt9 -- The defaul4page length. = 58. Q$Default Listing Typ6 -- Nonzero implies a special miserly output listing. Onl9needed if yo5don'4want a new page on every occurrence of Q$Page Delimite19 = 0.! 1 FS ECHO FLUSH [A HXA SM* STORE THE WHOLE BUFFER IN QA IN! SM* CASE! !* NO FILENAME IS GIVEN AS AN! SM* ARGUMENT! FS RUNTIMEUB SM* STORE THE CURRENT RUNTIME IN! !* QB! F[ B BINDW F[ D FILEW -1F[ FNAM SYNTAX [0 m [2 3ąp [2 2 2 [5 [5 5 [7 [8 [9 [..0 [..1 [..2 0[M SM* [PJG] QM contains the FORTRAN flag! [D [E [F [??[P !* QP will hold the page! !* delimiter! E\ E[ FN E] E^ !* PUS?!INPUT AND OUTPUT AND! !* ARRANGE TO PO1D 7 f[BBIND SM* MAKE A TEMPORARY BUFFE1D 10 G(QPAGE_DELIMITER) !* GET THE VARIABLE AND FOR EACHSM J<:S; 13I10I> SM* ALTERNATIVE, HAVE IT START WITi SM* A CRLF! HFXP F]BBIND (>y)< IZU..2 >; (člŠ) !* MAKE AN F^A DISPATC?!TO STOP ON! !* CTL CHARS.! 95*5,(>y)I IZU.(Ń‘) !* RUBOUT COUNTS AS CTL CHAR.! 15.*5F_____ !* CR, LF, TAB, FF AND ALTMODE DO! SM* NOT.! (*h).*5F_____ .*5F_____ 14.*5F_____ Ő0Ł0ü0Č0.*5F_____ HF28 !* STORE WHOLE THING IN 21! :F"L SM* If called from the internals! !* oiii SM* a kex :i*CList_the_Current_Bufferfsechodisp0fsechoactive 1,1M(M.M &_Yes_or_No)"N 0[C oNo_File'' 5,F List_File[C !* QC gets the filename if any.!gNo_FilVI FQC"G SM* CHECK TO SEE IF A FILENAME WAS! !* GIVEN! ERC"N :I*CNon-existent_File.__Aborting_list_function. fsechodisp 0fsechoactive 0ua ' ERC !* RETURN THE FILENAME IN THD SM* STRING BUFFE1D 10 HK I__ G(FS I FILE) I____ SM* GET STRING FILENAMD 0,FS IF CDATE FS FD CONV !* GET CREATION DATE OF FILE IN! SM* STRING! !* BUFFE1D 10 HFX8 SM* Q8 GETS THE HEADER! 0UA @Y' "# SM* READ IN THE FILE OF MACROS! HK I__ :i*FO..QBuffer_FilenamesuC SM* [PJG] Use the currenv SM* buffer filenamVI FQC:"G ICurrent_Buffer_Name_Unknown SM* [PJG] If not! !* knownB :iCNONAME' !* then sa9so! "# GC ' SM* [PJG] Otherwise use it.! I____ 0,FS DATE FS FD CONV SM* GET CURRENT DATE! HFX8 !* Q8 GET THE HEADER! GA 2 2 2 2 J 0ua' !* RESTORE THE BUFFER FROM QA! 0FO..QOutput_To"E M.VOutput_To' SM* Ne7variable to keep! "# 0UOutput_To' !* the filename if any! 3,F Output_to_(Default:_LPT:)_[O fqo:"??:IOLPT:' SM* QO GETS AN ALTERNATE OUTPU2D 3 SM* DEVICE! "# f[bbind go j <:s:+1;)c> °F<! <:S>+1;)c> 0XO SM* [PJG] QO gets the structurVI SM* anV SM* directorx .,(<:S.+1;w1C>W 1,0a-46"E 1r'"#:l'.)XOutput_To f]bbind ' FQOutput_To:"G f[bbind GC j <:s:+1;)c> °F<! <:S>+1;)c> 0K !* [PJG] QO gets the structure! !* and! !* directory! .,(<:S.+1;)C>W 1,0a-46"E 1r'"#:l'.)XOutput_To f]bbind' WF~(FSDFN2)FOR"'E( SM* [PJG] Check what extension i4haiv WF~(QMODE)FORTRAN "'E)"N !* [PJG] Check wha4mode he is iD 1UM BJ SM* [PJG] Se4the Fortran Flag! M(M.M Strip_SOS_Line_Numbers)' !* [PJG] In case of EDIT linVI SM* [PJG] numberiv ZJ Ó0ë0 0I SM* MAKE SURE WE END WIT?!A CRLF! !* LOOP BELO2 2 2 2 FAILS TO CONVERT CTL! !* CHAR AT! !* END OF THE BUFFER! 58FO..QPrint_LengthU0 80FO..QPrint_Widthg SM* Q0 IS THE PAGE LENGTH, AND QF SM* IS THE PAGE SIZE! FFF"N-2:"L U0' U1' SM* Q0 CAN ONLY BE SPECIFIED BY A! SM* PRE-COMMA ARGUMENT! Q0-4"L 58FO..QPrint_LengthU0' !* IF Q0 IS LESS THAN 2 2 2 RESET THD SM* PAGE LENGTi 0FO..QPrint_Format"N Q0-58"E W60u0' ' Q0-3U0 SM* HEADER TAKESµ0ó0Á0ü0ŕ0 LINES! J < .,ZF2 .-Z; !* SKIP TO NEXT CTL CHAR TO! SM* CONVER2D 3 0A(-D I~)#100.I> SM* CONVERT CONTROL-MUMBLE TO TILDA! SM* AND! SM* MUMBLE.! J 0S <:S; R-DI~M> !* CONVERT STRAY CARRIAGE RETURN1D 3 J 0S <:S; (člŠ)-DI~J> SM* CONVERT STRAY LINE FEEDS.! J <:S; (člŠ)-DI$>; (člŠ) !* CONVERT ALTMODES TO DOLLA1D 10 SM* SIGNS.! J <:S Ă_PRE>
; (člŠ)-DI~L> SM* CONVERT NON FIRST CHAR FF ON A LIND Q1-1"L SM* FIND MAX PAGE WIDT?!IF Q1=E J<.-Z; (člŠ)W:L FSHPOSITION-cF"G+cg' L> -4."."."L 40g' SM* IF WIDTH TO SMALL SET TO 4E SM* CHAR1D 3 c-1(>y)"G @FTText_Width_Exceeds_Width_of_Physical_Device 0FS ECHO ACTIVE 1(>y)#' Q1-ţ]10+1*10 g' !* PAGE WIDT?!ROUNDED UP TO! SM* NEAREST TEN! J G8 Ó0ë0 0I SM* INSERT TITLE! ((g)C FQ8-c+15"G 0L c-15C:K' "# c-15-FQ8<I_>' !* LET THE TITLE! I_Page_ SM* BE THE PAGE WIDT?!MINUS 15! !* CHAR. LON??! 0FX8(N)D J <.-Z; :L !* WRAP LINES GREATER THAN QF FSHPOSITION U9 0L SM* PLACE WIDT?!BACK IN Q9! Q9-ţ]c F"G<W<FSHPOSITION-c; (člŠ)1C>Ó0ë0 0I>' L> 025 0U4 SM* 21 PAGE NUMBER, Q4 MAXIMUM NAMD SM* LENGTH! 0U9 !* Q9 WILL CONTAIN THE SUBPAGE Id SM* NECESSAR1D 6 FS B CONSU2 2 SM* CONS UP A NE2 2 2 2 BUFFER IN ę0Ă0Č0ë0! 0U5 5 5 !* Q5 5 5 GETS STARTIN??LOCATION Od SM* THD SM* INFORMATION TO BE PLACED IN THD SM* VIRTUAL! SM* BUFFER! J <.-Z; %2 0U9 SM* INCREMENT THE PAGE COUNTB SM* RE-INI2D 3 SM* SUBPAGD C :S P : .-FSZ"N 2C' !* POSITION AT NEXT FF OR END OF! !* FILD Q7,. FS BOUND !* FORM THE VIRTUAL BUFFER TO BE! !* USED! 0U5 5 5 !* RE-USE Q7 TO COUNT THE NUMBER! !* OF LINE1D 3 SM* IN THIS BUFFER! J<:S ;%7> SM* LOOP TO COUNT LINE1D 3 J B"N 1A-12"N (*h)!?R' C' G8 21\ 2 2 2 2 3 !* INSERT MAIN HEADE1D 10 q7-1-Q."."."G 0U9 Q7-ţ]Q0< !* MAKIN??Q7-1ëXQ0 +1 SUBPAGE WITH! !* TITLE1D 3 Q0L 0L (*h)!? SM* GO TO SUBPAGE AND INSERT Fd %9 SM* INCREMENT SUBPAGES! G8 Q2\ W I: !* INSERT HEADER WIT?!THE PAGE! !* COUNT! Q9\ 2 2 2 2 3; (člŠ)> ' SM* INSERT THREE CRLF TO MAKE THD SM* HEADER! QM"N OFORTRANTAG' J <:S:I; .( SM* FIND NAME OF THIS PAGE! !* (COLON-EXCL) ! .-2(.-2u5 0L.UA Q5J -:SI"L !* SEARC?!FOR THE MATCHING! !* EXCLAMATION! !* ON THE LINE! C .-QA"LQ5J ' ' SM* IF FOUND AND NOT ON THD !* LINE REPLACD .,)X5 !* THE POINTER , OTHERWISE PUT! !* LABEL INTO! SM* Q5SM FQ5"G !* IF THERE IS A LABEL THEN DO...! [..O Q3U..O !* SELECT TABLE OF CONTENT1D 3 SM* BUFFER.! FQ5-Q4"G FQ5U4 'SM* REMEMBER THE LENGT?!OF THE! !* LONGEST NAME.! Q2\ 40.!?G5 13I 10I SM* PUT PAGE NUMBER SPACD !* NAME CRLF.! ]..O ' SM* ... END THE LABEL LOOP! )J > O END-OF-TAGS °FFORTRANTAG! SM* Star4of FORTRAN tagiv SM* which are: SM SM* PROGRAM SUBROUTINE FUNCTION! SM* REAL FUNCTION, INTEGER! !* FUNCTION! SM* LOGICAL FUNCTION, COMPLE4D 5 SM* FUNCTION! !* OVERLAY, BLOCK DATA! !* DOUBLE PRECISION FUNCTION! J<SMAGAIN! :SPROGRAMSUBROUTINEOVERLAYBLOCKFUNCTION UF SM* Main Tagiv QF; (člŠ)QF+4"G 0L 1M(M.M ^R_READ_WORD)UG WF~GPROGRAM"E OHAVEIT' WF~GSUBROUTINE"E OHAVEIT' WF~GOVERLAY"E OHAVEIT' 1@L OAGAIN ' "# 0L 1M(M.M ^R_READ_WORD)UG WF~GFUNCTION"E OHAVEIT' WF~GBLOCK"E 1M(M.M ^R_READ_WORD)UG WF~GDATA"E OHAVEIT' 1@L OAGAIN ' WF~GINTEGER"E 1M(M.M ^R_READ_WORD)UG WF~GFUNCTION"E OHAVEIT' 1@L OAGAIN ' WF~GREAL"E 1M(M.M ^R_READ_WORD)UG WF~GFUNCTION"E OHAVEIT' 1@L OAGAIN ' WF~GCOMPLEX"E 1M(M.M ^R_READ_WORD)UG WF~GFUNCTION"E OHAVEIT' 1@L OAGAIN ' WF~GLOGICAL"E 1M(M.M ^R_READ_WORD)UG WF~GFUNCTION"E OHAVEIT' 1@L OAGAIN ' WF~GDOUBLE"E 1M(M.M ^R_READ_WORD)UG WF~GPRECISION"E 1M(M.M ^R_READ_WORD)UG WF~GFUNCTION"E OHAVEIT' ' ' 1@L OAGAIN ' !HAVEI2D 3 0L :S; (člŠ)R.,( :S( ; (člŠ)FKC .)X5 FQ5"G !* IF THERE IS A LABEL THEN DO...! [..O Q3U..O !* SELECT TABLE OF CONTENT1D 3 SM* BUFFER.! FQ5-Q4"G FQ5U4 'SM* REMEMBER THE LENGT?!OF THE! !* LONGEST NAMD 21\ 40.I G5 Ó0ë0!?10I !* PUT PAGE NUMBER SPACE! SM* NAME CRLF.! ]..O ' !* ... END THE LABEL LOO1D 7 > SMEND-OF-TAG1D 3 Q0-55"G 0FO..QPrint_Format"E J<:S ;-!9I>' "# Q0-57"??J<:S ;-!9I>''' !* IF PAGE SIZE > 58 MAKE! SM* CONT. PAGING! ZJ .U5 5 5 0,FS ZFS BOUND> !* END OF ALL CONVERSION1D 3 Q4F"G+2U2 2 2 [..O Q3U..O 0U5 !* Q2 2 2 WIDT?!OF NAME FIELD IN TABLE! !* Od SM* CONTENTS.! J<.-Z; (člŠ).U5 5 5 %5 SM* LOOP OVER EACH LINE, Q5 COUNTS! !* LINES.! \UD C0K:L SM* EXTRACT PAGE NUMBER.! Q4-.+Q7,56.I QD\ L>SM* AFTER NAME PUT DOTS AND PAGE! !* NUMBER.! J :L L !* SORT ! Q4-36"L ZJ SM* IF FITS IN(N) COLUMNS ON AS-WIDD SM* PAGE...! Q4+6U2 2 2 Q0-1U0 SM* Q4 GETS WIDT?!OF COLUMN 1.! Q0(g)*((Q5+Q0(g)-1\(Q0*2))-Q5<15.I(*h).I> !* MAKD SM* [PJG] EXACT MULTIPLE Od SM* PAGE SIZE.! J<.-Z; SM* LOOP OVER PAGES.! Q0<; (člŠ).U5 5 5 Q0L :X5 Q7J :L SM* LOOP OVER COL 1 LINES,! SM* Q5 GETS COL 2! SM* LINE.! Q4-.+Q7,40.!?G5 L> !* PUT COL(N) LINE TO RIGHT! SM* OF COL 1 LINE.! Q0K 14. 5. 2.I>; (člŠ)-D ' SM* DELETE ALL THE COLUMN 2! !* LINES.! ]..O ZJ 14.I15.I(*h).I .-3U7 SM* SINCE WE HAVE A CRLF AFTER THE! !* Fd G3 !* INSERT CONTENTS AT END OF! !* FILE.! Q2 2 FS B KILL ZJ -:S."N L.,ZK' !* DELETE TRAILING BLANK LINES.! q7j <.-Z; %2 0U9 !* INCREMENT THE PAGE COUNT,! !* RE-INIT! !* SUBPAGE! C :S Ă_PRE>
: !* POSITION AT NEXT FF OR END OF! !* FILD Q7,. FS BOUND !* FORM THE VIRTUAL BUFFER TO BE! !* USED! 0U7 !* RE-USE Q7 TO COUNT THE NUMBER! !* OF LINE1D 3 SM* IN THIS BUFFER! J<:S ;%7> !* LOOP TO COUNT LINES! J B"N C' G8 Q2\ Wµ0ó0Á0ü0ŕ0 !* INSERT MAIN HEADE1D 10 q7-1-Q0"G 0U9 Q7-1/Q0< !* MAKIN??Q7-1ëXQ0 +1 SUBPAGE WITH! !* TITLE1D 3 Q0L 0L (*h)!? SM* GO TO SUBPAGE AND INSERT Fd %9 !* INCREMENT SUBPAGE1D 3 G8 21\ 2 2 2 2 I: SM* INSERT HEADER WITH THE PAGD SM* COUN2D 3 Q9\ Wµ0ó0Á0ü0ŕ0 >; (člŠ)' !* INSERT THREE CRLF TO MAKE THE! !* HEADE1D 10 Q0-55"G 0FO..QPrint_Format"E J<:S ;-!9I>' "# Q0-57"??J<:S ;-!9I>''' !* IF PAGE SIZE > 58 MAKE! SM* CONT. PAGING! ZJ .U7 0,FS ZFS BOUND>; (člŠ) SM* END OF ALL CONVERSIONS! ' SM* FILE SHOULD NO2 2 2 2 BE COMPLETE FO1D 10 SM* LISTINe 0FO..QPrint_Format"N !* If the user wants the! SM* special miserl9type listing! J<:S Ă_PRE>
; !* From the to0replace all FF! -D q1-1,I !* with a line of equal signs! Ó0ë0i 10i SM* Pu4in a CRLd 1l 2K !* Go to the nex4line and kill 2! SM* blank ones! -1,45I SM* Pu4in the line of minuses! 0,1a-13"3I'"# 1c' !* Put in the CRLF if it is needed! 0,1a-1."."."0I'"# 1c' 2R> ' 031 SM* 21 will be used for thVI SM* filename! FQOutput_To:"GFSDFN1:F6'"#QOutput_to'[1 F~OLPT:"N :I2O1.LST.0' "# :I2lpt:;1' !* EITHER SECOND STRIN??OR LPT: SM o EW($ĆČ) P2 2 2 2 EF !* WRITE OUT TO THE DEVICE! !* SPECIFIED ! fsofileu2 :i*Cfsechodisp 0fsechoact @ftOutput_to´2_Completed_in_ SM* PUT IN THE MODE THD !* AMOUNT OF TIME IT! ]2 !* Pop is ou4again, jus4in casVI @:(FS RUNTIME-QB+500)/1000=@FT_sec. !* TOOK TO RUN! !* THIS MACRO,! 0FS ECHO ACTIVE SM* FOR THE USER'S BENEFIT. ---THE END--C
g^R Read Word:!SM^R Read the following word and return. Negative Arguments make sense.! [A [B SM* Push temporary registers! FF"E 1UA' "#UA' !* Default argumen4is 1! QA FWL W -QAFWXB QB Ă_PRE>
!Copies to the Line Printer:! !C Prints <arg>; (člŠ)copies of the buffer to LPT:, the output devicVI [A[B[C[D !* PUS?!TEMPORARY REGISTER1D 3 HXA !* GET THE WHOLE BUFFE1D 10 FSDFILEUC F[BBIND SM* PUSH THE BUFFE1D 10 FSDFN1UD SM* QD GETS THE FIRST NAME OF THE FILE! Ff"NUB'"# 1UB' SM* DEFAULT ARGUMENT IS F QB"??GA QB-1F"G< SM* CHECK IF MORE THAN 1 COP1D 6 12I GA> !* INSERT ONE LESS COP1D 6 ' M(M.M WRITE_FILE)LPT:D' F]BBIND M(M.MSET_VISITED_FILENAME)C
g&; (člŠ)Kill LPTLIB Library:! !S Kill the variables used b9the PRINT Librarx M(M.M Kill_Variable)Print_Length M(M.M Kill_Variable)Print_Width M(M.M Kill_Variable)Print_Format QPrint_Old_LibraryF([A) UPrint_Library M(M.M Kill_Variable)Print_Old_Library 1:<M(M.M &_Setup_A_Library)W>
g* Local Modes: \eQ MM Compile: 1:<M(M.M^R Date Edit)> M(M.M^R Save File) M(M.MGenerate Library)LPTLIBLPTLIB 1:<M(M.MDelete File)LPTLIB.COMPRS>2 2 2 2 \ End: \g
Ă_html</div><div class="naked_ctrl"> <form action="/index.cgi/larger-text" method="get" name="gate"> <a href="http://altstyle.alfasado.net">AltStyle</a> k00c0f0 YŰcU0Ś0_0Ú0ü0¸0 <a href="http://pdp-10.trailing-edge.com/mit_emacs_170_teco_1220/01/emacs/lptlib.emacs.html">(->Ş0ę0¸0Ę0ë0)</a> / <label>˘0É0ě0ą0: <input type="text" name="naked_post_url" value="http://pdp-10.trailing-edge.com/mit_emacs_170_teco_1220/01/emacs/lptlib.emacs.html" size="22" /></label> <label>â0ü0É0: <select name="naked_post_mode"> <option value="default">Ç0Ő0©0ë0Č0</option> <option value="speech">ó—đXÖ0é0¦0¶0</option> <option value="ruby">ë0Ó0ŘNM0</option> <option value="contrast">M‘r‚ÍSâŽ</option> <option value="larger-text" selected="selected">‡eW[áb'Y</option> <option value="mobile">â0Đ0¤0ë0</option> </select> <input type="submit" value="h:y" /> </form> </div>

Ă_td>

Ă_input> Ă_input>

Ă_input> WebĂ_font>

Ă_input>

pdp-10.trailing-edge.comĂ_font>

Ă_input> Ă_input> Ă_input> Ă_td>