This is the class diagram for Rebol Faces. More coming soon.

To be continued …

{
Faces
face is defined by offset / size / text / changes // make / show / hide
View has face(s)
pane is defined by layout
face has 1 pane
pane has face(s)
}

{
Windows
system has 1 view
view has 1 screen-face
screen-face is a face
screen-face is a computer-window
screen-face has 1 screen-face-pane
screen-face-pane is a pane
screen-face-pane has window-face(s)
window-face is defined by text,color,image/view,unview
}

{
panels
panel group face(s)
}

{
Window options
window-face has 1 options
options is defined by no-title,no-border,resize,all-over,activate-on-show,min-size
}

Output:

{
[face|offset;size;text;changes|make;show;hide]
[View]++1-0..*[face]
[face]++1-1[pane|layout]
}

{
[face|offset;size;text;changes|make;show;hide]
[pane]++1-0..*[face]
}

This Use Case Diagram illustrates Adsense API. It is derived from these Business Rules converted to yUML with this yUML Use Case generator.

Use Case Diagram:

Business Rules in plain English:

{
Adsense API
Adsense API Client Application manage Publisher's Adsense Account
Adsense API Client Application manage Publisher's Ads Code Snippet
AdsenseAPI manage Publisher's Adsense Account
AdsenseAPI manage Publisher's Ads Code Snippet
manage Publisher's Ads Code Snippet include generate ad code snippets for insertion into a publisher's  web pages
manage Publisher's Adsense Account include Setting Up A Publisher's Account
Setting Up New AdSense Publisher Extend Setting Up A Publisher's Account
Setting Up Existing AdSense Publisher Extend Setting Up A Publisher's Account
}

yUML translation:

note: Adsense API{bg:beige}
[Adsense API Client Application]-(Manage Adsense Account)
[Adsense API Client Application]-(Manage Ads Code Snippet)
[AdsenseAPI]-(Manage Adsense Account)
[AdsenseAPI]-(Manage Ads Code Snippet)
(manage Ads Code Snippet)>(generate ad code snippets for insertion)
(manage Adsense Account)>(Setup Account)
(Setup Account)<(New Account)
(Setup Account)<(Existing Account)

To be continued …

This a Desktop GUI Client for yUML Use Case Diagram. [coming soon ...]

To execute type in rebol console:

do read http://askuml.com/blog/yuml-use-case-desktop-client/

then copy and paste sample input

;requires encode-url function (embedded in askuml.com)
yuml-command: ask "command (validate to read from clipboard): "

		either ((length? yuml-command) = 0) [
			yuml-command0: copy yuml-command: read clipboard://
		][
			yuml-command0: copy yuml-command
		]

;remove last empty line if any
if (p: back tail yuml-command) = "^/" [remove p]

;encode ^[ to ^^[ as ^ is an escape sequence key in Rebol
replace/all yuml-command "^[" "^^["

;replace newline by ","
replace/all yuml-command newline ", "

;form the url
yuml-url: to-url rejoin [http://yuml.me/diagram/scruffy/usecase/ (encode-url yuml-command) ".jpg"]

;load image into Rebol's img variable
img: load yuml-url

;request-save function called by save button
request-save: func[][
    target-file: pick request-file/save 1
    write/binary target-file read/binary yuml-url
]

request-refresh: func[][
    print "refresh is not implemented yet"
]

panel1.layout: layout [
  origin 0x0
  yuml-image: image img
]

panel2.layout: layout [
  origin 0x0
  area (yuml-command0) yellow
]

panelbuttons.layout: layout [
    origin 5x10 space 5 across
    button "Save" [request-save]
    button "Refresh" [request-refresh]
    button "Quit" [quit]

]

;visual form
Main: layout [
    offset: 0x0
    yuml-image: image img
    return
    across
    btn "Save" [request-save]
    btn "Refresh" [request-refresh]
    btn "Quit" [quit]
    return
    area (yuml-command0) yellow
]

Main: layout [
  origin 0x0
  panel1: box 640x300 white
  panelbuttons: box 640x50
  panel2: box 640x180 yellow
]

panel1/pane: panel1.layout
panel2/pane: panel2.layout
panelbuttons/pane: panelbuttons.layout

image-panel: [
    yuml-image: image 600x400 img
]

btn-panel: [
    across origin 6 space 6
    btn "Save" [request-save]
    btn "Refresh" [request-refresh]
    btn "Quit" [quit]
]

area-panel: [
    area yellow 600x200
]

main: layout [
    origin 0 space 0
    panel image-panel
    panel btn-panel
    panel area-panel
]

view/title/options center-face Main "askuml.com" [no-border]

Sample input:

note: User onLogin Page{bg:beige}
[User]-(Connect to Login Page)
(Connect to Login Page)<(Login with Username & Password)
(Login with Username & Password)<(Remember me)
(Connect to Login Page)<(Fill Username if forgot Password)
(Connect to Login Page)<(Click on Register)

This script (see usage) contains specific vocabularies for an e-commerce application see sample input and output.

Rebol [
    Title: "yUML Use Case"
    Author-Url: http://askuml.com
    Script-Url:  http://askuml.com/blog/e-commerce/
    Version: 1.0
    Date:  10-Jul-2010
    Purpose: {
            Generate yUML Use Case Diagram for e-commerce App
    }
]

do code-block/2; business rules parsing
do code-block/3; yUML function
do code-block/4; Robot Maker

print "Copy UML Script to clipboard ..."
input
Yuml-Orders-list: to-block read clipboard://
Create-Use-Case Yuml-Orders-list
clipboard: copy ""

foreach element Yuml-Output-List [
    append clipboard element
    append clipboard newline
    append clipboard newline
]

 Print mold/only Yuml-Output-List

 write clipboard:// mold/only Yuml-Output-List
 ;write clipboard:// clipboard
 ans: "Copied to clipboard... do you want to go to yUml.me (Y/N): "
if ans = "Y" [
    browse http://yuml.me/diagram/scruffy/usecase/draw
]

  note-rule: [(color: "beige") some [
    'note [
            copy note-string to 'fond thru 'fond copy color to end
            (append output rejoin ["note: " note-string "{" "bg:" color "}"])
            |
            copy note-string to  end  (append output rejoin ["note: " note-string "{" "bg:" color "}"])              

      ]
    ]
    |           copy note-string to 'fond thru 'fond copy color to end
            (append output rejoin ["note: " note-string "{" "bg:" color "}"])
            |
            copy note-string to  end  (append output rejoin ["note: " note-string "{" "bg:" color "}"])
  ]

  actor-rule: [some [ [copy Actor to 'is thru 'is 'a 'Actor (append output rejoin ["[" Actor "]"])]
      | [copy Actor to 'is thru 'is 'a copy Actor2 to end (append output rejoin ["[" Actor "]^[" Actor2 "]"])]
   ]
  ]

  extend-rule: [some [copy UseCase2 to 'Extend thru 'Extend copy UseCase1 to end (append output rejoin ["(" UseCase1 ")<(" UseCase2 ")"])]
  ]

  include-rule: [some [copy UseCase2 to 'Include thru 'Include copy UseCase1 to end (append output rejoin ["(" UseCase2 ")>(" UseCase1 ")"])]
]  

  use-rule: [some
[copy Actor to 'Connect thru 'Connect 'to copy UseCase to end (append output rejoin ["[" Actor "]-(" "Connect to " UseCase ")"])]
|
[copy Actor to 'Use thru 'Use copy UseCase to end (append output rejoin ["[" Actor "]-(" "Use " UseCase ")"])]
|
[copy Actor to 'List thru 'List copy UseCase to end (append output rejoin ["[" Actor "]-(" "List " UseCase ")"])]
|
[copy Actor to 'Show thru 'Show copy UseCase to end (append output rejoin ["[" Actor "]-(" "Show " UseCase ")"])]
|
[copy Actor to 'Search thru 'Search copy UseCase to end (append output rejoin ["[" Actor "]-(" "Search " UseCase ")"])]
|
[copy Actor to 'Select thru 'Select copy UseCase to end (append output rejoin ["[" Actor "]-(" "Select " UseCase ")"])]
|
[copy Actor to 'Checkout thru 'Checkout copy UseCase to end (append output rejoin ["[" Actor "]-(" "Checkout" ")"])]
|
[copy Actor to 'Pay thru 'Pay copy UseCase to end (append output rejoin ["[" Actor "]-(" "Pay" ")"])]
|
[copy Actor to 'Delete thru 'Delete copy UseCase to end (append output rejoin ["[" Actor "]-(" "Delete " UseCase ")"])]
|
[copy Actor to 'Modify thru 'Modify copy UseCase to end (append output rejoin ["[" Actor "]-(" "Modify " UseCase ")"])]
|
[copy Actor to 'Add thru 'Connect 'to copy UseCase to end (append output rejoin ["[" Actor "]-(" "Add to " UseCase ")"])]
|
[copy Actor to 'Manage thru 'Manage copy UseCase to end (append output rejoin ["[" Actor "]-(" "Manage " UseCase ")"])]

  ]

  yuml-rule: [(Actor: copy [] Actor2: copy []) actor-rule | extend-rule |  include-rule | use-rule | note-rule ]

Create-Use-Case: func[Yuml-Orders-list][
  Worker: Make Robot[]
  Robot-Orders: [
     Yuml-Output-List: copy []

     foreach Yuml-Orders Yuml-Orders-list [
         Print ["Yuml-Orders: " Yuml-Orders " started ..." newline]
         generate Yuml-Orders
         Print output
         Append Yuml-Output-List copy output

         Print ["Yuml-Orders: " Yuml-Orders " done! " newline]
         Print Newline
     ]
  ]

  Worker/Run Robot-Orders
  Yuml-Output-List
]

ROBOT: make object! [

    ;task1 function
  Generate: func [yuml-orders][

    output: copy ""

    block-orders-draft: parse/all yuml-orders "^/"
    block-orders: copy []
    foreach order block-orders-draft [

      if (length? (order: trim/head/tail order)) > 0 [
          append block-orders  order
      ]
    ]

    foreach order block-orders [
      order-block: to-block order
      parse order-block yuml-rule
      append output newline
    ]
  ]

  ;task2 function
  list: func [][
      foreach Task Tasks-List [
        print Task
      ]
  ]

  ;core engine
  run: func [code][

      Tasks-List: copy [] ; reset the list
      output: copy ""
      do bind code 'self
  ]
]

Sample UML Inputs (2 blocks scripts, first line of each block is an UML note):

{
    Product Catalog
    User List all Product Categories
    User List Products within a Category
    List Products within a Category Extend List all Product Categories
    Select some Products Extend List Products within a Category
    User Search Product
    User Show a Product Detail
    Show a Product Detail Extend Search Product
    Show a Product Detail Extend List Products within a Category
    Add to Shopping Cart Extend Select some Products
    Show a Product Detail Extend Select some Products
    Add to Shopping Cart Extend Show a Product Detail
}

{
    Shopping Cart
    User Connect to Login Page
    User is a Customer
    User Checkout
    Customer Checkout
    Delete a Product Extend Checkout
    Modify a Product Quantity Extend Checkout
    Pay Extend Checkout
    Pay include Connect to Login Page
}

Sample yUML Outputs (2 blocks scripts):

{note: Product Catalog{bg:beige}
[User]-(List all Product Categories)
[User]-(List Products within a Category)
(List all Product Categories)<(List Products within a Category)
(List Products within a Category)<(Select some Products)
[User]-(Search Product)
[User]-(Show a Product Detail)
(Search Product)<(Show a Product Detail)
(List Products within a Category)<(Show a Product Detail)
(Select some Products)<(Add to Shopping Cart)
(Select some Products)<(Show a Product Detail)
(Show a Product Detail)<(Add to Shopping Cart)
}

{
note: Shopping Cart{bg:beige}
[User]-(Connect to Login Page)
[User]^[Customer]
[User]-(Checkout)
[Customer]-(Checkout)
(Checkout)<(Delete a Product)
(Checkout)<(Modify a Product Quantity)
(Checkout)<(Pay)
(Pay)>(Connect to Login Page)
}

Copy a block script output ...

and copy it to http://yuml.me/diagram/scruffy/usecase/draw

Articles:

Defining Business Requirements using UML Use Case diagram

Books:

Applying Use Case Driven Object Modeling with UML: An Annotated e-Commerce Example

This is a typical Login Page Use Case Diagram from these Business Rules converted to yUML with this yUML Use Case generator.

Use Case Diagram:

Business Rules in plain English:

{
    User on Login Page
    User Connect to Login Page
    Login with Username & Password Extend Connect to Login Page
    Remember me Extend Login with Username & Password
    Fill Username if forgot Password Extend Connect to Login Page
    Click on Register Extend Connect to Login Page
}

yUML translation:

note: User on Login Page{bg:beige}
[User]-(Connect to Login Page)
(Connect to Login Page)<(Login with Username & Password)
(Login with Username & Password)<(Remember me)
(Connect to Login Page)<(Fill Username if forgot Password)
(Connect to Login Page)<(Click on Register)

Implementation Example:

Recommanded articles:
Rethinking the Role of Business Analysts: Towards Agile Business Analysts?

Recommanded Books:

UML Jobs:
UML Business Analyst Jobs

This is sharetronix UML Class Diagrams created with this script (to be continued …)

[users|id;facebook_uid;email;username;password;fullname;avatar;]
[posts|id;api_id;user_id;group_id;message;mentioned;attached;posttags;comments;date;date_lastedit;date_lastcomment;ip_addr;]
[posts_attachments|id;post_id;type;data;]
[posts_comments|id;api_id;post_id;user_id;message;mentioned;posttags;date;ip_addr;]
[users]++-[posts]
[posts]++-[posts_attachments]
[posts]++-[posts_comments]

[cache|key;data;expire;]
[crons|cron;last_run;next_run;is_running;]
[groups|id;groupname;title;avatar;about_me;is_public;num_posts;num_followers;]
[groups_admins|id;group_id;user_id;]
[groups_deleted|id;groupname;title;is_public;]
[groups_followed|id;user_id;group_id;date;group_from_postid;]
[groups_private_members|id;group_id;user_id;invited_by;invited_date;]
[groups_rssfeeds|id;group_id;feed_url;feed_userpwd;feed_title;filter_keywords;date_added;date_last_post;date_last_crawl;date_last_item;added_by_user;is_deleted;]
[groups_rssfeeds_posts|id;rssfeed_id;post_id;]
[invitation_codes|code;user_id;]

[posts|id;api_id;user_id;group_id;message;mentioned;attached;posttags;comments;date;date_lastedit;date_lastcomment;ip_addr;]
[posts_attachments|id;post_id;type;data;]
[posts_comments|id;api_id;post_id;user_id;message;mentioned;posttags;date;ip_addr;]
[post_api|id;name;total_posts;]
[post_favs|id;user_id;post_type;post_id;date;]
[post_userbox|user_id;post_id;]
[post_userbox_feeds|user_id;post_id;]
[posts_comments_mentioned|id;comment_id;user_id;]
[posts_comments_watch|id;user_id;post_id;newcomments;]
[posts_mentioned|id;post_id;user_id;]
[posts_pr|id;api_id;user_id;to_user;message;mentioned;attached;posttags;comments;date;date_lastedit;date_lastcomment;ip_addr;is_recp_del;]
[posts_pr_attachments|id;post_id;type;data;]
[posts_pr_comments|id;api_id;post_id;user_id;message;mentioned;posttags;date;ip_addr;]
[posts_pr_comments_mentioned|id;comment_id;user_id;]
[posts_pr_comments_watch|id;user_id;post_id;newcomments;]
[posts_pr_mentioned|id;post_id;user_id;]

[searches|id;user_id;search_key;search_string;search_url;added_date;total_hits;last_results;]
[settings|word;value;]
[unconfirmed_registrations|id;email;fullname;confirm_key;invited_code;date;]
[users|id;facebook_uid;email;username;password;fullname;avatar;about_me;tags;gender;birthdate;position;location;language;timezone;num_posts;num_followers;used_storage;js_animations;dbrd_groups_closed;dbrd_whattodo_closed;comments_expanded;reg_date;reg_ip;lastlogin_date;lastlogin_ip;lastpost_date;lastemail_date;lastclick_date;lastclick_date_newest_post;pass_reset_key;pass_reset_valid;active;is_network_admin;]
[users_dashboard_tabs|user_id;tab;state;newposts;]
[users_details|user_id;website;work_phone;personal_phone;personal_email;im_skype;im_icq;im_gtalk;im_msn;im_yahoo;im_aim;im_jabber;prof_linkedin;prof_facebook;prof_twitter;prof_flickr;prof_friendfeed;prof_delicious;prof_digg;prof_myspace;prof_orcut;prof_youtube;prof_mixx;prof_edno23;prof_favit;]
[users_followed|id;who;whom;date;whom_from_postid;]
[users_ignores|id;who;whom;date;]
[users_invitations|id;user_id;date;recp_name;recp_email;recp_is_registered;recp_user_id;]
[users_notif_rules|user_id;ntf_them_if_i_follow_usr;ntf_them_if_i_comment;ntf_them_if_i_edt_profl;ntf_them_if_i_edt_pictr;ntf_them_if_i_create_grp;ntf_them_if_i_join_grp;ntf_me_if_u_follows_me;ntf_me_if_u_follows_u2;ntf_me_if_u_commments_me;ntf_me_if_u_commments_m2;ntf_me_if_u_edt_profl;ntf_me_if_u_edt_pictr;ntf_me_if_u_creates_grp;ntf_me_if_u_joins_grp;ntf_me_if_u_invit_me_grp;ntf_me_if_u_posts_qme;ntf_me_if_u_posts_prvmsg;ntf_me_if_u_registers;]
[users_pageviews|id;user_id;date;pageviews;]
[users_rssfeeds|id;user_id;feed_url;feed_userpwd;feed_title;filter_keywords;date_added;date_last_post;date_last_crawl;date_last_item;is_deleted;]
[users_rssfeeds_posts|id;rssfeed_id;post_id;]

This script doesn’t work any more: it’s in maintenance mode.

This script (see usage) will list all fields of all tables of a mysql db (postgress coming soon or you can easily adapt) and convert them to yUML classes.

For example, you can generate these classes from a Wordpress Database:

;ask db-parameters
either value? 'mysql-db [
   ans: ask rejoin ["mysql-db" " (by default " mysql-db ")" ": "]
   if ans <> "" [mysql-db: ans]
][
   mysql-db: ask "mysql-db: "
]

do code-block/2
do code-block/3
do code-block/4
do code-block/5

;mysql protocol is automatically loaded with askuml script so you don't need to
;otherwise see http://softinnov.org/rebol/mysql.shtml
mysql-connect: rejoin [mysql:// mysql-login ":" mysql-password "@" mysql-server "/" mysql-db]

  tables-list: read/custom mysql-connect ["SHOW TABLES;"]
  final-result0: copy []
  final-result1: copy ""
  final-result: copy ""
  foreach table-block tables-list [
      table: pick table-block 1
      append final-result0 get-list-fields table
      append final-result0 newline
      append final-result convert-to-yuml table
      append final-result newline
      append final-result1 convert-to-yuml-usecase table
      append final-result1 newline
  ]
  write clipboard://  final-result

either exists? it: %askuml/db-params.txt [
    params-block: copy load it
][
    params-block: []
]

either res: find params-block mysql-db [
    mysql-server: pick res 2
    mysql-login: pick res 3
    mysql-password: pick res 4
    print [ mysql-db "found in" it]
][

    new-param: reduce [
    mold mysql-db
    mold mysql-server
    mold mysql-login
    mold mysql-password
    ]

    either not exists? %askuml/db-params.txt [
        create-dir "askuml/"
        write/append %askuml/db-params.txt reform new-param
    ][
        write/append %askuml/db-params.txt reform [newline new-param]
    ]

]

get-list-fields: func[table][
  Print ["list all fields of " table]
  sql: copy []
  append sql rejoin ["describe " table ";"]
  Probe fields-list: read/custom mysql-connect sql
  clipboard: copy ""
  append clipboard mold table
  append clipboard " ["
  append clipboard newline
  foreach field-block fields-list [
      append clipboard mold pick field-block 1
      append clipboard " ["
      append clipboard mold pick field-block 2
      append clipboard " "
      append clipboard mold pick field-block 3
      append clipboard " "
      append clipboard mold pick field-block 4
      append clipboard " "
      append clipboard mold pick field-block 5
      append clipboard " "
      append clipboard mold pick field-block 6
      append clipboard "]"
      append clipboard newline
  ]
  append clipboard "]"
  return-value: copy clipboard
]

convert-to-yuml: func[table][
      clipboard: copy ""
      append clipboard rejoin ["[" table "|"]
      foreach field fields-list [
          field1: pick field 1
          append clipboard field1
          append clipboard ";"
      ]
      append clipboard {]}
      clipboard
]

convert-to-yuml-usecase: func[table][
      clipboard: copy ""
      append clipboard rejoin ["{" table newline]
      foreach field fields-list [
          field1: pick field 1
          append clipboard rejoin [table " include " field1]
          append clipboard newline
      ]
      append clipboard "}"
      clipboard
]

Sample output1 (Wordpress DB):

[wp_comments|comment_ID;comment_post_ID;comment_author;comment_author_email;comment_author_url;comment_author_IP;comment_date;comment_date_gmt;comment_content;comment_karma;comment_approved;comment_agent;comment_type;comment_parent;user_id;]
[wp_links|link_id;link_url;link_name;link_image;link_target;link_description;link_visible;link_owner;link_rating;link_updated;link_rel;link_notes;link_rss;]
[wp_options|option_id;blog_id;option_name;option_value;autoload;]
[wp_postmeta|meta_id;post_id;meta_key;meta_value;]
[wp_posts|ID;post_author;post_date;post_date_gmt;post_content;post_title;post_excerpt;post_status;comment_status;ping_status;post_password;post_name;to_ping;pinged;post_modified;post_modified_gmt;post_content_filtered;post_parent;guid;menu_order;post_type;post_mime_type;comment_count;]
[wp_term_relationships|object_id;term_taxonomy_id;term_order;]
[wp_term_taxonomy|term_taxonomy_id;term_id;taxonomy;description;parent;count;]
[wp_terms|term_id;name;slug;term_group;]
[wp_usermeta|umeta_id;user_id;meta_key;meta_value;]
[wp_users|ID;user_login;user_pass;user_nicename;user_email;user_url;user_registered;user_activation_key;user_status;display_name;]

Sample Output2 (Sharetronix):

[posts|id;api_id;user_id;group_id;message;mentioned;attached;posttags;comments;date;date_lastedit;date_lastcomment;ip_addr;]
[posts_attachments|id;post_id;type;data;]
[posts_comments|id;api_id;post_id;user_id;message;mentioned;posttags;date;ip_addr;]

This script (see usage) will generate multiple yUML Use Case Scripts at once using an english-natural-like syntax copied to clipboard as input (see sample input) and output will also be copied to clipboard (see sample output).

Rebol [
    Title: "yUML Use Case"
    Author-Url: http://askuml.com
    Script-Url:  http://askuml.com/blog/yuml-use-case
    Version: 1.2
    Date:  3-Jul-2010
    Purpose: {
            Generate yUML Use Case Diagram
    }
]

do code-block/2; business rules parsing
do code-block/3; yUML function
do code-block/4; Robot Maker

print "Copy UML Script to clipboard ..."
input
Yuml-Orders-list: to-block read clipboard://
Create-Use-Case Yuml-Orders-list
clipboard: copy ""

foreach element Yuml-Output-List [
    append clipboard element
    append clipboard newline
    append clipboard newline
]

 Print mold/only Yuml-Output-List

 write clipboard:// mold/only Yuml-Output-List
 ;write clipboard:// clipboard
 ans: "Copied to clipboard... do you want to go to yUml.me (Y/N): "
if ans = "Y" [
    browse http://yuml.me/diagram/scruffy/usecase/draw
]

  note-rule: [(color: "beige") some [
    'note [
            copy note-string to 'fond thru 'fond copy color to end
            (append output rejoin ["note: " note-string "{" "bg:" color "}"])
            |
            copy note-string to  end  (append output rejoin ["note: " note-string "{" "bg:" color "}"])              

      ]
    ]
    |           copy note-string to 'fond thru 'fond copy color to end
            (append output rejoin ["note: " note-string "{" "bg:" color "}"])
            |
            copy note-string to  end  (append output rejoin ["note: " note-string "{" "bg:" color "}"])
  ]

  actor-rule: [some [ [copy Actor to 'is thru 'is 'a 'Actor (append output rejoin ["[" Actor "]"])]
      | [copy Actor to 'is thru 'is 'a copy Actor2 to end (append output rejoin ["[" Actor "]^[" Actor2 "]"])]
   ]
  ]

  extend-rule: [some [copy UseCase2 to 'Extend thru 'Extend copy UseCase1 to end (append output rejoin ["(" UseCase1 ")<(" UseCase2 ")"])]
  ]

  include-rule: [some [copy UseCase2 to 'Include thru 'Include copy UseCase1 to end (append output rejoin ["(" UseCase2 ")>(" UseCase1 ")"])]
]  

  use-rule: [some
[copy Actor to 'Connect thru 'Connect 'to copy UseCase to end (append output rejoin ["[" Actor "]-(" "Connect to " UseCase ")"])]
|
[copy Actor to 'Use thru 'Use copy UseCase to end (append output rejoin ["[" Actor "]-(" "Use " UseCase ")"])]
|
[copy Actor to 'List thru 'List copy UseCase to end (append output rejoin ["[" Actor "]-(" "List " UseCase ")"])]
|
[copy Actor to 'Show thru 'Show copy UseCase to end (append output rejoin ["[" Actor "]-(" "Show " UseCase ")"])]
|
[copy Actor to 'Manage thru 'Manage copy UseCase to end (append output rejoin ["[" Actor "]-(" "Manage " UseCase ")"])]
  ]

  yuml-rule: [(Actor: copy [] Actor2: copy []) actor-rule | extend-rule |  include-rule | use-rule | note-rule ]

Create-Use-Case: func[Yuml-Orders-list][
  Worker: Make Robot[]
  Robot-Orders: [
     Yuml-Output-List: copy []

     foreach Yuml-Orders Yuml-Orders-list [
         Print ["Yuml-Orders: " Yuml-Orders " started ..." newline]
         generate Yuml-Orders
         Print output
         Append Yuml-Output-List copy output

         Print ["Yuml-Orders: " Yuml-Orders " done! " newline]
         Print Newline
     ]
  ]

  Worker/Run Robot-Orders
  Yuml-Output-List
]

ROBOT: make object! [

    ;task1 function
  Generate: func [yuml-orders][

    output: copy ""

    block-orders-draft: parse/all yuml-orders "^/"
    block-orders: copy []
    foreach order block-orders-draft [

      if (length? (order: trim/head/tail order)) > 0 [
          append block-orders  order
      ]
    ]

    foreach order block-orders [
      order-block: to-block order
      parse order-block yuml-rule
      append output newline
    ]
  ]

  ;task2 function
  list: func [][
      foreach Task Tasks-List [
        print Task
      ]
  ]

  ;core engine
  run: func [code][

      Tasks-List: copy [] ; reset the list
      output: copy ""
      do bind code 'self
  ]
]

Sample UML Inputs (3 blocks scripts, first line of each block is an UML note):

  {
      Wordpress Profiles
      Blogger is a User
      Admin is a Blogger
      Author is a Blogger
      Subscriber is a User
  }

  {
      Blogger Role
      Blogger Manage Posts
      Manage Posts Include Create Post
      Manage Posts Include Edit Post
      Manage Posts Include Delete Post
      Categorize Post Extend Create Post
      Categorize Post Extend Edit Post
  }

  {
      Admin Roles
      Admin Manage Site
      Manage Site Include Manage Users
      Manage Site Include Manage Themes
      Manage Site Include Manage Plugins
  }

Sample yUML Outputs (3 blocks scripts):

{
note: Wordpress Profiles{bg:beige}
[Blogger]^[User]
[Admin]^[Blogger]
[Author]^[Blogger]
[Subscriber]^[User]
} 

{
[Blogger]-(Manage Posts)
(Manage Posts)>(Create Post)
(Manage Posts)>(Edit Post)
(Manage Posts)>(Delete Post)
(Create Post)(Manage Themes)
(Manage Site)>(Manage Plugins)
}

Copy a block script output ...

and copy it to http://yuml.me/diagram/scruffy/usecase/draw