⟦31fb6fc3f⟧

TextFile

.oj off\r
.f1  1989-04-26              Pascform                Page #\r
\r
\r
\r
\r
\r
\r
\r
\r
\r
\r
\r
\r
\r
\r
\r
\r
\r
                            ▶02◀▶13◀PASCFORM▶13◀▶02◀\r
\r
\r
\r
\r
\r
                   ┴ PascaВ prograь Formatter\r
\r
\r
\r
\r
              OriginaВ composeС bщ MichaeВ Condict.\r
\r
              Thiз manuaВ puЗ togetheЫ froь various\r
                      pieceз oТ informatioЬ \r
                        bщ JohЬ Poulsen.\r
 \r
\r
\r
\r
\r
\r
\r
\r
\r
\r
\r
\r
\r
               \r
                                        Jydsв Telefon\r
                                        Erhvervsafdelingen\r
                                        Datanetsektionen\r
\r
\r
.pa\rі\r
▶02◀KnowЬ Problems:▶02◀\r
\r
 Г Thт ┴ directivт doesn'З worв witУ /ver:4\r
 -\r
 -\r
 -\r
 -\r
 -\r
 -\r
 -\r
 -\r
 -\r
 Г \r
 -\r
 Г \r
 Г \r
 Г \r
 Г \r
 Г \r
 Г \r
 Г \r
 Г \r
 Г \r
 Г \r
 Г \r
 -\r
 Г \r
.pa\rі\r
\r
▶02◀▶13◀MS-DOМ implementatioЬ oТ Pascform▶13◀▶02◀\r
\r
Thiз documenЗ describeз thт implementatioЬ oТ Pascforь t№ MМ-DOМ Ї
PC's« Pascforь iз implementeС iЬ Turb№ PascaВ 4.0.\r
Thт namт waз changeС froь "Formatб t№ "Pascformб becausт oТ Ї
namт clasУ witУ tУт DOМ operatinу systeь FormaЗ command.\r
\r
\r
▶02◀▶13◀Gettinу starteС witУ Pascform▶13◀▶02◀\r
\r
Thт Pascforь calВ includeз р Pascforь parameteЫ anС normalщ onт Ї
oЫ tw№ DOМ file-substitutioЬ directives« \r
\r
Thт Pascforь parameteЫ containз informatoЬ t№ Pascforь abouЗ Ї
whicУ typт oТ PascaВ prograь thaЗ iз submitted:\r
\r
/v:▒      meanз     StandarС Pascal\r
/v:2      meanз     ReaВ Timт PascaВ  е RTл350▓ anС RTл8Х ┐ ? )\r
/v:│      meanз     Turb№ PascaВ versioЬ 3\r
/v:4      meanз     нurb№ PascaВ versioЬ ┤ anС versioЬ 5\r
\r
\r
Thт prograь readз peЫ defaulЗ inpuЗ froь thт KeyborС anС writeз Ї
t№ thт screen« Thт DOМ filт substitutioЬ changeз thт inpuЗ anС Ї
outpuЗ deviceз t№ files║ "<filт-nameб iз thт inpuЗ filт anС Ї
">filт-nameб iз thт outpuЗ file.\r
 \r
Examples:\r
\r
     Pascform   <c:\lei\tp4\tegntest.paз   /vers:4\r
\r
     Pascform   <crosз.txt  >c:cross.paз  /v:3\r
\r
\r
\r
OtheЫ Pascforь directiveз arт placeС iЬ commentз iЬ thт sourcт Ї
text« Pascforь searcheз foЫ directiveз iЬ alВ commentsг wherт Ї
thesт arт surroundeС bщ squarт brackets.\r
\r
ч vovhunС [B+П §  containз р directivт t№ Pascformг witУ thт                   Ї
directivт "B+".\r
\r
.pa \rі  \r
▶02◀▶13◀Pascform▶13◀▶02◀\r
\r
Pascform iз р flexiblт prettyprinteЫ foЫ PascaВ programs« IЗ takeз Ї
aз inpuЗ р syntacticallщ-correcЗ PascaВ prograь anС produceз aз Ї
outpuЗ aЬ equivalenЗ buЗ reformatteС PascaВ program« Thт Ї
resultinу prograь consistз oТ thт samт sequencт oТ PascaВ symbolз Ї
anС commentsг buЗ theщ arт rearrangeС witУ respecЗ t№ linт Ї
boundarieз anС Columnз foЫ readability.\r
\r
Pascform maintainз consistenЗ spacinу betweeЬ symbolsг breakз Ї
controВ anС datр structureз ont№ neэ lineз iТ necessaryг indentз Ї
lineз t№ reflecЗ thт syntactiс leveВ oТ statementз anС Ї
declarationsг anС more« Miscellaneouз featureз sucУ aз supplyinу Ї
linт-numberз anС automatiс commentsг oЫ deletinу alВ unnecessarщ Ї
blankз t№ savт spaceг arт describeС below.\r
\r
Thт flexibilitщ oТ Pascform iз accomplisheС bщ allowinу yoш t№ Ї
supplщ variouз directiveз (optionsЕ whicУ overridт thт defaulЗ Ї
values« RatheЫ thaЬ beinу р rigiС prettyprinteЫ whicУ decideз foЫ Ї
yoш hoэ youЫ prograь iз t№ bт formattedг yoш havт thт abilitщ t№ Ї
controВ hoэ formattinу iз doneг noЗ onlщ prioЫ t№ executioЬ buЗ Ї
als№ durinу executioЬ througУ thт usт oТ prettyprinteЫ directiveз Ї
embeddeС iЬ youЫ program.\r
\r
Experiencт witУ Pascform haз showЬ thaЗ mosЗ userз caЬ finС р seЗ Ї
oТ valueз foЫ thт directiveз whicУ producт satisfactorщ results« Ї
Thт defaulЗ valueз arт typical.\r
\r
\r
▶13◀▶02◀Hoэ T№ Usт Pascform▶02◀▶13◀\r
\r
Thт usт oТ Pascform wilВ varщ froь implementatioЬ t№ Ї
implementationг buЗ wilВ involvт onт majoЫ inpuЗ filт containinу Ї
р PascaВ prograь onС onт outpuЗ filт foЫ thт reformatteС program« Ї
Additionallщ iЗ maщ bт possiblт t№ supplщ thт initiaВ valueз oТ Ї
dжrectiveз t№ Pascform wheЬ iЗ beginз execution.\r
 \r
Directiveз t№ Pascform maщ alwayз bт specifieС iЬ thт prograь Ї
itselТ insidт commentз witУ р speciaВ syntax« Thuз thт firsЗ linт Ї
oТ р prograь iз aЬ ideaВ spoЗ foЫ р commenЗ containinу Ї
directives« SubsequenЗ usт oТ embeddeС directiveз allowз yoш t№ Ї
changт thт kinС oТ formattinу foЫ differenЗ sectionз oТ youЫ Ї
program« Thт syntaЭ oТ thesт speciaВ commentз iз giveЬ below«\r
е Thт syntaЭ iз giveЬ usinу "EBNFбГ-ExtendeС Backuз-NauЫ ForьГ-Ї
seт Communicationз ACMг NovembeЫг 1977г pagт 822.):\r
.pa\rі\r
DirectiveCommenЗ й  "(*б  DirectiveLisЗ "*)б      Ч \r
                    "(*$б CompilerOptionLisЗ\r
                          CommentTexЗ DirectiveLisЗ \r
                    "*)б                          Ч\r
                    "{б   DirectiveLisЗ "*)б      Ч \r
                    "{$б  CompilerOptionLisЗ\r
                          CommentTexЗ DirectiveLisЗ \r
                    б}б\r
\r
DirectiveLisЗ  й "[б Directivт {",б Directive§ "]б CommentText.\r
\r
Directivт  й LetteЫ Setting.\r
\r
LetteЫ  й "Aб Ч "Bб Ч "Cб Ч "Dб Ч "Eб Ч "Fб Ч "Gб Ч "Hб Ч "Iб Ч Ї
          "Lб Ч "Nб Ч "Pб Ч "Rб Ч "Sб Ч "W".\r
\r
Settinу  й SwitcУ Ч Valuт Ч Range.\r
\r
SwitcУ  й "+б Ч "-".\r
\r
Valuт  й "=б UnsignedInteger.\r
\r
Rangт  й "=б UnsignedIntegeЫ б-б UnsignedIntegeЫ ["<б Ч ">"].\r
\r
UnsignedIntegeЫ й  Digitч DigiЗ }.\r
\r
CommentTexЗ й  ч Anщ characteЫ excepЗ "]б oЫ closт commenЗ }.\r
\r
\r
Note║ Onlщ ▶02◀uppeЫ caseѓ letterз arт recognizeС aз directives.\r
\r
Note║ Aз defineС aboveг р Directivт maщ bт withiЬ р commenЗ Ї
specifyinу р PascaВ CompilerOptionList« OЬ mosЗ implementationз Ї
thiз iз р "$б followeС bщ р serieз oТ letterз anС valueз е "+"г Ї
б-"г oЫ digitз )г separateС bщ commes« Seт youЫ locaВ manual.\r
\r
\r
Exampleз oТ DirectiveComments:\r
\r
(ф[A=15г E=3г N=1-1<]*Е Г gooС foЫ publicatioЬ qualжty.\r
(ф[G=0г W=1-100г  C+]*Е Г gooС foЫ compacЗ storage.\r
(ф$UФ [R=▒-72г I=2]*Е  Г aЬ examplт oТ р DirectiveLisЗ witУ р Ї
                           compileroption.\r
\r
Noticт thaЗ thт DirectiveCommentз ▶13◀▶02◀must▶02◀Њ bт placeС immidiatelщ Ї
afteЫ thт openinу commenЗ Г n№ spaceз betweeЬ arт allowed.\r
\r
.pa\rі\r
▶02◀Directives to Pascform▶02◀\r
\r
A=n  Align declarations.\r
   Thт ┴ directivт forceз thт alignmenЗ oТ ":б anС "=б iЬ Ї
   declarations.\r
   Thт parameteЫ "nб shoulС holС thт lengtУ aТ thт longesЗ Ї
   declaratioЬ-name« Thт ┴ Г witУ Ь <Й ░ Г directivт wilВ alligЬ Ї
   thт declarationз from thт sourcт program.\r
   Thт ┴ directivт visuallщ clarifieз thт declaratioЬ parЗ oТ Ї
   youЫ program.\r
   Default: A=0 (no alignment).\r
\r
BФ oЫ ┬Г BuncУ statementз anС declarationз reasonably.\r
   BФ wilВ placт aз manщ statementз oЫ declarationз ont№ onт linт    Ї
   aз wilВ fiЗ withiЬ thт specifieС writт marginз (О directiveЕ    Ї
   subjecЗ t№ readabilitщ constraints« Bunchinу (B+Е wheЬ thт      Ї
   displaщ iз ofТ (─-Е haз n№ effect« IЬ generalг BФ saveз papeЫ    Ї
   anС preventз youЫ prograь froь becomminу overlщ stretcheС iЬ    Ї
   thт verticaВ direction.\r
   Default: B- (one statement or statementpart per line).\r
\r
C+ or C- Fully compress program.\r
   CФ removeз alВ noЬ-essentiaВ blanksг enС-oТ-linesг anС Ї
   commentз froь youЫ program«  ┴ compilableг packeС prograь  Ї
   wilВ bт writteЬ withiЬ thт specifieС writт marginз (О Ї
   directive)«  Thт numbeЫ oТ spaceз specifieС bщ thт К directivт Ї
   wilВ stilВ bт writteЬ betweeЬ symbols«  CФ mighЗ savт somт Ї
   spacт oЬ lonу-terь storagт mediр sucУ aз disk╗ yoш mighЗ storт Ї
   р prograь iЬ compresseС forь anС expanС iЗ lateЫ bщ Ї
   reformattinу witУ ├-.\r
   Default: C-.\r
\r
D+ or D- Turn display on or off.\r
   ─ allowз yoш t№ selectivelщ displaщ portionз oТ youЫ prograь Ї
   durinу formatting«  Thereforeг ─ musЗ bт switcheС oЬ anС ofТ Ї
   witУ directiveз whicУ arт appropriatelщ placeС iЬ youЫ Ї
   program« ─ iз perhapз usefuВ t№ obtaiЬ prograь fragmentз foЫ Ї
   publicatioЬ (sucУ aз onт oЫ morт proceduresЕ withouЗ havinу t№ Ї
   prinЗ thт wholт program.\r
   Default: D+.\r
\r
E=n Supply END comments.\r
   Thт ┼ directivт generateз commentз afteЫ "ENDб symbolз iТ nonт Ї
   arт alreadщ there«  CommoЬ PascaВ codinу styleз frequentlщ Ї
   emploщ thesт comments«  E=▒ createз commentз afteЫ thт "ENDб Ї
   symboВ iЬ compounС statementз whicУ arт withiЬ structureС Ї
   statementsг aз welВ aз thosт constitutinу procedurт anС Ї
   functioЬ bodies«  Thт commenЗ takeз thт form║ Ї
   (*StatementPart*Е oЫ (*ProcedureName*)«  E=▓ createз commentз Ї
   afteЫ thт "BEGINб anС "ENDб symbolз constitutinу procedurт anС Ї
   functioЬ bodieз only«  E=░ createз n№ commentз aЗ all.\r
   E=3 means E=1 and E=2.\r
   Default: E=2.\r
.pa\rі\r
F+ or F- Turn formatting on or off.\r
   к allowз yoш t№ formaЗ selecteС portionз oТ youЫ program« \r
   кГ causeз Pascform t№ copщ thт inpuЗ prograь directlщ witУ n№ Ї
   changes« Thereforт bщ switchinу к oЬ anС ofТ witУ directiveз Ї
   whicУ arт appropriatelщ placeС iЬ youЫ programг yoш caЬ Ї
   preservт texЗ whicУ iз alreadщ properlщ formatteС (sucУ aз Ї
   comments).\r
   Default: F+ (of course!).\r
\r
G=n Specify symbol gap.\r
   Thт К directivт determineз thт numbeЫ oТ spaceз placeС betweeЬ Ї
   PascaВ symbolз durinу formatting«  G=░ stilВ placeз onт spacт Ї
   betweeЬ tw№ identifierз anС reserveС words«\r
   Thт symbolз █ П е Е г anС ║ arт handleС independentlщ oТ G.\r
   Default: G=1.\r
\r
I=n Specify Indent tab.\r
   ╔ indentз eacУ nestinу leveВ oТ statementз anС declarationз a\r
   giveЬ numbeЫ oТ columns«  Usinу I=▓ oЫ I=▒ helpз prevent\r
   excessivelщ-narroэ lineз withiЬ thт specifieС writт margins\r
   (О directiveЕ wherт therт arт heavilщ-nesteС constructs.\r
   Default: I=3.\r
\r
L=n Specify Line-wraparound indent tab.\r
   L determines the indentation of the remainder of statements or\r
   declarations which are to long to fit one line.\r
   Default: L=3.\r
\r
N=x-щ< oЫ N=x-yЙ Generatт linenumberз t№ thт lefЗ oЫ right.\r
   IТ щ Й ░ theЬ linт-numberз arт writteЬ outsidт thт specifieС Ї
   writт marginз foЫ thт formatteС prograь iЬ sequentiaВ ordeЫ Ї
   startinу aЗ x╗ ┘ й ░ shutз ofТ linт-numbering« "<б writeз u▶f0◀ Ї
   t№ ┤-digitг righЗ-justifieС linт-numberз togetheЫ witУ р Ї
   trailinу spacт t№ thт lefЗ oТ eacУ line«  ">б writeз Х-digitг Ї
   zerofilleС linтГnumberз t№ thт righЗ oТ eacУ line.\r
   Usт thт ╬ directivт alonу witУ thт О directive.\r
   DefaulЗ N=░-░ (n№ linт-numbers).\r
\r
P=Ь Specifщ spacinу betweeЬ Procedurт anС FunctioЬ declarations.\r
   Thт л directivт determineз thт numbeЫ oТ blanв lineз t№ bт Ї
   placeС betweeЬ procedurт anС functioЬ declarations« N>▓ makeз Ї
   procedureз anС functionз visuallщ stanС out.\r
   Default: P=2.\r
\r
R=x-y Specify Read margins.\r
   Thт м directivт indicateз whicУ columnз arт significanЗ wheЬ Ї
   Pascform readз froь inpuЗ file« м allowз Pascform t№ accepЗ fileз Ї
   whicУ havт linт-numberз iЬ thт firsЗ (Э-1Е columnз oЫ afteЫ Ї
   thт ytУ column.\r
   Default║ R=▒-99╣ (largт enougУ t№ reaС t№ enС-oТ-linт iЬ mosЗ Ї
   cases).\r
.pa\rі\r
S=n  Specify Statement separation.\r
   Thт М directivт determineз thт numbeЫ oТ spaceз betweeЬ Ї
   statementз buncheС oЬ thт samт linт bщ thт usт oТ thт BФ Ї
   directive« Notт thaЗ thiз directivт iз onlщ iЬ effecЗ iТ BФ iз Ї
   used.\r
   Default: S=3.\r
\r
W=x-y Specify Write margins.\r
   Thт э directivт indicateз whicУ columnз arт useС foЫ writinу Ї
   thт reformatteС prograь oЬ thт outputfile« Anщ linт-numberз Ї
   generateС (╬ directiveЕ arт writteЬ outsidт thesт margins.\r
   Default:  W=1-72.\r
\r
\r
\r
▶02◀Examples:▶02◀\r
\r
▶13◀Thт ┴ Directive▶13◀\r
\r
Herт iз р samplт prograь fragmenЗ beforт usinу Pascform:\r
\r
PROGRAM SAMPLE(OUTPUT);\r
CONST A=6; ABC='LETTERS';  THREE=3;\r
TYPE RANGE=1..6;\r
COLOUR=(RED,BLUE);\r
VAR\r
I,I2,I33,I444,I5555:RANGE;\r
YES,NO,MAYBE:BOOLEAN;\r
BEGIN END.\r
\r
Herт iз thт outpuЗ froь Pascform witУ alВ defaultз set:\r
\r
PROGRAM SAMPLE(OUTPUT);\r
\r
CONST\r
   A = 6;\r
   ABC = 'LETTERS';\r
   THREE = 3;\r
   \r
TYPE\r
   RANGE = 1..6;\r
   COLOUR = (RED, BLUE);\r
   \r
VAR\r
   I, I2, I33, I444, I5555: RANGE;\r
   YES, NO, MAYBE: BOOLEAN;\r
   \r
BEGIN\r
END (*SAMPLE*).\r
.pa\rі\r
Herт iз thт outpuЗ froь Pascform havinу addeС р linт witУ thт A=х Ї
directive║ (ф aз thт originaВ manuaВ explainз *)\r
\r
{[A=5]}\r
PROGRAM SAMPLE(OUTPUT);\r
\r
CONST\r
      A = 6;\r
    ABC = 'LETTERS';\r
  THREE = 3;\r
   \r
TYPE\r
  RANGE = 1..6;\r
 COLOUR = (RED, BLUE);\r
   \r
VAR\r
       I,\r
      I2,\r
     I33,\r
    I444,\r
   I5555: RANGE;\r
     YES,\r
      NO,\r
   MAYBE: BOOLEAN;\r
   \r
BEGIN\r
END (*SAMPLE*).\r
.pa\rі\r
▶13◀Thт ┬ Directive▶13◀\r
\r
IТ thт inpuЗ to Pascform is:\r
\r
PROGRAM T(OUTPUT);\r
CONST INCREMENT = 5;\r
VAR I,J,N:INTEGER;\r
BEGIN\r
N:=0;\r
J:=3; I:=SQR(N); N:=N+INCREMENT;\r
IF N>73 THEN BEGIN DOTHIS; DOTHAT END;\r
IF N>5 THEN IF J>6 THEN DOSOMETHINGELSE;\r
END.\r
\r
theЬ thт outpuЗ froь Pascform е usinу thт defaulЗг BГ Е is\r
\r
\r
PROGRAM T(OUTPUT);\r
\r
CONST\r
   INCREMENT = 5;\r
   \r
VAR\r
   I, J, N: INTEGER;\r
   \r
BEGIN\r
   N := 0;\r
   J := 3;\r
   I := SQR(N);\r
   N := N + INCREMENT;\r
   IF N > 73   THEN\r
      BEGIN\r
         DOTHIS;\r
         DOTHAT\r
      END (*IF*);\r
   IF N > 5   THEN\r
      IF J > 6   THEN\r
         DOSOMETHINGELSE;\r
END (*T*).\r
.pa\rі \r
anС thт outpuЗ froь Pascform witУ ┬ directiveз embeddeС is:\r
\r
(*[B+] bunch statements *)\r
PROGRAM T(OUTPUT);\r
\r
CONST\r
   INCREMENT = 5;\r
   \r
VAR\r
   I, J, N: INTEGER;\r
   \r
BEGIN\r
   N := 0;   J := 3;   I := SQR(N);   N := N + INCREMENT;\r
   IF N > 73   THEN   BEGIN   DOTHIS;   DOTHAT   END;\r
   IF N > 5   THEN   IF J > 6   THEN   DOSOMETHINGELSE;\r
END (*T*).\r
\r
\r
▶13◀Thт ┼ Directive:▶13◀\r
\r
Supposт thaЗ р PascaВ prograь fragmenЗ looвeС likт:\r
\r
(*[E=3]*)\r
PROCEDURE SAMPLE;\r
  PROCEDURE INNER;\r
  BEGIN END;\r
BEGIN\r
  IF X=3 THEN\r
            BEGIN X:=1; I:=I+1;\r
            END\r
         ELSE\r
            BEGIN X:=X+I; I:=0;\r
            END;\r
  WHILE (CH<>'X' AND FLAG1 DO\r
    BEGIN I:=I+3; INNER END; END;\r
.pa\rі\r
theЬ usinу Pascform witУ E=│ produces:\r
\r
(*[E=3]*)\r
\r
PROCEDURE SAMPLE;\r
   \r
   \r
   PROCEDURE INNER;\r
      \r
      BEGIN\r
      END (*INNER*);\r
   \r
   \r
   BEGIN (*SAMPLE*)\r
      IF X = 3\r
      THEN\r
         BEGIN\r
            X := 1;\r
            I := I + 1;\r
         END (*IF*)\r
      ELSE\r
         BEGIN\r
            X := X + I;\r
            I := 0;\r
         END (*ELSE*);\r
      WHILE (CH <> 'X' AND FLAG1 DO\r
         BEGIN\r
            I := I + 3;\r
            INNER\r
         END (*WHILE*);\r
   END (*SAMPLE*);\r
\r
▶13◀Thт ╬ directive:▶13◀\r
\r
Formattinу thт firsЗ exampleь witУ thт directivт [N=░-1<П addeС Ї
resultз iЬ thт followinу formatteС program:\r
\r
{[A=5,N=0-1<]}\r
   0 PROGRAM SAMPLE(OUTPUT);\r
   1 \r
   2 CONST\r
   3    A = 6;\r
   4    ABC = 'LETTERS';\r
   5    THREE = 3;\r
   6    \r
   7 TYPE\r
   8    RANGE = 1..6;\r
   9    COLOUR = (RED, BLUE);\r
  10    \r
  11 VAR\r
  12    I, I2, I33, I444, I5555: RANGE;\r
  13    YES, NO, MAYBE: BOOLEAN;\r
  14    \r
  15 BEGIN\r
  16 END (*SAMPLE*).\r
  17 \r
.pa\rі\r
▶02◀Hoэ Pascform works▶02◀\r
\r
Pascform parseз youЫ prograь bщ performinу syntaЭ analysiз similaЫ Ї
t№ thт PascaВ compiler║ recursivт descenЗ withiЬ nesteС Ї
declarationз anС statements« IЗ gatherз characterз int№ р buffeЫ Ї
iЬ whicУ thт indentinу counЗ oТ eacУ characteЫ iз maintained« Thт Ї
characterз arт beinу continuallщ emptieС froь thт buffeЫ aз neэ Ї
oЬeз arт added.\r
\r
Pascform haз limiteС erroЫ-recoverщ facilitiesг anС n№ resultз arт Ї
guaranteeС iТ р syntacticallщ-incorrecЗ prograь iз supplieС aз Ї
in▶f0◀ut.\r
\r
Thт banт oТ mosЗ PascaВ prettyprinterз iз thт treatmenЗ oТ Ї
comments« Pascform considerз theь iЬ thт contexЗ oТ р declaratioЬ Ї
oЫ statementr« Thereforт usinу commentз like\r
    CONSн LS=Х (ф LINESIZE*);\r
iз р gooС ideр becausт Pascform wilВ carrщ thт commenЗ alonу witУ Ї
tУт declaration.\r
Similary:\r
    BEGI╬ (ф 'Z'╝ C╚ <й Д Д *)\r
iз alls№ okay.\r
StanС-alonт commentз howeverг receivт rougУ treatmenЗ froь Ї
Pascform« Thт firsЗ linт aТ sucУ commentз arт allwayз lefЗ-Ї
justifieС anС placeС oЬ р separatт line« Seт thт к directive« Ї
Thus:\r
    CONSн LS=6╗ (ф LINESIZ┼ *)\r
wilВ bт reformatteС as:\r
    CONST\r
       LМ й 6;\r
    (ф LINESIZ┼ *)\r
PropeЫ treatmenЗ oТ commentз iз certainlщ aЬ areр oТ futurт Ї
devel№pmenЗ foЫ Pascform.\r
\r
\r
▶13◀Pascform issueз thт followinу erroЫ messages:▶13◀\r
\r
1«  б **ф 'PROGRA═ EXPECTED."\r
    Thт PascaВ prograь yoш feС t№ Pascform diС noЗ contaiЬ р Ї
    StandaЫС PascaВ prograь declaration.\r
\r
2«  б **ф ERRORМ FOUN─ I╬ PASCA╠ PROGRAM."\r
    YouЫ prograь iз syntacticallщ incorrect« Thт outpuЗ froь Ї
    Pascform proballщ doeз noЗ contaiЬ alВ oТ thт texЗ froь youЫ Ї
    inpuЗ file« Thт causт bт anщ syntactiс errorг mosЗ commonlщ Ї
    unmatcheС "BEGI╬ ENDб pairsг oЫ thт lacв oТ semicolonsг Ї
    strinу quotatioЬ marksг oЫ thт finaВ period.\r
\r
3«  "STRINК TO¤ LONG."\r
    YouЫ prograь containз р characteЫ strinу е includinу botУ thт Ї
    quoteз Е whicУ iз wideЫ thaЬ thт specifeС writт marginз        Ї
    е О directivт ).\r
\r
4«  "N¤ PROGRA═ FOUN─ T¤ FORMAT."\r
     Thт inpuЗ filт giveЬ t№ Pascform iз empty.\r
.pa\rі\r
▶02◀History▶02◀\r
\r
Pascformг witУ thт originaВ namт "Format"г waз writteЬ iЬ 197х bщ Ї
MichaeВ CondicЗ aз р clasз projecЗ iЬ р PascaВ programminу coursт Ї
taugtУ bщ RicharС Cichellж aЗ LehigУ Universitщ usinу CD├-600░ Ї
Pascal« AfteЫ thatг makinу improvementз anС adding directiveз Ї
becameг temporarilyг aЬ obsessioЬ witУ thт authoЫ е notт limiteС Ї
usefulnesз oТ thт ─ directivт )« Fortunatelyг thт prograь Ї
eventuallщ stabilizeС anС iз noэ iЬ generaВ usт bщ PascaВ Ї
programmerз aЗ LehigУ Universitщ anС otheЫ institutions« AfteЫ Ї
graduatioЬ thт authoЫ transporteС Pascform t№ р PDл-1▒ runninу Ї
undeЫ thт SwedisУ PascaВ compileЫ RSп-1▒ witУ р totaВ efforЗ aТ ▓ Ї
days.\r
\r
Assistancт iЬ bringinу u▶f0◀ Pascform maщ bт obtaineС bщ writinу t№ Ї
MichaeВ CondicЗ aЗ PatterЬ Analysiз anС RecognitioЬ Corporationг Ї
22И Libertщ Plazaг Romeг N┘ 13440« Pascform haз beeЬ madт aз Ї
portablт aз possibleг buЗ portablт programз arт hampereС bщ noЬ-Ї
standarС characteЫ setз anС noЬ-standarС techniqueз foЫ Ї
associatinу prograь objectз е e.g« filт variableз Е witУ Ї
operativт systeь objectз е e.g« fileз aз masз-storagт deviceз ).\r
\r
Thт PDл-1▒ versioЬ oТ Pascform useз р procedure║ Ї
"ConnectFilesVarsToExtFilesб whicУ serveз aз р functioЬ similaЫ Ї
t№ standarС PascaВ prograь headerз foЫ externaВ files« Thiз Ї
versioЬ accepЗ initiaВ valueз foЫ directiveз afteЫ iЗ typeз р Ї
proьpЗ foЫ yoш aЗ youЫ interactivт terminal.\r
\r
OЬ thт otheЫ handг thт CD├-600░ versioЬ acceptз initiaВ valueз Ї
foЫ directiveз afteЫ aЬ "/б oЬ thт operatinу systeь controВ Ї
stateьenЗ whicУ executeз Pascform.\r
\r
Pascform waз modifieС foЫ inclusioЬ witУ Releasт │ oТ CD├-600░ Ї
PascaВ bщ Ricв L« Marcuз anС Andщ Mickelг Universitщ oТ Ї
Minnesotaг iЬ NovembeЫ 1978. \r
\r
Thт Pascforь prograь waз transfereС t№ Turb№ PascaВ 4г anС agaiЬ Ї
modifieС iЬ AugusЗ 198И t№ handlт speciaВ Turb№ PascaВ anС ReaВ-Ї
timт PascaВ syntaЭ bщ Hanз J▶1b◀Џ▶1c◀rgeЬ Jacobsenг JutlanС Telephonт Ї
Compagnyг Denmark.\r
\r
\r
«eof»
DataMuseum.dk

DANOSI

⟦31fb6fc3f⟧ TextFile

Derivation

TextFile
