Apache
/
jclouds
mirror of https://github.com/apache/jclouds.git
1
0
Fork 0
Code Issues Packages Projects Releases Wiki Activity

Modified perl screen scraper to output a JSON representation of the EC2 API (see aws/codegen/objmodels/ec2.json). 

git-svn-id: http://jclouds.googlecode.com/svn/trunk@856 3d8758e0-26b5-11de-8745-db77d3ebf521
This commit is contained in:
jamurty 2009-05-26 20:49:36 +00:00
parent 00f6bfb810
commit ce49993f64
2 changed files with 2808 additions and 11 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2788
aws/codegen/objmodels/ec2.json Normal file
View File

File diff suppressed because it is too large Load Diff

31
aws/src/main/bin/parse_ec2.pl
View File

@ -26,7 +26,12 @@
# Builds an object tree used to create a REST service for the current EC2 api. # Builds an object tree used to create a REST service for the current EC2 api.
# #
# Prerequisites: # Prerequisites:
# * download and install http://search.cpan.org/~petek/HTML-Tree/ # * install HTML-Tree (http://search.cpan.org/~petek/HTML-Tree/)
# 1. download and extract the archive
# 2. cd to that location
# 3. perl MakeFile.PL
# 4. sudo make install
# * install JSON (http://search.cpan.org/~makamaka/JSON-2.14/lib/JSON.pm)
# 1. download and extract the archive # 1. download and extract the archive
# 2. cd to that location # 2. cd to that location
# 3. perl MakeFile.PL # 3. perl MakeFile.PL
@ -43,10 +48,11 @@ use strict;
use HTML::TreeBuilder 2.97; use HTML::TreeBuilder 2.97;
use LWP::UserAgent; use LWP::UserAgent;
use Data::Dumper; use Data::Dumper;
use JSON;
#my $refUrl = "http://docs.amazonwebservices.com/AWSEC2/latest/APIReference"; my $refUrl = "http://docs.amazonwebservices.com/AWSEC2/latest/APIReference";
# my $refUrl = "/tmp/scrape";
my $refUrl = "/tmp/scrape";
my $appUrl = "${refUrl}/OperationList-query.html"; my $appUrl = "${refUrl}/OperationList-query.html";
my $global_package = "org.jclouds.aws.ec2"; my $global_package = "org.jclouds.aws.ec2";
my $commands_package = $global_package . ".commands"; my $commands_package = $global_package . ".commands";
@ -67,9 +73,9 @@ sub parse_file {
sub parse { sub parse {
return parse_file(shift); # return parse_file(shift);
#return parse_url(shift); return parse_url(shift);
} }
sub parse_java_type { sub parse_java_type {
@ -598,10 +604,13 @@ EOF
# start app! # start app!
my $app = build_app($appUrl); my $app = build_app($appUrl);
gen_bean_code_for_domain($domain); my $app_json = to_json($app, {utf8 => 1, pretty => 1});
gen_bean_code_for_response($app); print $app_json
gen_bean_code_for_command($app);
print_domain_code($domain); # gen_bean_code_for_domain($domain);
print_response_code($app); # gen_bean_code_for_response($app);
print_command_code($app); # gen_bean_code_for_command($app);
#
# print_domain_code($domain);
# print_response_code($app);
# print_command_code($app);