ada_kate.tcl 2.96 KB
Newer Older
Jerome Legrand's avatar
Jerome Legrand committed
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
package provide ada_kate 0.1 
# C code editor (using Kate)
lappend auto_path .
namespace eval ada_kate {
    
    # Graphical name of the operation
    proc getLabel {} {
        return "Edit Ada source code"
    }
    
    # Name of the application this script can be used with
    # shall be either InterfaceView or DeploymentView
    proc getApplication {} {
        return "InterfaceView"
    }
    
    # Names of  the object this script can be used on
    proc getApplyTo {} {
        return [list { "Function" {"Source_Language" "Ada"} }  ]
    }
    
    # List of way to manage output in the Framework
    # Could be an empty list or one or both of 'dialogBox' and 'statusBar'
    proc getOutputManagement {} {
25
26
		## Ticket mantis 0000625
        return [list statusBar dialogBoxOnError]
Jerome Legrand's avatar
Jerome Legrand committed
27
28
29
30
31
32
33
34
35
36
37
38
39
40
    }
    
    proc ada_kate { args } {
        set params [lindex $args 0]
        set aadlFilePath [Parameter::getParameter $params aadlFilePath]
        set aadlId [Parameter::getParameter $params id]
        return [ada_internal $aadlFilePath $aadlId]
    }
    
    #  the line "exec {*}[auto_execok $::installationPath/config/externalTools/test.bat]"
    #  ask the current OS which software is to be used to open the file test.bat
    #  to launch using the absolute path, read the template2.tcl_
    
    # synchronous call
41
42
    proc ada_internal { aadlFilePath aadlId } {  
		## Ticket mantis 0000625  
Jerome Legrand's avatar
Jerome Legrand committed
43
44
45
46
        set initialPath [pwd]
        cd [file dirname $aadlFilePath]
        set msg ""
        
47
48
49
50
51
52
53
54
        set scriptPath [auto_execok "taste-generate-skeletons"]
        if { $scriptPath != "" } {
			set errNumb [catch { exec -ignorestderr {*}$scriptPath 2>@1 } errMsg]
		} else {
			set errNumb -1
			set errMsg "Unknown command taste-generate-skeletons."
		}
        ## Ticket mantis 0000632
Jerome Legrand's avatar
Jerome Legrand committed
55
        set aadlId [string tolower $aadlId 0 end]
56
57
58
59
60
61
62
63
64
65
66
67
        set fileBaseName [file normalize "[pwd]/$aadlId" ]
        if { $errNumb == 0 && [file exists $fileBaseName ] } {
            if { [auto_execok kate] == "" } {
				set errNumb -1
				set msg [list "Error in execution of \"kate ${fileBaseName}/${aadlId}.ads ${fileBaseName}/${aadlId}.adb: unknown file kate" ]
			} else {
				ToolsOthers::execAsynchronouslyWithResponse [list "[auto_execok kate] ${fileBaseName}/${aadlId}.ads ${fileBaseName}/${aadlId}.adb" ] \
					"::ada_kateres" "Kate error report" "The execution of kate stopped with error"
			}
        } elseif { $errNumb != 0 } {
			set errNumb -1
            set msg [list "Error in execution of \"taste-generate-skeletons $aadlFilePath\": $errMsg" ]
Jerome Legrand's avatar
Jerome Legrand committed
68
        } else {
69
70
			set errNumb -1
            set msg [list "Cannot find files:\n-${fileBaseName}/${aadlId}.ads \n-${fileBaseName}/${aadlId}.adb" ]
Jerome Legrand's avatar
Jerome Legrand committed
71
72
73
74
75
76
77
78
79
80
81
82
83
        }
        
        cd $initialPath
        return [list $errNumb $msg]
    } 
    
    # asynchronous call
    #proc template_internal { aadlFilePath aadlId } {        
    #    exec {*}[auto_execok $::installationPath/config/externalTools/test.bat] $aadlFilePath $aadlId &
    #    return ""
    #} 
    
}