PrintCapitalised (lines 6188-6217)
Back to List
Browsing parserm.h
6188 #Endif; ! TARGET_
6189
6190 [ PrintCapitalised obj prop flag nocaps centred length i width;
6191 ! a variation of PrintOrRun, capitalising the first letter and returning nothing
6192
6193 if (obj ofclass String || prop == 0) {
6194 PrintToBuffer (StorageForShortName, 160, obj);
6195 flag = 1;
6196 }
6197 else
6198 if (obj.#prop > WORDSIZE || metaclass(obj.prop) == Routine or String) {
6199 PrintToBuffer(StorageForShortName, 160, obj, prop);
6200 }
6201 else
6202 if (obj.prop == NULL) rfalse;
6203 else return RunTimeError(2, obj, prop);
6204
6205 length = StorageForShortName-->0;
6206 width = ScreenWidth();
6207 if (centred && length<width)
6208 spaces ( (width-length)/2 );
6209 if (~~nocaps)
6210 StorageForShortName->WORDSIZE = UpperCase(StorageForShortName->WORDSIZE);
6211
6212 for (i=WORDSIZE: i<length+WORDSIZE: i++) print (char) StorageForShortName->i;
6213
6214 if (flag == 0 && obj.#prop == WORDSIZE && metaclass(obj.prop) == String)
6215 new_line;
6216 return;
6217 ];
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 assisted by C Knight.