/[ascend]/trunk/tcltk/generic/interface/SConscript
ViewVC logotype

Annotation of /trunk/tcltk/generic/interface/SConscript

Parent Directory Parent Directory | Revision Log Revision Log


Revision 625 - (hide annotations) (download)
Thu May 18 16:07:09 2006 UTC (18 years, 6 months ago) by johnpye
File size: 2871 byte(s)
Fixed incidences of INSTALL_DATA in SConscript files.
1 johnpye 571 Import('env')
2    
3     srcs = Split("""
4     AscBitmaps.c AscPrintTcl.c BrowLogRel_io.c BrowWhen_io.c
5     BrowserMethod.c BrowserProc.c BrowserQuery.c BrowserRel_io.c
6     Commands.c DebugProc.c DisplayProc.c
7     EnvVarProc.c HelpProc.c Integrators.c
8     LibraryProc.c Lsode.c MtxProc.c ProbeProc.c Qlfdid.c
9     ScriptProc.c Sensitivity.c SimsProc.c SlvProc.c
10     SolverProc.c UnitsProc.c UserData.c
11     tkConsole.c old_utils.c Driver.c
12     """)
13    
14     if env['HAVE_LEX']:
15     typelexsource = 'typelex.l'
16     else:
17     typelexsource = 'typelex_no_flex.c'
18    
19     tcl_env = env.Copy()
20    
21     typelex = tcl_env.SharedObject(typelexsource
22     , LEXFLAGS = '-ll -Ptyp_'
23     )
24    
25     if tcl_env.get('TCL_CPPPATH'):
26     tcl_env.Append(CPPPATH=tcl_env['TCL_CPPPATH'])
27    
28     if tcl_env.get('TK_CPPPATH'):
29     tcl_env.Append(CPPPATH=tcl_env['TK_CPPPATH'])
30    
31     tcl_env.Append(LIBS=['ascend'])
32     tcl_env.Append(LIBPATH=['#'])
33    
34     if tcl_env.get('STATIC_TCLTK'):
35     print "STATIC TCL/TK PROGRAM LINKAGE"
36     srcs += ['$TCL_LIB','$TK_LIB','$TKTABLE_LIB']
37     tcl_env.Append(LIBS=tcl_env['X11_LIB'])
38     tcl_env.Append(LIBPATH=tcl_env['X11_LIBPATH'])
39    
40     if tcl_env['TKTABLE_LIBPATH']:
41     tcl_env.Append(LIBPATH=tcl_env['TKTABLE_LIBPATH'])
42    
43     tcl_env.Program("ascend4",["main.c"] + srcs)
44     else:
45     print "DYNAMIC TCL/TK PROGRAM LINKAGE"
46     tcl_env.Append(LIBS=tcl_env['TCL_LIB'])
47     tcl_env.Append(LIBS=tcl_env['TK_LIB'])
48    
49     if tcl_env.has_key('TCL_LIBPATH'):
50     tcl_env.Append(LIBPATH=tcl_env['TCL_LIBPATH'])
51     if tcl_env.has_key('TK_LIBPATH'):
52     tcl_env.Append(LIBPATH=tcl_env['TK_LIBPATH'])
53    
54     ascendtcllib = tcl_env.SharedLibrary('ascendtcl',srcs+typelex)
55    
56     #tcl_so = tcl_env.Command(Copy('$SHLIBPREFIX$TCL_LIB$SHLIBSUFFIX','$TCL_LIBPATH/$SHLIBPREFIX$TCL_LIB$SHLIBSUFFIX'))
57     #tk_so = tcl_env.Command(Copy('$SHLIBPREFIX$TK_LIB$SHLIBSUFFIX','$TK_LIBPATH/$SHLIBPREFIX$TK_LIB$SHLIBSUFFIX'))
58     #tktable_so = tcl_env.Command(Copy('$SHLIBPREFIX$TKTABLE_LIB$SHLIBSUFFIX','$TKTABLE_LIBPATH/$SHLIBPREFIX$TKTABLE_LIB$SHLIBSUFFIX'))
59    
60     tcl_env.Append(LIBPATH=['.'])
61    
62     ascendtclprog = tcl_env.Program("ascend4",["main.c"]
63     , LIBS = tcl_env['LIBS']+['ascendtcl','ascend']
64     )
65    
66     if tcl_env.get('CAN_INSTALL'):
67     env.InstallProgram(env['INSTALL_ROOT']+env['INSTALL_BIN'],ascendtclprog)
68     env.InstallProgram(env['INSTALL_ROOT']+env['INSTALL_LIB'],ascendtcllib)
69    
70     import glob
71    
72 johnpye 625 sharedata = env['INSTALL_ROOT']+env['INSTALL_SHARE']+"/ascend"
73 johnpye 571 tkdir = sharedata + "/tcltk/"
74    
75     import os
76     import os.path
77    
78     cd = os.getcwd()
79     os.chdir(env.Dir("#tcltk/TK").abspath)
80    
81     files = {}
82    
83     for root, dirs, files in os.walk("."):
84     #print root, "..."
85     dest = os.path.normpath(os.path.join(env.subst(tkdir),root))
86     for name in files:
87     env.Install(env.subst(dest),"#tcltk/TK/"+os.path.join(root, name))
88     #print dest,"<---",os.path.join(root, name)
89    
90     if 'CVS' in dirs:
91     dirs.remove('CVS') # don't visit CVS directories
92     if '.svn' in dirs:
93     dirs.remove('.svn') # don't visit .svn directories
94    
95     os.chdir(cd)

john.pye@anu.edu.au
ViewVC Help
Powered by ViewVC 1.1.22