Skip to content

Instantly share code, notes, and snippets.

@zeroeth

zeroeth/check_out_active.sh

Created August 20, 2012 16:30
Show Gist options
  • Star 6 You must be signed in to star a gist
  • Fork 0 You must be signed in to fork a gist
  • Save zeroeth/3405568 to your computer and use it in GitHub Desktop.
Save zeroeth/3405568 to your computer and use it in GitHub Desktop.
Download ZIP
Jurassic Park movie source code
Raw
check_out_active.sh
# CheckOutActive - Check the active window out for modification
#
# Usage: Called by a user­defined menu item
#
# CheckOutActive uses the ProjectInfo command to determine the
# parent project for the file open as the Active window. Once this
# project has been determined, the file open as the Active window
# can be properly checked out.
#
# © Apple Computer, Inc. 1988
# All rights reserved.
End
# Request a comment before we check the file out. It is still possible
# that the checkout will fail because the lastest revision on the trunk
# is already checked out for modification by someone else.
(Set comment "`Request -d "{Task}" "What changes will you make?" || Set error {Status}`")
If {error} == 0
Evaluate "{®3}" =~ /(,([0-9.]+[a-z]*)*)®4[0-9.]+/ # {®4} contains the branch
If "{comment}" ‚ ""
Checkout -t "{comment}" -c -m -project "{®2}" "{Active}{®4}"
Else
Checkout -c -m -project "{®2}" "{Active}{®4}"
End
If {Status} ‚ 0
Raw
info.txt
Found this at http://www.joecullin.com/site/2012/01/jurassic-park-source-code/ during a random googling and quoting expedition.
@jimlyndon
Copy link

Do we need another reason to use git? How about "inferior source code revision tool with default file locking causes cascading security failure, leading to the deaths of dozens, and two horrible movie sequels."

Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment