#ifndef srctext_DEFINED #define srctext_DEFINED 1 #ifndef class_DEFINED #include #endif /* class_DEFINED */ /* * This file was generated by the Andrew class system preprocessor. * Don't make changes to this file as it is created from srctext.ch and will be * overwritten. Make changes to srctext.ch instead. */ #ifndef class_StaticInfoOnly /* * The following information was copied, as-is, from srctext.ch. */ /* File srctext.ch created by R L Quinn srctext.ch: Text subclass specialized for dealing with source code text views. */ /* Copyright1988, 1994 Carnegie Mellon University and IBM. All rights reserved. $Disclaimer: *Permission to use, copy, modify, and distribute this software and its *documentation for any purpose is hereby granted without fee, *provided that the above copyright notice appear in all copies and that *both that copyright notice, this permission notice, and the following *disclaimer appear in supporting documentation, and that the names of *IBM, Carnegie Mellon University, and other copyright holders, not be *used in advertising or publicity pertaining to distribution of the software *without specific, written prior permission. * *IBM, CARNEGIE MELLON UNIVERSITY, AND THE OTHER COPYRIGHT HOLDERS *DISCLAIM ALL WARRANTIES WITH REGARD TO THIS SOFTWARE, INCLUDING *ALL IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS. IN NO EVENT *SHALL IBM, CARNEGIE MELLON UNIVERSITY, OR ANY OTHER COPYRIGHT HOLDER *BE LIABLE FOR ANY SPECIAL, INDIRECT OR CONSEQUENTIAL DAMAGES OR ANY *DAMAGES WHATSOEVER RESULTING FROM LOSS OF USE, DATA OR PROFITS, *WHETHER IN AN ACTION OF CONTRACT, NEGLIGENCE OR OTHER TORTIOUS *ACTION, ARISING OUT OF OR IN CONNECTION WITH THE USE OR PERFORMANCE *OF THIS SOFTWARE. * $ */ #include /* for keyword hash-table lookup */ #define TABLESIZE 53 #define HASH(word) ((*(word)+word[strlen(word)-1]*strlen(word))%TABLESIZE) /* arbitrary number for how many Tab Stops can be set */ #define MAX_TABSTOPS 80 /* kinds of styles that are used in hash table (other style numbers are defined in subclasses) */ #define MAX_STYLES 16 #define UPRCSE 0 /* a null style array entry for uppercase words */ /* values from 1 to MAX_STYLES-2 can be used for subclass-specific styles */ #define USRDEF MAX_STYLES-1 /* user-defined keywords */ typedef struct DictStruct { char *stng; short val; /*bits contain indentation info*/ short kind; /*used for multiple style types*/ struct DictStruct *next; } Dict; static boolean is_whitespace(ch) char ch; { return (ch==' ')||(ch=='\t'); } static char *makeupper(str) char *str; { char *st; st=str; while(*str!=0) { if(islower(*str)) *str=toupper(*str); str++; } return st; } /* * End of information copied from srctext.ch. */ #endif /* class_StaticInfoOnly *//* * Include the superclass information */ #define dontDefineRoutinesFor_text #include "text.ih" #undef dontDefineRoutinesFor_text #ifndef class_StaticInfoOnly /* * Data structure for srctext */ struct srctext { union { struct basicobject_methods *srctext_methods; struct traced traced; struct observable observable; struct dataobject dataobject; struct simpletext simpletext; struct text text; } header; Dict **words; boolean forceUpper, useTabs, reindentComments, indentingEnabled; /* Generic styles. Specific styles go into kindStyle array. */ struct style *comment_style, *linecomment_style, *function_style, *label_style, *string_style; struct style *kindStyle[MAX_STYLES]; /* Variables used to control the indenting style. */ int commentIndent, contIndent, levelIndent; int tabSize, numTabStops, tabStop[MAX_TABSTOPS]; /* Variables used by Esc-1 and Esc-2 comment insertion */ char *commentString, *linecommentString; int commentCol, linecommentCol; boolean commentFixed, linecommentFixed; int remarkPadding; /* Proc callback pointers. */ procedure *preWriteFctn, *postWriteFctn; /* "Temporary" stuff. maxlinelength stuff should go away as soon as programmers stop using punch cards (and fixed-length records) for their source code. RSK91overstrike stuff would be better implemented in ATK's text(VIEW) object. */ long maxlinelength; boolean OverstrikeMode; /*RSK91overstrike*/ /*ideally, this should be associated with the view; unfortunately, the view is not known to srctext_InsertCharacters, which is where the overstriking is being done. But doing it in _InsertCharacters was a mistake *anyway*, so...*/ }; /* * End of data structure for srctext. */ #endif /* class_StaticInfoOnly */ #ifndef class_StaticInfoOnly #ifndef srctext_PROGRAMMERVERSION #define srctext_PROGRAMMERVERSION 1 #endif /* srctext_PROGRAMMERVERSION */ #ifdef srctext_VERSION #undef srctext_VERSION #endif /* srctext_VERSION */ #define srctext_VERSION ((((srctext_PROGRAMMERVERSION << 16) ^ (122 << 8) ^ sizeof(struct srctext)) & 0x7ffff) + 0x80000 + (65 << 20)) #endif /* class_StaticInfoOnly */ #define srctext_StaticLoadOnlyThisClass() \ { extern struct classinfo *srctext__GetClassInfo(); \ extern struct classheader *srctext_classheader_StaticExport; \ (void) class_EnterInfo(NULL, srctext_classheader_StaticExport->name, srctext__GetClassInfo, NULL, srctext_classheader_StaticExport->namekey); } #define srctext_StaticLoad() \ { \ text_StaticLoad(); \ srctext_StaticLoadOnlyThisClass(); \ } #define srctext_StaticEntry {srctext_StaticLoad()} #ifndef class_StaticInfoOnly static struct classheader srctext_classheader = { srctext_VERSION, "srctext", "srctext", (struct basicobject_methods *) &class_RoutineStruct, }; #define srctext_CLASSPROCEDURES (srctext_classheader.classprocedures) int srctext_classref_; #endif /* class_StaticInfoOnly */ #endif /* srctext_DEFINED */ #if !defined(srctext_ROUTINESDEFINED) && !defined(dontDefineRoutinesFor_srctext) && !defined(class_StaticEntriesOnly) #define srctext_ROUTINESDEFINED #define srctext_Reference(self) \ (((&(self)->header.traced))->refcount++) #define srctext_UnReference(self) \ ((((&(self)->header.traced))->refcount>0)?((&(self)->header.traced))->refcount--:0) #define srctext_ReferenceCount(self) \ (((&(self)->header.traced))->refcount) #define srctext_AddObserver(self,observer) \ ((* ((void (*)())((self)->header.srctext_methods->routines[0]))) (self,observer)) #define srctext_IsObserver(self,observer) \ ((* ((boolean (*)())((self)->header.srctext_methods->routines[1]))) (self,observer)) #define srctext_RemoveObserver(self,observer) \ ((* ((void (*)())((self)->header.srctext_methods->routines[2]))) (self,observer)) #define srctext_NotifyObservers(self,value) \ ((* ((void (*)())((self)->header.srctext_methods->routines[3]))) (self,value)) #define srctext_ObservedChanged(self,changed,value) \ ((* ((void (*)())((self)->header.srctext_methods->routines[4]))) (self,changed,value)) #define srctext_AddRecipient(self,trigger,rcvr,func,rock) \ ((* ((boolean (*)())((self)->header.srctext_methods->routines[5]))) (self,trigger,rcvr,func,rock)) #define srctext_DeleteRecipient(self,trigger,rcvr) \ ((* ((void (*)())((self)->header.srctext_methods->routines[6]))) (self,trigger,rcvr)) #define srctext_PullTrigger(self,trigger) \ ((* ((void (*)())((self)->header.srctext_methods->routines[7]))) (self,trigger)) #define srctext_DisableTrigger(self,trigger) \ ((* ((void (*)())((self)->header.srctext_methods->routines[8]))) (self,trigger)) #define srctext_EnableTrigger(self,trigger) \ ((* ((void (*)())((self)->header.srctext_methods->routines[9]))) (self,trigger)) #define srctext_DisableCount(self,trigger) \ ((* ((long (*)())((self)->header.srctext_methods->routines[10]))) (self,trigger)) #define srctext_Read(self,file,id) \ ((* ((long (*)())((self)->header.srctext_methods->routines[11]))) (self,file,id)) #define srctext_Write(self,file,writeid,level) \ ((* ((long (*)())((self)->header.srctext_methods->routines[12]))) (self,file,writeid,level)) #define srctext_ReadOtherFormat(self,file,fmt,encoding,description) \ ((* ((boolean (*)())((self)->header.srctext_methods->routines[13]))) (self,file,fmt,encoding,description)) #define srctext_WriteOtherFormat(self,file,writeid,level,usagetype,boundary) \ ((* ((long (*)())((self)->header.srctext_methods->routines[14]))) (self,file,writeid,level,usagetype,boundary)) #define srctext_GetModified(self) \ ((* ((long (*)())((self)->header.srctext_methods->routines[15]))) (self)) #define srctext_SetModified(self) \ ((* ((void (*)())((self)->header.srctext_methods->routines[16]))) (self)) #define srctext_ViewName(self) \ ((* ((char * (*)())((self)->header.srctext_methods->routines[17]))) (self)) #define srctext_SetAttributes(self,attributes) \ ((* ((void (*)())((self)->header.srctext_methods->routines[18]))) (self,attributes)) #define srctext_Put(self,property,type,rock) \ ((* ((void (*)())((self)->header.srctext_methods->routines[19]))) (self,property,type,rock)) #define srctext_Get(self,property,type,rock) \ ((* ((short (*)())((self)->header.srctext_methods->routines[20]))) (self,property,type,rock)) #define srctext_ListCurrentViews(self,array,size) \ ((* ((int (*)())((self)->header.srctext_methods->routines[21]))) (self,array,size)) #define srctext_RestoreModified(self,oldmodified) \ ((* ((void (*)())((self)->header.srctext_methods->routines[22]))) (self,oldmodified)) #define srctext_UniqueID(self) \ ((long)((&(self)->header.dataobject))) #define srctext_GetWriteID(self) \ ( ((&(self)->header.dataobject))->writeID ) #define srctext_SetWriteID(self,newValue) \ ( (((&(self)->header.dataobject))->writeID) = (newValue) ) #define srctext_GetID(self) \ ( ((&(self)->header.dataobject))->id ) #define srctext_SetID(self,newValue) \ ( (((&(self)->header.dataobject))->id) = (newValue) ) #define srctext_CreateMark(self,pos,length) \ ((* ((struct mark * (*)())((self)->header.srctext_methods->routines[23]))) (self,pos,length)) #define srctext_RemoveMark(self,mark) \ ((* ((void (*)())((self)->header.srctext_methods->routines[24]))) (self,mark)) #define srctext_SetReadOnly(self,readOnly) \ ((* ((void (*)())((self)->header.srctext_methods->routines[25]))) (self,readOnly)) #define srctext_GetReadOnly(self) \ ((* ((boolean (*)())((self)->header.srctext_methods->routines[26]))) (self)) #define srctext_RegionModified(self,pos,len) \ ((* ((void (*)())((self)->header.srctext_methods->routines[27]))) (self,pos,len)) #define srctext_LengthChanged(self,pos,len) \ ((* ((void (*)())((self)->header.srctext_methods->routines[28]))) (self,pos,len)) #define srctext_Clear(self) \ ((* ((void (*)())((self)->header.srctext_methods->routines[29]))) (self)) #define srctext_InsertCharacters(self,pos,str,len) \ ((* ((boolean (*)())((self)->header.srctext_methods->routines[30]))) (self,pos,str,len)) #define srctext_AlwaysInsertCharacters(self,position,string,size) \ ((* ((void (*)())((self)->header.srctext_methods->routines[31]))) (self,position,string,size)) #define srctext_AddInCharacter(self,pos,c) \ ((* ((void (*)())((self)->header.srctext_methods->routines[32]))) (self,pos,c)) #define srctext_DeleteCharacters(self,pos,len) \ ((* ((boolean (*)())((self)->header.srctext_methods->routines[33]))) (self,pos,len)) #define srctext_AlwaysDeleteCharacters(self,position,size) \ ((* ((void (*)())((self)->header.srctext_methods->routines[34]))) (self,position,size)) #define srctext_ReplaceCharacters(self,pos,len,repStr,repLen) \ ((* ((boolean (*)())((self)->header.srctext_methods->routines[35]))) (self,pos,len,repStr,repLen)) #define srctext_AlwaysReplaceCharacters(self,pos,len,repStr,repLen) \ ((* ((void (*)())((self)->header.srctext_methods->routines[36]))) (self,pos,len,repStr,repLen)) #define srctext_GetLength(self) \ ((* ((long (*)())((self)->header.srctext_methods->routines[37]))) (self)) #define srctext_GetChar(self,pos) \ ((* ((long (*)())((self)->header.srctext_methods->routines[38]))) (self,pos)) #define srctext_GetUnsignedChar(self,pos) \ ((* ((long (*)())((self)->header.srctext_methods->routines[39]))) (self,pos)) #define srctext_GetBuf(self,pos,len,lenp) \ ((* ((char * (*)())((self)->header.srctext_methods->routines[40]))) (self,pos,len,lenp)) #define srctext_GetBufEnd(self,endpos,len,lenp) \ ((* ((char * (*)())((self)->header.srctext_methods->routines[41]))) (self,endpos,len,lenp)) #define srctext_GetGap(self,pos,len) \ ((* ((char * (*)())((self)->header.srctext_methods->routines[42]))) (self,pos,len)) #define srctext_GetPosForLine(self,line) \ ((* ((long (*)())((self)->header.srctext_methods->routines[43]))) (self,line)) #define srctext_GetLineForPos(self,pos) \ ((* ((long (*)())((self)->header.srctext_methods->routines[44]))) (self,pos)) #define srctext_GetBeginningOfLine(self,pos) \ ((* ((long (*)())((self)->header.srctext_methods->routines[45]))) (self,pos)) #define srctext_GetEndOfLine(self,pos) \ ((* ((long (*)())((self)->header.srctext_methods->routines[46]))) (self,pos)) #define srctext_CopyText(self,pos,srctext,srcpos,len) \ ((* ((boolean (*)())((self)->header.srctext_methods->routines[47]))) (self,pos,srctext,srcpos,len)) #define srctext_AlwaysCopyText(self,pos,srctext,srcpos,len) \ ((* ((void (*)())((self)->header.srctext_methods->routines[48]))) (self,pos,srctext,srcpos,len)) #define srctext_Index(self,pos,c,len) \ ((* ((long (*)())((self)->header.srctext_methods->routines[49]))) (self,pos,c,len)) #define srctext_Strncmp(self,pos,str,len) \ ((* ((int (*)())((self)->header.srctext_methods->routines[50]))) (self,pos,str,len)) #define srctext_Textncmp(self,pos,text,pos2,len) \ ((* ((int (*)())((self)->header.srctext_methods->routines[51]))) (self,pos,text,pos2,len)) #define srctext_ReadSubString(self,pos,file,quoteCharacters) \ ((* ((long (*)())((self)->header.srctext_methods->routines[52]))) (self,pos,file,quoteCharacters)) #define srctext_WriteSubString(self,pos,len,file,quoteCharacters) \ ((* ((void (*)())((self)->header.srctext_methods->routines[53]))) (self,pos,len,file,quoteCharacters)) #define srctext_CopySubString(self,pos,len,buf,quoteCharacters) \ ((* ((void (*)())((self)->header.srctext_methods->routines[54]))) (self,pos,len,buf,quoteCharacters)) #define srctext_HandleDataObject(self,pos,dop,file) \ ((* ((long (*)())((self)->header.srctext_methods->routines[55]))) (self,pos,dop,file)) #define srctext_HandleKeyWord(self,pos,keyword,file) \ ((* ((long (*)())((self)->header.srctext_methods->routines[56]))) (self,pos,keyword,file)) #define srctext_HandleCloseBrace(self,pos,file) \ ((* ((long (*)())((self)->header.srctext_methods->routines[57]))) (self,pos,file)) #define srctext_HandleBegindata(self,pos,file) \ ((* ((long (*)())((self)->header.srctext_methods->routines[58]))) (self,pos,file)) #define srctext_CheckHighBit(self) \ ((* ((boolean (*)())((self)->header.srctext_methods->routines[59]))) (self)) #define srctext_CopyTextExactly(self,pos,srctext,srcpos,len) \ ((* ((boolean (*)())((self)->header.srctext_methods->routines[60]))) (self,pos,srctext,srcpos,len)) #define srctext_AlwaysCopyTextExactly(self,pos,srctext,srcpos,len) \ ((* ((void (*)())((self)->header.srctext_methods->routines[61]))) (self,pos,srctext,srcpos,len)) #define srctext_GetFence(self) \ mark_GetLength(((&(self)->header.simpletext))->fence) #define srctext_SetFence(self,pos) \ mark_SetLength(((&(self)->header.simpletext))->fence, pos) #define srctext_ClearFence(self) \ mark_SetLength(((&(self)->header.simpletext))->fence, 0L) #define srctext_GetFenceMark(self) \ (((&(self)->header.simpletext))->fence) #define srctext_GetObjectInsertionFlag(self) \ (((&(self)->header.simpletext))->objectInsertionAllowed) #define srctext_SetObjectInsertionFlag(self,flag) \ (((&(self)->header.simpletext))->objectInsertionAllowed = (flag)) #define srctext_InsertObject(self,pos,name,viewname) \ ((* ((struct viewref * (*)())((self)->header.srctext_methods->routines[62]))) (self,pos,name,viewname)) #define srctext_AddStyle(self,pos,len,style) \ ((* ((struct environment * (*)())((self)->header.srctext_methods->routines[63]))) (self,pos,len,style)) #define srctext_AddView(self,pos,viewtype,dataobject) \ ((* ((struct environment * (*)())((self)->header.srctext_methods->routines[64]))) (self,pos,viewtype,dataobject)) #define srctext_AlwaysAddStyle(self,pos,len,style) \ ((* ((struct environment * (*)())((self)->header.srctext_methods->routines[65]))) (self,pos,len,style)) #define srctext_AlwaysAddView(self,pos,viewtype,dataobject) \ ((* ((struct environment * (*)())((self)->header.srctext_methods->routines[66]))) (self,pos,viewtype,dataobject)) #define srctext_SetEnvironmentStyle(self,envptr,styleptr) \ ((* ((void (*)())((self)->header.srctext_methods->routines[67]))) (self,envptr,styleptr)) #define srctext_SetGlobalStyle(self,styleptr) \ ((* ((void (*)())((self)->header.srctext_methods->routines[68]))) (self,styleptr)) #define srctext_GetGlobalStyle(self) \ ((* ((struct style * (*)())((self)->header.srctext_methods->routines[69]))) (self)) #define srctext_ReadTemplate(self,templateName,inserttemplatetext) \ ((* ((long (*)())((self)->header.srctext_methods->routines[70]))) (self,templateName,inserttemplatetext)) #define srctext_FindViewreference(self,pos,len) \ ((* ((struct viewref * (*)())((self)->header.srctext_methods->routines[71]))) (self,pos,len)) #define srctext_AlwaysInsertFile(self,file,filename,position) \ ((* ((long (*)())((self)->header.srctext_methods->routines[72]))) (self,file,filename,position)) #define srctext_InsertFile(self,file,filename,position) \ ((* ((long (*)())((self)->header.srctext_methods->routines[73]))) (self,file,filename,position)) #define srctext_ClearCompletely(self) \ ((* ((void (*)())((self)->header.srctext_methods->routines[74]))) (self)) #define srctext_EnumerateEnvironments(self,pos,len,callBack,rock) \ ((* ((struct environment * (*)())((self)->header.srctext_methods->routines[75]))) (self,pos,len,callBack,rock)) #define srctext_SetBaseTemplateName(self,name) \ ((* ((void (*)())((self)->header.srctext_methods->routines[76]))) (self,name)) #define srctext_AlwaysWrapViewChar(self,pos,view,dobj) \ ((* ((struct environment * (*)())((self)->header.srctext_methods->routines[77]))) (self,pos,view,dobj)) #define srctext_SetExportEnvironments(self,val) \ ((&(self)->header.text)->exportEnvs = val) #define srctext_GetExportEnvironments(self) \ ((&(self)->header.text)->exportEnvs) #define srctext_GetStyleSheet(self) \ ((&(self)->header.text)->styleSheet) #define srctext_SetWriteAsText(self,TorF) \ (((&(self)->header.text))->WriteAsText = TorF) #define srctext_GetWriteAsText(self) \ (((&(self)->header.text))->WriteAsText) #define srctext_SetCopyAsText(self,TorF) \ (((&(self)->header.text))->CopyAsText = TorF) #define srctext_GetCopyAsText(self) \ (((&(self)->header.text))->CopyAsText) #define srctext_GetWriteStyle(self) \ (((&(self)->header.text))->writeStyle) #define srctext_SetWriteStyle(self,style) \ (((&(self)->header.text))->writeStyle = style) #define srctext_GetBaseTemplateName(self) \ (((&(self)->header.text))->templateName) #define srctext_BackwardCheckWord(self,from,to) \ ((* ((void (*)())((self)->header.srctext_methods->routines[78]))) (self,from,to)) #define srctext_CheckComment(self,start) \ ((* ((long (*)())((self)->header.srctext_methods->routines[79]))) (self,start)) #define srctext_CheckLinecomment(self,start) \ ((* ((long (*)())((self)->header.srctext_methods->routines[80]))) (self,start)) #define srctext_CheckString(self,start) \ ((* ((long (*)())((self)->header.srctext_methods->routines[81]))) (self,start)) #define srctext_CheckWord(self,i,end) \ ((* ((long (*)())((self)->header.srctext_methods->routines[82]))) (self,i,end)) #define srctext_InCommentStart(self,pos) \ ((* ((long (*)())((self)->header.srctext_methods->routines[83]))) (self,pos)) #define srctext_Indentation(self,pos) \ ((* ((int (*)())((self)->header.srctext_methods->routines[84]))) (self,pos)) #define srctext_IsTokenChar(self,ch) \ ((* ((boolean (*)())((self)->header.srctext_methods->routines[85]))) (self,ch)) #define srctext_Keywordify(self,buff,checkforceupper) \ ((* ((char * (*)())((self)->header.srctext_methods->routines[86]))) (self,buff,checkforceupper)) #define srctext_RedoStyles(self) \ ((* ((void (*)())((self)->header.srctext_methods->routines[87]))) (self)) #define srctext_BackwardCheckLabel(self,pos) \ ((* ((void (*)())((self)->header.srctext_methods->routines[88]))) (self,pos)) #define srctext_BackwardCopyWord(self,from,to,buffer) \ ((* ((long (*)())((self)->header.srctext_methods->routines[89]))) (self,from,to,buffer)) #define srctext_BackwardSkipString(self,pos,delim) \ ((* ((long (*)())((self)->header.srctext_methods->routines[90]))) (self,pos,delim)) #define srctext_Breakable(self,pos) \ ((* ((boolean (*)())((self)->header.srctext_methods->routines[91]))) (self,pos)) #define srctext_BreakLine(self,endofline) \ ((* ((void (*)())((self)->header.srctext_methods->routines[92]))) (self,endofline)) #define srctext_CheckLineLengths(self,maxlen,view) \ ((* ((void (*)())((self)->header.srctext_methods->routines[93]))) (self,maxlen,view)) #define srctext_CopyWord(self,pos,end,buffer) \ ((* ((long (*)())((self)->header.srctext_methods->routines[94]))) (self,pos,end,buffer)) #define srctext_CurrentIndent(self,pos) \ ((* ((int (*)())((self)->header.srctext_methods->routines[95]))) (self,pos)) #define srctext_CurrentColumn(self,pos) \ ((* ((int (*)())((self)->header.srctext_methods->routines[96]))) (self,pos)) #define srctext_DoMatch(self,pos,str,len) \ ((* ((boolean (*)())((self)->header.srctext_methods->routines[97]))) (self,pos,str,len)) #define srctext_ExtendToOutdent(self,indent,pos,len) \ ((* ((boolean (*)())((self)->header.srctext_methods->routines[98]))) (self,indent,pos,len)) #define srctext_FindSrcInsets(self) \ ((* ((void (*)())((self)->header.srctext_methods->routines[99]))) (self)) #define srctext_GetEnvironment(self,pos) \ ((* ((struct environment * (*)())((self)->header.srctext_methods->routines[100]))) (self,pos)) #define srctext_GetStyle(self,pos) \ ((* ((struct style * (*)())((self)->header.srctext_methods->routines[101]))) (self,pos)) #define srctext_GetToken(self,pos,len) \ ((* ((void (*)())((self)->header.srctext_methods->routines[102]))) (self,pos,len)) #define srctext_Indent(self,range) \ ((* ((long (*)())((self)->header.srctext_methods->routines[103]))) (self,range)) #define srctext_InString(self,pos) \ ((* ((boolean (*)())((self)->header.srctext_methods->routines[104]))) (self,pos)) #define srctext_JustInsertCharacters(self,pos,str,len) \ ((* ((boolean (*)())((self)->header.srctext_methods->routines[105]))) (self,pos,str,len)) #define srctext_LinesTooLong(self,maxlen) \ ((* ((boolean (*)())((self)->header.srctext_methods->routines[106]))) (self,maxlen)) #define srctext_NextTabStop(self,curcol) \ ((* ((int (*)())((self)->header.srctext_methods->routines[107]))) (self,curcol)) #define srctext_OutputSrcInset(self,file,writeID,inset) \ ((* ((boolean (*)())((self)->header.srctext_methods->routines[108]))) (self,file,writeID,inset)) #define srctext_OverstrikeAChar(self,pos) \ ((* ((void (*)())((self)->header.srctext_methods->routines[109]))) (self,pos)) #define srctext_Quoted(self,pos) \ ((* ((boolean (*)())((self)->header.srctext_methods->routines[110]))) (self,pos)) #define srctext_ReflowComment(self,pos) \ ((* ((boolean (*)())((self)->header.srctext_methods->routines[111]))) (self,pos)) #define srctext_ReindentLine(self,pos) \ ((* ((void (*)())((self)->header.srctext_methods->routines[112]))) (self,pos)) #define srctext_RemoveStyles(self) \ ((* ((void (*)())((self)->header.srctext_methods->routines[113]))) (self)) #define srctext_ReverseBalance(self,pos) \ ((* ((long (*)())((self)->header.srctext_methods->routines[114]))) (self,pos)) #define srctext_SetWriteCallbacks(self,pre,post) \ ((* ((void (*)())((self)->header.srctext_methods->routines[115]))) (self,pre,post)) #define srctext_SetupStyles(self) \ ((* ((void (*)())((self)->header.srctext_methods->routines[116]))) (self)) #define srctext_SkipWhitespace(self,pos,end) \ ((* ((long (*)())((self)->header.srctext_methods->routines[117]))) (self,pos,end)) #define srctext_TabAndOptimizeWS(self,pos,inc) \ ((* ((long (*)())((self)->header.srctext_methods->routines[118]))) (self,pos,inc)) #define srctext_TranslateSrcInset(self,pos) \ ((* ((long (*)())((self)->header.srctext_methods->routines[119]))) (self,pos)) #define srctext_WrapStyle(self,pos,len,style,begflag,endflag) \ ((* ((void (*)())((self)->header.srctext_methods->routines[120]))) (self,pos,len,style,begflag,endflag)) #define srctext_WrapStyleNow(self,pos,len,style,begflag,endflag) \ ((* ((void (*)())((self)->header.srctext_methods->routines[121]))) (self,pos,len,style,begflag,endflag)) #define srctext_GetForceUpper(self) \ (((self))->forceUpper) #define srctext_SetForceUpper(self,newValue) \ ((((self))->forceUpper) = (newValue)) #define srctext_GetMaxLineLength(self) \ (((self))->maxlinelength) #define srctext_SetMaxLineLength(self,newValue) \ ((((self))->maxlinelength)= (newValue)) #define srctext_IndentingEnabled(self) \ (((self))->indentingEnabled) #define srctext_IsInOverstrikeMode(self) \ (((self))->OverstrikeMode) /*RSK91overstrike*/ #define srctext_ChangeOverstrikeMode(self,newValue) \ ((((self))->OverstrikeMode) = (newValue)) /*RSK91overstrike*/ #define srctext_NewFromObject(self) \ ((* ((struct srctext * (*)())((self)->header.srctext_methods->info->procs->routines[0]))) (&srctext_classheader, (self)->header.srctext_methods->info->versionnumber)) #define srctext_New() \ (*((struct srctext * (*)()) (srctext_CLASSPROCEDURES->routines[0])))(&srctext_classheader,srctext_VERSION) #define srctext_Initialize(self) \ (*((void (*)()) (srctext_CLASSPROCEDURES->routines[2])))(&srctext_classheader,self, srctext_VERSION) #define srctext_Destroy(self) \ ((* ((void (*)()) ((self)->header.srctext_methods->info->procs->routines[1]))) (&srctext_classheader, self)) #define srctext_Finalize(self) \ (*((void (*)()) (srctext_CLASSPROCEDURES->routines[3])))(&srctext_classheader,self) #define srctext_InitializeObject(self) \ (*((boolean (*)()) (srctext_CLASSPROCEDURES->routines[5])))(&srctext_classheader,self) #define srctext_FinalizeObject(self) \ (*((void (*)()) (srctext_CLASSPROCEDURES->routines[6])))(&srctext_classheader,self) #define srctext_BuildTable(classname,hashTable,wordlist) \ (*((void (*)()) (srctext_CLASSPROCEDURES->routines[7])))(&srctext_classheader,classname,hashTable,wordlist) #define srctext_HashInsert(hashTable,word) \ (*((void (*)()) (srctext_CLASSPROCEDURES->routines[8])))(&srctext_classheader,hashTable,word) #define srctext_Lookup(hashTable,word) \ (*((Dict * (*)()) (srctext_CLASSPROCEDURES->routines[9])))(&srctext_classheader,hashTable,word) #endif /* !defined(srctext_ROUTINESDEFINED) && !defined(dontDefineRoutinesFor_srctext ) && !defined(class_StaticEntriesOnly)*/