CodeCaddy v2.08x

[blueznl]

Interesting, what OS are you on?

[DoubleDutch]

Windows 7 x64.

[blueznl]

... which I do not run... Hmmm... I can do a little test on Vista and Vista 64 though under a VM. Do you have the problem when using Aero, or also when using the classic GUI?

[DoubleDutch]

Problem when using Aero, not tried with classic.
I
In the thinner dialog I see the top line saying 'Thinning...esktop\projects\Elementary ' then it goes to the next line (there is a space in the path name), but only the top of pixel of the font is shown. There is nothing below it at all.

[blueznl]

I've tried it running on Windows Vista 64 inside a VM. I can see the text being malformed, but on Vista 64 inside the VM the progress bar simply shows up. Hmmm... I seem to vaguely recall there were some issues with the progress bar on Windows 7...

[blueznl]

Could anyone running Vista or Windows 7 with 'aero' enabled try the latest version of CodeCaddy, and especially try the 'thinner' tool or 'codesync'. There seems to be something wrong with Vista / Windows 7 and the ProgressBarGadget.

Latest version of CodeCaddy is now 1.89x, and it just might now support unc paths (as in \\serv1\shared\ etc.).

[DoubleDutch]

Tried it again on Win 7 - the corrupted text has gone (now it ends in ...) - but still no progressbar.

[blueznl]

Could you please tell me if you can see the bar with Aero off?

[DoubleDutch]

Ahh - I think I know whats happened...

I tried a different executable and I see the bar! Aero on or off.

My program is 38,000 lines long and it appears to crash CodeCaddy BEFORE the progress bar is displayed ( just thought it was because it was a big program). If you output messages at each stage, I'll send you the log.

btw on the other program (the one that does display the progress bar), once its gone through the thinner process PB reports that TidySchool is missing, but it is there and it is called from the main program. Here is the calling line:

Code: Select all

SetGadgetText(#p1SchoolName,TidySchool(s2$,s3$,s4$,s5$,s6$))

Here is the procedure:

Code: Select all

Procedure.s TidySchool(school$,addr1$,addr2$,addr3$,addr4$)
	result$=Trim(school$)
	addr1$=Trim(LCase(addr1$))
	addr2$=Trim(LCase(addr2$))
	addr3$=Trim(LCase(addr3$))
	addr4$=Trim(LCase(addr4$))
	If Right(result$,1)="." Or Right(result$,1)=","
		result$=Trim(Left(result$,Len(result$)-1))
	EndIf
	If Right(LCase(result$),Len(addr4$))=addr4$
		result$=Trim(Left(result$,Len(result$)-Len(addr4$)))
	EndIf
	If Right(result$,1)="." Or Right(result$,1)=","
		result$=Trim(Left(result$,Len(result$)-1))
	EndIf
	If Right(LCase(result$),Len(addr3$))=addr5$
		result$=Trim(Left(result$,Len(result$)-Len(addr3$)))
	EndIf
	If Right(result$,1)="." Or Right(result$,1)=","
		result$=Trim(Left(result$,Len(result$)-1))
	EndIf
	If Right(LCase(result$),Len(addr2$))=addr2$
		result$=Trim(Left(result$,Len(result$)-Len(addr2$)))
	EndIf
	If Right(result$,1)="." Or Right(result$,1)=","
		result$=Trim(Left(result$,Len(result$)-1))
	EndIf
	If Right(LCase(result$),Len(addr1$))=addr1$
		result$=Trim(Left(result$,Len(result$)-Len(addr1$)))
	EndIf
	If Right(result$,1)="." Or Right(result$,1)=","
		result$=Trim(Left(result$,Len(result$)-1))
	EndIf
	school$=result$
	
	If Left(LCase(result$),Len(addr1$))=addr1$
		result$=Trim(Mid(result$,Len(addr1$)+1))
	EndIf
	If Left(LCase(result$),Len(addr2$))=addr2$
		result$=Trim(Mid(result$,Len(addr2$)+1))
	EndIf
	If Left(LCase(result$),Len(addr3$))=addr3$
		result$=Trim(Mid(result$,Len(addr3$)+1))
	EndIf
	If Left(LCase(result$),Len(addr4$))=addr4$
		result$=Trim(Mid(result$,Len(addr4$)+1))
	EndIf
	revert=#False
	If LCase(Left(result$,4))="and "
		result$=school$
	EndIf
	If Left(result$,1)="." Or Left(result$,1)=","
		result$=Trim(Mid(result$,2))
	EndIf
	Select LCase(result$)
		Case	"church of england primary school":revert=#True
		Case	"cofe primary school":revert=#True
		Case	"catholic primary school":revert=#True
		Case	"infants' school":revert=#True
		Case	"infants school":revert=#True
		Case	"infant school":revert=#True
		Case	"community primary school":revert=#True
		Case	"primary school":revert=#True
		Case	"school":revert=#True
		Case	"primary":revert=#True
		Case	"catholic secondary school":revert=#True
		Case	"church of england secondary school":revert=#True
		Case	"cofe secondary school":revert=#True
		Case	"community secondary school":revert=#True
		Case	"secondary school":revert=#True
		Case	"secondary":revert=#True
	EndSelect
	If revert
		result$=school$
	EndIf
	ProcedureReturn result$
EndProcedure

Don't laugh at the code, it's just a hack! lol.

[blueznl]

Which version are you using? I fixed a 'procedure names in capitals' related error...

[DoubleDutch]

V 1.89x b 824 18.03.10 save 8425

[blueznl]

Simply adding logging isn't going to fix this, there's 38000 places where it could go wrong... got to help me a little more here so I can help you, preferably a file that breaks things. No need for it to run or do actually anything, as long as it compiles fine without CodeCaddy. Most likely I've missed the use of a procedure, but I need to know where things went wrong.

Call to all: if you have big useless source code give it to me so I can test it

[DoubleDutch]

I mean it locks up on this 38,000 line program when thinning is turned on. If you add some kind of debug output then I'll let you know the last message before the lockup.

[blueznl]

Well, the best thing would be to give me the code that causes the troubles, but it's probably something you're unwilling to do.

Here's how you might help me, by answering these questions and trying these things:

1. do you have empty lines before and after your procedures?
2. do you have mixed case in your procedure names? (if so, try to make them all lower case and see what happens)
3. what's the total number of lines of the main and all includes?

[DoubleDutch]

1. yes
2. yes, 38,000 lines is a bit too much to start doing that.
3. 61285