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.
#
# 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
# 2. cd to that location
# 3. perl MakeFile.PL
@ -43,10 +48,11 @@ use strict;
use HTML::TreeBuilder 2.97;
use LWP::UserAgent;
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 $global_package = "org.jclouds.aws.ec2";
my $commands_package = $global_package . ".commands";
@ -67,9 +73,9 @@ sub parse_file {
sub parse {
return parse_file(shift);
# return parse_file(shift);
#return parse_url(shift);
return parse_url(shift);
}
sub parse_java_type {
@ -598,10 +604,13 @@ EOF
# start app!
my $app = build_app($appUrl);
gen_bean_code_for_domain($domain);
gen_bean_code_for_response($app);
gen_bean_code_for_command($app);
my $app_json = to_json($app, {utf8 => 1, pretty => 1});
print $app_json
print_domain_code($domain);
print_response_code($app);
print_command_code($app);
# gen_bean_code_for_domain($domain);
# gen_bean_code_for_response($app);
# gen_bean_code_for_command($app);
#
# print_domain_code($domain);
# print_response_code($app);
# print_command_code($app);