Hi FME'ers, If - like me - you constantly install FME beta versions for testing purposes, you may be wishing that there were a way to revert the file associations back to the official release version for production work.
Well now there is a way.
See: http://www.fmepedia.com/index.php/FME_File_Type_Association_Updater
New Safe support dude Aaron Koning has come up with a neat little script that will let you choose which fme.exe file to associate all your FME files with. Now you can ensure that when you double-click an fmw file, it opens the version of FME that you want, and not an arbitrary beta version.
Hope this is useful (it is for me). Thanks Aaron,
Mark
_pragma(classify_level=debug)
_method ds_version_view.debug!all_checkpoints()
## debug!all_checkpoints() : sorted_collection
##
## returns a sorted_collection of all checkpoints in self and
## the tree beneath self sorted from most recent to oldest.
## The elements returned are actually simple_vectors of the
## form:
## {checkpoint A_CHECKPOINT,string ALTERNATIVE_NAME}
##
_local checkpoints << sorted_collection.new(_unset,
_proc(a,b)
>> a[1].time_created > b[1].time_created
_endproc)
_for a_view _over _self.actual_alternatives()
_loop
checkpoints.add_all(a_view.checkpoints.map(_proc(a_cpt)
_import a_view
>> {a_cpt,a_view.alternative_path_name()}
_endproc))
_endloop
_return checkpoints
_endmethod
$
_pragma(classify_level=debug)
_global show_all_checkpoints <<
_proc@show_all_checkpoints(a_view)
## show_all_checkpoints(ds_version_view A_VIEW) : _unset
##
## shows all checkpoints and related information for A_VIEW and
## tree.
_for cpt_info _over a_view.debug!all_checkpoints().fast_elements()
_loop
show(cpt_info[1].time_created,cpt_info[1].checkpoint_name,cpt_info[2])
_endloop
_endproc
$
MagikSF> show_all_checkpoints(gis_program_manager.cached_dataset(:gis)) $
date_time(10/30/07 17:34:44) "is!insync_1193790807" :||oracle_sync_parent| date_time(10/30/07 17:34:44) "is!insync_1193790807" :||oracle_sync_parent|oracle_sync| date_time(10/30/07 16:32:54) "is!insync_1193787116" :||oracle_sync_parent| date_time(10/30/07 16:32:53) "is!insync_1193787116" :||oracle_sync_parent|oracle_sync| date_time(10/30/07 15:33:09) "is!insync_1193783570" :||oracle_sync_parent| date_time(10/30/07 15:33:08) "is!insync_1193783570" :||oracle_sync_parent|oracle_sync| date_time(10/30/07 14:34:02) "is!insync_1193780009" :||oracle_sync_parent| date_time(10/30/07 14:34:02) "is!insync_1193780009" :||oracle_sync_parent|oracle_sync| date_time(10/30/07 13:33:52) "is!insync_1193776407" :||oracle_sync_parent|
_block
# if you want to use your GIS tools to see what the data looked
# like at a previous checkpoint, then get a handle on the
# current view and go that checkpoint in READONLY mode.
# DO NOT switch to :writable while at this alternative unless
# you are ABSOLUTELY SURE of what you are doing. The safest
# action to take once you are done viewing data at the old
# checkpoint is to switch to the "***disk version***"
# checkpoint in that alternative before continuing.
_local v << gis_program_manager.cached_dataset(:gis)
v.switch(:readonly)
v.go_to_alternative("|oracle_sync_parent",:readonly)
v.go_to_checkpoint("is!insync_1192840224",:readonly)
_endblock
$
_block
# if you want to keep the main dataset at the current view and
# then get a second handle to the old_view so that you can copy
# old data (eg., incorrectly deleted/updated data) into the
# current view, then get a handle on a REPLICA of the current
# view and go that previous checkpoint in READONLY mode.
# DO NOT switch to :writable while at this alternative unless
# you are ABSOLUTELY SURE of what you are doing. The safest
# action to take once you are done viewing data at the old
# checkpoint is to switch to the "***disk version***"
# checkpoint in that alternative before continuing.
_global old_view
# once you have finished using OLD_VIEW, be sure to :discard()
# it.
old_view << gis_program_manager.cached_dataset(:gis).replicate()
old_view.switch(:readonly)
old_view.go_to_alternative("|oracle_sync_parent",:readonly)
old_view.go_to_checkpoint("is!insync_1192840224",:readonly)
_endblock
$
record_transaction.new_update() record_transaction.new_insert() ds_collection.at() ds_collection.insert() ds_collection.clone_record() ds_collection.update() ds_collection.insert_or_update()
_pragma(classify_level=debug)
_iter _method ds_version_view.all_available_versions(_optional top?)
## yields all available Versions of a replicate of
## _self in the following order:
##
## alternatives (if TOP? isnt _false: beginning with ***top***)
## -- checkpoints (beginning with :current)
## -- base versions for checkpoints (only for alternative_level
## > 0)
##
## for each version yields
## A_VIEW,ALTERNATIVE_PATH_NAME,CHECKPOINT_NAME,BASE_LEVEL, CHECKPOINTS_TIME_CREATED
## where A_VIEW is always a replicate, which will be discarded
## outside this method. The order of the CHECKPOINTS will be in
## reversed chronological order (i.e. beginning with the most
## recent one)
##
## BASE_LEVEL is 0 for the version itself, -1 for the immediate
## base version, -2 for the base version of the base version
## and so on
##
## example:
## v,:|***top***|,:current,0,v.time_last_updated()
## v,:|***top***|,"cp_1",0,cp_1.time_created
## v,:|***top***|,"cp_2",0,cp_2.time_created
## v,:||alt1|,:current,0,v.time_last_updated()
## v,:||alt1|,:current,-1,v.time_last_updated()
## v,:||alt1|,"cp11",0,cp11.time_created
## v,:||alt1|,"cp11",-1,v.time_last_updated()
## v,:||alt2|,":current",0,v.time_last_updated()
## ...
##
## NB:
## If the different versions of _self have different
## datamodels, you might be annoyed by messages like the following:
##
## compiliing my_table.geometry_mapping
## fixing up details for dd_field_type(my_field_type) : Version 12345, transition to 54321
## Defining my_other_table
##
## To avoid this, you might want to suppress any output by
## redefining the dynamics !output! and suppressing the output
## of the information conditions db_synchronisation and
## pragma_monitor_info. Of course you have then to put any
## wanted output to other output targets like !terminal! or a
## locally defined external_text_output_stream. So your code
## might look like the following:
## MagikSF> t << proc(a_database_view)
## _handling db_synchronisation, pragma_monitor_info _with procedure
## _dynamic !output! << null_text_output_stream
##
## # ... any more preparation code ...
##
## _for r,alt_pname,cp,base_level,cp_time _over a_database_view.all_available_versions()
## _loop
##
## # ... my code running in the loop, for example:
## !terminal!.show(alt_pname,cp,base_level,cp_time)
## !terminal!.write(%newline)
## !terminal!.flush()
## # ...
##
## _endloop
##
## # ... any summary output, for example:
## !terminal!.write("Ready.",%newline)
## !terminal!.flush()
## # ...
##
## _endproc.fork_at(thread.low_background_priority)
##
## If you don't want to use these !terminal! calls, you could
## also dynamicall redefine !output!:
## MagikSF> t << proc(a_database_view)
## _handling db_synchronisation, pragma_monitor_info _with procedure
## _dynamic !output! << null_text_output_stream
##
## # ... any more preparation code ...
##
## _for r,alt_pname,cp,base_level,cp_time _over a_database_view.all_available_versions()
## _loop
## _block
## _dynamic !output! << !terminal!
## # ... my code running in the loop, for example:
## show(alt_pname,cp,base_level,cp_time)
## # ...
## _endblock
## _endloop
##
## !output! << !terminal!
## # ... any summary output, for example:
## write("Ready.")
##
## _endproc.fork_at(thread.low_background_priority)
_local change_alt_level <<
_if top? _isnt _false
_then
>> - _self.alternative_level
_else
>> 0
_endif
_local r << _self.replicate(change_alt_level,_true)
_protect
_for rr _over r.actual_alternatives(:same_view?,_true)
_loop
_local alt_name << rr.alternative_path_name()
# _if alt_name.write_string.matches?("*{consistency_validation}") _then _continue _endif
_local cps << rr.checkpoints.as_sorted_collection(_proc(lhs,rhs)
_if lhs _is :current
_then
_if rhs _is :current
_then
_return _maybe
_else
_return _true
_endif
_elif rhs _is :current
_then
_return _false
_endif
_local res << rhs.time_created _cf lhs.time_created
_if res _isnt _maybe
_then
_return res
_endif
_return lhs.checkpoint_name _cf rhs.checkpoint_name
_endproc)
cps.add(:current)
_for cp _over cps.fast_elements()
_loop
_local cp_name
_local cp_time
_if cp _is :current
_then
rr.rollforward()
cp_name << :current
cp_time << rr.time_last_updated()
_else
cp_name << cp.checkpoint_name
rr.go_to_checkpoint(cp_name)
cp_time << cp.time_created
_endif
_loopbody(rr,alt_name,cp_name,0,cp_time)
_if rr.alternative_level > 0
_then
_local rrr << rr.replicate(:base,_true)
_protect
_local level_diff << -1
_loopbody(rrr,alt_name,cp_name,level_diff,rrr.time_last_updated())
_loop
_if rrr.alternative_level = 0 _then _leave _endif
rrr.up_base()
level_diff -<< 1
_loopbody(rrr,alt_name,cp_name,level_diff,rrr.time_last_updated())
_endloop
_protection
rrr.discard()
_endprotect
_endif
_endloop
_endloop
_protection
r.discard()
_endprotect
_endmethod
$
I used the Workbench for the first time to create an fmw file for exporting objects. I used the Scale Transformer which appears to work. Is this the right approach or should I create an FME coordinate system that matches our Smallworld database coordinate system? This must be a common problem for Smallworld/FME users.
FACTORY_DEF SWORLD SamplingFactory \
INPUT FEATURE_TYPE * \
@Scale(0.001) \
SAMPLE_RATE 1
Answer: If all of your export collections are processed by the same FMW file (which I see it is; which I also think is a good thing) then I do not see a reason to have to put the code in a loop.
_block
_global fme_tics_server
_local current_server
# start the fme_tics_server if not already running
_if (current_server << fme_tics_server.current_server) _is _unset _orif
_not current_server.acp_running?
_then
fme_tics_server.start(_unset,_unset,:gis)
current_server << fme_tics_server.current_server
_endif
# indicate which records to prepare for export
_local vc << gis_program_manager.cached_dataset(:gis).collections
_local export_records << rwo_set.new_from(vc[:table1])
export_records.add_all(vc[:table2])
export_records.add_all(vc[:table3])
current_server.set_output_rwo_set(export_records)
# run the command line FME
_local command << {"\\gis\FME\fme","\\server\mapping\FME\sworld2mapinfo.fmw",
"--DestDataset_MAPINFO",'"\\server\mapping\FME\fme2007"',
"--PORT_SWORLDSWAF", current_server.port_number.write_string}
system.do_command(command)
_endblock
$
_local command << {"\\gis\FME\fme","\\server\mapping\FME\sworld2mapinfo.fmw",
"--DestDataset_MAPINFO",'"\\server\mapping\FME\fme2007"',
"--PORT_SWORLDSWAF", current_server.port_number.write_string,
"--LOG_FILE","\\server\mapping\FME\fme2007\mapinfo.log"}
MagikSF> smallworld_product.applications.an_element().plugin(:map_plugin).debug!source_files
$
sw:rope:[1-2]
MagikSF> print(!)
$
rope(1,2):
1 ".....\sw_user_custom\pni_gui\resources\base\data\config.xml"
2 ".....\sw_user_custom\custom_application\resources\base\data\config.xml"
_method some_object_name.match_string(_gather args)
_global x_profile
_local ok?, result
(x_profile,ok?,result) << xprf.new_from_send(:debug!match_string|()|,_scatter args)
_return result
_endmethod
$
MagikSF> x_profile
$
a sw:xprf
MagikSF> sw_module_manager.load_module(:profiler_magik_gui)
$
MagikSF> xprf_dialog.open(x_profile)
$
_block
# see http://developer.yahoo.com/weather/ for more information
# about the Weather RSS feed
_constant BASE_URL << "http://weather.yahooapis.com/forecastrss"
_constant QUERY_CHAR << %?
_constant QUERY << "p=80305&u=c" # forecast for USA ZipCode 80305 in Celsius
_constant URL << write_string(BASE_URL,QUERY_CHAR,QUERY)
_local hr << mclib:http_request.new_for_url(_unset,_unset,URL)
_local response << hr.connect()
_local a_xml_doc << response.smart_result()
_local rss_channel << a_doc.top_element.element_matching_name(:channel)
_local item << rss_channel.element_matching_name(:item)
_local long << item.element_matching_name("geo:long").elements[1].as_number()
_local lat << item.element_matching_name("geo:lat").elements[1].as_number()
write()
write(item.element_matching_name(:title).elements[1]," at ",coordinate.new(long,lat))
_local forecast_attributes
_for a_forecast _over item.elements_matching_name("yweather:forecast")
_loop
forecast_attributes << a_forecast.attributes
write(forecast_attributes[:day]," (",forecast_attributes[:date],") ",forecast_attributes[:text]," low=",forecast_attributes[:low]," high=",forecast_attributes[:high]," ")
_endloop
_endblock
$
In contrast, advances in GIS alone are likely to cast us as clerks handling data for the ecologists, political scientists, economists, and other current leaders in these topics
_block
_local some_collection << rope.new(20)
# create a progress_counter class that reports every 5
# increments. Because we know some_collection.size we can also
# estimate completion time
_local pc << progress_counter.new_on_count(5,some_collection.size)
_for idx,an_el _over some_collection.fast_keys_and_elements()
_loop
# the write() and sleep() statements are here to make a simple
# example...
write(an_el)
_thisthread.sleep(1000)
# ... but the :next() method is important to let the
# progress_counter (aka PC) know that you have completed one
# iteration of the loop.
pc.next()
_endloop
_endblock
$
unset
unset
unset
unset
unset
Done 5 (15 left) time taken 5 seconds 297 milliseconds (ETC. 15 seconds 891 milliseconds ) average rate 0.9439305267
unset
unset
unset
unset
unset
Done 10 (10 left) time taken 10 seconds 625 milliseconds (ETC. 10 seconds 625 milliseconds ) average rate 0.9411844826
unset
unset
unset
unset
unset
Done 15 (5 left) time taken 15 seconds 812 milliseconds (ETC. 5 seconds 270 milliseconds ) average rate 0.9487724325
unset
unset
unset
unset
unset
Done 20 (0 left) time taken 21 seconds 15 milliseconds (ETC. 0 milliseconds ) average rate 0.9562876356
_block
_local some_collection << rope.new(20)
# create a progress_counter class that reports every 2
# seconds. Because we know some_collection.size we can also
# estimate completion time
_local pc << progress_counter.new_on_time(3,some_collection.size)
_for idx,an_el _over some_collection.fast_keys_and_elements()
_loop
# the write() and sleep() statements are here to make a simple
# example...
write(an_el)
_thisthread.sleep(1000)
# ... but the :next() method is important to let the
# progress_counter (aka PC) know that you have completed one
# iteration of the loop.
pc.next()
_endloop
_endblock
$
unset
unset
unset
Done 3 (17 left) time taken 3 seconds 125 milliseconds (ETC. 17 seconds 708 milliseconds ) average rate 0.9600000000
unset
unset
unset
Done 6 (14 left) time taken 6 seconds 250 milliseconds (ETC. 14 seconds 583 milliseconds ) average rate 0.9600000000
unset
unset
unset
Done 9 (11 left) time taken 9 seconds 359 milliseconds (ETC. 11 seconds 439 milliseconds ) average rate 0.9616468318
unset
unset
unset
Done 12 (8 left) time taken 12 seconds 453 milliseconds (ETC. 8 seconds 291 milliseconds ) average rate 0.9648530373
unset
unset
unset
Done 15 (5 left) time taken 15 seconds 578 milliseconds (ETC. 5 seconds 199 milliseconds ) average rate 0.9616468318
unset
unset
unset
Done 18 (2 left) time taken 18 seconds 703 milliseconds (ETC. 2 seconds 81 milliseconds ) average rate 0.9612351238
unset
unset
Done 20 (0 left) time taken 20 seconds 765 milliseconds (ETC. 0 milliseconds ) average rate 0.9612351238
_block
_local q << progress_indicator_dialog.new ( "Generating" )
q.interrupt_handler << handler.new ( _unset, _unset )
q.info_string << "The current series will contain approx 10 frames."
q.bar_label << "Generating frames..."
q.image << { :help, _unset }
q.activate ()
q.max_count << 10
_for n _over range(1,10,1)
_loop
_thisthread.sleep(1000)
q.progress_changed(n)
_endloop
_endblock
$
_block
_constant delim_char << tab_char
_local a_frame << smallworld_product.applications.an_element().top_frame
# using a text output stream will let you cleanly create
# a delimited string later on.
_local temp_stream << internal_text_output_stream.new()
_for a_record _over records.fast_elements()
_loop
# using OLE, set your cell range...
data_list {a_record.attr1,a_record.attr2,a_record.attr3}
temp_stream.reset()
temp_stream.write_list_with_separator(data_list,delim_char)
a_frame.clipboard_text << temp_stream.string
# using OLE, do a "Paste" into the current cell
_endloop
_endblock
$
Under the heading of “cool and useful Magik stuff”…
I recently had the opportunity to meet with a friend of mine who showed me his latest creation -- Dialog Designer
It is a tool that allows you to graphically layout your new Magik GUI with many of the commonly-used widgets, menubar, statusbar, and docks. Once you have layed out the GUI graphically and applied appropriate properties to the components, the Dialog Designer will stub out all the required Magik files, classes, methods, shared constants and XML config/gui files and place them in a new module directory structure.
While it will not write the Magik behaviour behind the widgets – you still need to write Magik code that does something when the button is clicked – it goes a very long way to building your :build_gui() method for you. And the nice thing is that tricky tasks like resizing rowcols or other widgets is now done automatically for you.
As a long-time Magik developer, I have never been too excited about GUI design because it can be a bit complicated (and time consuming) in Magik. Using the Dialog Designer will make the GUI design considerably easier and definitely save you a number of hours per GUI in development time.
The company that my friend works for has said that they will release the Dialog Designer to the SourceForge MagikComponents community. Until they have done that, I will keep the name of the developer and his company to myself. Stay tuned for a press release from them (hopefully soon) announcing the availability of this very cool and useful tool for Magik developers.
FOR /F "skip=5 delims=@" %%i IN ('swmfs_list -full \\%COMPUTERNAME%\sw400\product\data message.ds') DO net send %%i Smallworld server going down in 2 minutes.FOR /F "skip=5 delims=@" %%i IN ('swmfs_list -full \\%COMPUTERNAME%\sw400\product\data message.ds') DO net send %%i Smallworld server going down in 2 minutes.
MagikSF> length << "5""
$
**** Error (parser_error): on line 1
length << "5""
^
Missing end of statement
MagikSF> length << write_string(5,%")
$
"5""
MagikSF> length << '5"'
$
"5""
MagikSF> length << "5'"
$
"5'"
MagikSF> '5' = "5"
$
True
Essentially the Smallworld SQL Server provides remote access to a Smallworld database from Windows-based clients. Using the SQL Server and a suitable ODBC-enabled application, you can quickly and easily access all the data within a Smallworld database on a remote machine from a Windows-based PC.Once you have set up a SQL Server image on a machine, you can install the Smallworld-supplied ODBC client driver on any machine in your network. As part of the configuration for that ODBC driver, you specify the host name and port of the SQL server image's machine. Then, you can view Smallworld data using any 3rd party tool that can read ODBC data sources.
Posts
All Comments
