transputers again was: The dissolution of Commodore 2933
Its pretty common, and widely disliked both for WindRiver's licensing policies and reports of poor quality control in the kernel & drivers, and frequently nonexistent (or hideously expensive) support for bug...
snip
C's switch is brain-dead. I much prefer a more powerful case statement. Some languages have this. COBOL is one. The xBASE family is one-several, as in this case where I had three subconditions to iterate through. I grouped like results together and ended up with:
do case case; (entrytype="WOI" and catxuse="WOI" and cwkouse="N") or; && 121 (entrytype="NonI" and catxuse="NonI" and cwkouse="Y") && 232 clear typeahead =messagebox(inconsistentmsg,MBOK,"Bad Accounting Transaction Data") return DEFTRNNBR
You likely don't recognize the name. You're in a maze of twisty little pbuttages, all the same. Think of each...
case; (entrytype="WOI" and catxuse="NonI" and cwkouse="N") or; && 131 (entrytype="WOI" and catxuse="NonI" and cwkouse="Y") or; && 132 (entrytype="NonI" and catxuse="WOI" and cwkouse="N") or; && 221 (entrytype="NonI" and catxuse="WOI" and cwkouse="Y") && 222 clear typeahead =messagebox(; "A Transaction can not have more than one type out of"+CHRCR+; "WOI and Non-Invoice.",; MBOK,"Data Entry Error") return DEFTRNTYPE
case entrytype="WOI" and catxuse="N" and cwkouse="N" && 111 clear typeahead =messagebox(; "No Work Order exists yet."+CHRCR+; "(Create a Work Order first, then invoice it.)",; MBOK,"Data Entry Error") return min(DEFTRNDATE,DEFTRNTYPE,DEFTRNNBR,DEFCLCODE,DEFFUNCCODE)
case entrytype="WOI" and catxuse="N" and cwkouse="Y" && 112 clear typeahead =messagebox(; "No Invoice exists yet."+CHRCR+; "(Invoice the Work Order first.)",; MBOK,"Data Entry Error") return min(DEFTRNDATE,DEFTRNTYPE,DEFTRNNBR,DEFCLCODE,DEFFUNCCODE)
case entrytype="NonI" and catxuse="N" and cwkouse="Y" && 212 clear typeahead =messagebox(; "A Non-Invoice can not be entered,"+CHRCR+; "because a Work Order already exists.",; MBOK,"Data Entry Error") return min(DEFTRNDATE,DEFTRNTYPE,DEFTRNNBR,DEFCLCODE,DEFFUNCCODE)
case entrytype="NonI" and catxuse="NonI" and cwkouse="N" && 231 clear typeahead =messagebox(; "A Non-Invoice must have only one non-SP record.",; MBOK,"Data Entry Error") return DEFTRNTYPE
Tradition is probably the only reason we do. When a new project comes around there is usually a fairly long discussion about which OS's we could...
case; (entrytype="WOI" and catxuse="WOI" and cwkouse="Y") or; && 122 (entrytype="NonI" and catxuse="N" and cwkouse="N") && 211 * OK: do nothing. endcase
snip
I have done this. It does freak out some people who do not seem to understand that programs are just data of another sort.
Looks good. More people should read it. I just have one question, though: what do you have against continue and break? To me they are perfectly valid...
snip
Sincerely,
Gene Wirchenko
Computerese Irregular Verb Conjugation: I have preferences. You have biases. He-She has prejudices.
transputers again was: The dissolution of Commodore 2934
Alt Folklore Computers from Newsgroups