Inform - Support - Source

Back to List

Inventory
Complete

Backward
Forward

Plain
Coloured
Gaudy

This code
in plain text

Browsing parserm.h

PrefaceByArticle (lines 4411-4461)

4411  #ENDIF;
4412   
4413  #ifv5;
4414  Array StorageForShortName --> 161;
4415  #endif;
4416   
4417  [ PrefaceByArticle o acode pluralise  i artform findout;
4418   
4419     if (o provides articles)
4420     {   print (string) (o.&articles)-->(acode+short_name_case*LanguageCases),
4421             " ";
4422         if (pluralise) return;
4423         print (PSN__) o; return;
4424     }
4425   
4426     i = GetGNAOfObject(o);
4427     if (pluralise)
4428     {   if (i<3 || (i>=6 && i<9)) i = i + 3;
4429     }
4430     i = LanguageGNAsToArticles-->i;
4431   
4432     artform = LanguageArticles
4433               + 6*LanguageContractionForms*(short_name_case + i*LanguageCases);
4434   
4435  #iftrue LanguageContractionForms == 2;
4436     if (artform-->acode ~= artform-->(acode+3)) findout = true;
4437  #endif;
4438  #iftrue LanguageContractionForms == 3;
4439     if (artform-->acode ~= artform-->(acode+3)) findout = true;
4440     if (artform-->(acode+3) ~= artform-->(acode+6)) findout = true;
4441  #endif;
4442  #iftrue LanguageContractionForms == 4;
4443     if (artform-->acode ~= artform-->(acode+3)) findout = true;
4444     if (artform-->(acode+3) ~= artform-->(acode+6)) findout = true;
4445     if (artform-->(acode+6) ~= artform-->(acode+9)) findout = true;
4446  #endif;
4447  #iftrue LanguageContractionForms > 4;
4448     findout = true;
4449  #endif;
4450     if (standard_interpreter ~= 0 && findout)
4451     {   StorageForShortName-->0 = 160;
4452         @output_stream 3 StorageForShortName;
4453         if (pluralise) print (number) pluralise; else print (PSN__) o;
4454         @output_stream -3;
4455         acode = acode + 3*LanguageContraction(StorageForShortName + 2);
4456     }
4457   
4458     print (string) artform-->acode;
4459     if (pluralise) return;
4460     print (PSN__) o;
4461  ];


Last updated 27 February 2004. This web site has not been fully supported since April 2008. Information may be out of date. This page was originally managed by Graham Nelson (graham@gnelson.demon.co.uk) assisted by C Knight.