Here is a script previously posted to forum:
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
''''''''''''''''''''''''''''''''''''''
' setLanguageForSelectedClasses.ebs
'
' SSC/Johan Nilsson 2000-02-08
'
' Changes language assignment for all currently selected
' classes. Based on script by Patrick Rutledge, Rational
' Support in 1998 something, which assigned lanugage to
' all classes in model.
'
' Added some stats, checking, and logging to log view. Doesn't
' check if chosen language is available (see things to do below).
'
' Limited to ANSI C++, VC++, Java, VB, Analysis because of lazyness. Easy
' though to update.
'
' No guarantees provided. Backup model before running. Tested
' on Rose 2000 / C++ only.
'
' Things to do (for anyone who feels like it):
'
' - change language selection options to use drop-down list box.
' - populate using language enumeration (if such exists).
' - retrieve language selection from list box.
' - autobackup?
'
' Feedback to [EMAIL PROTECTED]
'
Begin Dialog SelectLangDialog 93,37,110,186,"Assign Language"
OKButton 10,154,40,14
CancelButton 60,154,40,14
Text 4,8,80,12,"Select a Language"
GroupBox 4,20,70,122,"Languages"
OptionGroup .LangGroup
OptionButton 10,30,60,12,"VC++",.CPPOpt
OptionButton 10,50,60,12,"Java",.JavaOpt
OptionButton 10,69,60,12,"VB",.VBOpt
OptionButton 10,90,60,12,"Analysis",.AnalysisOpt
OptionButton 10,110,60,12,"ANSI C++",.AnsiOpt
End Dialog
Sub Main
Dim aClass As Class
Dim selectedClasses As ClassCollection
Dim aTempMod As Module
Dim langDlog As SelectLangDialog
Dim oldLang As String
Dim nChanged As Integer
Dim nUnchanged As Integer
Dim nAlreadyAssigned As Integer
Set selectedClasses = RoseApp.CurrentModel.GetSelectedClasses()
If selectedClasses.Count > 0 Then
nChanged = 0
nUnchanged = 0
nAlreadyAssigned = 0
r% = Dialog(langDlog)
If r% = 0 Then
Exit Sub 'cancel
End If
Select Case langDlog.LangGroup
Case 0
lang$ = "VC++"
Case 1
lang$ = "Java"
Case 2
lang$ = "Visual Basic"
Case 3
lang$ = "Analysis"
Case 4
lang$ = "ANSI C++"
End Select
Set aTempMod =
RoseApp.CurrentModel.RootSubsystem.AddModule("TemporaryModuleForAssigningLan
guages")
aTempMod.AssignedLanguage = lang$
For i% = 1 To selectedClasses.Count
Set aClass = selectedClasses.GetAt(i%)
oldLang = aClass.GetAssignedLanguage()
If oldLang = lang$ Then
nUnchanged = nUnchanged + 1
RoseApp.WriteErrorLog "Info : Language for class " & aClass.Name & " was
already set to " & oldLang & "."
Else
If aClass.GetAssignedModules.Count = 0 Then
aClass.AddAssignedModule aTempMod
nChanged = nChanged + 1
RoseApp.WriteErrorLog "Info : Language for class " & aClass.Name & " has
been changed from " & oldLang & " to " & aClass.GetAssignedLanguage() & "."
Else
RoseApp.WriteErrorLog "Warning : Class " & aClass.Name & " is already
assigned to module(s), can't perform language assign."
nAlreadyAssigned = nAlreadyAssigned + 1
End If
End If
Next i%
worked = RoseApp.CurrentModel.RootSubsystem.DeleteModule(aTempMod)
nTotal = selectedClasses.Count
statistics$ = "Info : " & nTotal & " class(es) total. Changed = " & _
nChanged & ", unchanged = " & nUnchanged & ", already assigned = " &
nAlreadyAssigned & "."
RoseApp.WriteErrorLog statistics$
MsgBox "Done. See log window for details.", 64, "Assign Language"
Else
MsgBox "No classes selected.", 48, "Assign Language"
End If
End Sub
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
Patrick Kennedy
Rational Support
-----Original Message-----
From: Ronald W Townsen [mailto:[EMAIL PROTECTED]]
Sent: Wednesday, February 19, 2003 7:37 AM
To: [EMAIL PROTECTED]
Subject: (ROSE) Switching from Rose 2000e to Rose 2002
We are looking to move our large Rose 2000e model forward to Rose 2002.
Does anyone have a script which will upgrade Logical View classes from Rose
C++ to ANSI C++ within the model to allow for easier transition? Note that
we have a large library of enumerator's, some of which have 4000+ entries
and they all need to be carried over.
************************************************************************
* Rose Forum is a public venue for ideas and discussions.
* For technical support, visit http://www.rational.com/support
* Only plain-text messages are supported.
* HTML or Rich-Text messages may be rejected.
*
* Post or Reply to: [EMAIL PROTECTED]
* Subscription Requests: [EMAIL PROTECTED]
* Archive of messages:
* http://www.rational.com/support/usergroups/rose/rose_forum.jsp
* Other Requests: [EMAIL PROTECTED]
*
* To unsubscribe from the list, please send email
* To: [EMAIL PROTECTED]
* Subject: <BLANK>
* Body: unsubscribe rose_forum
*************************************************************************
************************************************************************
* Rose Forum is a public venue for ideas and discussions.
* For technical support, visit http://www.rational.com/support
* Only plain-text messages are supported.
* HTML or Rich-Text messages may be rejected.
*
* Post or Reply to: [EMAIL PROTECTED]
* Subscription Requests: [EMAIL PROTECTED]
* Archive of messages:
* http://www.rational.com/support/usergroups/rose/rose_forum.jsp
* Other Requests: [EMAIL PROTECTED]
*
* To unsubscribe from the list, please send email
* To: [EMAIL PROTECTED]
* Subject: <BLANK>
* Body: unsubscribe rose_forum
*************************************************************************
