mirror of
https://github.com/marketideas/qasm.git
synced 2026-10-26 04:02:24 +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.3 KiB
Plaintext
1 line
1.3 KiB
Plaintext
# CancelActive - Cancel checkout of the active window
|
||
#
|
||
# Usage: Called by a userÐdefined menu item
|
||
#
|
||
# CancelActive was cribbed from CheckInActive. Instead of checking
|
||
# in the active window, it cancels the checkout (reverting the changes).
|
||
#
|
||
# CancelActive- hacked by Andy Stadler
|
||
#
|
||
# © 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 +Å/
|
||
Evaluate "{info}" =~ /ÅProject: (ź)¨2 +Checked outÅ/
|
||
If {error} 0 || "{info}" == ""
|
||
Alert "¶"{Active}¶" canÕt be cancelled 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 cancelled 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 cancelled because the project ¶
|
||
¶"{¨2}¶" is not mounted."
|
||
Exit 0
|
||
End
|
||
|
||
# Now cancel the file.
|
||
set echo 1
|
||
CheckOut -cancel "{Active}"
|
||
If {Status} 0
|
||
Alert "There was a problem checking in ¶"{Active}¶". ¶
|
||
You need to check it in on a branch."
|
||
End
|
||
End · dev:null
|