PrefaceByArticle (lines 4411-4461)
Back to List
Browsing parserm.h
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 site is no longer supported; information may be out of date.
Maintained as a historical archive by the Interactive Fiction Technology Foundation.
Copyright 1993-2018 IFTF, CC-BY-SA unless otherwise noted.
This page was originally managed by Graham Nelson (graham@gnelson.demon.co.uk) assisted by C Knight.