mirror of
https://github.com/marketideas/qasm.git
synced 2026-10-24 22:02:28 +00:00
Shawn Quick
dfcaae62dd
Move the assembler to src/qasm. qlink links OMF 1.0 and 2.0 from a script. makeBin flattens a load file, qomf dumps OMF, and qpro builds ProDOS volumes. APW and MPW assemble through the ORCA front end. Relocatable modules emit OMF objects. Listings stay off unless -l is set. make boot assembles the GS/OS 6.0.1 ProDOS 8 kernel and BASIC.SYSTEM into an 800K volume. BASIC.SYSTEM accepts ls and pfx, and its splash reports PRODOS BASIC 2.0, copyright 1983-2026. IIGS.601.SRC is the source and the BASIC.SYSTEM oracle that image is built from.
1 line
1.6 KiB
Plaintext
1 line
1.6 KiB
Plaintext
# CheckInActive - Check the active window in
|
||
#
|
||
# Usage: Called by a userÐdefined menu item
|
||
#
|
||
# CheckInActive uses the Request command to allow the user to
|
||
# type in a short comment to catalog the changes that were
|
||
# made to the file since it was last checked out. Once the
|
||
# comment is entered, the file open as the Active window is
|
||
# checked in to its parent project and a readÐonly copy is left
|
||
# in its place.
|
||
#
|
||
# © Apple Computer, Inc. 1988
|
||
# All rights reserved.
|
||
|
||
Set Exit 0
|
||
Set error 0
|
||
Begin
|
||
|
||
# First see if the active window belongs to a project.
|
||
|
||
(Set info "`ProjectInfo "{Active}"`" || Set error 1)
|
||
Evaluate "{info}" =~ /Å,[0-9a-z.]+([¶+¶*])¨1ÅOwnerÅ/
|
||
Evaluate "{info}" =~ /ÅProject: (ź)¨2 +Checked outÅ/
|
||
If {error} 0 || "{info}" == ""
|
||
Alert "¶"{Active}¶" canÕt be checked in because ¶
|
||
it doesnÕt belong to a project."
|
||
Exit 0
|
||
End
|
||
|
||
# Find out if the active window is checked out for modification.
|
||
|
||
If "'{¨1}'" "'+'" && "'{¨1}'" "'*'"
|
||
Alert "¶"{Active}¶" canÕt be checked in because ¶
|
||
it wasnÕt checked out for modification."
|
||
Exit 0
|
||
End
|
||
|
||
# Is the right project mounted?
|
||
|
||
(Set info "`ProjectInfo "{¨2}"`" || Set error 1)
|
||
If "{info}" == ""
|
||
Alert "¶"{Active}¶" canÕt be checked in because the project ¶
|
||
¶"{¨2}¶" is not mounted."
|
||
Exit 0
|
||
End
|
||
|
||
# Now request the comment and check the file in.
|
||
set echo 1
|
||
(Set comment "`Request "What changes did you make?" || Set error {Status}`")
|
||
If {error} == 0
|
||
If "{comment}" ""
|
||
CheckIn -cs "{comment}" "{Active}"
|
||
Else
|
||
CheckIn "{Active}"
|
||
End
|
||
If {Status} 0
|
||
Alert "There was a problem checking in ¶"{Active}¶". ¶
|
||
You need to check it in on a branch."
|
||
End
|
||
End
|
||
End · dev:null
|